opensource/pandoc
3
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-29 01:41:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

LaTeX writer: use polytonicgreek instead of polutonikogreek...

Browse Source 
with babel. polutonikogreek is outdated.

Also recognize both in the LaTeX reader.

Closes #9698.
This commit is contained in:
John MacFarlane
2024-04-26 01:25:24 -04:00
parent 03630a2c6e
commit a3697f91fa
3 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Citeproc/Util.hs
+1
View File
@@ -48,6 +48,7 @@ toIETF "germanb" = "de-DE"
toIETF "ngerman" = "de-DE"
toIETF "greek" = "el-GR"
toIETF "polutonikogreek" = "el-GR"
toIETF "polytonicgreek" = "el-GR"
toIETF "hebrew" = "he-IL"
toIETF "hungarian" = "hu-HU"
toIETF "icelandic" = "is-IS"
src/Text/Pandoc/Readers/LaTeX/Lang.hs
+1
View File
@@ -226,6 +226,7 @@ babelLangToBCP47 s =
"ngerman" -> Just $ Lang "de" Nothing (Just "DE") [] [] []
"lowersorbian" -> Just $ Lang "dsb" Nothing Nothing [] [] []
"uppersorbian" -> Just $ Lang "hsb" Nothing Nothing [] [] []
"polytonicgreek" -> Just $ Lang "el" Nothing Nothing ["polyton"] [] []
"polutonikogreek" -> Just $ Lang "el" Nothing Nothing ["polyton"] [] []
"slovene" -> Just $ simpleLang "sl"
"australian" -> Just $ Lang "en" Nothing (Just "AU") [] [] []
src/Text/Pandoc/Writers/LaTeX/Lang.hs
+1 -1
View File
@@ -33,7 +33,7 @@ toBabel (Lang "de" _ _ vars _ _)
| otherwise = Just "ngerman"
toBabel (Lang "dsb" _ _ _ _ _) = Just "lowersorbian"
toBabel (Lang "el" _ _ vars _ _)
| "polyton" `elem` vars = Just "polutonikogreek"
| "polyton" `elem` vars = Just "polytonicgreek"
toBabel (Lang "en" _ (Just "AU") _ _ _) = Just "australian"
toBabel (Lang "en" _ (Just "CA") _ _ _) = Just "canadian"
toBabel (Lang "en" _ (Just "GB") _ _ _) = Just "british"