Fix upload buffer

This commit is contained in:
Andros Fenollosa 2023-06-20 15:06:01 +02:00
parent e599e3d6b1
commit 89a0ce8f1f

View File

@ -17,7 +17,7 @@
(defun org-share-to-web-buffer () (defun org-share-to-web-buffer ()
"Share the current org file to the server, export to html and copy URL to clipboard." "Share the current org file to the server, export to html and copy URL to clipboard."
(interactive) (interactive)
(let* ((filename-current-buffer (file-name-nondirectory (buffer-file-name))) (let* ((filename-current-buffer (buffer-name))
(filename-sans-extension (file-name-sans-extension filename-current-buffer)) (filename-sans-extension (file-name-sans-extension filename-current-buffer))
(filename-html (concat filename-sans-extension ".html")) (filename-html (concat filename-sans-extension ".html"))
(export-html (org-export-string-as (buffer-string) 'html))) (export-html (org-export-string-as (buffer-string) 'html)))