From f035f0ffe3ef70abb6fa3ad0e39ac0f9c1f45c5e Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 12 Aug 2017 12:34:36 -0700
Subject: LaTeX reader: have `\setmainlanguage` set `lang` in metadata.

---
 src/Text/Pandoc/Readers/LaTeX.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 1fe4594ed..c382ce440 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -59,7 +59,7 @@ import Text.Pandoc.Class (PandocMonad, PandocPure, lookupEnv,
                           readFileFromDirs, report, setResourcePath,
                           getResourcePath, setTranslations, translateTerm)
 import qualified Text.Pandoc.Translations as Translations
-import Text.Pandoc.BCP47 (Lang(..))
+import Text.Pandoc.BCP47 (Lang(..), renderLang)
 import Text.Pandoc.Highlighting (fromListingsLanguage, languagesByExtension)
 import Text.Pandoc.ImageSize (numUnit, showFl)
 import Text.Pandoc.Logging
@@ -2225,9 +2225,11 @@ setDefaultLanguage = do
                 <$> rawopt
   polylang <- toksToString <$> braced
   case polyglossiaLangToBCP47 polylang o of
-       Nothing -> return () -- TODO mzero? warning?
-       Just l -> setTranslations l
-  return mempty
+       Nothing -> return mempty -- TODO mzero? warning?
+       Just l -> do
+         setTranslations l
+         updateState $ setMeta "lang" $ str (renderLang l)
+         return mempty
 
 polyglossiaLangToBCP47 :: String -> String -> Maybe Lang
 polyglossiaLangToBCP47 s o =
-- 
cgit v1.2.3