summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Citeproc.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2023-09-07 09:06:23 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2023-09-07 09:06:23 -0700
commitdb9aa720373987a8b13ee3ffb62ea4f95c6c5ee0 (patch)
treee98b2e77eae133a78b18418cf651bad52eebf0b9 /src/Text/Pandoc/Citeproc.hs
parent62732204497dc67a54497cd27b9e6005d2c3ff25 (diff)
Fix default citeproc entry-spacing.
According to the CSL manual, the default entry spacing is 1. We were treating it as 0. T.P.Citeproc: always include an entry-spacing attribute in the Div if the bibliography element contains an entry-spacing attribute (previously we omitted it when it was 0). LaTeX writer: use entry spacing 1 if no entry-spacing attribute is present. Update tests. See #9058.
Diffstat (limited to 'src/Text/Pandoc/Citeproc.hs')
-rw-r--r--src/Text/Pandoc/Citeproc.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Citeproc.hs b/src/Text/Pandoc/Citeproc.hs
index 9b3e38b65..e38239763 100644
--- a/src/Text/Pandoc/Citeproc.hs
+++ b/src/Text/Pandoc/Citeproc.hs
@@ -87,7 +87,7 @@ processCitations (Pandoc meta bs) = do
"csl-bib-body" :
["hanging-indent" | styleHangingIndent sopts]
let refkvs = (case styleEntrySpacing sopts of
- Just es | es > 0 -> (("entry-spacing",T.pack $ show es):)
+ Just es -> (("entry-spacing",T.pack $ show es):)
_ -> id) .
(case styleLineSpacing sopts of
Just ls | ls > 1 -> (("line-spacing",T.pack $ show ls):)