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

[Michal Hoftich]

Author: michal_h21
Date: 2022-04-13 14:59:07 +0000 (Wed, 13 Apr 2022)
New Revision: 1110

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

Modified: trunk/lit/ChangeLog
===================================================================
--- trunk/lit/ChangeLog	2022-04-13 12:08:47 UTC (rev 1109)
+++ trunk/lit/ChangeLog	2022-04-13 14:59:07 UTC (rev 1110)
@@ -1,5 +1,6 @@
 2022-04-13  Michal Hoftich  <michal.h21 at gmail.com>
 
+	* tex4ht-4ht.tex (latex.4ht): added support for the \Ref command.
 	* tex4ht-4ht.tex (latex.4ht,nameref.4ht): added support for the
 	\ref* command.
 

Modified: trunk/lit/tex4ht-4ht.tex
===================================================================
--- trunk/lit/tex4ht-4ht.tex	2022-04-13 12:08:47 UTC (rev 1109)
+++ trunk/lit/tex4ht-4ht.tex	2022-04-13 14:59:07 UTC (rev 1110)
@@ -1496,6 +1496,22 @@
 \let\ref|=\:ref
 >>>
 
+
+Support for the \''\Ref' command. It is variant of \''\ref' that uppercases
+first letter of the referenced label.
+
+\<sub/sup in labels/refs\><<<
+\def\::Ref#1{%
+  \let\olda:rEfLiNK\rEfLiNK%%
+  \def\rEfLiNK##1##2{\Link{##1}{}\edef\:ref:currentlabel{##2}\expandafter\MakeUppercase\:ref:currentlabel\EndLink}%
+  \::ref{#1}%
+  \let\rEfLiNK\olda:rEfLiNK%
+}
+\def\:Ref{\@ifstar{\Protect\::Ref}{\Protect\::Ref}}
+\let\Ref\:Ref
+>>>
+
+
 Without the \'''\expandafter' we may get \''\RefArg' passed
  as the first argument to \''\T at arg',
 resulting in \''\def\RefArg{\RefArg}'.