diff options
| author | John MacFarlane <[email protected]> | 2025-12-09 13:41:43 +0100 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2025-12-09 13:41:43 +0100 |
| commit | c365deaf1f16c9f42421f54bd92215c840575bb0 (patch) | |
| tree | e125692fb2c873fdc2db324295b3a2fd3a898aa6 | |
| parent | b347de3cdf6ba38f2c5bc5bf0da9db268c3ce321 (diff) | |
Citeproc: avoid adding an extra space at the beginning of a Cite.
| -rw-r--r-- | src/Text/Pandoc/Citeproc.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Citeproc.hs b/src/Text/Pandoc/Citeproc.hs index 43cd34571..c9a0c56f2 100644 --- a/src/Text/Pandoc/Citeproc.hs +++ b/src/Text/Pandoc/Citeproc.hs @@ -592,7 +592,8 @@ deNote (Note bs) = = Cite (c:cs) (addCommas (needsPeriod zs) ils) : addParens zs | otherwise - = Cite (c:cs) (concatMap noteInParens ils) : addParens zs + = Cite (c:cs) (dropWhile (== Space) (concatMap noteInParens ils)) + : addParens zs addParens (x:xs) = x : addParens xs removeNotes (Span ("",["csl-note"],[]) ils) = Span ("",[],[]) ils |