Move ISO language codes to separate file.

2 files changed, 191 insertions, 187 deletions

diff --git a/ennum-html.el b/ennum-html.el
index a4cfdb2..337fa8e 100644
--- a/ennum-html.el
+++ b/ennum-html.el
@@ -3,192 +3,7 @@
 (require 'ox)
 (require 'subr-x)
 (require 'xmlgen)
-
-(defconst ennum-html--iso-639-1-alist
-  '(("ab" . "аҧсуа бызшәа, аҧсшәа")
-    ("aa" . "Afaraf")
-    ("af" . "Afrikaans")
-    ("ak" . "Akan")
-    ("sq" . "Shqip")
-    ("am" . "አማርኛ")
-    ("ar" . "العربية")
-    ("an" . "aragonés")
-    ("hy" . "Հայերեն")
-    ("as" . "অসমীয়া")
-    ("av" . "авар мацӀ, магӀарул мацӀ")
-    ("ae" . "avesta")
-    ("ay" . "aymar aru")
-    ("az" . "azərbaycan dili")
-    ("bm" . "bamanankan")
-    ("ba" . "башҡорт теле")
-    ("eu" . "euskara, euskera")
-    ("be" . "беларуская мова")
-    ("bn" . "বাংলা")
-    ("bh" . "भोजपुरी")
-    ("bi" . "Bislama")
-    ("bs" . "bosanski jezik")
-    ("br" . "brezhoneg")
-    ("bg" . "български език")
-    ("my" . "ဗမာစာ")
-    ("ca" . "català")
-    ("ch" . "Chamoru")
-    ("ce" . "нохчийн мотт")
-    ("ny" . "chiCheŵa, chinyanja")
-    ("zh" . "中文 (Zhōngwén), 汉语, 漢語")
-    ("cv" . "чӑваш чӗлхи")
-    ("kw" . "Kernewek")
-    ("co" . "corsu, lingua corsa")
-    ("cr" . "ᓀᐦᐃᔭᐍᐏᐣ")
-    ("hr" . "hrvatski jezik")
-    ("cs" . "čeština, český jazyk")
-    ("da" . "dansk")
-    ("dv" . "ދިވެހި")
-    ("nl" . "Nederlands, Vlaams")
-    ("dz" . "རྫོང་ཁ")
-    ("en" . "English")
-    ("eo" . "Esperanto")
-    ("et" . "eesti, eesti keel")
-    ("ee" . "Eʋegbe")
-    ("fo" . "føroyskt")
-    ("fj" . "vosa Vakaviti")
-    ("fi" . "suomi, suomen kieli")
-    ("fr" . "français, langue française")
-    ("ff" . "Fulfulde, Pulaar, Pular")
-    ("gl" . "galego")
-    ("ka" . "ქართული")
-    ("de" . "Deutsch")
-    ("el" . "ελληνικά")
-    ("gn" . "Avañe'ẽ")
-    ("gu" . "ગુજરાતી")
-    ("ht" . "Kreyòl ayisyen")
-    ("ha" . "(Hausa) هَوُسَ")
-    ("he" . "עברית")
-    ("hz" . "Otjiherero")
-    ("hi" . "हिन्दी, हिंदी")
-    ("ho" . "Hiri Motu")
-    ("hu" . "magyar")
-    ("ia" . "Interlingua")
-    ("id" . "Bahasa Indonesia")
-    ("ie" . "Originally called Occidental; then Interlingue after WWII")
-    ("ga" . "Gaeilge")
-    ("ig" . "Asụsụ Igbo")
-    ("ik" . "Iñupiaq, Iñupiatun")
-    ("io" . "Ido")
-    ("is" . "Íslenska")
-    ("it" . "Italiano")
-    ("iu" . "ᐃᓄᒃᑎᑐᑦ")
-    ("ja" . "日本語 (にほんご)")
-    ("jv" . "ꦧꦱꦗꦮ, Basa Jawa")
-    ("kl" . "kalaallisut, kalaallit oqaasii")
-    ("kn" . "ಕನ್ನಡ")
-    ("kr" . "Kanuri")
-    ("ks" . "कश्मीरी, كشميري‎")
-    ("kk" . "қазақ тілі")
-    ("km" . "ខ្មែរ, ខេមរភាសា, ភាសាខ្មែរ")
-    ("ki" . "Gĩkũyũ")
-    ("rw" . "Ikinyarwanda")
-    ("ky" . "Кыргызча, Кыргыз тили")
-    ("kv" . "коми кыв")
-    ("kg" . "Kikongo")
-    ("ko" . "한국어")
-    ("ku" . "Kurdî, كوردی‎")
-    ("kj" . "Kuanyama")
-    ("la" . "latine, lingua latina")
-    ("lb" . "Lëtzebuergesch")
-    ("lg" . "Luganda")
-    ("li" . "Limburgs")
-    ("ln" . "Lingála")
-    ("lo" . "ພາສາລາວ")
-    ("lt" . "lietuvių kalba")
-    ("lu" . "Tshiluba")
-    ("lv" . "latviešu valoda")
-    ("gv" . "Gaelg, Gailck")
-    ("mk" . "македонски јазик")
-    ("mg" . "fiteny malagasy")
-    ("ms" . "bahasa Melayu, بهاس ملايو‎")
-    ("ml" . "മലയാളം")
-    ("mt" . "Malti")
-    ("mi" . "te reo Māori")
-    ("mr" . "मराठी")
-    ("mh" . "Kajin M̧ajeļ")
-    ("mn" . "Монгол хэл")
-    ("na" . "Dorerin Naoero")
-    ("nv" . "Diné bizaad")
-    ("nd" . "isiNdebele")
-    ("ne" . "नेपाली")
-    ("ng" . "Owambo")
-    ("nb" . "Norsk bokmål")
-    ("nn" . "Norsk nynorsk")
-    ("no" . "Norsk")
-    ("ii" . "ꆈꌠ꒿ Nuosuhxop")
-    ("nr" . "isiNdebele")
-    ("oc" . "occitan, lenga d'òc")
-    ("oj" . "ᐊᓂᔑᓈᐯᒧᐎᓐ")
-    ("cu" . "ѩзыкъ словѣньскъ")
-    ("om" . "Afaan Oromoo")
-    ("or" . "ଓଡ଼ିଆ")
-    ("os" . "ирон æвзаг")
-    ("pa" . "ਪੰਜਾਬੀ")
-    ("pi" . "पाऴि")
-    ("fa" . "فارسی")
-    ("pl" . "język polski, polszczyzna")
-    ("ps" . "پښتو")
-    ("pt" . "Português")
-    ("qu" . "Runa Simi, Kichwa")
-    ("rm" . "rumantsch grischun")
-    ("rn" . "Ikirundi")
-    ("ro" . "Română")
-    ("ru" . "Русский")
-    ("sa" . "संस्कृतम्")
-    ("sc" . "sardu")
-    ("sd" . "सिन्धी, سنڌي، سندھی‎")
-    ("se" . "Davvisámegiella")
-    ("sm" . "gagana fa'a Samoa")
-    ("sg" . "yângâ tî sängö")
-    ("sr" . "српски језик")
-    ("gd" . "Gàidhlig")
-    ("sn" . "chiShona")
-    ("si" . "සිංහල")
-    ("sk" . "slovenčina, slovenský jazyk")
-    ("sl" . "slovenski jezik, slovenščina")
-    ("so" . "Soomaaliga, af Soomaali")
-    ("st" . "Sesotho")
-    ("es" . "Español")
-    ("su" . "Basa Sunda")
-    ("sw" . "Kiswahili")
-    ("ss" . "SiSwati")
-    ("sv" . "svenska")
-    ("ta" . "தமிழ்")
-    ("te" . "తెలుగు")
-    ("tg" . "тоҷикӣ, toçikī, تاجیکی‎")
-    ("th" . "ไทย")
-    ("ti" . "ትግርኛ")
-    ("bo" . "བོད་ཡིག")
-    ("tk" . "Türkmen, Түркмен")
-    ("tl" . "Wikang Tagalog")
-    ("tn" . "Setswana")
-    ("to" . "faka Tonga")
-    ("tr" . "Türkçe")
-    ("ts" . "Xitsonga")
-    ("tt" . "татар теле, tatar tele")
-    ("tw" . "Twi")
-    ("ty" . "Reo Tahiti")
-    ("ug" . "ئۇيغۇرچە‎, Uyghurche")
-    ("uk" . "Українська")
-    ("ur" . "اردو")
-    ("uz" . "Oʻzbek, Ўзбек, أۇزبېك‎")
-    ("ve" . "Tshivenḓa")
-    ("vi" . "Tiếng Việt")
-    ("vo" . "Volapük")
-    ("wa" . "walon")
-    ("cy" . "Cymraeg")
-    ("wo" . "Wollof")
-    ("fy" . "Frysk")
-    ("xh" . "isiXhosa")
-    ("yi" . "ייִדיש")
-    ("yo" . "Yorùbá")
-    ("za" . "Saɯ cueŋƅ, Saw cuengh")
-    ("zu" . "isiZulu")))
+(require 'ennum-lang)
 
 (defun expand-file-name* (name base-directory)
   (expand-file-name name (concat "/" base-directory)))
@@ -239,7 +54,7 @@
                  "<a " (format "<a hreflang=\"%s\" " lang)
                  (ennum-html-export-post
                   slug
-                  (map-elt ennum-html--iso-639-1-alist lang)
+                  (map-elt ennum--iso-639-1-alist lang)
                   (org-export-backend-name
                    (plist-get info :back-end)))))
               translations
diff --git a/ennum-lang.el b/ennum-lang.el
new file mode 100644
index 0000000..99d214e
--- /dev/null
+++ b/ennum-lang.el
@@ -0,0 +1,189 @@
+;; -*- lexical-binding: t -*-
+
+(defconst ennum--iso-639-1-alist
+  '(("ab" . "аҧсуа бызшәа, аҧсшәа")
+    ("aa" . "Afaraf")
+    ("af" . "Afrikaans")
+    ("ak" . "Akan")
+    ("sq" . "Shqip")
+    ("am" . "አማርኛ")
+    ("ar" . "العربية")
+    ("an" . "aragonés")
+    ("hy" . "Հայերեն")
+    ("as" . "অসমীয়া")
+    ("av" . "авар мацӀ, магӀарул мацӀ")
+    ("ae" . "avesta")
+    ("ay" . "aymar aru")
+    ("az" . "azərbaycan dili")
+    ("bm" . "bamanankan")
+    ("ba" . "башҡорт теле")
+    ("eu" . "euskara, euskera")
+    ("be" . "беларуская мова")
+    ("bn" . "বাংলা")
+    ("bh" . "भोजपुरी")
+    ("bi" . "Bislama")
+    ("bs" . "bosanski jezik")
+    ("br" . "brezhoneg")
+    ("bg" . "български език")
+    ("my" . "ဗမာစာ")
+    ("ca" . "català")
+    ("ch" . "Chamoru")
+    ("ce" . "нохчийн мотт")
+    ("ny" . "chiCheŵa, chinyanja")
+    ("zh" . "中文 (Zhōngwén), 汉语, 漢語")
+    ("cv" . "чӑваш чӗлхи")
+    ("kw" . "Kernewek")
+    ("co" . "corsu, lingua corsa")
+    ("cr" . "ᓀᐦᐃᔭᐍᐏᐣ")
+    ("hr" . "hrvatski jezik")
+    ("cs" . "čeština, český jazyk")
+    ("da" . "dansk")
+    ("dv" . "ދިވެހި")
+    ("nl" . "Nederlands, Vlaams")
+    ("dz" . "རྫོང་ཁ")
+    ("en" . "English")
+    ("eo" . "Esperanto")
+    ("et" . "eesti, eesti keel")
+    ("ee" . "Eʋegbe")
+    ("fo" . "føroyskt")
+    ("fj" . "vosa Vakaviti")
+    ("fi" . "suomi, suomen kieli")
+    ("fr" . "français, langue française")
+    ("ff" . "Fulfulde, Pulaar, Pular")
+    ("gl" . "galego")
+    ("ka" . "ქართული")
+    ("de" . "Deutsch")
+    ("el" . "ελληνικά")
+    ("gn" . "Avañe'ẽ")
+    ("gu" . "ગુજરાતી")
+    ("ht" . "Kreyòl ayisyen")
+    ("ha" . "(Hausa) هَوُسَ")
+    ("he" . "עברית")
+    ("hz" . "Otjiherero")
+    ("hi" . "हिन्दी, हिंदी")
+    ("ho" . "Hiri Motu")
+    ("hu" . "magyar")
+    ("ia" . "Interlingua")
+    ("id" . "Bahasa Indonesia")
+    ("ie" . "Originally called Occidental; then Interlingue after WWII")
+    ("ga" . "Gaeilge")
+    ("ig" . "Asụsụ Igbo")
+    ("ik" . "Iñupiaq, Iñupiatun")
+    ("io" . "Ido")
+    ("is" . "Íslenska")
+    ("it" . "Italiano")
+    ("iu" . "ᐃᓄᒃᑎᑐᑦ")
+    ("ja" . "日本語 (にほんご)")
+    ("jv" . "ꦧꦱꦗꦮ, Basa Jawa")
+    ("kl" . "kalaallisut, kalaallit oqaasii")
+    ("kn" . "ಕನ್ನಡ")
+    ("kr" . "Kanuri")
+    ("ks" . "कश्मीरी, كشميري‎")
+    ("kk" . "қазақ тілі")
+    ("km" . "ខ្មែរ, ខេមរភាសា, ភាសាខ្មែរ")
+    ("ki" . "Gĩkũyũ")
+    ("rw" . "Ikinyarwanda")
+    ("ky" . "Кыргызча, Кыргыз тили")
+    ("kv" . "коми кыв")
+    ("kg" . "Kikongo")
+    ("ko" . "한국어")
+    ("ku" . "Kurdî, كوردی‎")
+    ("kj" . "Kuanyama")
+    ("la" . "latine, lingua latina")
+    ("lb" . "Lëtzebuergesch")
+    ("lg" . "Luganda")
+    ("li" . "Limburgs")
+    ("ln" . "Lingála")
+    ("lo" . "ພາສາລາວ")
+    ("lt" . "lietuvių kalba")
+    ("lu" . "Tshiluba")
+    ("lv" . "latviešu valoda")
+    ("gv" . "Gaelg, Gailck")
+    ("mk" . "македонски јазик")
+    ("mg" . "fiteny malagasy")
+    ("ms" . "bahasa Melayu, بهاس ملايو‎")
+    ("ml" . "മലയാളം")
+    ("mt" . "Malti")
+    ("mi" . "te reo Māori")
+    ("mr" . "मराठी")
+    ("mh" . "Kajin M̧ajeļ")
+    ("mn" . "Монгол хэл")
+    ("na" . "Dorerin Naoero")
+    ("nv" . "Diné bizaad")
+    ("nd" . "isiNdebele")
+    ("ne" . "नेपाली")
+    ("ng" . "Owambo")
+    ("nb" . "Norsk bokmål")
+    ("nn" . "Norsk nynorsk")
+    ("no" . "Norsk")
+    ("ii" . "ꆈꌠ꒿ Nuosuhxop")
+    ("nr" . "isiNdebele")
+    ("oc" . "occitan, lenga d'òc")
+    ("oj" . "ᐊᓂᔑᓈᐯᒧᐎᓐ")
+    ("cu" . "ѩзыкъ словѣньскъ")
+    ("om" . "Afaan Oromoo")
+    ("or" . "ଓଡ଼ିଆ")
+    ("os" . "ирон æвзаг")
+    ("pa" . "ਪੰਜਾਬੀ")
+    ("pi" . "पाऴि")
+    ("fa" . "فارسی")
+    ("pl" . "język polski, polszczyzna")
+    ("ps" . "پښتو")
+    ("pt" . "Português")
+    ("qu" . "Runa Simi, Kichwa")
+    ("rm" . "rumantsch grischun")
+    ("rn" . "Ikirundi")
+    ("ro" . "Română")
+    ("ru" . "Русский")
+    ("sa" . "संस्कृतम्")
+    ("sc" . "sardu")
+    ("sd" . "सिन्धी, سنڌي، سندھی‎")
+    ("se" . "Davvisámegiella")
+    ("sm" . "gagana fa'a Samoa")
+    ("sg" . "yângâ tî sängö")
+    ("sr" . "српски језик")
+    ("gd" . "Gàidhlig")
+    ("sn" . "chiShona")
+    ("si" . "සිංහල")
+    ("sk" . "slovenčina, slovenský jazyk")
+    ("sl" . "slovenski jezik, slovenščina")
+    ("so" . "Soomaaliga, af Soomaali")
+    ("st" . "Sesotho")
+    ("es" . "Español")
+    ("su" . "Basa Sunda")
+    ("sw" . "Kiswahili")
+    ("ss" . "SiSwati")
+    ("sv" . "svenska")
+    ("ta" . "தமிழ்")
+    ("te" . "తెలుగు")
+    ("tg" . "тоҷикӣ, toçikī, تاجیکی‎")
+    ("th" . "ไทย")
+    ("ti" . "ትግርኛ")
+    ("bo" . "བོད་ཡིག")
+    ("tk" . "Türkmen, Түркмен")
+    ("tl" . "Wikang Tagalog")
+    ("tn" . "Setswana")
+    ("to" . "faka Tonga")
+    ("tr" . "Türkçe")
+    ("ts" . "Xitsonga")
+    ("tt" . "татар теле, tatar tele")
+    ("tw" . "Twi")
+    ("ty" . "Reo Tahiti")
+    ("ug" . "ئۇيغۇرچە‎, Uyghurche")
+    ("uk" . "Українська")
+    ("ur" . "اردو")
+    ("uz" . "Oʻzbek, Ўзбек, أۇزبېك‎")
+    ("ve" . "Tshivenḓa")
+    ("vi" . "Tiếng Việt")
+    ("vo" . "Volapük")
+    ("wa" . "walon")
+    ("cy" . "Cymraeg")
+    ("wo" . "Wollof")
+    ("fy" . "Frysk")
+    ("xh" . "isiXhosa")
+    ("yi" . "ייִדיש")
+    ("yo" . "Yorùbá")
+    ("za" . "Saɯ cueŋƅ, Saw cuengh")
+    ("zu" . "isiZulu")))
+
+(provide 'ennum-lang)