Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Markdown writer: avoid extra space before citation suffix...

Browse source 
if it already starts with a space.
This commit is contained in:
John MacFarlane 2021-12-14 11:26:28 -08:00
parent d393f2f158
commit be0e3f9794
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Writers/Markdown/Inline.hs
View file

@ -531,8 +531,10 @@ inlineToMarkdown opts (Cite (c:cs) lst)
sdoc <- inlineListToMarkdown opts sinlines
let k' = literal (modekey m <> "@" <> maybeInBraces k)
r = case sinlines of
Str (T.uncons -> Just (y,_)):_ | y `elem` (",;]@" :: String) -> k' <> sdoc
_ -> k' <+> sdoc
Str (T.uncons -> Just (y,_)):_
| y `elem` (",;]@" :: String) -> k' <> sdoc
Space:_ -> k' <> sdoc
_ -> k' <+> sdoc
return $ pdoc <+> r
modekey SuppressAuthor = "-"
modekey _ = ""