From c3ebe405380117e05e6f518a9adbfe993286ab89 Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Fri, 25 Mar 2016 20:00:36 +0100
Subject: improved quoting feature in all modes; still documenting

---
 arabluatex_trans.lua | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'arabluatex_trans.lua')

diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua
index 684977a..46dbc33 100644
--- a/arabluatex_trans.lua
+++ b/arabluatex_trans.lua
@@ -158,20 +158,20 @@ tanwintrdmg = {
    {a="uN", b="un"},
    {a="(aN)(_A)", b="an"},
    {a="(aN)(Y)", b="an"},
-   {a="(T)(aN)", b="tan"},
-   {a="([^TA])(aN)", b="%1an"},
+   {a="(T)(\"?aN)", b="tan"},
+   {a="([^TA])(\"?aN)", b="%1an"},
    {a="iN", b="in"}
 }
 
 digraphstrdmg = {
-   {a="([uai]%-)([uai])", b="%1'"}, -- hyphen + initial alif without hamza
-   {a="^([uai])", b="%1"},      -- initial alif without hamza
+   {a="([uai]%-)(\"?[uai])", b="%1'"}, -- hyphen + initial alif without hamza
+   {a="^(\"?[uai])", b="%1"},      -- initial alif without hamza
 -- {a="([%_]?[uaiUAIY])(%s)([uai])", b="%1%2'"}, -- initial alif without hamza
-   {a="(aW)(%s)([uai])", b="awu%2%3"},
-   {a="([^%_][uai])(%s)([uai])", b="%1%2'"},
-   {a="([%_]?[AYa])(%s)([uai])", b="a%2'"},
-   {a="([%_]?[Uu])(%s)([uai])", b="u%2'"},
-   {a="([%_]?[Ii])(%s)([uai])", b="i%2'"},
+   {a="(aW)(%s)(\"?[uai])", b="awu%2%3"},
+   {a="([^%_][uai])(%s)(\"?[uai])", b="%1%2'"},
+   {a="([%_]?[AYa])(%s)(\"?[uai])", b="a%2'"},
+   {a="([%_]?[Uu])(%s)(\"?[uai])", b="u%2'"},
+   {a="([%_]?[Ii])(%s)(\"?[uai])", b="i%2'"},
    -- shorten long vowels preceding ʾalif conjunctionis
    {a="(U)(A)", b="U"},
    {a="(aW)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="awu%2%3"},
@@ -179,7 +179,7 @@ digraphstrdmg = {
    {a="([%_]?[Uu])(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="u%2%3"},
    {a="([%_]?[Ii])(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="i%2%3"},
    {a="%-%-", b=""},
-   {a="T([^uai])", b="%1"},
+--   {a="T([^uai])", b="%1"},
    {a="T(%s)", b="%1"},
    {a="T$", b=""},
    {a="_t", b="ṯ"},
@@ -359,8 +359,8 @@ tanwintrloc = {
    {a="uN", b="un"},
    {a="(aN)(_A)", b="an"},
    {a="(aN)(Y)", b="an"},
-   {a="(T)(aN)", b="tan"},
-   {a="([^TA])(aN)", b="%1an"},
+   {a="(T)(\"?aN)", b="tan"},
+   {a="([^TA])(\"?aN)", b="%1an"},
    {a="iN", b="in"}
 }
 
@@ -372,7 +372,7 @@ digraphstrloc = {
    {a="uww", b="ūw"},
    {a="iyy", b="īy"},
    {a="([tkdsg])(h)", b="%1'%2"},
-   {a="T([^uai])", b="h%1"},
+--   {a="T([^uai])", b="h%1"},
    {a="T$", b="h"},
    {a="T(%W)", b="h%1"},
    {a="_t", b="th"},
-- 
cgit v1.2.3