From c899b4e89dcd61f91f7383e2a81a13ef0da080b8 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 11 Sep 2018 03:50:59 +0300
Subject: Muse writer: escape list markers in the beginning of notes

---
 src/Text/Pandoc/Writers/Muse.hs | 5 ++++-
 test/Tests/Writers/Muse.hs      | 6 ++++++
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 7dbe3a53f..413b71659 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -292,7 +292,10 @@ noteToMuse :: PandocMonad m
            -> [Block]
            -> Muse m Doc
 noteToMuse num note =
-  hang (length marker) (text marker) <$> blockListToMuse note
+  hang (length marker) (text marker) <$>
+    (local (\env -> env { envInlineStart = True
+                        , envAfterSpace = True
+                        }) $ blockListToMuse note)
   where
     marker = "[" ++ show num ++ "] "
 
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index 776884760..7821f4e96 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -348,6 +348,12 @@ tests = [ testGroup "block elements"
                       , ""
                       , "   <verbatim></verbatim>- bar"
                       ]
+            , "escape - inside a note" =:
+              note (para (text "- foo")) =?>
+              unlines [ "[1]"
+                      , ""
+                      , "[1] <verbatim></verbatim>- foo"
+                      ]
             , "escape ; to avoid accidental comments" =: text "; foo" =?> "<verbatim></verbatim>; foo"
             , "escape ; after softbreak" =: text "foo" <> softbreak <> text "; bar" =?> "foo\n<verbatim></verbatim>; bar"
             , "escape ; after linebreak" =: text "foo" <> linebreak <> text "; bar" =?> "foo<br>\n<verbatim></verbatim>; bar"
-- 
cgit v1.2.3