From f39931fd6c86a4bf7a651f9e2f5667bfad99bcca Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 16 Apr 2018 11:40:18 +0300
Subject: Muse writer: escape definition list terms starting with list markers

---
 src/Text/Pandoc/Writers/Muse.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 4e7ce377a..d1e407026 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -101,7 +101,7 @@ writeMuse opts document =
                         , envInsideBlock = False
                         , envInlineStart = True
                         , envInsideLinkDescription = False
-                        , envAfterSpace = True
+                        , envAfterSpace = False
                         , envOneLine = False
                         }
 
@@ -223,7 +223,7 @@ blockToMuse (DefinitionList items) = do
                                  => ([Inline], [[Block]])
                                  -> Muse m Doc
         definitionListItemToMuse (label, defs) = do
-          label' <- local (\env -> env { envOneLine = True }) $ inlineListToMuse' label
+          label' <- local (\env -> env { envOneLine = True, envAfterSpace = True }) $ inlineListToMuse' label
           contents <- vcat <$> mapM descriptionToMuse defs
           let ind = offset label'
           return $ hang ind label' contents
@@ -439,14 +439,15 @@ renderInlineList (x:xs) = do
 
 -- | Normalize and convert list of Pandoc inline elements to Muse.
 inlineListToMuse'' :: PandocMonad m
-                  => Bool
-                  -> [Inline]
-                  -> Muse m Doc
+                   => Bool
+                   -> [Inline]
+                   -> Muse m Doc
 inlineListToMuse'' start lst = do
   lst' <- (normalizeInlineList . fixNotes) <$> preprocessInlineList (map (removeKeyValues . replaceSmallCaps) lst)
   topLevel <- asks envTopLevel
+  afterSpace <- asks envAfterSpace
   local (\env -> env { envInlineStart = start
-                     , envAfterSpace = start && not topLevel
+                     , envAfterSpace = afterSpace || (start && not topLevel)
                      }) $ renderInlineList lst'
 
 inlineListToMuse' :: PandocMonad m => [Inline] -> Muse m Doc
-- 
cgit v1.2.3