From 1bc84bf100c288dd29040138619f6313cbcbef92 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 28 Jun 2023 15:18:23 -0700 Subject: LaTeX writer: Prevent babel language from being imported twice. Close #8925. --- src/Text/Pandoc/Writers/LaTeX.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index ad5108f1d..a09e366a7 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -151,6 +151,7 @@ pandocToLaTeX options (Pandoc meta blocks) = do Nothing | null docLangs -> Nothing | otherwise -> Just "en" -- we need a default here since lang is used in template conditionals + let otherLangs = [l | l <- docLangs, mblang /= Just l] let dirs = query (extract "dir") blocks @@ -225,7 +226,7 @@ pandocToLaTeX options (Pandoc meta blocks) = do $ maybe id (\l -> defField "babel-lang" (literal l)) (mblang >>= toBabel) $ defField "babel-otherlangs" - (map literal $ mapMaybe toBabel docLangs) + (map literal $ mapMaybe toBabel otherLangs) $ defField "latex-dir-rtl" ((render Nothing <$> getField "dir" context) == Just ("rtl" :: Text)) context -- cgit v1.2.3