From 27e0c17214c69eccc700ab6d6c178b706a20619a Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Thu, 16 Aug 2018 19:05:23 +0200
Subject: removed \arbmetre which had become unnecessary. added 'starred'
 version of \ArbOutFile

---
 arabluatex.dtx | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

(limited to 'arabluatex.dtx')

diff --git a/arabluatex.dtx b/arabluatex.dtx
index 091ceb7..a2a61cd 100644
--- a/arabluatex.dtx
+++ b/arabluatex.dtx
@@ -4059,7 +4059,7 @@ wa-ya.sIru ta.hta 'l-jild-i
 \DeclareOptionX{trans}{\def\al@mode{trans}}
 \define@boolkey{arabluatex.sty}[@pkg@]{export}[true]{%
   \AtBeginDocument{\luadirect{al_openstream()}%
-    \MkArbBreak{@al@ob,@al@cb}}
+    \MkArbBreak{@al@ob,@al@cb,@al@cb@sp}}
   \AtEndDocument{\luadirect{al_closestream()}}
 }
 \ExecuteOptionsX{voc}
@@ -4445,20 +4445,16 @@ wa-ya.sIru ta.hta 'l-jild-i
 %   typesetting Arabic poetry} The |arabverse| environment may receive
 %   different options: |mode|, |width|, |gutter|, |metre|, |color|,
 %   |utf| and |delim|; all of them are defined here just before the
-%   |arabverse| environment. \changes{v1.13}{2018/07/30}{New command
-%   \cs{arbmetre}}\cs{arbmetre} does nothing. It takes the metre as
-%   argument so that it can be distinguished from the last \cs{bayt}
-%   command. \changes{v1.13}{2018/08/06}{New option \texttt{color} to
-%   \texttt{arabverse} environment.}
+%   |arabverse| environment. \changes{v1.13}{2018/08/06}{New option
+%   \texttt{color} to \texttt{arabverse} environment.}
 %    \begin{macrocode}
-\NewDocumentCommand{\arbmetre}{m}{#1}
 \newlength{\al@bayt@width}
 \newlength{\al@gutter@width}
 \setlength{\al@bayt@width}{.3\textwidth}
 \setlength{\al@gutter@width}{.15\al@bayt@width}
 \define@key[al]{verse}{width}{\setlength{\al@bayt@width}{#1}}
 \define@key[al]{verse}{gutter}{\setlength{\al@gutter@width}{#1}}
-\define@key[al]{verse}{metre}{\arb{\arbmetre{#1}}}
+\define@key[al]{verse}{metre}{\arb{#1}}
 \define@key[al]{verse}{color}[]{\color{#1}}
 \define@boolkey[al]{verse}{utf}[true]{}
 \define@boolkey[al]{verse}{delim}[true]{}
@@ -4664,9 +4660,12 @@ wa-ya.sIru ta.hta 'l-jild-i
 % |newline| as an optional argument in which case a carriage return is
 % appended to |string|.
 %    \begin{macrocode}
-\NewDocumentCommand{\ArbOutFile}{O{no} +m}{%
+\NewDocumentCommand{\ArbOutFile}{s O{no} +m}{%
   \if@pkg@export%
-  \luadirect{tooutfile(\luastringN{#2}, "#1")}\else\fi}
+  \IfBooleanTF{#1}{%
+    #3\luadirect{tooutfile(\luastringN{#3}, "#2")}}{%
+    \luadirect{tooutfile(\luastringN{#3}, "#2")}}%
+  \else\IfBooleanTF{#1}{#3}{}\fi}
 %    \end{macrocode}
 % \end{macro}
 % \begin{environment}{arabexport}
-- 
cgit v1.2.3

