From 12a3481632bfc3d477759095fa01fa92e169b292 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 5 Apr 2017 15:17:35 +0200
Subject: Ms writer: respect text wrapping options.

---
 src/Text/Pandoc/Writers/Ms.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs
index 4118a7bfb..f162c4213 100644
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@@ -500,7 +500,12 @@ inlineToMs _ il@(RawInline f str)
     report $ InlineNotRendered il
     return empty
 inlineToMs _ (LineBreak) = return $ cr <> text ".br" <> cr
-inlineToMs opts SoftBreak = handleNotes opts cr
+inlineToMs opts SoftBreak =
+  handleNotes opts $
+    case writerWrapText opts of
+         WrapAuto     -> space
+         WrapNone     -> space
+         WrapPreserve -> cr
 inlineToMs opts Space = handleNotes opts space
 inlineToMs opts (Link _ txt ('#':ident, _)) = do
   -- internal link
-- 
cgit v1.2.3