\cap{} rules: more work was needed

1 files changed, 7 insertions, 1 deletions

diff --git a/arabluatex.lua b/arabluatex.lua
index 2d5ccd2..2cf249a 100644
--- a/arabluatex.lua
+++ b/arabluatex.lua
@@ -681,17 +681,23 @@ function cap(str)
       str = string.gsub(str, "([^\\]%-)(%a)", "%1\\MakeUppercase{%2}")
    end
    if string.find(str, "^['`ʾʿ]") then
+      str = string.gsub(str, "^(['`])(%a)$", "%1\\MakeUppercase{%2}")
+      str = string.gsub(str, "^(ʿ)(%a)$", "%1\\MakeUppercase{%2}")
+      str = string.gsub(str, "^(ʾ)(%a)$", "%1\\MakeUppercase{%2}")
       str = string.gsub(str, "^(['`])(%a)([^%-])", "%1\\MakeUppercase{%2}%3")
       str = string.gsub(str, "^(ʿ)(%a)([^%-])", "%1\\MakeUppercase{%2}%3")
       str = string.gsub(str, "^(ʾ)(%a)([^%-])", "%1\\MakeUppercase{%2}%3")
    end
    if string.find(str, "%s['`ʾʿ]") then
+      str = string.gsub(str, "(%s['`])(%a)$", "%1\\MakeUppercase{%2}")
+      str = string.gsub(str, "(%sʿ)(%a)$", "%1\\MakeUppercase{%2}")
+      str = string.gsub(str, "(%sʾ)(%a)$", "%1\\MakeUppercase{%2}")
       str = string.gsub(str, "(%s['`])(%a)([^%-])", "%1\\MakeUppercase{%2}%3")
       str = string.gsub(str, "(%sʿ)(%a)([^%-])", "%1\\MakeUppercase{%2}%3")
       str = string.gsub(str, "(%sʾ)(%a)([^%-])", "%1\\MakeUppercase{%2}%3")
    end
    if string.find(str, "%s[ibtṯjgḥḫdḏrzsšṣḍṭẓġfqklmnhwyč]") then
-      str = string.gsub(str, "(%s)([ibtṯjgḥḫdḏrzsšṣḍṭẓġfqklmnhwyč])", "%1\\MakeUppercase{%2}")
+      str = string.gsub(str, "(%s)([ibtṯjgḥḫdḏrzsšṣḍṭẓġfqklmnhwyč])", "%1\\MakeUppercase %2")
    end
    if string.find(str, "^[ibtṯjgḥḫdḏrzsšṣḍṭẓġfqklmnhwyč]") then
       str = string.gsub(str, "^([ibtṯjgḥḫdḏrzsšṣḍṭẓġfqklmnhwyč])", "\\MakeUppercase %1")