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 <pra...@wxs.nl>:
> 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
>
> ___________________________________________________________________________________
___________________________________________________________________________________
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
___________________________________________________________________________________
