aboutsummaryrefslogtreecommitdiff
path: root/arabluatex.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'arabluatex.dtx')
-rw-r--r--arabluatex.dtx14
1 files changed, 9 insertions, 5 deletions
diff --git a/arabluatex.dtx b/arabluatex.dtx
index 53fcc5a..78e8832 100644
--- a/arabluatex.dtx
+++ b/arabluatex.dtx
@@ -2973,8 +2973,11 @@ wa-ya.sIru ta.hta 'l-jild-i
2973% are defined here just before the environment |arabverse|: 2973% are defined here just before the environment |arabverse|:
2974% \begin{macrocode} 2974% \begin{macrocode}
2975\newlength{\al@bayt@width} 2975\newlength{\al@bayt@width}
2976\newlength{\al@tadwir@width}
2976\setlength{\al@bayt@width}{.3\textwidth} 2977\setlength{\al@bayt@width}{.3\textwidth}
2978\setlength{\al@tadwir@width}{.15\al@bayt@width}
2977\define@key[al]{verse}{width}{\setlength{\al@bayt@width}{#1}} 2979\define@key[al]{verse}{width}{\setlength{\al@bayt@width}{#1}}
2980\define@key[al]{verse}{tadwirwidth}{\setlength{\al@tadwir@width}{#1}}
2978\define@key[al]{verse}{metre}{\arb{#1}} 2981\define@key[al]{verse}{metre}{\arb{#1}}
2979\define@boolkey[al]{verse}{utf}[true]{} 2982\define@boolkey[al]{verse}{utf}[true]{}
2980\define@choicekey[al]{verse}{mode}{fullvoc, voc, novoc, 2983\define@choicekey[al]{verse}{mode}{fullvoc, voc, novoc,
@@ -2989,7 +2992,7 @@ wa-ya.sIru ta.hta 'l-jild-i
2989 \ifx\al@mode\al@mode@trans% 2992 \ifx\al@mode\al@mode@trans%
2990 \ifal@verse@utf\setRL\else\setLR\fi% 2993 \ifal@verse@utf\setRL\else\setLR\fi%
2991 \else\setRL\fi}% 2994 \else\setRL\fi}%
2992{\hfill\setkeys[al]{verse}[width,utf,mode]{#1}\egroup} 2995{\hfill\setkeys[al]{verse}[width,tadwirwidth,utf,mode]{#1}\egroup}
2993% \end{macrocode} 2996% \end{macrocode}
2994% \begin{macro}{\bayt} 2997% \begin{macro}{\bayt}
2995% \changes{v1.6}{2016/11/30}{New macro \cs{bayt} for typesetting 2998% \changes{v1.6}{2016/11/30}{New macro \cs{bayt} for typesetting
@@ -3018,17 +3021,18 @@ wa-ya.sIru ta.hta 'l-jild-i
3018 \edef\al@tatweel{--}% 3021 \edef\al@tatweel{--}%
3019 \adjustbox{width=\al@bayt@width, height=\Height}{\arb{#1}}% 3022 \adjustbox{width=\al@bayt@width, height=\Height}{\arb{#1}}%
3020 \IfNoValueTF{#2}{% 3023 \IfNoValueTF{#2}{%
3021 \hspace{.15\al@bayt@width}% 3024 \hspace{\al@tadwir@width}%
3022 }{% 3025 }{%
3023 \edef\@tempa{#2}% 3026 \edef\@tempa{#2}%
3024 \ifx\@tempa\al@tatweel% 3027 \ifx\@tempa\al@tatweel%
3025 \ifx\al@mode\al@mode@trans% 3028 \ifx\al@mode\al@mode@trans%
3026 \hspace{.15\al@bayt@width}% 3029 \hspace{\al@tadwir@width}%
3027 \else% 3030 \else%
3028 \adjustbox{width=.15\al@bayt@width, height=\Height}{\arb{--}}% 3031 % \adjustbox{width=\al@tadwir@width, height=\Height}{\arb{--}}%
3032 \makebox[\al@tadwir@width][s]{\al@verse@stroke}%
3029 \fi% 3033 \fi%
3030 \else% 3034 \else%
3031 \adjustbox{center=.15\al@bayt@width, height=\Height}{\arb{#2}} 3035 \adjustbox{center=\al@tadwir@width, height=\Height}{\arb{#2}}
3032 \fi}% 3036 \fi}%
3033 \adjustbox{width=\al@bayt@width, height=\Height}{\arb{#3}}% 3037 \adjustbox{width=\al@bayt@width, height=\Height}{\arb{#3}}%
3034} 3038}