diff options
-rw-r--r-- | arabluatex.dtx | 14 |
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 | } |