From d4299f53e1abe77ba50210f2345ccfcb33abf79c Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Wed, 7 Dec 2016 17:21:54 +0100
Subject: =?UTF-8?q?rules=20related=20to=20punctuation=20characters=20at=20?=
 =?UTF-8?q?word=20boundaries=20needed=20much=20more=20work=20(see=20'--p'?=
 =?UTF-8?q?=20tag);=20new=20rules=20for=20the=20resolution=20of=20the=20di?=
 =?UTF-8?q?phthong=20in=20=CA=BEaw=20and=20law?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 arabluatex.dtx | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'arabluatex.dtx')

diff --git a/arabluatex.dtx b/arabluatex.dtx
index 7128adf..c1633da 100644
--- a/arabluatex.dtx
+++ b/arabluatex.dtx
@@ -2973,17 +2973,20 @@ wa-ya.sIru ta.hta 'l-jild-i
 \newlength{\al@bayt@width}
 \setlength{\al@bayt@width}{.3\textwidth}
 \define@key[al]{verse}{width}{\setlength{\al@bayt@width}{#1}}
-\define@key[al]{verse}{metre}{#1}
+\define@key[al]{verse}{metre}{\arb{#1}}
 \define@boolkey[al]{verse}{utf}[true]{}
 \define@choicekey[al]{verse}{mode}{fullvoc, voc, novoc,
   trans}{\def\al@mode{#1}}
 \presetkeys[al]{verse}{utf=false}{}
 \NewDocumentEnvironment{arbverse}{O{} O{}}%
-{\par\bgroup\setkeys[al]{verse}[metre]{#1}%
+{\bgroup\setkeys[al]{verse}[metre]{#1}%
   \ifx\al@mode\al@mode@trans%
   \ifal@verse@utf\setRL\else\setLR\fi%
   \else\setRL\fi%
-}{\newline\null\hfill\setkeys[al]{verse}[width,utf,mode]{#1}\egroup\par}
+  \begin{center}
+}%
+{\end{center}%
+\hfill\setkeys[al]{verse}[width,utf,mode]{#1}\egroup\par}
 %    \end{macrocode}
 % \end{environment}
 % \begin{macro}{\abjad} \cs{abjad}\marg{number} expresses its argument
-- 
cgit v1.2.3

