rules related to punctuation characters at word boundaries needed much more work (see '--p' tag); new rules for the resolution of the diphthong in ʾaw and law

1 files changed, 6 insertions, 3 deletions

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