From fbf4e6351ea57d656eea8fe049141598ae95d1a6 Mon Sep 17 00:00:00 2001 From: Robert Alessi Date: Sun, 20 Mar 2016 19:03:02 +0100 Subject: =?UTF-8?q?assimilations=20[Wright=20i=20=C2=A714=20(b)];=20no=20m?= =?UTF-8?q?ore=20euphonic=20ta=C5=A1d=C4=ABd=20in=20novoc=20mode?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- arabluatex_fullvoc.lua | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'arabluatex_fullvoc.lua') 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="ث"}, -- cgit v1.2.3