diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |