Init commit

org-share-to-web.el

@@ -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