Markdown writer: ensure semicolon btw locator and next citation...

when an author-in-text citation has a locator and following
citations.
This commit is contained in:
John MacFarlane 2021-12-14 11:20:59 -08:00
parent 5817e86491
commit d393f2f158

View file

@ -505,7 +505,11 @@ inlineToMarkdown opts (Cite (c:cs) lst)
then do
suffs <- inlineListToMarkdown opts $ citationSuffix c
rest <- mapM convertOne cs
let inbr = suffs <+> joincits rest
let inbr = suffs <>
(if not (null (citationSuffix c)) && not (null rest)
then text ";"
else mempty)
<+> joincits rest
br = if isEmpty inbr then empty else char '[' <> inbr <> char ']'
return $ literal ("@" <> maybeInBraces (citationId c)) <+> br
else do