[macros] In \ucode, align size of digits and letters (#5211)

* [macros] In \ucode, improve sizes of digits and letters.

We do this by typesetting letters in small-caps of the body font,
and digits using the font "smaller by 1 step" (e.g. 10pt -> 8pt).
This combination seems to look perfectly harmonious for
normal body text and notes.

This works around the absence of "small-caps sized lining numerals"
in Latin Modern. The fact that LMR has separate optical sizes for the
size range in question makes this combination work well.

Author: jensmaurer

source/macros.tex

@@ -360,7 +360,37 @@
 \renewcommand{\fref}[1]{\hyperref[fig:#1]{\figurerefname \nolinebreak[3] \ref*{fig:#1}}}
 
 %% NTBS, etc.
-\newcommand{\ucode}[1]{\textsc{u}\textsmaller[1.5]{\kern-0.05em\protect\raisebox{.25ex}{\textsmaller[1]{+}}\uppercase{#1}}}
+\verbtocs{\StrTextsmaller}|\textsmaller[1]{|
+\verbtocs{\StrTextsc}|\textsc{|
+\verbtocs{\StrClosingbrace}|}|
+\newcommand{\ucode}[1]{%
+  \textsc{u}%
+  \textsmaller[2]{\kern-0.05em\protect\raisebox{.25ex}{+}}%
+  \begingroup%
+  \def\temp{#1}%
+  \StrSubstitute{\temp}{0}{X0Z}[\temp]%
+  \StrSubstitute{\temp}{1}{X1Z}[\temp]%
+  \StrSubstitute{\temp}{2}{X2Z}[\temp]%
+  \StrSubstitute{\temp}{3}{X3Z}[\temp]%
+  \StrSubstitute{\temp}{4}{X4Z}[\temp]%
+  \StrSubstitute{\temp}{5}{X5Z}[\temp]%
+  \StrSubstitute{\temp}{6}{X6Z}[\temp]%
+  \StrSubstitute{\temp}{7}{X7Z}[\temp]%
+  \StrSubstitute{\temp}{8}{X8Z}[\temp]%
+  \StrSubstitute{\temp}{9}{X9Z}[\temp]%
+  \StrSubstitute{\temp}{a}{YaZ}[\temp]%
+  \StrSubstitute{\temp}{b}{YbZ}[\temp]%
+  \StrSubstitute{\temp}{c}{YcZ}[\temp]%
+  \StrSubstitute{\temp}{d}{YdZ}[\temp]%
+  \StrSubstitute{\temp}{e}{YeZ}[\temp]%
+  \StrSubstitute{\temp}{f}{YfZ}[\temp]%
+  \StrSubstitute{\temp}{X}{\StrTextsmaller}[\temp]%
+  \StrSubstitute{\temp}{Y}{\StrTextsc}[\temp]%
+  \StrSubstitute{\temp}{Z}{\StrClosingbrace}[\temp]%
+  \tokenize\temp{\temp}%
+  \temp%
+  \endgroup%
+}
 \newcommand{\uname}[1]{\textsc{#1}}
 \newcommand{\unicode}[2]{\ucode{#1} \uname{#2}}
 \newcommand{\NTS}[1]{\textsc{#1}}

source/std.tex

@@ -47,6 +47,7 @@
 \usepackage[active,header=false,handles=false,copydocumentclass=false,generate=std-gram.ext,extract-cmdline={gramSec},extract-env={bnf,simplebnf}]{extract} % Grammar extraction
 \usepackage{expl3}
 \usepackage{xparse}
+\usepackage{xstring}
 
 \pdfminorversion=5
 \pdfcompresslevel=9