summaryrefslogtreecommitdiffstats
path: root/emacsconf-pad.el
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2024-01-15 09:39:47 -0500
committerSacha Chua <sacha@sachachua.com>2024-01-15 09:39:47 -0500
commit3c3e73c900568f2d4c558f37aa2886933af544f3 (patch)
tree81f10b5d01a09290424ea405c4a2b8531eb51c06 /emacsconf-pad.el
parent33dc3487647e00ba227e1de1ede77af5aa8fd389 (diff)
downloademacsconf-el-3c3e73c900568f2d4c558f37aa2886933af544f3.tar.xz
emacsconf-el-3c3e73c900568f2d4c558f37aa2886933af544f3.zip
insert pad as org
Diffstat (limited to '')
-rw-r--r--emacsconf-pad.el8
1 files changed, 8 insertions, 0 deletions
diff --git a/emacsconf-pad.el b/emacsconf-pad.el
index 2c8ac4b..0a49bd6 100644
--- a/emacsconf-pad.el
+++ b/emacsconf-pad.el
@@ -903,6 +903,14 @@ This page is for easy reference and recording. Please make sure any changes here
(expand-file-name (concat (plist-get talk :file-prefix) "--pad.html")
emacsconf-cache-dir)))
+(defun emacsconf-pad-insert-as-org (pad-id)
+ (interactive "MPad ID: ")
+ (let ((filename (make-temp-file "pandoc" nil ".html" (emacsconf-pad-get-html pad-id))))
+ (insert
+ (shell-command-to-string
+ (concat "pandoc -t org " (shell-quote-argument filename))))
+ (delete-file filename)))
+
(defun emacsconf-pad-backup-talks ()
(interactive)
(mapc