diff options
| author | Sacha Chua <sacha@sachachua.com> | 2024-01-15 09:39:47 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2024-01-15 09:39:47 -0500 |
| commit | 3c3e73c900568f2d4c558f37aa2886933af544f3 (patch) | |
| tree | 81f10b5d01a09290424ea405c4a2b8531eb51c06 | |
| parent | 33dc3487647e00ba227e1de1ede77af5aa8fd389 (diff) | |
| download | emacsconf-el-3c3e73c900568f2d4c558f37aa2886933af544f3.tar.xz emacsconf-el-3c3e73c900568f2d4c558f37aa2886933af544f3.zip | |
insert pad as org
| -rw-r--r-- | emacsconf-pad.el | 8 |
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 |