1
2
3
4
5
6
7
8
9
10
11
12
13
14\writestatus{loading}{ConTeXt Typesetting Macros Italics Corrections}
15
16\unprotect
17
18
19
20
21
22
23
24
25\registerctxluafile{typoitc}{autosuffix}
26
27\installcorenamespace{italics}
28
29\def\typo_italic_set#1
30 {\bitwiseflip\glyphoptions \textcheckitalicglyphoptioncode
31 \bitwiseflip\discretionaryoptions\textcheckitalicdiscoptioncode
32 \clf_setitaliccorrection{#1}}
33
34\def\typo_italic_reset
35 {\bitwiseflip\glyphoptions \textcheckitalicglyphoptioncode
36 \bitwiseflip\discretionaryoptions\textcheckitalicdiscoptioncode}
37
38\permanent\tolerant\protected\def\setitaliccorrection[#1]
39 {\ifcstok{#1}\v!reset
40 \typo_italic_reset
41 \orelse\ifcsname\??italics#1\endcsname
42 \expandafter\typo_italic_set\expandafter{\lastnamedcs}
43 \fi}
44
45\defcsname\??italics\v!yes \endcsname{0}
46\defcsname\??italics\v!small \endcsname{0.1}
47\defcsname\??italics\v!medium\endcsname{0.2}
48\defcsname\??italics\v!big \endcsname{0.3}
49
50\permanent\protected\def\resetitaliccorrection
51 {\typo_italic_reset}
52
53\permanent\protected\def\setupitaliccorrection
54 {\setitaliccorrection}
55
56\permanent\protected\def\italiccorrection
57 {\ifbitwiseand\glyphoptions\textcheckitalicglyphoptioncode\else
58 \normalitaliccorrection
59 \fi}
60
61\pushoverloadmode
62 \aliased\let\/\italiccorrection
63
64\popoverloadmode
65
66
67
68\permanent\protected\def\pushitaliccorrection{}
69\permanent\protected\def\popitaliccorrection {}
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86\installcorenamespace{shapecorrection}
87
88\defcsname\??shapecorrection\v!left \endcsname{\groupedcommandcs\forcedleftcorrection\relax}
89\defcsname\??shapecorrection\v!right\endcsname{\groupedcommandcs\relax \forcedrightcorrection}
90\defcsname\??shapecorrection\v!both \endcsname{\groupedcommandcs\forcedleftcorrection\forcedrightcorrection}
91\defcsname\??shapecorrection \endcsname{\groupedcommandcs\relax \forcedrightcorrection}
92
93\permanent\tolerant\protected\def\shapecorrection[#1]{\begincsname\??shapecorrection#1\endcsname}
94
95\protect \endinput
96 |