\cap{} should be in order. Some more tests before documenting

1 files changed, 25 insertions, 2 deletions

diff --git a/arabluatex.lua b/arabluatex.lua
index 5c167e8..c2487cb 100644
--- a/arabluatex.lua
+++ b/arabluatex.lua
@@ -670,19 +670,42 @@ function cap(str)
                         body = string.sub(body, 2, -2)
                         return string.format("%s", body)
    end)
+   str = string.gsub(str, "(%s)(bn)", "%1{%2}")
    for i = 1,#lcuc do
       str = string.gsub(str, "^([%S]-%-)"..lcuc[i].a, "{%1"..lcuc[i].b.."}")
+   end
+   for i = 1,#lcuc do
       str = string.gsub(str, "(%s)([%S]-%-)"..lcuc[i].a, "%1{%2"..lcuc[i].b.."}")
+   end
+   for i = 1,#lcuc do
       str = string.gsub(str, "^([%S]-%-ʿ)"..lcuc[i].a, "{%1"..lcuc[i].b.."}")
+   end
+   for i = 1,#lcuc do
       str = string.gsub(str, "(%s)([%S]-%-ʿ)"..lcuc[i].a, "%1{%2"..lcuc[i].b.."}")
+   end
+   for i = 1,#lcuc do
       str = string.gsub(str, "^([%S]-%-ʾ)"..lcuc[i].a, "{%1"..lcuc[i].b.."}")
+   end
+   for i = 1,#lcuc do
       str = string.gsub(str, "(%s)([%S]-%-ʾ)"..lcuc[i].a, "%1{%2"..lcuc[i].b.."}")
+   end
+   for i = 1,#lcuc do
       str = string.gsub(str, "^(ʾ)"..lcuc[i].a, "{%1"..lcuc[i].b.."}")
+   end
+   for i = 1,#lcuc do
       str = string.gsub(str, "(%s)(ʾ)"..lcuc[i].a, "%1{%2"..lcuc[i].b.."}")
+   end
+   for i = 1,#lcuc do
       str = string.gsub(str, "^(ʿ)"..lcuc[i].a, "{%1"..lcuc[i].b.."}")
+   end
+   for i = 1,#lcuc do
       str = string.gsub(str, "(%s)(ʿ)"..lcuc[i].a, "%1{%2"..lcuc[i].b.."}")
-      str = string.gsub(str, "^"..lcuc[i].a, "{%1"..lcuc[i].b.."}")
-      str = string.gsub(str, "(%s)"..lcuc[i].a, "%1{%2"..lcuc[i].b.."}")
+   end
+   for i = 1,#lcuc do
+      str = string.gsub(str, "^"..lcuc[i].a, lcuc[i].b)
+   end
+   for i = 1,#lcuc do
+      str = string.gsub(str, "(%s)"..lcuc[i].a, "%1"..lcuc[i].b)
    end
    return "\\txtrans{"..str.."}"
 end