summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/lxml-ctx.mkiv
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/base/lxml-ctx.mkiv')
-rw-r--r--Master/texmf-dist/tex/context/base/lxml-ctx.mkiv69
1 files changed, 33 insertions, 36 deletions
diff --git a/Master/texmf-dist/tex/context/base/lxml-ctx.mkiv b/Master/texmf-dist/tex/context/base/lxml-ctx.mkiv
index 73d082d0d51..530c29aa778 100644
--- a/Master/texmf-dist/tex/context/base/lxml-ctx.mkiv
+++ b/Master/texmf-dist/tex/context/base/lxml-ctx.mkiv
@@ -5,7 +5,7 @@
%D subtitle=Initialization,
%D author=Hans Hagen,
%D date=\currentdate,
-%D copyright={PRAGMA / Hans Hagen \& Ton Otten}]
+%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
@@ -20,45 +20,42 @@
\unprotect
-% the letterbar is a messy hack and is needed for the tabulate
+% The \let|=letterbar is a messy hack and is needed for the tabulate. We now use
+% \detokenize.
\settrue \xmllshowbuffer
\setfalse\xmllshowtitle
\settrue \xmllshowwarning
-\definehead[lshowtitle][subsubsubsubsubject]
-\setuphead[lshowtitle][style=\tta]
-
-% \unexpanded\def\setuplxmlshow[#1]%
-% {\dodoubleargument\getparameters[\??xl]}
-
-\def\xmllshow#1%
- {\begingroup
- \let|=\letterbar
- \ctxlua{xml.ctx.tshow {
- pattern = \!!bs#1\!!es,
- \ifconditional\xmllshowtitle
- title = "lshowtitle",
- \fi
- \ifconditional\xmllshowwarning
- warning = true,
- \fi
- } }%
- \endgroup}
-
-\def\xmllshowbuffer#1#2#3%
- {\begingroup
- \let|=\letterbar
- \ctxlua{xml.ctx.tshow {
- pattern = \!!bs#2\!!es,
- \ifconditional\xmllshowbuffer
- xmlroot = "#1",
- attribute = "#3",
- \fi
- \ifconditional\xmllshowwarning
- warning = true,
- \fi
- } }%
- \endgroup}
+\definehead
+ [lshowtitle]
+ [subsubsubsubsubject]
+
+\setuphead
+ [lshowtitle]
+ [\c!style=\tta]
+
+\unexpanded\def\xmllshow#1%
+ {\ctxlua{xml.ctx.tshow {
+ pattern = \!!bs\detokenize{#1}\!!es,
+ \ifconditional\xmllshowtitle
+ title = "lshowtitle",
+ \fi
+ \ifconditional\xmllshowwarning
+ warning = true,
+ \fi
+ } }}
+
+\unexpanded\def\xmllshowbuffer#1#2#3%
+ {\ctxlua{xml.ctx.tshow {
+ pattern = \!!bs\detokenize{#2}\!!es,
+ \ifconditional\xmllshowbuffer
+ xmlroot = "#1",
+ attribute = "#3",
+ \fi
+ \ifconditional\xmllshowwarning
+ warning = true,
+ \fi
+ } }}
\protect