Dear Hans,
I tested without understanding what \unexpanded, and of course it works !
Thank you,
Fabrice
2015-08-09 15:40 GMT+02:00 Hans Hagen
On 8/9/2015 1:27 PM, Fabrice Couvreur wrote:
Hi Hans, In the document Metafun, you use commands that I like, and I try to understand the definition and operation, which is not always easy with TeX commands. Also, in the following code, this does not give the expected result. Thank you. Fabrice
\showframe
\setupcolors [state=start]
\setuppagenumbering[location=,alternative]
\startuniqueMPgraphic{titled} path p ; p := unitsquare xscaled OverlayWidth yscaled OverlayHeight ; pickup pencircle scaled 1mm ; drawoptions(withcolor .625yellow) ; draw llcorner p--lrcorner p ; setbounds currentpicture to p ; \stopuniqueMPgraphic
\defineoverlay[titled][\uniqueMPgraphic{titled}]
\def\ChapterCommand#1#2% {\setbox0=\hbox to \leftmarginwidth{#1\hss}% \hskip-\leftmarginwidth \hskip-\leftmargindistance \framed [background=titled,frame=off,offset=0pt] {\box0 \hskip\leftmargindistance #2}}
\setuphead [chapter,section,subsection] [command=\ChapterCommand, color=darkred]
\starttext \chapter{First} \section{First} \subsection{First} \stoptext
\unexpanded\def\ChapterCommand#1#2%
----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com | www.pragma-pod.nl -----------------------------------------------------------------
___________________________________________________________________________________ If your question is of interest to others as well, please add an entry to the Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context webpage : http://www.pragma-ade.nl / http://tex.aanhet.net archive : http://foundry.supelec.fr/projects/contextrev/ wiki : http://contextgarden.net
___________________________________________________________________________________