@@ -59,7 +59,7 @@ import Text.Pandoc.Class (PandocMonad, PandocPure, lookupEnv,
5959 readFileFromDirs, report, setResourcePath,
6060 getResourcePath, setTranslations, translateTerm)
6161import qualified Text.Pandoc.Translations as Translations
62−import Text.Pandoc.BCP47 (Lang(..))
62+import Text.Pandoc.BCP47 (Lang(..), renderLang)
6363import Text.Pandoc.Highlighting (fromListingsLanguage, languagesByExtension)
6464import Text.Pandoc.ImageSize (numUnit, showFl)
6565import Text.Pandoc.Logging
@@ -2225,9 +2225,11 @@ setDefaultLanguage = do
22252225 <$> rawopt
22262226 polylang <- toksToString <$> braced
22272227 case polyglossiaLangToBCP47 polylang o of
2228− Nothing -> return () -- TODO mzero? warning?
2229− Just l -> setTranslations l
2230− return mempty
2228+ Nothing -> return mempty -- TODO mzero? warning?
2229+ Just l -> do
2230+ setTranslations l
2231+ updateState $ setMeta "lang" $ str (renderLang l)
2232+ return mempty
22312233
22322234polyglossiaLangToBCP47 :: String -> String -> Maybe Lang
22332235polyglossiaLangToBCP47 s o =