Fix upload buffer
This commit is contained in:
parent
e599e3d6b1
commit
89a0ce8f1f
@ -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)))
|
||||||
|
Loading…
Reference in New Issue
Block a user