From 1612cc3bf400cb34eaee2dd207c936c9fcc412cb Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 10 Oct 2022 21:17:56 -0700 Subject: Simplify some citation code in LaTeX writer. --- src/Text/Pandoc/Writers/LaTeX.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 31dff78bf..7b21bbcdd 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -67,12 +67,12 @@ writeBeamer options document = pandocToLaTeX :: PandocMonad m => WriterOptions -> Pandoc -> LW m Text pandocToLaTeX options (Pandoc meta blocks) = do - -- Strip off final 'references' header if --natbib or --biblatex + -- Strip off 'references' header if --natbib or --biblatex let method = writerCiteMethod options + let isRefsDiv (Div ("refs",_,_) _) = True + isRefsDiv _ = False let blocks' = if method == Biblatex || method == Natbib - then case reverse blocks of - Div ("refs",_,_) _:xs -> reverse xs - _ -> blocks + then filter (not . isRefsDiv) blocks else blocks -- see if there are internal links let isInternalLink (Link _ _ (s,_)) -- cgit v1.2.3