(re)define \LR{} command \AtBeginDocument{} in case luabidi is loaded

2 files changed, 9 insertions, 0 deletions

diff --git a/arabluatex.dtx b/arabluatex.dtx
index 67fa916..c0e1163 100644
--- a/arabluatex.dtx
+++ b/arabluatex.dtx
@@ -203,6 +203,9 @@
 \AtBeginDocument{\ifdef{\LR}%
   {\renewrobustcmd{\LR}[1]{\bgroup\textdir TLT\rmfamily#1\egroup}}
   {\newrobustcmd{\LR}[1]{\bgroup\textdir TLT\rmfamily#1\egroup}}}
+\AtBeginDocument{\ifdef{\RL}%
+  {\renewrobustcmd{\RL}[1]{\bgroup\textdir TRT\rmfamily#1\egroup}}
+  {\newrobustcmd{\RL}[1]{\bgroup\textdir TRT#1\rmfamily\egroup}}}
 \DeclareDocumentCommand{\txarb}{+m}{\bgroup\textdir TRT\arabicfont#1\egroup}
 \DeclareDocumentCommand{\arb}{O{\al@mode} +m}%
 {\edef\@tempa{#1}%
diff --git a/arabluatex.lua b/arabluatex.lua
index f1aeda0..f0cfa78 100644
--- a/arabluatex.lua
+++ b/arabluatex.lua
@@ -40,6 +40,12 @@ return str
 end
 
 local function breakcmd(str)
+   -- \RL
+   str = string.gsub(str, "\\(RL.-)(%b{})",
+                function(tag, body)
+                body = string.sub(body, 2, -2)
+                return string.format("}\\%s{%s}\\arb{", tag, body)
+                end)
    -- \LR
    str = string.gsub(str, "\\(LR.-)(%b{})",
                 function(tag, body)