diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-01-12 21:08:28 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-01-12 21:08:28 -0800 |
| commit | 4fdbb30a97d0b10d64888783d803d1654da1975d (patch) | |
| tree | eb12b1af6109a89c06c04148ec077b4d7af017c7 /src/Text | |
| parent | fcbd0164237db48ac736f033c658882de37913f6 (diff) | |
Citeproc: allow `notes-after-punctuation` to work...
with numerical styles that use superscripts (e.g.
american-medical-association.csl), as well as with
note styles. The default setting of `notes-after-punctuation`
is true for note styles and false otherwise.
This restores a behavior of pandoc-citeproc that wasn't properly
carried over to Citeproc.
Closes #7826.
See also jgm/pandoc-citeproc#384.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Citeproc.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Citeproc.hs b/src/Text/Pandoc/Citeproc.hs index 2530ef46f..c7d4804d2 100644 --- a/src/Text/Pandoc/Citeproc.hs +++ b/src/Text/Pandoc/Citeproc.hs @@ -93,8 +93,8 @@ processCitations (Pandoc meta bs) = do B.divWith ("ref-" <> ident,["csl-entry"],[]) . B.para . insertSpace $ out) (resultBibliography result) - let moveNotes = styleIsNoteStyle sopts && - maybe True truish (lookupMeta "notes-after-punctuation" meta) + let moveNotes = maybe (styleIsNoteStyle sopts) truish + (lookupMeta "notes-after-punctuation" meta) let cits = resultCitations result let metanocites = lookupMeta "nocite" meta |