task-ini.lua /size: 15 Kb    last modification: 2021-10-28 13:50
1
if
not
modules
then
modules
=
{
}
end
modules
[
'
task-ini
'
]
=
{
2
version
=
1
.
001
,
3
comment
=
"
companion to task-ini.mkiv
"
,
4
author
=
"
Hans Hagen, PRAGMA-ADE, Hasselt NL
"
,
5
copyright
=
"
PRAGMA ADE / ConTeXt Development Team
"
,
6
license
=
"
see context related readme files
"
7
}
8 9
-- this is a temporary solution, we need to isolate some modules and then
10
-- the load order can determine the trickery to be applied to node lists
11
--
12
-- we can disable more handlers and enable then when really used (*)
13
--
14
-- todo: two finalizers: real shipout (can be imposed page) and page shipout (individual page)
15
--
16
-- todo: consider moving the kernel kerning/ligaturing functions in the main font loop because
17
-- there we know if they are needed; doesn't save time but; if we overload unh* commands to
18
-- not apply the font handler, we can remove all checks for subtypes 255
19 20
local
tasks
=
nodes
.
tasks
21
local
appendaction
=
tasks
.
appendaction
22
local
disableaction
=
tasks
.
disableaction
23
local
enableaction
=
tasks
.
enableaction
24
local
freezegroup
=
tasks
.
freezegroup
25
local
freezecallbacks
=
callbacks
.
freeze
26 27
------------("processors", "before", "nodes.properties.attach", nil, "nut", "enabled" )
28 29
appendaction
(
"
processors
"
,
"
normalizers
"
,
"
typesetters.periodkerns.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
30
appendaction
(
"
processors
"
,
"
normalizers
"
,
"
languages.replacements.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
31
appendaction
(
"
processors
"
,
"
normalizers
"
,
"
typesetters.wrappers.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
32
appendaction
(
"
processors
"
,
"
normalizers
"
,
"
typesetters.characters.handler
"
,
nil
,
"
nut
"
,
"
enabled
"
)
33
appendaction
(
"
processors
"
,
"
normalizers
"
,
"
fonts.collections.process
"
,
nil
,
"
nut
"
,
"
disabled
"
)
34
appendaction
(
"
processors
"
,
"
normalizers
"
,
"
fonts.checkers.missing
"
,
nil
,
"
nut
"
,
"
disabled
"
)
35 36
appendaction
(
"
processors
"
,
"
characters
"
,
"
scripts.autofontfeature.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
37
appendaction
(
"
processors
"
,
"
characters
"
,
"
scripts.splitters.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
38
appendaction
(
"
processors
"
,
"
characters
"
,
"
typesetters.cleaners.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
39
appendaction
(
"
processors
"
,
"
characters
"
,
"
typesetters.directions.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
40
appendaction
(
"
processors
"
,
"
characters
"
,
"
typesetters.cases.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
41
appendaction
(
"
processors
"
,
"
characters
"
,
"
typesetters.breakpoints.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
42
appendaction
(
"
processors
"
,
"
characters
"
,
"
scripts.injectors.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
43 44
appendaction
(
"
processors
"
,
"
words
"
,
"
languages.words.check
"
,
nil
,
"
nut
"
,
"
disabled
"
)
45
appendaction
(
"
processors
"
,
"
words
"
,
"
languages.hyphenators.handler
"
,
nil
,
"
nut
"
,
"
enabled
"
)
46
appendaction
(
"
processors
"
,
"
words
"
,
"
typesetters.initials.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
47
appendaction
(
"
processors
"
,
"
words
"
,
"
typesetters.firstlines.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
48 49
appendaction
(
"
processors
"
,
"
fonts
"
,
"
builders.paragraphs.solutions.splitters.split
"
,
nil
,
"
nut
"
,
"
disabled
"
)
50
appendaction
(
"
processors
"
,
"
fonts
"
,
"
nodes.handlers.characters
"
,
nil
,
"
nut
"
,
"
enabled
"
)
51
appendaction
(
"
processors
"
,
"
fonts
"
,
"
nodes.injections.handler
"
,
nil
,
"
nut
"
,
"
enabled
"
)
52
appendaction
(
"
processors
"
,
"
fonts
"
,
"
typesetters.fontkerns.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
53
appendaction
(
"
processors
"
,
"
fonts
"
,
"
nodes.handlers.protectglyphs
"
,
nil
,
"
nonut
"
,
"
enabled
"
)
54
appendaction
(
"
processors
"
,
"
fonts
"
,
"
builders.kernel.ligaturing
"
,
nil
,
"
nut
"
,
"
disabled
"
)
55
appendaction
(
"
processors
"
,
"
fonts
"
,
"
builders.kernel.kerning
"
,
nil
,
"
nut
"
,
"
disabled
"
)
56
appendaction
(
"
processors
"
,
"
fonts
"
,
"
nodes.handlers.show
"
,
nil
,
"
nut
"
,
"
disabled
"
)
57
appendaction
(
"
processors
"
,
"
fonts
"
,
"
nodes.handlers.stripping
"
,
nil
,
"
nut
"
,
"
disabled
"
)
58
appendaction
(
"
processors
"
,
"
fonts
"
,
"
nodes.handlers.flatten
"
,
nil
,
"
nut
"
,
"
disabled
"
)
59
appendaction
(
"
processors
"
,
"
fonts
"
,
"
fonts.goodies.colorschemes.coloring
"
,
nil
,
"
nut
"
,
"
disabled
"
)
60 61
appendaction
(
"
processors
"
,
"
lists
"
,
"
typesetters.rubies.check
"
,
nil
,
"
nut
"
,
"
disabled
"
)
62
appendaction
(
"
processors
"
,
"
lists
"
,
"
typesetters.characteralign.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
63
appendaction
(
"
processors
"
,
"
lists
"
,
"
typesetters.spacings.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
64
appendaction
(
"
processors
"
,
"
lists
"
,
"
typesetters.kerns.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
65
appendaction
(
"
processors
"
,
"
lists
"
,
"
typesetters.digits.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
66
appendaction
(
"
processors
"
,
"
lists
"
,
"
typesetters.italics.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
67
appendaction
(
"
processors
"
,
"
lists
"
,
"
languages.visualizediscretionaries
"
,
nil
,
"
nut
"
,
"
disabled
"
)
68
appendaction
(
"
processors
"
,
"
lists
"
,
"
nodes.handlers.migrate
"
,
nil
,
"
nut
"
,
"
disabled
"
)
69 70
appendaction
(
"
processors
"
,
"
after
"
,
"
typesetters.marksuspects
"
,
nil
,
"
nut
"
,
"
disabled
"
)
71 72
appendaction
(
"
shipouts
"
,
"
normalizers
"
,
"
nodes.handlers.cleanuppage
"
,
nil
,
"
nut
"
,
"
production
"
)
73
appendaction
(
"
shipouts
"
,
"
normalizers
"
,
"
typesetters.showsuspects
"
,
nil
,
"
nut
"
,
"
disabled
"
)
74
appendaction
(
"
shipouts
"
,
"
normalizers
"
,
"
typesetters.margins.finalhandler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
75
appendaction
(
"
shipouts
"
,
"
normalizers
"
,
"
builders.paragraphs.expansion.trace
"
,
nil
,
"
nut
"
,
"
disabled
"
)
76
appendaction
(
"
shipouts
"
,
"
normalizers
"
,
"
typesetters.alignments.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
77
appendaction
(
"
shipouts
"
,
"
normalizers
"
,
"
nodes.references.handler
"
,
nil
,
"
nut
"
,
"
production
"
)
78
appendaction
(
"
shipouts
"
,
"
normalizers
"
,
"
nodes.destinations.handler
"
,
nil
,
"
nut
"
,
"
production
"
)
79
appendaction
(
"
shipouts
"
,
"
normalizers
"
,
"
nodes.rules.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
80
appendaction
(
"
shipouts
"
,
"
normalizers
"
,
"
nodes.shifts.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
81
appendaction
(
"
shipouts
"
,
"
normalizers
"
,
"
structures.tags.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
82
appendaction
(
"
shipouts
"
,
"
normalizers
"
,
"
nodes.handlers.accessibility
"
,
nil
,
"
nut
"
,
"
disabled
"
)
83
appendaction
(
"
shipouts
"
,
"
normalizers
"
,
"
nodes.handlers.backgrounds
"
,
nil
,
"
nut
"
,
"
disabled
"
)
84
appendaction
(
"
shipouts
"
,
"
normalizers
"
,
"
typesetters.rubies.attach
"
,
nil
,
"
nut
"
,
"
disabled
"
)
85
------------("shipouts", "normalizers", "nodes.properties.delayed", nil, "nut", "production")
86 87
appendaction
(
"
shipouts
"
,
"
finishers
"
,
"
nodes.visualizers.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
88
appendaction
(
"
shipouts
"
,
"
finishers
"
,
"
attributes.colors.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
89
appendaction
(
"
shipouts
"
,
"
finishers
"
,
"
attributes.transparencies.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
90
appendaction
(
"
shipouts
"
,
"
finishers
"
,
"
attributes.colorintents.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
91
appendaction
(
"
shipouts
"
,
"
finishers
"
,
"
attributes.negatives.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
92
appendaction
(
"
shipouts
"
,
"
finishers
"
,
"
attributes.effects.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
93
appendaction
(
"
shipouts
"
,
"
finishers
"
,
"
attributes.alternates.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
94
appendaction
(
"
shipouts
"
,
"
finishers
"
,
"
attributes.viewerlayers.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
95 96
appendaction
(
"
shipouts
"
,
"
wrapup
"
,
"
nodes.handlers.export
"
,
nil
,
"
nut
"
,
"
disabled
"
)
-- always last
97
appendaction
(
"
shipouts
"
,
"
wrapup
"
,
"
luatex.synctex.collect
"
,
nil
,
"
nut
"
,
"
disabled
"
)
98 99
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.showtree
"
,
nil
,
"
nonut
"
,
"
disabled
"
)
100
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.unscript
"
,
nil
,
"
nonut
"
,
"
enabled
"
)
101
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.unstack
"
,
nil
,
"
nonut
"
,
"
disabled
"
)
102
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.variants
"
,
nil
,
"
nonut
"
,
"
enabled
"
)
103
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.relocate
"
,
nil
,
"
nonut
"
,
"
enabled
"
)
104
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.families
"
,
nil
,
"
nonut
"
,
"
enabled
"
)
105
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.render
"
,
nil
,
"
nonut
"
,
"
enabled
"
)
106
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.collapse
"
,
nil
,
"
nonut
"
,
"
disabled
"
)
107
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.fixscripts
"
,
nil
,
"
nonut
"
,
"
enabled
"
)
108
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.domains
"
,
nil
,
"
nonut
"
,
"
disabled
"
)
109
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.autofences
"
,
nil
,
"
nonut
"
,
"
disabled
"
)
110
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.resize
"
,
nil
,
"
nonut
"
,
"
enabled
"
)
111
------------("math", "normalizers", "noads.handlers.respace", nil, "nonut", "enabled" )
112
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.alternates
"
,
nil
,
"
nonut
"
,
"
enabled
"
)
113
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.tags
"
,
nil
,
"
nonut
"
,
"
disabled
"
)
114
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.italics
"
,
nil
,
"
nonut
"
,
"
disabled
"
)
115
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.kernpairs
"
,
nil
,
"
nonut
"
,
"
disabled
"
)
116
appendaction
(
"
math
"
,
"
normalizers
"
,
"
noads.handlers.classes
"
,
nil
,
"
nonut
"
,
"
disabled
"
)
117 118
appendaction
(
"
math
"
,
"
builders
"
,
"
builders.kernel.mlisttohlist
"
,
nil
,
"
nut
"
,
"
enabled
"
)
-- mandate
119
appendaction
(
"
math
"
,
"
builders
"
,
"
typesetters.directions.processmath
"
,
nil
,
"
nut
"
,
"
disabled
"
)
120
appendaction
(
"
math
"
,
"
builders
"
,
"
noads.handlers.makeup
"
,
nil
,
"
nonut
"
,
"
disabled
"
)
121
appendaction
(
"
math
"
,
"
builders
"
,
"
noads.handlers.align
"
,
nil
,
"
nonut
"
,
"
enabled
"
)
122 123
appendaction
(
"
finalizers
"
,
"
lists
"
,
"
typesetters.paragraphs.normalize
"
,
nil
,
"
nut
"
,
"
enabled
"
)
-- "disabled"
124
appendaction
(
"
finalizers
"
,
"
lists
"
,
"
nodes.handlers.showhyphenation
"
,
nil
,
"
nut
"
,
"
disabled
"
)
125
appendaction
(
"
finalizers
"
,
"
lists
"
,
"
nodes.handlers.visualizehyphenation
"
,
nil
,
"
nut
"
,
"
disabled
"
)
126 127
appendaction
(
"
finalizers
"
,
"
lists
"
,
"
typesetters.margins.localhandler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
128
appendaction
(
"
finalizers
"
,
"
lists
"
,
"
builders.paragraphs.keeptogether
"
,
nil
,
"
nut
"
,
"
disabled
"
)
129
appendaction
(
"
finalizers
"
,
"
fonts
"
,
"
builders.paragraphs.solutions.splitters.optimize
"
,
nil
,
"
nonut
"
,
"
disabled
"
)
130
appendaction
(
"
finalizers
"
,
"
lists
"
,
"
builders.paragraphs.tag
"
,
nil
,
"
nut
"
,
"
disabled
"
)
131
appendaction
(
"
finalizers
"
,
"
lists
"
,
"
nodes.linefillers.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
132 133 134
appendaction
(
"
contributers
"
,
"
normalizers
"
,
"
nodes.handlers.flattenline
"
,
nil
,
"
nut
"
,
"
disabled
"
)
135
appendaction
(
"
contributers
"
,
"
normalizers
"
,
"
nodes.handlers.textbackgrounds
"
,
nil
,
"
nut
"
,
"
disabled
"
)
136 137 138
appendaction
(
"
vboxbuilders
"
,
"
normalizers
"
,
"
nodes.handlers.backgroundsvbox
"
,
nil
,
"
nut
"
,
"
disabled
"
)
139
------------("vboxbuilders", "normalizers", "typesetters.margins.localhandler", nil, "nut", "disabled" )
140
appendaction
(
"
vboxbuilders
"
,
"
normalizers
"
,
"
builders.vspacing.vboxhandler
"
,
nil
,
"
nut
"
,
"
enabled
"
)
141
appendaction
(
"
vboxbuilders
"
,
"
normalizers
"
,
"
builders.profiling.vboxhandler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
142
appendaction
(
"
vboxbuilders
"
,
"
normalizers
"
,
"
typesetters.checkers.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
143 144
appendaction
(
"
mvlbuilders
"
,
"
normalizers
"
,
"
nodes.handlers.backgroundspage
"
,
nil
,
"
nut
"
,
"
disabled
"
)
145
appendaction
(
"
mvlbuilders
"
,
"
normalizers
"
,
"
typesetters.margins.globalhandler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
146
appendaction
(
"
mvlbuilders
"
,
"
normalizers
"
,
"
nodes.handlers.migrate
"
,
nil
,
"
nut
"
,
"
disabled
"
)
147
appendaction
(
"
mvlbuilders
"
,
"
normalizers
"
,
"
builders.vspacing.pagehandler
"
,
nil
,
"
nut
"
,
"
enabled
"
)
148
appendaction
(
"
mvlbuilders
"
,
"
normalizers
"
,
"
builders.profiling.pagehandler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
149
appendaction
(
"
mvlbuilders
"
,
"
normalizers
"
,
"
typesetters.checkers.handler
"
,
nil
,
"
nut
"
,
"
disabled
"
)
150 151
appendaction
(
"
everypar
"
,
"
normalizers
"
,
"
nodes.handlers.checkparcounter
"
,
nil
,
"
nut
"
,
"
disabled
"
)
152 153
-- some protection
154 155
freezecallbacks
(
"
find_.*_file
"
,
"
find file using resolver
"
)
156
freezecallbacks
(
"
read_.*_file
"
,
"
read file at once
"
)
157
freezecallbacks
(
"
open_.*_file
"
,
"
open file for reading
"
)
158 159
-- experimental:
160 161
freezegroup
(
"
processors
"
,
"
normalizers
"
)
162
freezegroup
(
"
processors
"
,
"
characters
"
)
163
freezegroup
(
"
processors
"
,
"
words
"
)
164
freezegroup
(
"
processors
"
,
"
fonts
"
)
165
freezegroup
(
"
processors
"
,
"
lists
"
)
166 167
freezegroup
(
"
finalizers
"
,
"
normalizers
"
)
168
freezegroup
(
"
finalizers
"
,
"
fonts
"
)
169
freezegroup
(
"
finalizers
"
,
"
lists
"
)
170 171
freezegroup
(
"
math
"
,
"
normalizers
"
)
172
freezegroup
(
"
math
"
,
"
builders
"
)
173 174
freezegroup
(
"
shipouts
"
,
"
normalizers
"
)
175
freezegroup
(
"
shipouts
"
,
"
finishers
"
)
176
freezegroup
(
"
shipouts
"
,
"
wrapup
"
)
177 178
freezegroup
(
"
mvlbuilders
"
,
"
normalizers
"
)
179
freezegroup
(
"
vboxbuilders
"
,
"
normalizers
"
)
180 181
-----------("parbuilders", "lists")
182
-----------("pagebuilders", "lists")
183 184
freezegroup
(
"
math
"
,
"
normalizers
"
)
185
freezegroup
(
"
math
"
,
"
builders
"
)
186 187
freezegroup
(
"
everypar
"
,
"
normalizers
"
)
188 189
-- new: disabled here
190 191
directives
.
register
(
"
nodes.basepass
"
,
function
(
v
)
192
if
v
then
193
enableaction
(
"
processors
"
,
"
builders.kernel.ligaturing
"
)
194
enableaction
(
"
processors
"
,
"
builders.kernel.kerning
"
)
195
else
196
disableaction
(
"
processors
"
,
"
builders.kernel.ligaturing
"
)
197
disableaction
(
"
processors
"
,
"
builders.kernel.kerning
"
)
198
end
199
end
)
200