diff options
author | Robert Alessi <alessi@robertalessi.net> | 2018-08-22 16:16:30 +0200 |
---|---|---|
committer | Robert Alessi <alessi@robertalessi.net> | 2018-08-22 16:16:30 +0200 |
commit | 9d6f3f6650abdaaa832c82ff77b83c4a9a8f3401 (patch) | |
tree | 0d42e78ba87c4baec2ee4dff6007899f596df839 | |
parent | 9306cfa3f3607e69c244a8f963f441829ba5bb52 (diff) | |
download | arabluatex-9d6f3f6650abdaaa832c82ff77b83c4a9a8f3401.tar.gz |
arabtex2utf: append 'utf' option to arabverse environment depending on default settings
-rw-r--r-- | arabluatex.dtx | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/arabluatex.dtx b/arabluatex.dtx index 67d6545..6469ed3 100644 --- a/arabluatex.dtx +++ b/arabluatex.dtx | |||
@@ -4475,13 +4475,17 @@ wa-ya.sIru ta.hta 'l-jild-i | |||
4475 | % Then follows the environment itself: | 4475 | % Then follows the environment itself: |
4476 | % \begin{macrocode} | 4476 | % \begin{macrocode} |
4477 | \NewDocumentEnvironment{arabverse}{O{}}% | 4477 | \NewDocumentEnvironment{arabverse}{O{}}% |
4478 | {\bgroup\setkeys[al]{verse}[width, gutter, color, utf, delim, mode, | 4478 | {\bgroup\setkeys[al]{verse}[width, gutter, color, utf, delim, |
4479 | metre]{#1}% | 4479 | metre]{#1}% |
4480 | \if@pkg@export\ifal@verse@export% | 4480 | \if@pkg@export\ifal@verse@export% |
4481 | \ArbOutFile{\begin{arabverse}}% | 4481 | \ArbOutFile{\begin{arabverse}}% |
4482 | \ifx\al@mode\al@mode@trans% | ||
4483 | \luadirect{tooutfile(\luastringN{[#1]})}% | ||
4484 | \else% | ||
4482 | \IfSubStr[1]{#1}{utf}% | 4485 | \IfSubStr[1]{#1}{utf}% |
4483 | {\luadirect{tooutfile(\luastringN{[#1]})}}% | 4486 | {\luadirect{tooutfile(\luastringN{[#1]})}}% |
4484 | {\luadirect{tooutfile(\luastringN{[#1, utf]})}}% | 4487 | {\luadirect{tooutfile(\luastringN{[#1, utf]})}}% |
4488 | \fi | ||
4485 | \else\fi\else\fi\egroup% | 4489 | \else\fi\else\fi\egroup% |
4486 | \par\centering\noindent\bgroup\setkeys[al]{verse}[metre]{#1}% | 4490 | \par\centering\noindent\bgroup\setkeys[al]{verse}[metre]{#1}% |
4487 | \ifx\al@mode\al@mode@trans% | 4491 | \ifx\al@mode\al@mode@trans% |