I'm about to release a new version of KeenWrite that has scores of
fixes. I'd like to upgrade the container with a version of ConTeXt
that has the fix in place. I could patch the container, but would
prefer pulling from official sources.
Thank you!
Cheers!
Dave
---------- Forwarded message ---------
From: *Thangalin* <thanga...@gmail.com <mailto:thanga...@gmail.com>>
Date: Wed, Sep 3, 2025 at 4:13 PM
Subject: Bug? \xmlflushspacewise gobbles blanks
To: mailing list for ConTeXt users <ntg-context@ntg.nl <mailto:ntg-
cont...@ntg.nl>>
Hi,
Max Chernoff helped fix a possible issue:
\startbuffer[test]
<?xml version="1.0"?>
<document><pre>
| aaa| bbb |ccc |
|------|-------|------|
| 1 | 2 | 3 |
| 4 | 5 | 6 |
| 7 | 8 | 9 |
</pre></document>
\stopbuffer
\startxmlsetups xml:setup
\xmlsetsetup{\xmldocument}{*}{-}
\xmlsetsetup{\xmldocument}{document|pre}{xml:*}
\stopxmlsetups
\xmlregistersetup{xml:setup}
\startxmlsetups xml:document
\startdocument \xmlflush{#1} \stopdocument
\stopxmlsetups
\startxmlsetups xml:pre
\startxmldisplayverbatim
\setupbodyfont[TextFontIN]
\spaceskip\zeropoint
\xmlflushspacewise{#1}
\stopxmldisplayverbatim
\stopxmlsetups
\definefontfamily [TextFontIN] [tt] [Inconsolata]
\usetypescript[TextFont]
\starttext
\xmlprocessbuffer{main}{test}{}
\stoptext
The patch:
diff --git a/tex/context/base/mkiv/lxml-tex.lua b/tex/context/base/
mkiv/ lxml-tex.lua
index 1e57890..90cb993 100644
--- a/tex/context/base/mkiv/lxml-tex.lua
+++ b/tex/context/base/mkiv/lxml-tex.lua
@@ -29,6 +29,7 @@ local lxml = lxml
local catcodenumbers = catcodes.numbers
local ctxcatcodes = catcodenumbers.ctxcatcodes -- todo: use
different method
local notcatcodes = catcodenumbers.notcatcodes -- todo: use
different method
+local tpacatcodes = catcodenumbers.tpacatcodes
local commands = commands
local context = context
@@ -245,7 +246,7 @@ local _, xmlspacecapture_yes =
context.newtexthandler {
emptyline = context.xmlcdataobeyedline,
simpleline = context.xmlcdataobeyedline,
space = context.xmlcdataobeyedspace,
- catcodes = notcatcodes,
+ catcodes = tpacatcodes,
exception = entity,
}
local _, xmlspacecapture_nop = context.newtexthandler {
@@ -253,7 +254,7 @@ local _, xmlspacecapture_nop =
context.newtexthandler {
emptyline = context.xmlcdataobeyedline,
simpleline = context.xmlcdataobeyedline,
space = context.xmlcdataobeyedspace,
- catcodes = notcatcodes,
+ catcodes = tpacatcodes,
}
local _, xmllinecapture_yes = context.newtexthandler {
