summaryrefslogtreecommitdiff
path: root/macros/optex/base/f-heros.opm
diff options
context:
space:
mode:
Diffstat (limited to 'macros/optex/base/f-heros.opm')
-rw-r--r--macros/optex/base/f-heros.opm12
1 files changed, 10 insertions, 2 deletions
diff --git a/macros/optex/base/f-heros.opm b/macros/optex/base/f-heros.opm
index e7055d84f8..7848b7f9d2 100644
--- a/macros/optex/base/f-heros.opm
+++ b/macros/optex/base/f-heros.opm
@@ -23,7 +23,7 @@ Modifiers:^^J
\_loadmath {[FiraMath-Regular]}
\_addto\_normalmath{\_loadumathfamily 5 {xitsmath-regular}{} }
\_addto\_boldmath {\_loadumathfamily 5 {xitsmath-bold}{} }
- \_addto\frak{\_fam5 }\_addto\cal{\_fam5 }
+ \_addto\_frak{\_fam5 }\_addto\_cal{\_fam5 } \_public \frak \cal ;
\_normalmath
\_wterm{MATH-FONT(5): "[XITSMath-Regular/Bold]" -- used for \_string\cal, \_string\frak}
% \bf, \bi from FiraMath:
@@ -33,7 +33,15 @@ Modifiers:^^J
\_let\_bsansdigits=\_bfdigits
\_let\_bisansvariables=\_bivariables
\_let\_bisansgreek=\_bigreek
- \_Umathchardef \triangle "0 "5 "25B3 \_Umathcode "25B3 "0 "5 "25B3
+ % \_resetmathchars <fam-number> <list of \Umathchardef csnames> ;
+ \_def\_resetmathchars #1{\_chardef\_mafam=#1\_relax \_xargs \_resetmathcharX}
+ \_def\_resetmathcharX#1{\_ea\_resetmathcharY
+ \_directlua{tex.print(string.format("\_pcent08X", \_the#1))}#1}
+ \_def\_resetmathcharY#1#2#3#4#5#6#7#8#9{%
+ \_Umathchardef #9\_numexpr"#3/2\_relax \_mafam "#4#5#6#7#8
+ \_Umathcode "#4#5#6#7#8=\_numexpr"#3/2\_relax \_mafam "#4#5#6#7#8 }
+ \_resetmathchars 5 \bigtriangleup \bigblacktriangleup \blacktriangle
+ \vartriangle \smallblacktriangleright ; % ... etc. you can add more
\_fi
\_endcode