1 files changed, 9 insertions, 2 deletions

diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua
index 5e7dbe5..275e235 100644
--- a/arabluatex_trans.lua
+++ b/arabluatex_trans.lua
@@ -329,8 +329,11 @@ digraphstrdmg = {
    {a="([%_]?[Ii])(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])", b="i%2%3"},
    {a="%-%-", b=""},
 --   {a="T([^uai])", b="%1"},
+   {a="([a%'][%_%^%.]?[tdrzsln]%-)(.-)T([%(%[%|%<%s])(a[%_%^%.]?[tdrzsln]%-)", b="%1%2h%3%4"}, --p
+   {a="T([%(%[%|%<%s])(a[%_%^%.]?[tdrzsln]%-)", b="t%1%2"}, --p
    {a="T(%p?%s)", b="h%1"},
    {a="T(%p?)$", b="h%1"},
+   {a="T(%p?)(%W)", b="h%1%2"},
    {a="_t", b="ṯ"},
    {a="%^g", b="ğ"},
    {a="%.h", b="ḥ"},
@@ -479,7 +482,7 @@ tanwintrloc = {
 trigraphstrloc = { -- trigraphs or more
    -- 'llatI / 'llad_I
    {a="^'ll(a)([%_]?[dt])", b="all%1%2"},
-   {a="(%s)'ll(a)([%_]?[dt])", b="%1all%2%3"},
+   {a="([%(%[%|%<%s])'ll(a)([%_]?[dt])", b="%1all%2%3"}, --p
    -- al- + lām
    {a="^(a)l%-(l)", b="%1l-%2"},
    {a="(%s)(a)l%-(l)", b="%1%2l-%3"},
@@ -544,9 +547,13 @@ digraphstrloc = {
    {a="(%s)([uai])", b="%1%2"}, -- initial alif without hamza
    {a="%-%-", b=""},
    {a="uww", b="ūw"},
+   {a="iyy$", b="ī"},
+   {a="iyy(%W)", b="ī%1"},
    {a="iyy", b="īy"},
    {a="([tkdsg])(h)", b="%1'%2"},
---   {a="T([^uai])", b="h%1"},
+   --   {a="T([^uai])", b="h%1"},
+   {a="([a%']l%-)(.-)T([%(%[%|%<%s])(al%-)", b="%1%2h%3%4"}, --p
+   {a="T([%(%[%|%<%s])(al%-)", b="t%1%2"}, --p
    {a="T$", b="h"},
    {a="T(%W)", b="h%1"},
    {a="_t", b="th"},