@@ -16,6 +16,7 @@ import Text.Pandoc.Citeproc.BibTeX (readBibtexString, Variant(..))
1616import Text.Pandoc.Citeproc.MetaValue (metaValueToReference, metaValueToText)
1717import Text.Pandoc.Readers.Markdown (yamlToRefs)
1818import Text.Pandoc.Class (setResourcePath, getResourcePath, getUserDataDir)
19+import qualified Text.Pandoc.BCP47 as BCP47
1920import Data.ByteString (ByteString)
2021import qualified Data.ByteString.Lazy as L
2122import Text.Pandoc.Definition as Pandoc
@@ -91,8 +92,9 @@ processCitations (Pandoc meta bs) = do
9192 case styleRes of
9293 Left err -> throwError $ PandocAppError $ prettyCiteprocError err
9394 Right style -> return style{ styleAbbreviations = mbAbbrevs }
94− let mblang = parseLang <$>
95− ((lookupMeta "lang" meta <|> lookupMeta "locale" meta) >>= metaValueToText)
95+ mblang <- maybe (return Nothing) bcp47LangToIETF
96+ ((lookupMeta "lang" meta <|> lookupMeta "locale" meta) >>=
97+ metaValueToText)
9698 let locale = Citeproc.mergeLocales mblang style
9799 let getCiteId (Cite cs _) = Set.fromList $ map B.citationId cs
98100 getCiteId _ = mempty
@@ -579,3 +581,16 @@ removeFinalPeriod ils =
579581 isRightQuote "\8217" = True
580582 isRightQuote "\187" = True
581583 isRightQuote _ = False
584+
585+bcp47LangToIETF :: PandocMonad m => Text -> m (Maybe Lang)
586+bcp47LangToIETF bcplang =
587+ case BCP47.parseBCP47 bcplang of
588+ Left _ -> do
589+ report $ InvalidLang bcplang
590+ return Nothing
591+ Right lang ->
592+ return $ Just
593+ $ Lang (BCP47.langLanguage lang)
594+ (if T.null (BCP47.langRegion lang)
595+ then Nothing
596+ else Just (BCP47.langRegion lang))