bugfix: quoting sukūn in fullvoc mode

1 files changed, 30 insertions, 2 deletions

diff --git a/arabluatex_fullvoc.lua b/arabluatex_fullvoc.lua
index 8fb564e..021d75a 100644
--- a/arabluatex_fullvoc.lua
+++ b/arabluatex_fullvoc.lua
@@ -173,10 +173,10 @@ digraphsfv = {
    {a="ww", b="وّ"},
    {a="yy", b="يّ"},
    -- sukūn begin
-   {a="\"", b=""},
    {a="([%_%^%.]?[btjghxdrzs%`fqklmnwy])$", b="%1ْ"},
    {a="([%_%^%.]?[btjghxdrzs%`fqklmnwy])([%s])", b="%1ْ%2"},
-   {a="([%_%^%.]?[btjghxdrzs%`fqklmnwy])([^%_uaiUAIًٌٍ])", b="%1ْ%2"},
+   {a="([%_%^%.]?[btjghxdrzs%`fqklmnwy])([%_]?[^uaiUAIًٌٍ])", b="%1ْ%2"},
+   {a="ْ\"", b="\""},
    -- sukūn end
    {a="_t", b="ث"},
    {a="%^g", b="ج"},
@@ -201,3 +201,31 @@ digraphsfv = {
    {a="%.k", b="ک"},
    {a="%.n", b="ں"},
 }
+
+singlefv = {
+        {a="b", b="ب"},
+        {a="t", b="ت"},
+        {a="j", b="ج"},
+        {a="x", b="خ"},
+        {a="d", b="د"},
+        {a="r", b="ر"},
+        {a="z", b="ز"},
+        {a="s", b="س"},
+        {a="f", b="ف"},
+        {a="`", b="ع"},
+        {a="f", b="ف"},
+        {a="q", b="ق"},
+        {a="k", b="ك"},
+        {a="l", b="ل"},
+        {a="m", b="م"},
+        {a="n", b="ن"},
+        {a="h", b="ه"},
+        {a="w", b="و"},
+        {a="y", b="ي"},
+        {a="T", b="ة"},
+        {a="\"$", b=""},
+        {a="\"(%W)", b="%1"},
+        {a="\"([^uaiUAI])", b="%1"},
+        {a="([^0-9])%-([^0-9])", b="%1%2"},
+        {a="B", b="ـ"},
+}