šadda over hamza + improved madda

1 files changed, 10 insertions, 2 deletions

diff --git a/arabluatex_fullvoc.lua b/arabluatex_fullvoc.lua
index a56a33f..b0991bf 100644
--- a/arabluatex_fullvoc.lua
+++ b/arabluatex_fullvoc.lua
@@ -31,10 +31,15 @@ hamzafv = {
    {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
@@ -55,7 +60,7 @@ hamzafv = {
 --   {a="([UI])(')([uai]N?)(%W)", b="%1ء%3%4"},
    -- ^say'aN and .zim'aN are special orthographies
    {a="(%^say)(%')(aN)", b="%1ئ%3"},
-   {a="(.zim)(%')(aN)", b="%1ئ%3"},
+   {a="(.zi?m)(%')(aN)", b="%1ئ%3"},
    {a="([^uai])(')([uai]N?)$", b="%1ء%3"},
    {a="([^uai])(')([uai]N?)(%W)", b="%1ء%3%4"},   
    -- middle
@@ -124,6 +129,9 @@ digraphsfv = {
    {a="^([uai])", b="ٱ"},      -- initial alif without hamza
    {a="(%s)([uai])", b="%1ٱ"}, -- initial alif without hamza
    {a="%-%-", b="ـ"},
+   {a="ؤؤ", b="ؤّ"},
+   {a="أأ", b="أّ"},
+   {a="ئئ", b="ئّ"},
    {a="bb", b="بّ"},
    {a="BB", b="ـّ"},
    {a="tt", b="تّ"},