diff options
-rw-r--r-- | arabluatex.dtx | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/arabluatex.dtx b/arabluatex.dtx index 091ceb7..a2a61cd 100644 --- a/arabluatex.dtx +++ b/arabluatex.dtx | |||
@@ -4059,7 +4059,7 @@ wa-ya.sIru ta.hta 'l-jild-i | |||
4059 | \DeclareOptionX{trans}{\def\al@mode{trans}} | 4059 | \DeclareOptionX{trans}{\def\al@mode{trans}} |
4060 | \define@boolkey{arabluatex.sty}[@pkg@]{export}[true]{% | 4060 | \define@boolkey{arabluatex.sty}[@pkg@]{export}[true]{% |
4061 | \AtBeginDocument{\luadirect{al_openstream()}% | 4061 | \AtBeginDocument{\luadirect{al_openstream()}% |
4062 | \MkArbBreak{@al@ob,@al@cb}} | 4062 | \MkArbBreak{@al@ob,@al@cb,@al@cb@sp}} |
4063 | \AtEndDocument{\luadirect{al_closestream()}} | 4063 | \AtEndDocument{\luadirect{al_closestream()}} |
4064 | } | 4064 | } |
4065 | \ExecuteOptionsX{voc} | 4065 | \ExecuteOptionsX{voc} |
@@ -4445,20 +4445,16 @@ wa-ya.sIru ta.hta 'l-jild-i | |||
4445 | % typesetting Arabic poetry} The |arabverse| environment may receive | 4445 | % typesetting Arabic poetry} The |arabverse| environment may receive |
4446 | % different options: |mode|, |width|, |gutter|, |metre|, |color|, | 4446 | % different options: |mode|, |width|, |gutter|, |metre|, |color|, |
4447 | % |utf| and |delim|; all of them are defined here just before the | 4447 | % |utf| and |delim|; all of them are defined here just before the |
4448 | % |arabverse| environment. \changes{v1.13}{2018/07/30}{New command | 4448 | % |arabverse| environment. \changes{v1.13}{2018/08/06}{New option |
4449 | % \cs{arbmetre}}\cs{arbmetre} does nothing. It takes the metre as | 4449 | % \texttt{color} to \texttt{arabverse} environment.} |
4450 | % argument so that it can be distinguished from the last \cs{bayt} | ||
4451 | % command. \changes{v1.13}{2018/08/06}{New option \texttt{color} to | ||
4452 | % \texttt{arabverse} environment.} | ||
4453 | % \begin{macrocode} | 4450 | % \begin{macrocode} |
4454 | \NewDocumentCommand{\arbmetre}{m}{#1} | ||
4455 | \newlength{\al@bayt@width} | 4451 | \newlength{\al@bayt@width} |
4456 | \newlength{\al@gutter@width} | 4452 | \newlength{\al@gutter@width} |
4457 | \setlength{\al@bayt@width}{.3\textwidth} | 4453 | \setlength{\al@bayt@width}{.3\textwidth} |
4458 | \setlength{\al@gutter@width}{.15\al@bayt@width} | 4454 | \setlength{\al@gutter@width}{.15\al@bayt@width} |
4459 | \define@key[al]{verse}{width}{\setlength{\al@bayt@width}{#1}} | 4455 | \define@key[al]{verse}{width}{\setlength{\al@bayt@width}{#1}} |
4460 | \define@key[al]{verse}{gutter}{\setlength{\al@gutter@width}{#1}} | 4456 | \define@key[al]{verse}{gutter}{\setlength{\al@gutter@width}{#1}} |
4461 | \define@key[al]{verse}{metre}{\arb{\arbmetre{#1}}} | 4457 | \define@key[al]{verse}{metre}{\arb{#1}} |
4462 | \define@key[al]{verse}{color}[]{\color{#1}} | 4458 | \define@key[al]{verse}{color}[]{\color{#1}} |
4463 | \define@boolkey[al]{verse}{utf}[true]{} | 4459 | \define@boolkey[al]{verse}{utf}[true]{} |
4464 | \define@boolkey[al]{verse}{delim}[true]{} | 4460 | \define@boolkey[al]{verse}{delim}[true]{} |
@@ -4664,9 +4660,12 @@ wa-ya.sIru ta.hta 'l-jild-i | |||
4664 | % |newline| as an optional argument in which case a carriage return is | 4660 | % |newline| as an optional argument in which case a carriage return is |
4665 | % appended to |string|. | 4661 | % appended to |string|. |
4666 | % \begin{macrocode} | 4662 | % \begin{macrocode} |
4667 | \NewDocumentCommand{\ArbOutFile}{O{no} +m}{% | 4663 | \NewDocumentCommand{\ArbOutFile}{s O{no} +m}{% |
4668 | \if@pkg@export% | 4664 | \if@pkg@export% |
4669 | \luadirect{tooutfile(\luastringN{#2}, "#1")}\else\fi} | 4665 | \IfBooleanTF{#1}{% |
4666 | #3\luadirect{tooutfile(\luastringN{#3}, "#2")}}{% | ||
4667 | \luadirect{tooutfile(\luastringN{#3}, "#2")}}% | ||
4668 | \else\IfBooleanTF{#1}{#3}{}\fi} | ||
4670 | % \end{macrocode} | 4669 | % \end{macrocode} |
4671 | % \end{macro} | 4670 | % \end{macro} |
4672 | % \begin{environment}{arabexport} | 4671 | % \begin{environment}{arabexport} |