added a 'starred' version of \SetArbEasy which further takes away the automatically generated sukūn

1 files changed, 30 insertions, 9 deletions

diff --git a/arabluatex.dtx b/arabluatex.dtx
index ff52e80..2d6eb13 100644
--- a/arabluatex.dtx
+++ b/arabluatex.dtx
@@ -198,7 +198,7 @@
 %</driver>
 % \fi
 %
-% \CheckSum{376}
+% \CheckSum{0}
 %
 % \CharacterTable
 %  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
@@ -510,12 +510,16 @@
 % \item In |fullvoc| mode, the \arb[trans]{sukUn} is expressed.
 % \end{compactitem}
 % 
-% \DescribeMacro{\SetArbEasy} \DescribeMacro{\SetArbDflt} Such
+% \DescribeMacro{\SetArbEasy} \NEWfeature{v1.4.4}
+% \DescribeMacro{\SetArbEasy*} \DescribeMacro{\SetArbDflt} Such
 % refinements may be discarded by the command \cs{SetArbEasy}, either
 % globally in the preamble or locally at any point of the
-% document. Default \enquote*{classic} rules may be set back at any
-% point of the document with the command \cs{SetArbDflt}. Examples
-% follow:---
+% document. The difference between \cs{SetArbEasy} and its
+% \enquote*{starred} version \cs{SetArbEasy*} is that the former keeps
+% the \arb[trans]{sukUn} that is generated by the |fullvoc| mode,
+% while the latter further takes it away. Default \enquote*{classic}
+% rules may be set back at any point of the document with the command
+% \cs{SetArbDflt}. Examples follow:---
 % \begin{compactenum}[(a)]
 % \item \cs{SetArbDflt}:
 %   \begin{compactenum}[i.]
@@ -535,6 +539,15 @@
 %   \item |trans| \arb[trans]{wa-mAta istisqA'aN qabla 'an yutimma
 %     kitAba-hu fI nujUm-i 'l-samA'-i}\SetArbDflt
 %   \end{compactenum}   
+% \item \cs{SetArbEasy*}:
+%   \begin{compactenum}[i.]\SetArbEasy*
+%   \item |voc| \arb[voc]{wa-mAta istisqA'aN qabla 'an yutimma
+%     kitAba-hu fI nujUm-i 'l-samA'-i}
+%   \item |fullvoc| \arb[fullvoc]{wa-mAta istisqA'aN qabla 'an yutimma
+%     kitAba-hu fI nujUm-i 'l-samA'-i}
+%   \item |trans| \arb[trans]{wa-mAta istisqA'aN qabla 'an yutimma
+%     kitAba-hu fI nujUm-i 'l-samA'-i}\SetArbDflt
+%   \end{compactenum}   
 % \end{compactenum}
 %
 % \iffalse
@@ -2494,20 +2507,29 @@ wa-ya.sIru ta.hta 'l-jild-i
 % \begin{macro}{\SetArbEasy}
 %   \changes{v1.2}{2016/05/09}{New \cs{SetArbEasy}/\cs{SetArbDflt} for
 %   \enquote*{modern} or \enquote*{classic} Arabic styles.}
+% \begin{macro}{\SetArbEasy*}
+%   \changes{v1.4.4}{2016/09/28}{this starred version discards the
+%   \arb[trans]{sukUn} in addition to what is already discarded by
+%   \cs{SetArbEasy}.}
 % \begin{macro}{\SetArbDflt}
 %   By default, \package{arabluatex} applies complex rules to generate
 %   euphonic \arb[trans]{ta^sdId}, \arb[trans]{'alif mamdUdaT} and
 %   \arb[trans]{sukUn} depending on the modes which are selected,
 %   either |voc|, |fullvoc| or |trans|. Such refinements can be
 %   discarded with \cs{SetArbEasy}, either globally in the preamble or
-%   at any point of the document. Default complex rules can be set
+%   at any point of the document. Note that \cs{SetArbEasy} keeps the
+%   \arb[trans]{sukUn} that is generated, while the starred version
+%   \cs{SetArbEasy*} takes it away. Default complex rules can be set
 %   back at any point of the document with \cs{SetArbDflt}.
 %    \begin{macrocode}
-\def\al@arb@rules{dflt}
-\NewDocumentCommand{\SetArbEasy}{}{\def\al@arb@rules{easy}}
+\def\al@arb@rules{dflt} \NewDocumentCommand{\SetArbEasy}{s}{%
+  \IfBooleanTF{#1} {\def\al@arb@rules{easynosukun}}
+  {\def\al@arb@rules{easy}}}
 \NewDocumentCommand{\SetArbDflt}{}{\def\al@arb@rules{dflt}}
 %    \end{macrocode}
 % \end{macro}
+% \end{macro}
+% \end{macro}
 % \begin{macro}{\SetTranslitFont}
 %   \changes{v1.4}{2016/07/05}{For selecting a specific font for
 %   transliterated texts} By default, the font that is used for
@@ -2519,7 +2541,6 @@ wa-ya.sIru ta.hta 'l-jild-i
 \NewDocumentCommand{\SetTranslitFont}{m}{\def\al@trans@font{#1}}
 %    \end{macrocode}
 % \end{macro}
-% \end{macro}
 % \begin{macro}{\SetTranslitStyle} By default any transliterated
 %   Arabic text is printed in italics. This can be changed either
 %   globally in the preamble or at any point of the document: