diff options
Diffstat (limited to 'arabluatex.dtx')
-rw-r--r-- | arabluatex.dtx | 9 |
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 | |||
2973 | \newlength{\al@bayt@width} | 2973 | \newlength{\al@bayt@width} |
2974 | \setlength{\al@bayt@width}{.3\textwidth} | 2974 | \setlength{\al@bayt@width}{.3\textwidth} |
2975 | \define@key[al]{verse}{width}{\setlength{\al@bayt@width}{#1}} | 2975 | \define@key[al]{verse}{width}{\setlength{\al@bayt@width}{#1}} |
2976 | \define@key[al]{verse}{metre}{#1} | 2976 | \define@key[al]{verse}{metre}{\arb{#1}} |
2977 | \define@boolkey[al]{verse}{utf}[true]{} | 2977 | \define@boolkey[al]{verse}{utf}[true]{} |
2978 | \define@choicekey[al]{verse}{mode}{fullvoc, voc, novoc, | 2978 | \define@choicekey[al]{verse}{mode}{fullvoc, voc, novoc, |
2979 | trans}{\def\al@mode{#1}} | 2979 | trans}{\def\al@mode{#1}} |
2980 | \presetkeys[al]{verse}{utf=false}{} | 2980 | \presetkeys[al]{verse}{utf=false}{} |
2981 | \NewDocumentEnvironment{arbverse}{O{} O{}}% | 2981 | \NewDocumentEnvironment{arbverse}{O{} O{}}% |
2982 | {\par\bgroup\setkeys[al]{verse}[metre]{#1}% | 2982 | {\bgroup\setkeys[al]{verse}[metre]{#1}% |
2983 | \ifx\al@mode\al@mode@trans% | 2983 | \ifx\al@mode\al@mode@trans% |
2984 | \ifal@verse@utf\setRL\else\setLR\fi% | 2984 | \ifal@verse@utf\setRL\else\setLR\fi% |
2985 | \else\setRL\fi% | 2985 | \else\setRL\fi% |
2986 | }{\newline\null\hfill\setkeys[al]{verse}[width,utf,mode]{#1}\egroup\par} | 2986 | \begin{center} |
2987 | }% | ||
2988 | {\end{center}% | ||
2989 | \hfill\setkeys[al]{verse}[width,utf,mode]{#1}\egroup\par} | ||
2987 | % \end{macrocode} | 2990 | % \end{macrocode} |
2988 | % \end{environment} | 2991 | % \end{environment} |
2989 | % \begin{macro}{\abjad} \cs{abjad}\marg{number} expresses its argument | 2992 | % \begin{macro}{\abjad} \cs{abjad}\marg{number} expresses its argument |