From 029c8797e6e32adfcb79fc4c1f72377592c35f82 Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Fri, 26 Feb 2016 10:50:17 +0100
Subject: (re)define \LR{} command \AtBeginDocument{} in case luabidi is loaded

---
 arabluatex.dtx | 3 +++
 arabluatex.lua | 6 ++++++
 2 files changed, 9 insertions(+)

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)
-- 
cgit v1.2.3