new command \MkArbBreak{} for inserting user-defined single argument commands in Arabic environments

1 files changed, 25 insertions, 8 deletions

diff --git a/arabluatex.lua b/arabluatex.lua
index 3a405a2..d35114d 100644
--- a/arabluatex.lua
+++ b/arabluatex.lua
@@ -27,13 +27,6 @@ require("arabluatex_fullvoc")
 require("arabluatex_novoc")
 require("arabluatex_trans")
 
-function isintable(table, value)
-   for _, v in pairs(table) do
-      if v == value then return true end
-   end
-   return false
-end
-
 local function protectarb(str)
    str = string.gsub(str, "(\\arb.?)(%[.-%])(%b{})", "\\@arb%2%3")
    str = string.gsub(str, "(\\begin.?)(%b{})(%b[])", "\\@begin%3%2")
@@ -53,9 +46,33 @@ local function unprotectarb(str)
 return str
 end
 
-breakcmds = {}
+brkcmds = {}
+
+function mkarbbreak(str)
+   str = str ..","
+   str = string.gsub(str, "%s+", "")
+   local fieldstart = 1
+   repeat
+      local nexti = string.find(str, "%,", fieldstart)
+      table.insert(brkcmds, string.sub(str, fieldstart, nexti-1))
+      fieldstart = nexti +1
+   until fieldstart > string.len(str)
+   return brkcmds
+end
 
 local function breakcmd(str)
+   -- user commands
+   if next(brkcmds) == nil then
+      -- nothing to do
+   else
+      for i = 1,#brkcmds do
+         str = string.gsub(str, "\\"..brkcmds[i]..".?(%b{})",
+                function(body)
+                   body = string.sub(body, 2, -2)
+                   return string.format("}\\"..brkcmds[i].."{%s}\\arb{", body)
+         end)
+      end
+   end
    -- process \item[], then \item[]
         str = string.gsub(str, "\\(item.?)(%b[])",
           function(tag, body)