diff options
| author | John MacFarlane <[email protected]> | 2024-07-02 18:23:37 -0600 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2024-07-02 18:31:38 -0600 |
| commit | c723014d94f6a4a76bbf05b6778f1f71afaa6c2f (patch) | |
| tree | 5efc6e08efd7ba594a12fc9959a880e92ac82191 /src/Text | |
| parent | f1799505a9b83c0b292603a0584a04d69257ca90 (diff) | |
Fix some mistakes with Japanese language code.
In several places we were mistakenly assuming that the BCP 47 code for
Japanese language was `jp`. It is `ja`.
Closes #9938.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX/Lang.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 1 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 2 |
3 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX/Lang.hs b/src/Text/Pandoc/Readers/LaTeX/Lang.hs index 3bb84df48..3315af427 100644 --- a/src/Text/Pandoc/Readers/LaTeX/Lang.hs +++ b/src/Text/Pandoc/Readers/LaTeX/Lang.hs @@ -171,7 +171,7 @@ polyglossiaLangToBCP47 = M.fromList , ("indonesian", \_ -> simpleLang "id") , ("icelandic", \_ -> simpleLang "is") , ("italian", \_ -> simpleLang "it") - , ("japanese", \_ -> simpleLang "jp") + , ("japanese", \_ -> simpleLang "ja") , ("khmer", \_ -> simpleLang "km") , ("kurmanji", \_ -> simpleLang "kmr") , ("kannada", \_ -> simpleLang "kn") diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index 23b129584..cb679718b 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -829,7 +829,6 @@ fromBCP47' (Just (Lang "grc"_ _ _ _ _)) = Just "agr" fromBCP47' (Just (Lang "el" _ _ _ _ _)) = Just "gr" fromBCP47' (Just (Lang "eu" _ _ _ _ _)) = Just "ba" fromBCP47' (Just (Lang "he" _ _ _ _ _)) = Just "il" -fromBCP47' (Just (Lang "jp" _ _ _ _ _)) = Just "ja" fromBCP47' (Just (Lang "uk" _ _ _ _ _)) = Just "ua" fromBCP47' (Just (Lang "vi" _ _ _ _ _)) = Just "vn" fromBCP47' (Just (Lang "zh" _ _ _ _ _)) = Just "cn" diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 5c89b9f5e..ec1c682af 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -161,7 +161,7 @@ writeDocx opts doc = do setattr _ _ x = x isEastAsianLang Lang{ langLanguage = lang } = - lang == "zh" || lang == "jp" || lang == "ko" + lang == "zh" || lang == "ja" || lang == "ko" isBidiLang Lang{ langLanguage = lang } = lang == "he" || lang == "ar" |