Add function to convert markdown to org (region)

diff --git a/config.org b/config.org
index 186d4ceb3d46f7d06828b361a40182117d052b9e..f4069f29d47ea48b61328b697a427a7feda68546 100644 (file)
--- 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