[NTG-context] Command that does not give the expected result (Metafun)

Fabrice Couvreur fabrice1.couvreur at gmail.com
Mon Aug 10 09:13:20 CEST 2015


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 <pragma at 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 at 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
>
> ___________________________________________________________________________________
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.ntg.nl/pipermail/ntg-context/attachments/20150810/54dafad8/attachment-0001.html>


More information about the ntg-context mailing list