From 83d1a755875a5363425127bd761f203a7918cbb1 Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Sun, 25 Jun 2017 20:13:03 +0200
Subject: =?UTF-8?q?'aY'=20may=20be=20used=20to=20encode=20consonant=20y?=
 =?UTF-8?q?=C4=81=CA=BE=20without=20dots=20(as=20in=20qaY'uN);=20'.y'=20al?=
 =?UTF-8?q?so=20gives=20the=20same=20results?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 arabluatex_trans.lua | 27 +++++++++++++++++++++------
 1 file changed, 21 insertions(+), 6 deletions(-)

(limited to 'arabluatex_trans.lua')

diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua
index bffc1ae..31e00b2 100644
--- a/arabluatex_trans.lua
+++ b/arabluatex_trans.lua
@@ -108,8 +108,11 @@ hamzatrdmg = {
    -- then the 'initial' rules for the remaining cases
    {a="^(')([ua])", b="ʾ%2"},
    {a="^(')(i)", b="ʾ%2"},
-   {a="(%W)(')([ua])", b="%1ʾ%3"},
-   {a="(%W)(')(i)", b="%1ʾ%3"},
+   -- consider replacing initial %W with [%s%(%[%<]:
+   --   {a="(%W)(')([ua])", b="%1ʾ%3"},
+   --   {a="(%W)(')(i)", b="%1ʾ%3"},
+   {a="([%s%(%[%<])(')([ua])", b="%1ʾ%3"},
+   {a="([%s%(%[%<])(')(i)", b="%1ʾ%3"},
    -- final
    {a="([Iy])(')(aN)$", b="%1ʾ%3"},
    {a="([Iy])(')(aN)(%W)", b="%1ʾ%3%4"},
@@ -365,6 +368,7 @@ digraphstrdmg = {
    {a="%.t", b="ṭ"},
    {a="%.z", b="ẓ"},
    {a="%.g", b="ġ"},
+   {a="%.y", b="y"},
    -- additional characters (begin)
    {a="%^c", b="č"},
    {a="%^z", b="ž"},
@@ -419,6 +423,7 @@ longvtrdmg = {
    {a="A", b="ā"},
    {a="U", b="ū"},
    {a="I", b="ī"},
+   {a="aY", b="ay"},
    {a="iY", b="ī"},
    {a="Y", b="ạ̄"}
 }
@@ -469,8 +474,11 @@ hamzatrloc = {
    -- initial (needs both ^ and %W patterns)
    {a="^(')([ua])", b="%2"},
    {a="^(')(i)", b="%2"},
-   {a="(%W)(')([ua])", b="%1%3"},
-   {a="(%W)(')(i)", b="%1%3"},
+   -- consider replacing initial %W with [%s%(%[%<]:
+   --   {a="(%W)(')([ua])", b="%1%3"},
+   --   {a="(%W)(')(i)", b="%1%3"},
+   {a="([%s%(%[%<])(')([ua])", b="%1%3"},
+   {a="([%s%(%[%<])(')(i)", b="%1%3"},
    -- final
    {a="([Iy])(')(aN)$", b="%1ʾ%3"},
    {a="([Iy])(')(aN)(%W)", b="%1ʾ%3%4"},
@@ -611,6 +619,7 @@ digraphstrloc = {
    {a="%.t", b="ṭ"},
    {a="%.z", b="ẓ"},
    {a="%.g", b="gh"},
+   {a="%.y", b="y"},
    -- additional characters (begin)
    {a="%^c", b="ch"},
    {a="%^z", b="zh"},
@@ -664,6 +673,7 @@ longvtrloc = {
    {a="A", b="ā"},
    {a="U", b="ū"},
    {a="I", b="ī"},
+   {a="aY", b="ay"},
    {a="iY", b="ī"},
    {a="Y", b="á"},
 }
@@ -719,8 +729,11 @@ hamzatrarabica = { -- ≠ from hamzatrloc: initial hamza has to be held
    -- hold it for now (see below, beginning of digraphs table)
    {a="^(')([ua])", b="@%2"},
    {a="^(')(i)", b="@%2"},
-   {a="(%W)(')([ua])", b="%1@%3"},
-   {a="(%W)(')(i)", b="%1@%3"},
+   -- consider replacing initial %W with [%s%(%[%<]:
+   --   {a="(%W)(')([ua])", b="%1@%3"},
+   --   {a="(%W)(')(i)", b="%1@%3"},
+   {a="([%s%(%[%<])(')([ua])", b="%1@%3"},
+   {a="([%s%(%[%<])(')(i)", b="%1@%3"},
    -- final
    {a="([Iy])(')(aN)$", b="%1ʾ%3"},
    {a="([Iy])(')(aN)(%W)", b="%1ʾ%3%4"},
@@ -848,6 +861,7 @@ digraphstrarabica = {
    {a="%.t", b="ṭ"},
    {a="%.z", b="ẓ"},
    {a="%.g", b="ġ"},
+   {a="%.y", b="y"},
    -- additional characters (begin)
    {a="%^c", b="č"},
    {a="%^z", b="ž"},
@@ -898,6 +912,7 @@ singletrarabica = {
 }
 
 longvtrarabica = {
+   {a="aY", b="ay"},
    {a="iY", b="ī"},
    {a="[AY]", b="ā"},
    {a="U", b="ū"},
-- 
cgit v1.2.3