new command \newarbmark{} for inserting new marks in arabluatex's arbmarks table

2 files changed, 11 insertions, 1 deletions

diff --git a/arabluatex.dtx b/arabluatex.dtx
index 53a7ed4..121de84 100644
--- a/arabluatex.dtx
+++ b/arabluatex.dtx
@@ -3752,7 +3752,12 @@ wa-ya.sIru ta.hta 'l-jild-i
   \luadirect{tex.sprint(processarbmarks(\luastringN{#1}))}%
   \egroup}
 %    \end{macrocode}
-% 
+% \end{macro}
+% \begin{macro}{\newarbmark}
+%    \begin{macrocode}
+\NewDocumentCommand{\newarbmark}{m m m}{%
+  \luadirect{newarbmark(\luastringN{#1}, \luastringN{#2}, \luastringN{#3})}}
+%    \end{macrocode}
 % \end{macro}
 % \begin{environment}{arab}
 % The |arab| environment does for paragraphs the same as \cs{arb} does
diff --git a/arabluatex.lua b/arabluatex.lua
index 3d25a05..cd0bfa2 100644
--- a/arabluatex.lua
+++ b/arabluatex.lua
@@ -671,6 +671,11 @@ function processtrans(str, mode, rules, scheme)
 return str
 end
 
+function newarbmark(abbr, rtlmk, ltrmk)
+   table.insert(arbmarks, {a = abbr, b = rtlmk, c = ltrmk})
+   return true
+end
+
 function processarbmarks(str)
    if tex.textdir == "TLT" then
       for i = 1,#arbmarks do