From 3c3e73c900568f2d4c558f37aa2886933af544f3 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Mon, 15 Jan 2024 09:39:47 -0500 Subject: insert pad as org --- emacsconf-pad.el | 8 ++++++++ 1 file changed, 8 insertions(+) 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 -- cgit v1.2.3