From f8877516e03ec678aeb735cdafe56e20ca52b235 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 25 Jun 2017 11:01:43 +0300
Subject: Muse reader: Require space before and after '=' for code (#3758)

---
 src/Text/Pandoc/Readers/Muse.hs | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 7eee064a7..fe8a55f5c 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -442,8 +442,7 @@ tableParseCaption = try $ do
 --
 
 inline :: PandocMonad m => MuseParser m (F Inlines)
-inline = choice [ whitespace
-                , br
+inline = choice [ br
                 , footnote
                 , strong
                 , strongTag
@@ -455,6 +454,7 @@ inline = choice [ whitespace
                 , link
                 , code
                 , codeTag
+                , whitespace
                 , str
                 , symbol
                 ] <?> "inline"
@@ -535,7 +535,14 @@ strikeoutTag :: PandocMonad m => MuseParser m (F Inlines)
 strikeoutTag = inlineTag B.strikeout "del"
 
 code :: PandocMonad m => MuseParser m (F Inlines)
-code = return . B.code <$> verbatimBetween '='
+code = try $ do
+  pos <- getPosition
+  sp <- if sourceColumn pos == 1
+          then pure mempty
+          else skipMany1 spaceChar >> pure B.space
+  cd <- verbatimBetween '='
+  notFollowedBy nonspaceChar
+  return $ return (sp B.<> B.code cd)
 
 codeTag :: PandocMonad m => MuseParser m (F Inlines)
 codeTag = do
-- 
cgit v1.2.3