1 files changed, 46 insertions, 1 deletions

diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua
index 78ec4a5..86a55b0 100644
--- a/arabluatex_trans.lua
+++ b/arabluatex_trans.lua
@@ -35,7 +35,7 @@ nulltr = {
    {a="[%^%_](.)", b="<??>%1"}
 }
 
--- cap
+-- cap (legacy)
 captr = {
    -- dmg (defaut); loc as well
    {a="ā", b="Ā"},
@@ -69,6 +69,51 @@ captr = {
    {a="ī", b="Ī"}
 }
 
+-- uc
+lcuc = {
+   {a="b", b="B"},
+   {a="t", b="T"},
+   {a="ṯ", b="Ṯ"},
+   {a="ǧ", b="Ǧ"},
+   {a="j", b="J"},
+   {a="ḥ", b="Ḥ"},
+   {a="ḫ", b="Ḫ"},
+   {a="d", b="D"},
+   {a="ḏ", b="Ḏ"},
+   {a="r", b="R"},
+   {a="z", b="Z"},
+   {a="s", b="S"},
+   {a="š", b="Š"},
+   {a="ṣ", b="Ṣ"},
+   {a="ḍ", b="Ḍ"},
+   {a="ṭ", b="Ṭ"},
+   {a="ẓ", b="Ẓ"},
+   {a="ġ", b="Ġ"},
+   {a="f", b="F"},
+   {a="q", b="Q"},
+   {a="k", b="K"},
+   {a="l", b="L"},
+   {a="m", b="M"},
+   {a="n", b="N"},
+   {a="h", b="H"},
+   {a="w", b="W"},
+   {a="y", b="Y"},
+   {a="u", b="U"},
+   {a="a", b="A"},
+   {a="i", b="I"},
+   {a="ū", b="Ū"},
+   {a="ā", b="Ā"},
+   {a="ī", b="Ī"},
+   -- additional characters
+   {a="p", b="P"},
+   {a="č", b="Č"},
+   {a="ž", b="Ž"},
+   {a="v", b="V"},
+   {a="g", b="G"},
+   {a="ñ", b="Ñ"},
+   {a="ch", b="Ch"}, -- loc
+}
+
 -- dmg
 
 hamzatrdmg = {