From 19f9eed0bb378dfd488265ef6946492113027cea Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sat, 25 May 2019 17:54:31 +0300
Subject: Muse writer: do not escape empty line after <br>
---
src/Text/Pandoc/Writers/Muse.hs | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
(limited to 'src/Text')
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index ae23a4f9b..c71708e23 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -510,9 +510,7 @@ inlineListStartsWithAlnum _ = return False
renderInlineList :: PandocMonad m
=> [Inline]
-> Muse m Doc
-renderInlineList [] = do
- start <- asks envInlineStart
- pure $ if start then "<verbatim></verbatim>" else ""
+renderInlineList [] = pure ""
renderInlineList (x:xs) = do
start <- asks envInlineStart
afterSpace <- asks envAfterSpace
@@ -545,8 +543,11 @@ inlineListToMuse :: PandocMonad m
inlineListToMuse lst = do
lst' <- normalizeInlineList . fixNotes <$> preprocessInlineList (map (removeKeyValues . replaceSmallCaps) lst)
insideAsterisks <- asks envInsideAsterisks
+ start <- asks envInlineStart
modify $ \st -> st { stUseTags = False } -- Previous character is likely a '>' or some other markup
- local (\env -> env { envNearAsterisks = insideAsterisks }) $ renderInlineList lst'
+ if start && null lst'
+ then pure "<verbatim></verbatim>"
+ else local (\env -> env { envNearAsterisks = insideAsterisks }) $ renderInlineList lst'
inlineListToMuse' :: PandocMonad m => [Inline] -> Muse m Doc
inlineListToMuse' lst = do
--
cgit v1.2.3