From e8bfabeeeb5f30b2f940e3ee505e938d94486abe Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 4 Nov 2011 17:38:18 -0700 Subject: [PATCH] Don't add comma+space to prefix if it ends in punctuation. Patch from Andrea Rossato. --- src/Text/Pandoc/Biblio.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/src/Text/Pandoc/Biblio.hs b/src/Text/Pandoc/Biblio.hs index 76fc5ee6d..64b2412f0 100644 --- a/src/Text/Pandoc/Biblio.hs +++ b/src/Text/Pandoc/Biblio.hs @@ -163,13 +163,9 @@ toCslCite c AuthorInText -> (True, False) SuppressAuthor -> (False,True ) NormalCitation -> (False,False) - s' = case s of - [] -> [] - (Str (y:_) : _) | isPunctuation y -> s - _ -> Str "," : Space : s in emptyCite { CSL.citeId = citationId c , CSL.citePrefix = PandocText $ citationPrefix c - , CSL.citeSuffix = PandocText $ s' + , CSL.citeSuffix = PandocText $ s , CSL.citeLabel = la , CSL.citeLocator = lo , CSL.citeNoteNumber = show $ citationNoteNum c