corrected final hamza; added quoting before hamza

1 files changed, 20 insertions, 5 deletions

diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua
index face931..1dc7a0c 100644
--- a/arabluatex_voc.lua
+++ b/arabluatex_voc.lua
@@ -65,6 +65,13 @@ raw = {
 }
 
 hamza = {
+   -- hard coded hamza
+   {a="|\"'", b="ء"},
+   {a="A\"'", b="آ"},
+   {a="[au]\"'", b="أ"},
+   {a="w\"'", b="ؤ"},
+   {a="i\"'", b="إ"},
+   {a="y\"'", b="ئ"},
    -- initial long u
    {a="%'%_U", b="أU"},
    -- madda (historic writing below)
@@ -79,12 +86,19 @@ hamza = {
    {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="([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"},
+--   {a="([UI])(')([uai]N?)$", b="%1ء%3"},
+--   {a="([UI])(')([uai]N?)(%W)", b="%1ء%3%4"},
+   -- ^say'aN and .zim'aN are special orthographies
+   {a="(%^say)(%')(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"},
-   {a="([UI])(')([uai])$", b="%1ء%3"},
-   {a="([UI])(')([uai])(%W)", b="%1ء%3%4"},
+   {a="([^uai])(')([uai]N?)(%W)", b="%1ء%3%4"},   
    -- middle
    {a="(U)(')", b="%1ء"},
    {a="([Iy])(')", b="%1ئ"},
@@ -149,6 +163,7 @@ tanwin = {
         {a="(aN)(_A)", b="ًى"},
         {a="(aN)(Y)", b="ًى"},
         {a="(T)(aN)", b="%1ً"},
+        {a="(ء)(aN)", b="%1ً"},
         {a="([^TA])(aN)", b="%1ًا"},
         {a="iN", b="ٍ"}
 }