use H to encode the tāʾ marbūtah devoid of diacritical points

1 files changed, 19 insertions, 18 deletions

diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua
index 362c866..4db5d3a 100644
--- a/arabluatex_voc.lua
+++ b/arabluatex_voc.lua
@@ -243,7 +243,7 @@ hamza = {
    -- mi'aT is special orthography (unlike ^say'aN and .zim'aN):
    -- {a="(%^sa%.?[yY])(\"?%|?)(%')(aN)", b="%1%2ئ%4"}, --new
    -- {a="(.zi?m)(%')(aN)", b="%1ئ%3"}, --new
-   {a="(mi)(%')(a[Tt])", b="%1ائ%3"},
+   {a="(mi)(%')(a[TtH])", b="%1ائ%3"},
    {a="(mi)(%')(aN%_?[AY])", b="%1أ%3"},
    -- final hamzah is on the line after a letter of prolongation or a
    -- consonant with sukūn
@@ -368,7 +368,7 @@ hamzaeasy = { -- differences marked below with 'easy'
    -- mi'aT is special orthography (unlike ^say'aN and .zim'aN)
    -- {a="(%^sa%.?[yY])(\"?%|?)(%')(aN)", b="%1%2ئ%4"}, --new
    -- {a="(.zi?m)(%')(aN)", b="%1ئ%3"}, --new
-   {a="(mi)(%')(a[Tt])", b="%1ائ%3"},
+   {a="(mi)(%')(a[TtH])", b="%1ائ%3"},
    {a="(mi)(%')(aN%_?[AY])", b="%1أ%3"},
    -- easy (begin)
    -- The Munjid says that such words as radI'aN do not have the
@@ -443,9 +443,9 @@ tanwin = {
    {a="(O[%S]-)(%-?aN)(Y)(O)([rlmnwy])", b="%5%5"},
    {a="%-?(aN)(_A)(%s)([rlmnwy])", b="ًى%3%4%4"},
    {a="%-?(aN)(Y)(%s)([rlmnwy])", b="ًى%3%4%4"},
-   {a="(T)%-?(aN)(%s)([rlmnwy])", b="%1ً%3%4%4"},
+   {a="([TH])%-?(aN)(%s)([rlmnwy])", b="%1ً%3%4%4"},
    {a="(ء)%-?(aN)(%s)([rlmnwy])", b="%1%2%3%4%4"}, --new
-   {a="([^TA])%-?(aN)(%s)([rlmnwy])", b="%1ًا%3%4%4"},
+   {a="([^TAH])%-?(aN)(%s)([rlmnwy])", b="%1ًا%3%4%4"},
    {a="%-?(iNI?)(%s)([rlmnwy])", b="ٍ%2%3%3"},
    -- assimilations (end)
    {a="(O[%S]-)(%-?aN)(_A)(O)([uai])", b="%5"},
@@ -455,9 +455,9 @@ tanwin = {
    {a="(B)%-?(\"aN)", b="%1"},
    {a="%-?(\"aN)(_A)", b="ى"},
    {a="%-?(\"aN)(Y)", b="ى"},
-   {a="(T)%-?(\"aN)", b="%1"},
+   {a="([TH])%-?(\"aN)", b="%1"},
    {a="([اآ])(ء)%-?(\"aN)", b="%1%2"}, --new
-   {a="([^TA])%-?(\"aN)", b="%1ا"},
+   {a="([^TAH])%-?(\"aN)", b="%1ا"},
    {a="%-?(\"iNI?)", b=""},
    -- quoted tanwīn (end)
    {a="%-?(uN)", b="ٌ"},
@@ -465,15 +465,15 @@ tanwin = {
    -- needed by \arbcolor:
    {a="%-?(aN)(O[%S]-%_AO)", b="ً"},
    {a="%-?(aN)(O[%S]-YO)", b="ً"},
-   {a="(O[%S]-TO)%-?(aN)", b="ً"},
+   {a="(O[%S]-[TH]O)%-?(aN)", b="ً"},
    {a="(O[%S]-)([اآ])(ء)(O)%-?(aN)", b="ً"}, --new
-   {a="(O[%S]-[^TA]O)%-?(aN)", b="ًا"},
+   {a="(O[%S]-[^TAH]O)%-?(aN)", b="ًا"},
    --
    {a="%-?(aN)(_A)", b="ًى"},
    {a="%-?(aN)(Y)", b="ًى"},
-   {a="(T)%-?(aN)", b="%1ً"},
+   {a="([TH])%-?(aN)", b="%1ً"},
    {a="([اآ])(ء)%-?(aN)", b="%1%2ً"}, --new
-   {a="([^TA])%-?(aN)", b="%1ًا"},
+   {a="([^TAH])%-?(aN)", b="%1ًا"},
    {a="%-?(iNI?)", b="ٍ"}
 }
 
@@ -492,9 +492,9 @@ tanwineasy = { -- 'easy' requires some lines to be taken out:
 --   {a="(O[%S]-)(%-?aN)(Y)(O)([rlmnwy])", b="%5%5"},
 --   {a="%-?(aN)(_A)(%s)([rlmnwy])", b="ًى%3%4%4"},
 --   {a="%-?(aN)(Y)(%s)([rlmnwy])", b="ًى%3%4%4"},
---   {a="(T)%-?(aN)(%s)([rlmnwy])", b="%1ً%3%4%4"},
+--   {a="([TH])%-?(aN)(%s)([rlmnwy])", b="%1ً%3%4%4"},
 --   {a="(ء)%-?(aN)(%s)([rlmnwy])", b="%1%2%3%4%4"}, --new
---   {a="([^TA])%-?(aN)(%s)([rlmnwy])", b="%1ًا%3%4%4"},
+--   {a="([^TAH])%-?(aN)(%s)([rlmnwy])", b="%1ًا%3%4%4"},
 --   {a="%-?(iNI?)(%s)([rlmnwy])", b="ٍ%2%3%3"},
    -- assimilations (end)
    {a="(O[%S]-)(%-?aN)(_A)(O)([uai])", b="%5"},
@@ -504,9 +504,9 @@ tanwineasy = { -- 'easy' requires some lines to be taken out:
    {a="(B)%-?(\"aN)", b="%1"},
    {a="%-?(\"aN)(_A)", b="ى"},
    {a="%-?(\"aN)(Y)", b="ى"},
-   {a="(T)%-?(\"aN)", b="%1"},
+   {a="([TH])%-?(\"aN)", b="%1"},
    {a="([اآ])(ء)%-?(\"aN)", b="%1%2"}, --new
-   {a="([^TA])%-?(\"aN)", b="%1ا"},
+   {a="([^TAH])%-?(\"aN)", b="%1ا"},
    {a="%-?(\"iNI?)", b=""},
    -- quoted tanwīn (end)
    {a="%-?(uN)", b="ٌ"},
@@ -514,15 +514,15 @@ tanwineasy = { -- 'easy' requires some lines to be taken out:
    -- needed by \arbcolor:
    {a="%-?(aN)(O[%S]-%_AO)", b="ً"},
    {a="%-?(aN)(O[%S]-YO)", b="ً"},
-   {a="(O[%S]-TO)%-?(aN)", b="ً"},
+   {a="(O[%S]-[TH]O)%-?(aN)", b="ً"},
    {a="(O[%S]-)([اآ])(ء)(O)%-?(aN)", b="ً"}, --new
-   {a="(O[%S]-[^TA]O)%-?(aN)", b="ًا"},
+   {a="(O[%S]-[^TAH]O)%-?(aN)", b="ًا"},
    --
    {a="%-?(aN)(_A)", b="ًى"},
    {a="%-?(aN)(Y)", b="ًى"},
-   {a="(T)%-?(aN)", b="%1ً"},
+   {a="([TH])%-?(aN)", b="%1ً"},
    {a="([اآ])(ء)%-?(aN)", b="%1%2ً"}, --new
-   {a="([^TA])%-?(aN)", b="%1ًا"},
+   {a="([^TAH])%-?(aN)", b="%1ًا"},
    {a="%-?(iNI?)", b="ٍ"}
 }
 
@@ -836,6 +836,7 @@ single = {
    {a="y", b="ي"},
    {a="T", b="ة"},
    -- additional characters (begin)
+   {a="H", b="ه"},
    {a="p", b="پ"},
    {a="v", b="ڤ"},
    {a="g", b="گ"},