From 0b00f31b9fa532d59570d8b102dac98ef1ce4338 Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Sun, 24 Jun 2018 14:28:17 +0200
Subject: =?UTF-8?q?additional=20rules=20for=20putting=20back=20on=20=CA=BE?=
 =?UTF-8?q?alif=20al-wa=E1=B9=A3l=20with=20\arbnull{}?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 arabluatex_fullvoc.lua | 4 ++++
 arabluatex_novoc.lua   | 2 ++
 arabluatex_trans.lua   | 1 +
 arabluatex_voc.lua     | 6 ++++++
 4 files changed, 13 insertions(+)

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
-- 
cgit v1.2.3