From e3d394eb4e3f29dd098525a785c4627747add461 Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Thu, 25 Feb 2016 11:05:55 +0100
Subject: fix hamza: ^say'aN, xa.tI'aTuN; fix madda

---
 arabluatex_voc.lua | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'arabluatex_voc.lua')

diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua
index 5d35a82..00cdd1e 100644
--- a/arabluatex_voc.lua
+++ b/arabluatex_voc.lua
@@ -69,20 +69,25 @@ hamza = {
    {a="%'%_U", b="أU"},
    -- madda (historic writing below)
    {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
+   {a="(A)(')", b="aآء"}, -- historic madda
    -- 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"},
    -- final
+   {a="([Iy])(')(aN)$", b="%1ئ%3"},
+   {a="([Iy])(')(aN)(%W)", b="%1ئ%3%4"},
    {a="([^uai])(')([uai]N?)$", b="%1ء%3"},
    {a="([^uai])(')([uai]N?)(%W)", b="%1ء%3%4"},
    {a="([UI])(')([uai])$", b="%1ء%3"},
    {a="([UI])(')([uai])(%W)", b="%1ء%3%4"},
    -- middle
-   {a="(A)(')(i)", b="aآئ%3"}, -- historic madda
-   {a="(A)(')", b="aآء"}, -- historic madda
-   {a="([UI])(')", b="%1ء"},
+   {a="(U)(')", b="%1ء"},
+   {a="([Iy])(')", b="%1ئ"},
    {a="([^uai])(')([uU])", b="%1ؤ%3"},
    {a="([^uai])(')([aA])", b="%1أ%3"},
    {a="([^uai])(')([iI])", b="%1ئ%3"},
-- 
cgit v1.2.3