Use top-level header at end as bibliography title for natbib and biblatex output.

src/Text/Pandoc/Writers/LaTeX.hs

@@ -74,15 +74,23 @@ pandocToLaTeX options (Pandoc (Meta title authors date) blocks) = do
   titletext <- liftM render $ inlineListToLaTeX title
   authorsText <- mapM (liftM render . inlineListToLaTeX) authors
   dateText <- liftM render $ inlineListToLaTeX date
-  body <- blockListToLaTeX blocks
+  let (blocks', lastHeader) = if writerCiteMethod options == Citeproc then
+                                (blocks, [])
+                              else case last blocks of
+                                Header 1 il -> (init blocks, il)
+                                _           -> (blocks, [])
+  body <- blockListToLaTeX blocks'
+  biblioTitle <- liftM render $ inlineListToLaTeX lastHeader
   let main = render body
   st <- get
-  let biblio      = intercalate "," $ map dropExtension $  writerBiblioFiles options
+  let biblioFiles = intercalate "," $ map dropExtension $  writerBiblioFiles options
       citecontext = case writerCiteMethod options of
-                         Natbib   -> [ ("biblio", biblio)
+                         Natbib   -> [ ("biblio-files", biblioFiles)
+                                     , ("biblio-title", biblioTitle)
                                      , ("natbib", "yes")
                                      ]
-                         Biblatex -> [ ("biblio", biblio)
+                         Biblatex -> [ ("biblio-files", biblioFiles)
+                                     , ("biblio-title", biblioTitle)
                                      , ("biblatex", "yes")
                                      ]
                          _      -> []
@@ -102,6 +110,7 @@ pandocToLaTeX options (Pandoc (Meta title authors date) blocks) = do
                  [ ("numbersections", "yes") | writerNumberSections options ] ++
                  [ ("lhs", "yes") | stLHS st ] ++
                  [ ("graphics", "yes") | stGraphics st ] ++
+                 [ ("book-class", "yes") | stBook st] ++
                  citecontext
   return $ if writerStandalone options
               then renderTemplate context template

templates/latex.template

@@ -19,8 +19,8 @@ $if(natbib)$
 $endif$
 $if(biblatex)$
 \usepackage{biblatex}
-$if(biblio)$
+$if(biblio-files)$
-\bibliography{$biblio$}
+\bibliography{$biblio-files$}
 $endif$
 $endif$
 $if(lhs)$
@@ -104,13 +104,20 @@ $if(toc)$
 
 $endif$
 $body$
-$if(biblio)$
+$if(biblio-files)$
 $if(natbib)$
-\bibliography{$biblio$}
+$if(biblio-title)$
+$if(book-class)$
+\renewcommand\bibname{$biblio-title$}
+$else$
+\renewcommand\refname{$biblio-title$}
+$endif$
+$endif$
+\bibliography{$biblio-files$}
 $endif$
 $endif$
 $if(biblatex)$
-\printbibliography
+\printbibliography$if(biblio-title)$[title=$biblio-title$]$endif$
 $endif$
 $for(include-after)$
 

tests/biblatex-citations.latex

@@ -64,7 +64,6 @@ a locator \autocite*[p.~44]{item2}.}
   With some markup \autocite[\emph{see}][p. \textbf{32}]{item1}.
 
 \end{itemize}
-\section{References}
+\printbibliography[title=References]
-\printbibliography
 
 \end{document}

tests/natbib-citations.latex

@@ -66,7 +66,7 @@ with a locator \citeyearpar[p.~44]{item2}.}
   With some markup \citep[\emph{see}][p. \textbf{32}]{item1}.
 
 \end{itemize}
-\section{References}
+\renewcommand\refname{References}
 \bibliography{biblio}
 
 \end{document}