%D \module %D [ file=lxml-ctx, %D version=2007.08.17, %D title=\CONTEXT\ \XML\ Support, %D subtitle=Initialization, %D author=Hans Hagen, %D date=\currentdate, %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 %C details. %D Experimental. This might change! Also, it might become a module instead if %D core code. \writestatus{loading}{ConTeXt XML Support / Goodies} \registerctxluafile{lxml-ctx}{} \unprotect \settrue \xmllshowbuffertoo \setfalse\xmllshowtitletoo \settrue \xmllshowwarningtoo \definehead [lshowtitle] [subsubsubsubsubject] \setuphead [lshowtitle] [\c!style=\tta] \unexpanded\def\xmllshow#1% {\ctxlua{xml.ctx.tshow { pattern = \!!bs\detokenize{#1}\!!es, \ifconditional\xmllshowtitletoo title = "lshowtitle", \fi \ifconditional\xmllshowwarningtoo warning = true, \fi } }} \unexpanded\def\xmllshowbuffer#1#2#3% {\ctxlua{xml.ctx.tshow { pattern = \!!bs\detokenize{#2}\!!es, \ifconditional\xmllshowbuffertoo xmlroot = "#1", attribute = "#3", \fi \ifconditional\xmllshowwarningtoo warning = true, \fi } }} \protect