šadda over hamza + improved madda

1 files changed, 9 insertions, 1 deletions

diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua
index 3018789..844e653 100644
--- a/arabluatex_voc.lua
+++ b/arabluatex_voc.lua
@@ -72,10 +72,15 @@ hamza = {
    {a="w\"'", b="ؤ"},
    {a="i\"'", b="إ"},
    {a="y\"'", b="ئ"},
+   -- hamza takes tašdīd too
+   {a="''([Uu])", b="ؤؤ%1"},
+   {a="''([Aa])", b="أأ%1"},
+   {a="''([Ii])", b="ئئ%1"},
    -- initial long u
    {a="%'%_U", b="أU"},
    -- madda (historic writing below)
-   {a="'A", b="آ"},
+   {a="'a'([^uaiUAI])", b="آ%1"},
+   {a="'a?A", b="آ"},
    {a="(A)(')(i)$", b="aآء%3"},
    {a="(A)(')(i)(%W)", b="aآء%3%4"},
    {a="(A)(')(i)", b="aآئ%3"}, -- historic madda
@@ -173,6 +178,9 @@ digraphs = {
    {a="^([uai])", b="ا%1"},      -- initial alif without hamza
    {a="(%s)([uai])", b="%1ا%2"}, -- initial alif without hamza
    {a="%-%-", b="ـ"},
+   {a="ؤؤ", b="ؤّ"},
+   {a="أأ", b="أّ"},
+   {a="ئئ", b="ئّ"},
    {a="bb", b="بّ"},
    {a="BB", b="ـّ"},
    {a="tt", b="تّ"},