andros/org-share-to-web.el
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Init commit

Browse Source
This commit is contained in:
Andros Fenollosa 2023-06-13 10:07:27 +02:00
commit 5a926e65f9
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
org-share-to-web.el Normal file
View File

@ -0,0 +1,30 @@
;;; org-share-to-web.el --- Share org to website. -*- lexical-binding: t;
;;
;; Copyright © 2023 Andros Fenollosa
;; Authors: Andros Fenollosa <andros@fenollosa.email>
;; URL: https://github.com/tanrax/org-share-to-web.el
;; Version: 1.0.0
;; SPDX-License-Identifier: GPL-3.0-or-later
;;; Commentary:
;;
;;; Code:
(defvar org-share-to-web-domain "")
(defvar org-share-to-web-directory "")
(defun org-share-to-web-buffer ()
"Share the current org file to the server, export to html and copy URL to clipboard."
(interactive)
(let* ((filename-current-buffer (file-name-nondirectory (buffer-file-name)))
(filename-sans-extension (file-name-sans-extension filename-current-buffer))
(filename-html (concat filename-sans-extension ".html"))
(export-html (org-export-string-as (buffer-string) 'html)))
(write-region export-html nil (concat org-share-to-web-directory filename-html))
(tramp-cleanup-all-connections)
(kill-new (concat org-share-to-web-domain filename-html))))
(provide 'org-share-to-web)
;;; org-share-to-web.el ends here