heading in margin + grid

[Philipp Gesang <pgesang@ix.urz.uni-heidelberg.de>]

[-- Attachment #1.1: Type: text/plain, Size: 1170 bytes --]

Dear fellow Contexters,

there are some subheadings I’d like to place in the margin
approximately like that:

···8<····························································

\def\text{knuth}

\setuplayout[grid=yes] \showgrid

\setuphead[section][
  %grid=yes,
  style={\tf\bf\color[red]},
  command=\placeheadinmargin,
  before=,after=,
]

\setupwhitespace[none]

\def\placeheadinmargin#1#2{%
  %\margintitle{#2}%
  \margintitle{\raise-\baselineskip\hbox{#2}}% needed with grid
}

\starttext

\dorecurse{10}{%
  \section{\text}
  \input \text
  \par
}

\stoptext

···8<····························································

Question is: how do I get rid of the empty line before the
heading? I thought I exhausted every possibility by unsetting the
‘after’ and ‘before’ keys and disabling interpar whitespace --
but not quite!

Thanks for any suggestions, Philipp

-- 
()  ascii ribbon campaign - against html e-mail
/\  www.asciiribbon.org   - against proprietary attachments

[-- Attachment #1.2: Type: application/pgp-signature, Size: 198 bytes --]

[-- Attachment #2: Type: text/plain, Size: 486 bytes --]

___________________________________________________________________________________
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
___________________________________________________________________________________