diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-11-04 17:38:18 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-11-04 17:38:18 -0700 |
| commit | e8bfabeeeb5f30b2f940e3ee505e938d94486abe (patch) | |
| tree | 0095e71c750a7a4867c151d5ed99e75b7c573a7b /src/Text | |
| parent | 195f9045a4a7f530ee4e1ba8ca55f4a49fd72f9a (diff) | |
| download | pandoc-e8bfabeeeb5f30b2f940e3ee505e938d94486abe.tar.gz | |
Don't add comma+space to prefix if it ends in punctuation.
Patch from Andrea Rossato.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Biblio.hs | 6 |
1 files changed, 1 insertions, 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 |