143093e · typeable/pandoc

git.iko.soy/typeable/pandoc

Added de-CH-1901, fixed el-polyton

el-polyton, not el-poly, see http://www.iana.org/assignments/language-subtag-registry/language-subtag-registry

commit143093eabd97d32a20dd2cf8b89a0624ea1eefdb authornickbart1980 <nickbart1980@gmail.com> dateMon 26 Oct 2015, 10:34 (11 years ago) parent89d399b

1 file changed+3−2

unifiedsplit

src/Text/Pandoc/Writers/LaTeX.hs+3−2

@@ -1086,10 +1086,11 @@ toPolyglossia ("ar":"TN":_) = ("arabic", "locale=tunisia")

10861086toPolyglossia ("de":"1901":_) = ("german", "spelling=old")

10871087toPolyglossia ("de":"AT":"1901":_) = ("german", "variant=austrian, spelling=old")

10881088toPolyglossia ("de":"AT":_) = ("german", "variant=austrian")

1089+toPolyglossia ("de":"CH":"1901":_) = ("german", "variant=swiss, spelling=old")

10891090toPolyglossia ("de":"CH":_) = ("german", "variant=swiss")

10901091toPolyglossia ("de":_) = ("german", "")

10911092toPolyglossia ("dsb":_) = ("lsorbian", "")

1092−toPolyglossia ("el":"poly":_) = ("greek", "variant=poly")

1093+toPolyglossia ("el":"polyton":_) = ("greek", "variant=poly")

10931094toPolyglossia ("en":"AU":_) = ("english", "variant=australian")

10941095toPolyglossia ("en":"CA":_) = ("english", "variant=canadian")

10951096toPolyglossia ("en":"GB":_) = ("english", "variant=british")

@@ -1111,7 +1112,7 @@ toBabel ("de":"AT":"1901":_) = "austrian"

11111112toBabel ("de":"AT":_) = "naustrian"

11121113toBabel ("de":_) = "ngerman"

11131114toBabel ("dsb":_) = "lowersorbian"

1114−toBabel ("el":"poly":_) = "polutonikogreek"

1115+toBabel ("el":"polyton":_) = "polutonikogreek"

11151116toBabel ("en":"AU":_) = "australian"

11161117toBabel ("en":"CA":_) = "canadian"

11171118toBabel ("en":"GB":_) = "british"