From a5f1a51e9615ebe0b3ed0ff0d4e0c1b233e50a41 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 6 May 2015 23:02:06 -0400 Subject: Advice org-md-paragraph to fill contents --- lisp/init-org.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'lisp/init-org.el') diff --git a/lisp/init-org.el b/lisp/init-org.el index 6d234bf..18aabf2 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -695,6 +695,15 @@ beginning of the link." ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))) + +(defun km/org-md--fill-string (contents) + "Use `org-ascii--fill-string' to fill ox-md paragraphs." + (org-ascii--fill-string contents km/org-md-fill-column + nil)) + +(after 'ox-md + (advice-add 'org-md-paragraph :filter-return #'km/org-md--fill-string)) + ;;; Org Babel -- cgit v1.2.3