From 33f0205b324b42f646e89b9e0565759a6ab270c3 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Wed, 6 May 2015 23:02:41 -0400
Subject: Add command org-md-export-unfilled-buffer

The advantage of this over use km/export-wrapped-text with md buffer
is that it respects code blocks.
---
 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 18aabf2..f141adc 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -695,6 +695,10 @@ beginning of the link."
                  ("\\paragraph{%s}" . "\\paragraph*{%s}")
                  ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))))
 
+(defvar km/org-md-fill-column fill-column
+  "Fill column for exported markdown.
+This is a separate variable instead of `fill-column' to allow it
+to be easily overriden.")
 
 (defun km/org-md--fill-string (contents)
   "Use `org-ascii--fill-string' to fill ox-md paragraphs."
@@ -704,6 +708,11 @@ beginning of the link."
 (after 'ox-md
   (advice-add 'org-md-paragraph :filter-return #'km/org-md--fill-string))
 
+(defun km/org-md-export-unfilled-buffer ()
+  (interactive)
+  (let ((km/org-md-fill-column (point-max)))
+    (org-md-export-as-markdown)))
+
 
 ;;; Org Babel
 
-- 
cgit v1.2.3