shorten long vowels according to rule laid down in Wright i. §25 (trans mode)

1 files changed, 11 insertions, 3 deletions

diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua
index 1e2d89a..f7274c1 100644
--- a/arabluatex_trans.lua
+++ b/arabluatex_trans.lua
@@ -153,9 +153,17 @@ tanwintrdmg = {
 }
 
 digraphstrdmg = {
-   {a="(%-)([uai])", b="%1'"}, -- hyphen + initial alif without hamza
+   {a="([uai]%-)([uai])", b="%1'"}, -- hyphen + initial alif without hamza
    {a="^([uai])", b="%1"},      -- initial alif without hamza
-   {a="(%s)([uai])", b="%1'"}, -- initial alif without hamza
+--   {a="([%_]?[uaiUAIY])(%s)([uai])", b="%1%2'"}, -- initial alif without hamza
+   {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="([%_]?[AYa])(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="a%2%3"},
+   {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(%s)", b="%1"},
@@ -208,7 +216,7 @@ longvtrdmg = {
    {a="A", b="ā"},
    {a="U", b="ū"},
    {a="I", b="ī"},
-   {a="Y", b="ā"},
+   {a="Y", b="ā"}
 }
 
 shortvtrdmg = {