Am 07.06.10 02:03, schrieb Scott Steele:
Thanks a lot for all of that! I'm having trouble getting it to run, though. I tried copy/pasting it into the Context Live site but get [...]
The mail client messed up my code, here is a slightly modified version:
\unprotect
\def\v!fancybreak{fancybreak}
\def\????fb{@@@@fb}
\getparameters
[\????fb]
[\c!spacebefore=,
\c!spaceafter=,
\c!align=\v!middle,
\c!indentnext=\v!yes]
\def\fancybreakparameter
#1{\csname\dofancybreakparameter{\????fb\currentfancybreak}#1\endcsname}
\def\dofancybreakparameter
#1#2{\ifcsname#1#2\endcsname#1#2\else\expandafter\dodofancybreakparameter\csname#1\s!parent\endcsname#2\fi}
\def\dodofancybreakparameter#1#2{\ifx#1\relax\s!empty\else\dofancybreakparameter#1#2\fi}
\unexpanded\def\setupfancybreak
{\dodoubleempty\dosetupfancybreak}
\def\dosetupfancybreak[#1][#2]%
{\ifsecondargument
\getparameters[\????fb#1][#2]%
\else
\getparameters[\????fb][#1]%
\fi}
\unexpanded\def\definefancybreak
{\dodoubleempty\dodefinefancybreak}
\def\dodefinefancybreak[#1][#2]%
{\getparameters[\????fb#1][\s!parent=\????fb,#2]%
\setvalue{#1}{\dofancybreak{#1}}}
\unexpanded\def\dofancybreak#1%
{\begingroup
\edef\currentfancybreak{#1}%
\everyvbox{\setupalign[\fancybreakparameter\c!align]}%
\dowithnextbox
{\blank[\fancybreakparameter\c!spacebefore]%
\flushnextbox
\blank[\fancybreakparameter\c!spaceafter]%
\checknextindentation[\fancybreakparameter\c!indentnext]
\dorechecknextindentation
\endgroup}
\normalvbox}
\definefancybreak[\v!fancybreak]
\protect
\starttext
\input knuth
\fancybreak{$* * *$}
\input ward
\page
\setupindenting[yes,medium]
\input knuth
\fancybreak{$* * *$}
\input ward
\stoptext
Wolfgang
fancybreak.tex
Description: TeX document
___________________________________________________________________________________ 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 ___________________________________________________________________________________
