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

1 files changed, 6 insertions, 0 deletions

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)