diff options
| -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 |