Re: Inserting a mini toc into the chapter heading

[Guy Worthington <guyw@multiline.com.au>]

For all you propeller-heads that like to see bad code here's my
chapter heading setup:

--------------------------------------------------

%output=pdf

%% chapter head layout
\setupcolors[state=start]
\setuplist[section]
          [style=boldslanted,
	   align=right,
	   interaction=all,
	   symbol=1, 
	   width=0.5em,
	   pagenumber=no,
	   before=,
	   after=]                 
\setuphead[chapter]
          [header=empty,
	   numberstyle=ChapterTitleNumberFont,
	   textstyle=ChapterTitleTextFont
	   alternative=command,
	   command=\ContentsHead, 
	   page=right,
	   after={\blank[2*big]}]
\definefont[ChapterTitleTextFont][Serif at 24.9pt]
\definefont[ChapterTitleNumberFont][SerifBold at 40pt]
\def\ContentsHead#1#2%
  {\setupframed[frame=off]
   \framed[width=\hsize,offset=overlay]
     {\placesidebyside
        {\doifelsenothing{#1}
           {\framed [width=.6\hsize]{}} % dummy               
           {\framed [width=.6\hsize,offset=1em,strut=no,align=right,
	             background=screen] 
              {\vi In this chapter: \blank
                 \placelist[section][criterium=chapter]}}}
        {\framed [width=.4\hsize,strut=no,align=left]
		    %% Typeset Chapter Number
		    {\hbox{\vbox to 24.9pt{% height ChapterTitleTextFont 
		          \vss
			  #1}}}
           \vfilll}
     }%
   %% Typeset Chapter Title
   \llap{\lower24.9pt\hbox{#2\hskip0.5em}}}

\showmakeup

\starttext 
\chapter {Berend} 
\section {Botje} 
\section {Botje} 
\section {Botje} 
\stoptext

--------------------------------------------------