first implementation of \arbup viz. superscript tanwīn in |dmg| mode

1 files changed, 18 insertions, 2 deletions

diff --git a/arabluatex.dtx b/arabluatex.dtx
index 995be49..2e3dc7e 100644
--- a/arabluatex.dtx
+++ b/arabluatex.dtx
@@ -2144,8 +2144,8 @@ wa-ya.sIru ta.hta 'l-jildi
 % \end{macro}
 % \end{macro}
 % \begin{macro}{\SetTranslitStyle} By default any transliterated
-% Arabic text is printed in italics. This can be changed globally in
-% the preamble or at any point of the document:
+%   Arabic text is printed in italics. This can be changed either
+%   globally in the preamble or at any point of the document:
 %    \begin{macrocode}
 \def\al@trans@style{\itshape}%
 \NewDocumentCommand{\SetTranslitStyle}{m}{\def\al@trans@style{#1}}
@@ -2159,6 +2159,22 @@ wa-ya.sIru ta.hta 'l-jildi
 \NewDocumentCommand{\SetTranslitConvention}{m}{\def\al@trans@convention{#1}}
 %    \end{macrocode}
 % \end{macro}
+% \begin{macro}{\arbup}
+% \begin{macro}{\SetArbUp}
+%   By default, \cs{arbup} is set to \cs{textsuperscript}. This is how
+%   the \arb[trans]{tanwIn} that takes place at the end of a word
+%   should be displayed in |dmg| mode. \cs{SetArbUp} may be used
+%   either in the preamble or at any point of the document to change
+%   the default definition.
+%    \begin{macrocode}
+\NewDocumentCommand{\al@arbup@dflt}{m}{\textsuperscript{\thinspace#1}}%
+\NewDocumentCommand{\al@arbup}{m}{\al@arbup@dflt{#1}}
+\NewDocumentCommand{\arbup}{m}{\al@arbup{#1}}
+\NewDocumentCommand{\ArbUpDflt}{}{\let\al@arbup=\al@arbup@dflt}
+\NewDocumentCommand{\NoArbUp}{}{\RenewDocumentCommand{\al@arbup}{m}{##1}}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
 % \begin{macro}{\cap} Proper Arabic names or book titles should be
 % passed to the command \cs{cap} so that they have their first letters
 % uppercased. \cs{cap} is actually coded in Lua.