Add function to convert org to markdown (region)

diff --git a/config.org b/config.org
index f4069f29d47ea48b61328b697a427a7feda68546..c25c7ac9c577be1be55d434608b47a38084e4858 100644 (file)
--- a/config.org
+++ b/config.org
@@ -420,7 +420,6 @@ Sly really doesn't play well with elodc in the minibuffer, so here are some sett
 #+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
@@ -430,6 +429,17 @@ installed."
    start end
    "pandoc -f markdown -t org --wrap=preserve" t t))
 #+END_SRC
+*** Converting org to markdown
+#+BEGIN_SRC emacs-lisp
+(defun re/org-to-markdown-region (start end)
+  "Convert Org formatted text in region (START, END) to Markdown.
+This command requires that pandoc (man page `pandoc(1)') be
+installed."
+  (interactive "r")
+  (shell-command-on-region
+   start end
+   "pandoc -f org -t markdown --wrap=preserve" t t))
+#+END_SRC
 * HOWM
 On-again, off-again relationship with this one
 ** Load package and add bindings