export to utf: removing superfluous spaces needed a recursion

1 files changed, 10 insertions, 1 deletions

diff --git a/arabluatex.lua b/arabluatex.lua
index 435519c..292c01c 100644
--- a/arabluatex.lua
+++ b/arabluatex.lua
@@ -823,6 +823,15 @@ function tooutfile(str, nl)
    return str
 end
 
+local function removespaceaftercmd(str)
+   str = gsub(str, cmd * spce^1 * bsqbracketsii * bcbraces, function(cmd, space, brackets, braces)
+                 braces = string.sub(braces, 2, -2)
+                 braces = removespaceaftercmd(braces)
+                 return string.format("%s%s{%s}", cmd, brackets, braces)
+   end)
+   return str
+end
+
 function al_closestream()
    local f = io.open(tex.jobname..utffilesuffix.."_tmp.tex", "r")
    local o = io.open(tex.jobname..utffilesuffix..".tex", "w")
@@ -870,7 +879,7 @@ function al_closestream()
          [[ and compile it one more time}}]])
       --
    else end
-   t = gsub(t, cmd * spce * cmdargs, "%1%3")
+   t = removespaceaftercmd(t)
    t = t.."\n\\end{document}"
    io.write(t)
    o:write(t)