@@ -424,7 +424,7 @@ renderInlineList (x:xs) = do
424424 start <- asks envInlineStart
425425 afterSpace <- asks envAfterSpace
426426 topLevel <- asks envTopLevel
427− r <- inlineToMuse x
427+ r <- local (\env -> env { envInlineStart = False }) $ inlineToMuse x
428428 opts <- asks envOptions
429429 let isNewline = (x == SoftBreak && writerWrapText opts == WrapPreserve) || x == LineBreak
430430 lst' <- local (\env -> env { envInlineStart = isNewline
@@ -435,23 +435,20 @@ renderInlineList (x:xs) = do
435435 else pure (r <> lst')
436436
437437-- | Normalize and convert list of Pandoc inline elements to Muse.
438−inlineListToMuse'' :: PandocMonad m
439− => Bool
440− -> [Inline]
441− -> Muse m Doc
442−inlineListToMuse'' start lst = do
438+inlineListToMuse :: PandocMonad m
439+ => [Inline]
440+ -> Muse m Doc
441+inlineListToMuse lst = do
443442 lst' <- (normalizeInlineList . fixNotes) <$> preprocessInlineList (map (removeKeyValues . replaceSmallCaps) lst)
444− topLevel <- asks envTopLevel
445− afterSpace <- asks envAfterSpace
446− local (\env -> env { envInlineStart = start
447− , envAfterSpace = afterSpace || (start && not topLevel)
448− }) $ renderInlineList lst'
443+ renderInlineList lst'
449444
450445inlineListToMuse' :: PandocMonad m => [Inline] -> Muse m Doc
451−inlineListToMuse' = inlineListToMuse'' True
452−
453−inlineListToMuse :: PandocMonad m => [Inline] -> Muse m Doc
454−inlineListToMuse = inlineListToMuse'' False
446+inlineListToMuse' lst = do
447+ topLevel <- asks envTopLevel
448+ afterSpace <- asks envAfterSpace
449+ local (\env -> env { envInlineStart = True
450+ , envAfterSpace = afterSpace || not topLevel
451+ }) $ inlineListToMuse lst
455452
456453-- | Convert Pandoc inline element to Muse.
457454inlineToMuse :: PandocMonad m