0fe635d · typeable/pandoc

git.iko.soy/typeable/pandoc

LaTeX writer: use `cslreferences` environment for csl bibliographies.

this allows bibliographies to receive special formatting. The template now contains definition of this environment (enabled only when CSL is used). It also defines a `\cslhangindent` length. This is set to 2em by default when the bibliography style specifies a hanging indent. To override the length, you can use e.g. \setlength{\cslhangindent}{7em} in header-includes. Closes jgm/pandoc-citeproc#410.

commit0fe635d3ecdc362f11c380c2e0b9518aa03424e9 authorJohn MacFarlane <jgm@berkeley.edu> dateMon 2 Sep 2019, 22:14 (7 years ago) parentd0bddaf

2 files changed+25−3

compare with master

unifiedsplit

data/templates/default.latex+7 src/Text/Pandoc/Writers/LaTeX.hs+18−3

data/templates/default.latex+7

@@ -359,6 +359,13 @@ $for(bibliography)$

359359\addbibresource{$bibliography$}

360360$endfor$

361361$endif$

362+$if(csl-refs)$

363+\newlength{\cslhangindent} % set up new length

364+\setlength{\cslhangindent}{$if(csl-hanging-indent)$2em$else$0em$endif$}

365+\newenvironment{cslreferences}%

366+ {\everypar{\setlength{\hangindent}{\cslhangindent}}}%

367+ {\par} % by default, this env does not change anything

368+$endif$

362369

363370$if(title)$

364371\title{$title$$if(thanks)$\thanks{$thanks$}$endif$}

src/Text/Pandoc/Writers/LaTeX.hs+18−3

@@ -72,6 +72,8 @@ data WriterState =

7272 , stInternalLinks :: [String] -- list of internal link targets

7373 , stBeamer :: Bool -- produce beamer

7474 , stEmptyLine :: Bool -- true if no content on line

75+ , stHasCslRefs :: Bool -- has a Div with class refs

76+ , stCslHangingIndent :: Bool -- use hanging indent for bib

7577 }

7678

7779startingState :: WriterOptions -> WriterState

@@ -100,7 +102,9 @@ startingState options = WriterState {

100102 , stIncremental = writerIncremental options

101103 , stInternalLinks = []

102104 , stBeamer = False

103− , stEmptyLine = True }

105+ , stEmptyLine = True

106+ , stHasCslRefs = False

107+ , stCslHangingIndent = False }

104108

105109-- | Convert Pandoc to LaTeX.

106110writeLaTeX :: PandocMonad m => WriterOptions -> Pandoc -> m Text

@@ -237,6 +241,8 @@ pandocToLaTeX options (Pandoc meta blocks) = do

237241 then id

238242 else defField "dir" ("ltr" :: Text)) $

239243 defField "section-titles" True $

244+ defField "csl-refs" (stHasCslRefs st) $

245+ defField "csl-hanging-indent" (stCslHangingIndent st) $

240246 defField "geometry" geometryFromMargins $

241247 (case T.unpack . render Nothing <$>

242248 getField "papersize" metadata of

@@ -456,10 +462,11 @@ toSlides bs = do

456462 concat `fmap` mapM (elementToBeamer slideLevel) (hierarchicalize bs')

457463

458464elementToBeamer :: PandocMonad m => Int -> Element -> LW m [Block]

459−elementToBeamer _slideLevel (Blk (Div attr bs)) = do

465+elementToBeamer _slideLevel (Blk (Div attrs bs)) = do

460466 -- make sure we support "blocks" inside divs

461467 bs' <- concat `fmap` mapM (elementToBeamer 0) (hierarchicalize bs)

462− return [Div attr bs']

468+ return [Div attrs bs']

469+

463470elementToBeamer _slideLevel (Blk b) = return [b]

464471elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts)

465472 | lvl > slideLevel = do

@@ -547,6 +554,14 @@ blockToLaTeX (Div (identifier,classes,kvs) bs)

547554 modify $ \s -> s{ stIncremental = oldIncremental }

548555 return result

549556 else blockToLaTeX $ Div (identifier,classes',kvs) bs

557+ | identifier == "refs" = do

558+ modify $ \st -> st{ stHasCslRefs = True

559+ , stCslHangingIndent =

560+ "hanging-indent" `elem` classes }

561+ contents <- blockListToLaTeX bs

562+ return $ "\\begin{cslreferences}" $$

563+ contents $$

564+ "\\end{cslreferences}"

550565 | otherwise = do

551566 beamer <- gets stBeamer

552567 linkAnchor' <- hypertarget True identifier empty