assimilations [Wright i §14 (b)]; no more euphonic tašdīd in novoc mode

1 files changed, 14 insertions, 3 deletions

diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua
index a3c9b62..b6dbd12 100644
--- a/arabluatex_voc.lua
+++ b/arabluatex_voc.lua
@@ -195,21 +195,32 @@ trigraphs = { -- trigraphs or more
    -- words ending in -āT with silent wāw/yāʾ
    {a="(_a)UA", b="%1وا"},
    {a="(_a)U", b="%1و"},
-   {a="(_a)I", b="%1ي"}
+   {a="(_a)I", b="%1ي"},
+   -- assimilations
+   {a="(n)(%s)([rlmnwy])", b="%1%2%3%3"}
 }
 
 tanwin = {
    {a="uNU", b="ٌو"},
    {a="aNU", b="ًوا"},
    {a="iNU", b="ٍو"},
-   {a="uN", b="ٌ"},
+   -- assimilations (begin)
+   {a="(uN)(%s)([rlmnwy])", b="ٌ%2%3%3"},
+   {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="(ء)(aN)(%s)([rlmnwy])", b="%1ً%3%4%4"},
+   {a="([^TA])(aN)(%s)([rlmnwy])", b="%1ًا%3%4%4"},
+   {a="(iN)(%s)([rlmnwy])", b="ٍ%2%3%3"},
+   -- assimilations (end)
+   {a="(uN)", b="ٌ"},
    {a="(B)(aN)", b="%1ً"},
    {a="(aN)(_A)", b="ًى"},
    {a="(aN)(Y)", b="ًى"},
    {a="(T)(aN)", b="%1ً"},
    {a="(ء)(aN)", b="%1ً"},
    {a="([^TA])(aN)", b="%1ًا"},
-   {a="iN", b="ٍ"}
+   {a="(iN)", b="ٍ"}
 }
 
 digraphs = {