1
2
3
4
5
6
7
8
9
10
11
12
13
14\writestatus { loading }{ ConTeXt Node Support Splitters }
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75\registerctxluafile { font sol }{}
76
77\unprotect
78
79\definesystemattribute [ splitter ][ public ]
80
81\installcorenamespace { fontsolution }
82
83\installcommandhandler \??fontsolution { fontsolution } \??fontsolution
84
85\let \setupfontsolutions \setupfontsolution
86
87\appendtoks
88 \clf_definefontsolution
89 { \currentfontsolution }
90 {
91 goodies { \fontsolutionparameter \s!goodies }
92 solution { \fontsolutionparameter \c!solution }
93 less { \fontsolutionparameter \c!less }
94 more { \fontsolutionparameter \c!more }
95 }
96 \relax
97\to \everydefinefontsolution
98
99\unexpanded \def \setfontsolution [# solution ]
100 { \edef \currentfontsolution { # solution }
101 \clf_setfontsolution
102 { \currentfontsolution }
103 {
104 method { \fontsolutionparameter \c!method }
105 criterium { \fontsolutionparameter \c!criterium }
106
107 }
108 \relax }
109
110\unexpanded \def \resetfontsolution
111 { \clf_resetfontsolution
112 \let \currentfontsolution \empty }
113
114\unexpanded \def \startfontsolution
115 { \pushmacro \currentfontsolution
116 \setfontsolution }
117
118\unexpanded \def \stopfontsolution
119 { \ifhmode \par\fi
120 \clf_stopfontsolution
121 \popmacro \currentfontsolution }
122
123
124
125
126
127
128
129\protect
130 |