[tex4ht-commits] [SCM] tex4ht updated: r589 - trunk/lit

[michal_h21 at gnu.org.ua]

Author: michal_h21
Date: 2019-07-10 17:20:57 +0300 (Wed, 10 Jul 2019)
New Revision: 589

Modified:
   trunk/lit/ChangeLog
   trunk/lit/tex4ht-4ht.tex
Log:
Added support for the \arabicdigits command

Modified: trunk/lit/ChangeLog
===================================================================
--- trunk/lit/ChangeLog	2019-07-06 15:03:07 UTC (rev 588)
+++ trunk/lit/ChangeLog	2019-07-10 14:20:57 UTC (rev 589)
@@ -1,3 +1,9 @@
+2019-07-10  Michal Hoftich  <michal.h21 at gmail.com>
+
+	* tex4ht-4ht.tex (babel.4ht,polyglossia.4ht): added support for the
+	\arabicdigits macro.
+	https://tex.stackexchange.com/q/495709/2891
+
 2019-07-06  Michal Hoftich  <michal.h21 at gmail.com>
 
 	* tex4ht-4ht.tex (titling.4ht): added basic support for the titling package.

Modified: trunk/lit/tex4ht-4ht.tex
===================================================================
--- trunk/lit/tex4ht-4ht.tex	2019-07-06 15:03:07 UTC (rev 588)
+++ trunk/lit/tex4ht-4ht.tex	2019-07-10 14:20:57 UTC (rev 589)
@@ -3730,6 +3730,7 @@
 % Copyright 2019 TeX Users Group
 |<TeX4ht license text|>
 \NewConfigure{PolyglossiaRtl}{2}
+|<arabic digits|>
 \Hinput{polyglossia}
 \endinput
 >>> \AddFile{9}{polyglossia}
@@ -22214,6 +22215,7 @@
 \def\:temp#1{{\leavevmode #1}}
 \HLet\save at sf@q|=\:temp
 |<set at low@box|>
+|<arabic digits|>
 >>>
 
 \<set at low@box\><<<
@@ -22230,6 +22232,19 @@
 % \expandafter\def\csname glqq \endcsname{\HCode{&\#132;}}
 % \expandafter\def\csname glq \endcsname{\HCode{&\#130;}}
 
+% this command will convert normal numbers to arabic
+% it fixes both babel and polyglossia version
+% Unicode block for Arabic numerals starts at U+0660
+% the following special command inserts the XML entity
+% for the number, which will be converted to Unicode char
+% by tex4ht
+\<arabic digits\><<<
+\def\arabic:loopoverdigits#1{\ifx\relax#1\else%
+\special{t4ht at +&{35}x066#1{59}}x%
+\expandafter\arabic:loopoverdigits\fi}
+\def\arabicdigits#1{\arabic:loopoverdigits#1\relax}
+>>>
+
 \<robust babel\><<<
 \def\@newl at bel#1#2{{\:SUBOff\:SUPOff \@safe at activestrue 
    \xdef\:temp{\noexpand\n:wlbl{#1}{#2}}}\:temp }