diff options
author | Hans Hagen <pragma@wxs.nl> | 2020-10-31 00:09:22 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2020-10-31 00:09:22 +0100 |
commit | 7043cd3b7046f6a11112a5d49c4ae5e2dc0c6896 (patch) | |
tree | 92ffcd258fb29e37b4a136eb071fbfd0717be29e /tex/context/base/mkiv/hand-ini.mkxl | |
parent | a0270f13065d116355a953c6f246cbba26289fc2 (diff) | |
download | context-7043cd3b7046f6a11112a5d49c4ae5e2dc0c6896.tar.gz |
2020-10-30 22:27:00
Diffstat (limited to 'tex/context/base/mkiv/hand-ini.mkxl')
-rw-r--r-- | tex/context/base/mkiv/hand-ini.mkxl | 38 |
1 files changed, 20 insertions, 18 deletions
diff --git a/tex/context/base/mkiv/hand-ini.mkxl b/tex/context/base/mkiv/hand-ini.mkxl index 9c291fed8..3fd82f239 100644 --- a/tex/context/base/mkiv/hand-ini.mkxl +++ b/tex/context/base/mkiv/hand-ini.mkxl @@ -37,26 +37,27 @@ \unprotect -%D New stuff. +%D Probbaly not yet used by many. -\unexpanded\def\setupfontexpansion {\dodoubleargument\font_expansion_setup } -\unexpanded\def\setupfontprotrusion{\dodoubleargument\font_protrusion_setup} - -\def\font_expansion_setup [#1][#2]{\clf_setupfontexpansion {#1}{#2}} -\def\font_protrusion_setup[#1][#2]{\clf_setupfontprotrusion{#1}{#2}} +\permanent\tolerant\protected\def\setupfontexpansion [#1]#*[#2]{\clf_setupfontexpansion {#1}{#2}} +\permanent\tolerant\protected\def\setupfontprotrusion[#1]#*[#2]{\clf_setupfontprotrusion{#1}{#2}} % \setupfontprotrusion[quality-upright][vector=quality] % \setupfontprotrusion[quality-slanted][vector=quality,right=1.5] -\let\adjustspacing\relax \newcount\adjustspacing % a little bit protection -\let\protrudechars\relax \newcount\protrudechars % a little bit protection +\pushoverloadmode + + \let\adjustspacing\relax \newcount\adjustspacing % a little bit protection + \let\protrudechars\relax \newcount\protrudechars % a little bit protection -% at some point we can introduce extreme expansion, i.e. \normaladjustspacing\plustwo +\popoverloadmode + +%D At some point we can introduce extreme expansion, i.e. \type {\normaladjustspacing\plustwo}. % 0 = disabled -% 1 = notused (thesis) +% 1 = notused (thesis) % 2 = glyph + kern -% 3 = glyph only +% 3 = glyph only (default) \def\font_expansion_enable {\normaladjustspacing\plusthree} \def\font_expansion_enable_k{\normaladjustspacing\plustwo} @@ -74,9 +75,9 @@ % % \let\fonthandling\empty % -% \unexpanded\def\startfonthandling #1{\fonthandlingerror\fonthandlingerror\gobbleuntil\stopfonthandling} % can't happen -% \unexpanded\def\definefonthandling {\dotripleempty\dodefinefonthandling} -% \unexpanded\def\setupfonthandling {\dodoubleempty\dosetupfonthandling } +% \protected\def\startfonthandling #1{\fonthandlingerror\fonthandlingerror\gobbleuntil\stopfonthandling} % can't happen +% \protected\def\definefonthandling {\dotripleempty\dodefinefonthandling} +% \protected\def\setupfonthandling {\dodoubleempty\dosetupfonthandling } % \def\dodefinefonthandling[#1][#2][#3]{\fonthandlingerror} % \def\dosetupfonthandling [#1][#2]{\fonthandlingerror} % \def\usehandling [#1]{\fonthandlingerror} @@ -102,10 +103,11 @@ % [\c!stretch=50, % \c!shrink=20] -\unexpanded\def\setexpansion - {\dosingleempty\font_expansion_set} +\permanent\tolerant\protected\def\setexpansion[#1]{\begincsname\??expansion:#1\endcsname} + +%D New in \LMTX: can be used grouped. -\unexpanded\def\font_expansion_set[#1]% - {\begincsname\??expansion:#1\endcsname} +\permanent\protected\def\noexpansion {\bitwiseflip\glyphoptions\noexpansioncode} +\permanent\protected\def\noprotrusion{\bitwiseflip\glyphoptions\noprotrusioncode} \protect \endinput |