From 07ec135217f9cf9c2cf4117ec5a6d65b8e1a4236 Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Wed, 30 Nov 2016 17:32:18 +0100
Subject: new option \SetArbDflt* for applying the assimilation rules for these
 are not applied by default anymore

---
 arabluatex_trans.lua | 60 ++++------------------------------------------------
 1 file changed, 4 insertions(+), 56 deletions(-)

(limited to 'arabluatex_trans.lua')

diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua
index 87c85e9..981810f 100644
--- a/arabluatex_trans.lua
+++ b/arabluatex_trans.lua
@@ -205,65 +205,13 @@ trigraphstrdmg = { -- trigraphs or more
    -- words ending in -āT with silent wāw/yāʾ
    {a="(_a)UA", b="A"},
    {a="(_a)U", b="A"},
-   {a="(_a)I", b="A"},
-   -- assimilations
-   {a="(n)(}?)(%s)([rlmnwy])", b="%4%2%3%4"}
+   {a="(_a)I", b="A"}
 }
 
-trigraphstrdmgeasy = { -- see the differences below under 'easy' tag
-   -- 'llatI / 'llad_I
-   {a="^'ll(a)([%_]?[dt])", b="'ll%1%2"},
-   {a="(%s)'ll(a)([%_]?[dt])", b="%1'll%2%3"},
-   -- al- + lām
-   {a="^(a)l%-(l)", b="%1l-%2"},
-   {a="([%s%-])(a)l%-(l)", b="%1%2l-%3"},
-   -- al- + solar consonant
-   {a="^(a)l%-([%_%^%.]?[tdrzsn])", b="%1%2-%2"},
-   {a="([%s%-])(a)l%-([%_%^%.]?[tdrzsn])", b="%1%2%3-%3"},
-   -- assim. art. + solar consonant
-   {a="^(a)([%_%^%.]?[tdrzsn])%-", b="%1%2-"},
-   {a="([%s%-])(a)([%_%^%.]?[tdrzsn])%-", b="%1%2%3-"},
-   -- al- + initial unstable hamza
-   {a="^(a)l%-([uai])", b="%1l-%2"},
-   {a="([%s%-])(a)l%-([uai])", b="%1%2l-%3"},
-   -- li-/la- + art. + initial unstable hamza is a special orthography
-   {a="l([ai])%-l%-([uai])", b="l%1-l-%2"},
-   -- al- + lunar consonant (i.e. what remains)
-   {a="^(a)l%-", b="%1l-"},
-   {a="([%s%-])(a)l%-", b="%1%2l-"},
-   -- diphthongs to be resolved before ʾalif conjunctionis
-   {a="(aw)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="%1u%2%3"},
-   {a="(ay)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="%1i%2%3"},
-   -- art. with waṣla + lām
-   {a="'l%-(l)", b="'l-%1"},
-   -- art. with waṣla + solar consonant
-   {a="'l%-([%_%^%.]?[tdrzsn])", b="'%1-%1"},
-   -- li-/la- + art. + lām
-   {a="l([ai])%-l%-(l)", b="l%1-%2%2"},
-   -- assim. art. with waṣla + solar consonant
-   {a="'([%_%^%.]?[tdrzsn])%-", b="'%1-"},
-   -- li-/la- + art. + solar consonant is a special orthography
-   {a="l([ai])%-l%-([%_%^%.]?[tdrzsn])", b="l%1-%2-%2"},
-   -- li-/la- + assim. art. + solar consonant is a special orthography
-   {a="l([ai])%-([%_%^%.]?[tdrzsn])%-([%_%^%.]?[tdrzsn])", b="l%1-%2-%3"},
-   -- art. with waṣla + initial unstable hamza
-   {a="'l%-([uai])", b="'l-%1"},   
-   -- art. with waṣla + lunar consonant (i.e. what remains)
-   {a="'l%-", b="'l-"},
-   -- the silent wāw
-   {a="uU$", b="u"},
-   {a="uU(%W)", b="u%1"},
-   {a="aU$", b="a"},
-   {a="aU(%W)", b="a%1"},
-   {a="iU$", b="i"},
-   {a="iU(%W)", b="i%1"},
-   -- words ending in -āT with silent wāw/yāʾ
-   {a="(_a)UA", b="A"},
-   {a="(_a)U", b="A"},
-   {a="(_a)I", b="A"}
+idghamtrdmg = {
    -- assimilations
---easy   {a="(n)(%s)([rlmnwy])", b="%3%2%3"}
-}
+   {a="(n)(}?)(%s)([rlmnwy])", b="%4%2%3%4"}
+} 
 
 digraphstrdmg = {
    {a="([uai]%-)(\"?[uai])", b="%1'"}, -- hyphen + initial alif without hamza
-- 
cgit v1.2.3