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

1 files changed, 8 insertions, 1 deletions

diff --git a/arabluatex_fullvoc.lua b/arabluatex_fullvoc.lua
index 472583e..b0e00d4 100644
--- a/arabluatex_fullvoc.lua
+++ b/arabluatex_fullvoc.lua
@@ -164,7 +164,9 @@ trigraphsfv = { -- 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"}
 }
 
 -- this is new
@@ -210,6 +212,11 @@ digraphsfv = {
    {a="([%_%^%.]?[btjghxdrzs%`fqklmnwy])$", b="%1ْ"},
    {a="([%_%^%.]?[btjghxdrzs%`fqklmnwy])([%s])", b="%1ْ%2"},
    {a="([%_%^%.]?[btjghxdrzs%`fqklmnwy])([%_]?[^%_uaiUAIًٌٍ])", b="%1ْ%2"},
+   -- take out sukūn in cases of assimilation
+   {a="(n)(ْ)(%s)([روي])", b="%1%3%4"},
+   {a="(n)(ْ)(%s)([ل])", b="%1%3%4"},
+   {a="(n)(ْ)(%s)([م])", b="%1%3%4"},
+   {a="(n)(ْ)(%s)([ن])", b="%1%3%4"},
    {a="ْ\"", b="\""},
    -- sukūn end
    {a="_t", b="ث"},