1 files changed, 74 insertions, 39 deletions
diff --git a/tex/context/base/mkiv/lang-imp-serbian.lua b/tex/context/base/mkiv/lang-imp-serbian.lua
index 9e2cf5ce6..6212500c2 100644
--- a/tex/context/base/mkiv/lang-imp-serbian.lua
+++ b/tex/context/base/mkiv/lang-imp-serbian.lua
@@ -1,46 +1,81 @@
-return {
+local c2l = {
+    mapping = {
+        ["А"] = "A",  ["а"] = "a",
+        ["Б"] = "B",  ["б"] = "b",
+        ["В"] = "V",  ["в"] = "v",
+        ["Г"] = "G",  ["г"] = "g",
+        ["Д"] = "D",  ["д"] = "d",
+        ["Ђ"] = "Đ",  ["ђ"] = "đ",
+        ["Е"] = "E",  ["е"] = "e",
+        ["Ж"] = "Ž",  ["ж"] = "ž",
+        ["З"] = "Z",  ["з"] = "z",
+        ["И"] = "I",  ["и"] = "i",
+        ["Ј"] = "J",  ["ј"] = "j",
+        ["К"] = "K",  ["к"] = "k",
+        ["Л"] = "L",  ["л"] = "l",
+        ["Љ"] = "Lj", ["љ"] = "lj",
+        ["М"] = "M",  ["м"] = "m",
+        ["Н"] = "N",  ["н"] = "n",
+        ["Њ"] = "Nj", ["њ"] = "nj",
+        ["О"] = "O",  ["о"] = "o",
+        ["П"] = "P",  ["п"] = "p",
+        ["Р"] = "R",  ["р"] = "r",
+        ["С"] = "S",  ["с"] = "s",
+        ["Т"] = "T",  ["т"] = "t",
+        ["Ћ"] = "Ć",  ["ћ"] = "ć",
+        ["У"] = "U",  ["у"] = "u",
+        ["Ф"] = "F",  ["ф"] = "f",
+        ["Х"] = "H",  ["х"] = "h",
+        ["Ц"] = "C",  ["ц"] = "c",
+        ["Ч"] = "Č",  ["ч"] = "č",
+        ["Џ"] = "Dž", ["џ"] = "dž",
+        ["Ш"] = "Š",  ["ш"] = "š",
+    }
+}
+
+local C2L = {
+    mapping = {
+        ["А"] = "A",  ["а"] = "a",
+        ["Б"] = "B",  ["б"] = "b",
+        ["В"] = "V",  ["в"] = "v",
+        ["Г"] = "G",  ["г"] = "g",
+        ["Д"] = "D",  ["д"] = "d",
+        ["Ђ"] = "Đ",  ["ђ"] = "đ",
+        ["Е"] = "E",  ["е"] = "e",
+        ["Ж"] = "Ž",  ["ж"] = "ž",
+        ["З"] = "Z",  ["з"] = "z",
+        ["И"] = "I",  ["и"] = "i",
+        ["Ј"] = "J",  ["ј"] = "j",
+        ["К"] = "K",  ["к"] = "k",
+        ["Л"] = "L",  ["л"] = "l",
+        ["Љ"] = "LJ", ["љ"] = "lj",
+        ["М"] = "M",  ["м"] = "m",
+        ["Н"] = "N",  ["н"] = "n",
+        ["Њ"] = "NJ", ["њ"] = "nj",
+        ["О"] = "O",  ["о"] = "o",
+        ["П"] = "P",  ["п"] = "p",
+        ["Р"] = "R",  ["р"] = "r",
+        ["С"] = "S",  ["с"] = "s",
+        ["Т"] = "T",  ["т"] = "t",
+        ["Ћ"] = "Ć",  ["ћ"] = "ć",
+        ["У"] = "U",  ["у"] = "u",
+        ["Ф"] = "F",  ["ф"] = "f",
+        ["Х"] = "H",  ["х"] = "h",
+        ["Ц"] = "C",  ["ц"] = "c",
+        ["Ч"] = "Č",  ["ч"] = "č",
+        ["Џ"] = "DŽ", ["џ"] = "dž",
+        ["Ш"] = "Š",  ["ш"] = "š",
+    }
+}
 
+return {
     name      = "sebian transliterations",
     version   = "1.00",
-    author    = "Hans Hagen",
-    comment   = "Experimental code, the name of this file might change"
-             .. "or maybe it become a llg file in the end.",
+    author    = "Hans Hagen & Ivan Pešić",
     copyright = "ConTeXt development team & whoever made this list",
-
     transliterations = {
-        ["serbian to latin"] = {
-            mapping = {
-                ["А"] = "A",  ["а"] = "a",
-                ["Б"] = "B",  ["б"] = "b",
-                ["В"] = "V",  ["в"] = "v",
-                ["Г"] = "G",  ["г"] = "g",
-                ["Д"] = "D",  ["д"] = "d",
-                ["Е"] = "E",  ["е"] = "e",
-                ["Ж"] = "Ž",  ["ж"] = "ž",
-                ["З"] = "Z",  ["з"] = "z",
-                ["И"] = "I",  ["и"] = "i",
-                ["Й"] = "J",  ["й"] = "j",
-                ["К"] = "K",  ["к"] = "k",
-                ["Л"] = "L",  ["л"] = "l",
-                ["М"] = "M",  ["м"] = "m",
-                ["Н"] = "N",  ["н"] = "n",
-                ["О"] = "O",  ["о"] = "o",
-                ["П"] = "P",  ["п"] = "p",
-                ["Р"] = "R",  ["р"] = "r",
-                ["С"] = "S",  ["с"] = "s",
-                ["Т"] = "T",  ["т"] = "t",
-                ["У"] = "U",  ["у"] = "u",
-                ["Ф"] = "F",  ["ф"] = "f",
-                ["Х"] = "Ch", ["х"] = "ch",
-                ["Ц"] = "C",  ["ц"] = "c",
-                ["Ч"] = "Č",  ["ч"] = "č",
-                ["Ш"] = "Š",  ["ш"] = "š",
-                ["Щ"] = "Št", ["щ"] = "št",
-                ["Ъ"] = "Ă",  ["ъ"] = "ă",
-                ["Ь"] = "′",  ["ь"] = "′",
-                ["Ю"] = "Ju", ["ю"] = "ju",
-                ["Я"] = "Ja", ["я"] = "ja",
-            }
-        }
+        ["serbian to latin"] = c2l,
+        c2l = c2l,
+        C2L = C2L,
     }
 }