Fixed spacing bug for reference-style citations.
commitb10e82c9fa9a2284a3eb9ff3bc1334ed15d45a26
authorJohn MacFarlane <jgm@berkeley.edu>
dateSun 28 Nov 2010, 07:55 (16 years ago)
parente2e107c
src/Text/Pandoc/Biblio.hs+4−1
@@ -71,7 +71,10 @@ processCite s cs (i:is)
7171 addNt t x = if null x then [] else [Cite t $ renderPandoc s x]
7272 process t = case M.lookup t cs of
7373 Just x -> if isTextualCitation t && x /= []
74− then renderPandoc s [head x] ++ [Space] ++ addNt t (tail x)
74+ then renderPandoc s [head x] ++
75+ if tail x /= []
76+ then Space : addNt t (tail x)
77+ else []
7578 else [Cite t $ renderPandoc s x]
7679 Nothing -> [Str ("Error processing " ++ show t)]
7780
tests/markdown-citations.ieee.html+1−1
@@ -53,4 +53,4 @@
5353 ></li
5454 ></ol
5555 ></div
56−>
56+>