From: rearman <rearman@r717.net>
Date: Fri, 22 May 2026 19:27:20 +0000 (-0400)
Subject: Add function to convert markdown to org (region)
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=19dd9db1e1c71cfa4d5b8ca5fcbb987bc128bba5;p=emacsinit.git

Add function to convert markdown to org (region)
---

diff --git a/config.org b/config.org
index 186d4ce..f4069f2 100644
--- a/config.org
+++ b/config.org
@@ -418,6 +418,18 @@ Sly really doesn't play well with elodc in the minibuffer, so here are some sett
 
 (add-to-list 'auto-mode-alist '("\\.org_keep\\'" . org-mode))
 #+END_SRC
+*** Converting markdown to org
+#+BEGIN_SRC emacs-lisp
+
+(defun re/markdown-to-org-region (start end)
+  "Convert Markdown formatted text in region (START, END) to Org.
+This command requires that pandoc (man page `pandoc(1)') be
+installed."
+  (interactive "r")
+  (shell-command-on-region
+   start end
+   "pandoc -f markdown -t org --wrap=preserve" t t))
+#+END_SRC
 * HOWM
 On-again, off-again relationship with this one
 ** Load package and add bindings