Advice org-md-paragraph to fill contents

1 files changed, 9 insertions, 0 deletions

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