%D \module %D [ file=lxml-css, %D version=2010.01.28, %D title=\CONTEXT\ Modules, %D subtitle=Css Helpers, %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. \registerctxluafile{lxml-css}{} \unprotect \def\ctxmodulecss#1{\ctxlua{moduledata.css.#1}} % No stable interface yet. % \edef\CellPadding{\xmlatt{#1}{cellpadding}} % \ifx\CellPadding\empty % \edef\CellPadding{.25ex} % \else % \edef\CellPadding{\cssgetsinglepadding{\xmlatt{#1}{cellpadding}}} % \fi % % \starttexdefinition cssgetsinglepadding #1 % \ctxlua { % context((moduledata.css.padding( % "#1", % \number\dimexpr0.1ex, % \number\dimexpr0.01\hsize, % \number\dimexpr1ex, % \number\dimexpr1em % ))) % returns 4 values therefore () % }sp % \stoptexdefinition % \startxmlsetups html:settings % \xmlsetsetup{#1}{p}{html:p} % \stopxmlsetups % % \xmlmapvalue{ctx-before} {one} {\page BEFORE\par} % \xmlmapvalue{ctx-after} {two} {\par AFTER\page} % \xmlmapvalue{text-decoration}{underline}{U} % \xmlmapvalue{text-decoration}{overline} {O} % % \startxmlsetups html:p % \testfeatureonce{100000}{ % \edef\foo{\xmlcssstylevalue{#1}{ctx-before}\xmlcssstylevalue{#1}{ctx-after}} % } % \page {\tttf style="\xmlatt{#1}{style}"} : \elapsedtime\ s \page % \xmlvalue{ctx-before}{\xmlcssstylevalue{#1}{ctx-before}}{} % \xmlflush{#1} % (\xmlcssstylevalue{#1}{text-decoration}) % (\xmlcssmappedstylevalue{#1}{text-decoration}{text-decoration}) % \xmlvalue{ctx-after} {\xmlcssstylevalue{#1}{ctx-after}}{} % \stopxmlsetups % % \startbuffer[temp] % %

foo 1

%

foo 2

% % \stopbuffer % % \xmlregistersetup{html:settings} % \xmlprocessbuffer{main}{temp}{} % \xmlcssstylevalue % defined at lua end % \xmlcssmappedstylevalue % defined at lua end \protect \endinput