4 files changed, 13 insertions, 0 deletions

diff --git a/arabluatex_fullvoc.lua b/arabluatex_fullvoc.lua
index fb823fa..30c5bf7 100644
--- a/arabluatex_fullvoc.lua
+++ b/arabluatex_fullvoc.lua
@@ -399,6 +399,8 @@ tanwinfveasy = { -- no assimilations (see below)
 }
 
 trigraphsfv = { -- trigraphs or more
+   -- ʾalif al-waṣl: put it back on with \arbnull
+   {a="(O[%S]-)([%'a]l%-)(O)(\"?[uai])", b="ٱ"},
    -- 'llatI / 'llad_I
    {a="^'ll(a)([%_]?[dt])", b="ٱلّ%1%2"},
    {a="([%(%[%|%<%s%-])'ll(a)([%_]?[dt])", b="%1ٱلّ%2%3"}, --p
@@ -480,6 +482,8 @@ trigraphsfv = { -- trigraphs or more
 -- file.
 
 trigraphsfveasy = { -- trigraphs or more (see 'easy' tag below for the diffs)
+   -- ʾalif al-waṣl: put it back on with \arbnull
+   {a="(O[%S]-)([%'a]l%-)(O)(\"?[uai])", b="ٱ"},
    -- 'llatI / 'llad_I
    {a="^'ll(a)([%_]?[dt])", b="ٱلّ%1%2"},
    {a="([%(%[%|%<%s%-])'ll(a)([%_]?[dt])", b="%1ٱلّ%2%3"}, --p
diff --git a/arabluatex_novoc.lua b/arabluatex_novoc.lua
index cc29371..95a19ef 100644
--- a/arabluatex_novoc.lua
+++ b/arabluatex_novoc.lua
@@ -66,6 +66,8 @@ tanwinnv = {
    {a="([اآ])(ء)%-?(aN)", b="%1%2"}, --new
    {a="([^TA])%-?(aN)", b="%1ا"},
    {a="%-?(iNI?)", b=""},
+   -- ʾalif al-waṣl: put it back on with \arbnull
+   {a="(O[%S]-)([%'a]l%-)(O)(\"?[uai])", b="%4"},
    -- initial straight double quote gives a connective ʾalif. This has
    -- nothing to do with the tanwīn, but I put it here for time being.
    {a="^\"", b="ٱ"},
diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua
index 87f0c47..d532021 100644
--- a/arabluatex_trans.lua
+++ b/arabluatex_trans.lua
@@ -373,6 +373,7 @@ digraphstrdmg = {
    {a="(A)(O)(\"?[uai])([%S]-O)", b="a"},
    {a="([%_]?[Uu])(O)(\"?[uai])([%S]-O)", b="u"},
    {a="([%_]?[Ii])(O)(\"?[uai])([%S]-O)", b="i"},
+   {a="(O[%S]-)([%'a]l%-)(O)(\"?[uai])", b="'"},
    {a="(O[%S]-)([UAIYWuaiyw])(O)(\"?[uai])", b="'"},
    {a="(aW)(%s)([%(%[%|%<]?)(\"?[uai])", b="awu%2%3%4"}, --p
    {a="(UA)(%s)([%(%[%|%<]?)(\"?[uai])", b="u%2%3'"}, --p
diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua
index 16ddd55..412255c 100644
--- a/arabluatex_voc.lua
+++ b/arabluatex_voc.lua
@@ -523,6 +523,9 @@ tanwineasy = { -- 'easy' requires some lines to be taken out:
 }
 
 trigraphs = { -- trigraphs or more
+   -- ʾalif al-waṣl: put it back on with \arbnull
+   {a="(O[%S]-)([%'a]l%-)(O)(\"[uai])", b="ٱ"},
+   {a="(O[%S]-)([%'a]l%-)(O)([uai])", b="ا"},
    -- 'llatI / 'llad_I
    {a="^'ll(a)([%_]?[dt])", b="الّ%1%2"},
    {a="([%(%[%|%<%s%-])'ll(a)([%_]?[dt])", b="%1الّ%2%3"}, --p
@@ -611,6 +614,9 @@ idgham = {
 }
 
 trigraphseasy = { -- differences marked below with 'easy'
+   -- ʾalif al-waṣl: put it back on with \arbnull
+   {a="(O[%S]-)([%'a]l%-)(O)(\"[uai])", b="ٱ"},
+   {a="(O[%S]-)([%'a]l%-)(O)([uai])", b="ا"},
    -- Allah (easy)
    {a="l%-l_ah", b="l-ll_ah"},
    -- 'llatI / 'llad_I