aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-12-14 11:26:28 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2021-12-14 11:34:32 -0800
commitbe0e3f979441176b6d838ff722ae7990940564be (patch)
treeb996bc306f78e28ac4642a2dbf74adc2a5810576
parentd393f2f15816ed9030e6bf73a836f26d8148166e (diff)
downloadpandoc-be0e3f979441176b6d838ff722ae7990940564be.tar.gz
Markdown writer: avoid extra space before citation suffix...
if it already starts with a space.
-rw-r--r--src/Text/Pandoc/Writers/Markdown/Inline.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown/Inline.hs b/src/Text/Pandoc/Writers/Markdown/Inline.hs
index 0d8463cdf..d299d31b2 100644
--- a/src/Text/Pandoc/Writers/Markdown/Inline.hs
+++ b/src/Text/Pandoc/Writers/Markdown/Inline.hs
@@ -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 _ = ""