diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/mkiv/trac-par.lua')
-rw-r--r-- | Master/texmf-dist/tex/context/base/mkiv/trac-par.lua | 17 |
1 files changed, 5 insertions, 12 deletions
diff --git a/Master/texmf-dist/tex/context/base/mkiv/trac-par.lua b/Master/texmf-dist/tex/context/base/mkiv/trac-par.lua index fc3be5b6c55..56291f8c83d 100644 --- a/Master/texmf-dist/tex/context/base/mkiv/trac-par.lua +++ b/Master/texmf-dist/tex/context/base/mkiv/trac-par.lua @@ -21,16 +21,18 @@ local getnext = nuts.getnext local getlist = nuts.getlist local getfont = nuts.getfont local getchar = nuts.getchar +local getwidth = nuts.getwidth local nodecodes = nodes.nodecodes local hlist_code = nodecodes.hlist local vlist_code = nodecodes.vlist local glyph_code = nodecodes.glyph -local kern_code = nodecodes.kern local setnodecolor = nodes.tracers.colors.set local parameters = fonts.hashes.parameters local basepoints = number.basepoints +local setaction = nodes.tasks.setaction + -- definecolor[hz:positive] [r=0.6] -- definecolor[hz:negative] [g=0.6] -- definecolor[hz:zero] [b=0.6] @@ -99,7 +101,7 @@ local function colorize(n) if trace_verbose then length = length + 1 list[length] = utfchar(getchar(n)) - width = width + getfield(n,"width") -- no kerning yet + width = width + getwidth(n) -- no kerning yet end end end @@ -127,17 +129,8 @@ function builders.paragraphs.expansion.trace(head) return head end -local tasks = nodes.tasks - --- tasks.prependaction("shipouts","normalizers","builders.paragraphs.expansion.trace") --- tasks.disableaction("shipouts","builders.paragraphs.expansion.trace") - local function set(v) - if v then - tasks.enableaction("shipouts","builders.paragraphs.expansion.trace") - else - tasks.disableaction("shipouts","builders.paragraphs.expansion.trace") - end + setaction("shipouts","builders.paragraphs.expansion.trace",v) end trackers.register("builders.paragraphs.expansion.verbose",set) |