On 6/29/07, luigi scarso <[EMAIL PROTECTED]> wrote:
> Some ideas.
> I should be able to clean this weekend
\unprotect
\setvalue{\@@dodolistelement da}{\let\dosomelistelement\dodofixdlistelementDA}
\def\listwidth {\listalternativeparameter\c!width}
\def\dodofixdlistelementDA#1#2#3#4#5#6%
{%%%init of \dodofixdlistelementDA#1#2#3#4#5#6%
%\leftskip1em
\ifvmode
1 \advance\leftskip\listparameter\c!margin% AANGEPAST
\fi
\allowbreak%
\listparameter\c!before\nobreak%
\setupalign[\listparameter\c!align]%
\tolerance10000%
%
\def\makelistelement##1##2%
{\hskip1sp
\doifelse{\listparameter\c!interaction}{##1}
{\setbox0\hbox{\showcontrastlocation\??ia{#6}{##2}}%
\linklisttoelement{#2}{#5}{#6}{\box0}}%
{\hbox{##2}}}%
%
\doif{\listparameter\c!interaction}\v!all % not supported
%%{\setlistparameter\currentlist\c!interaction\v!sectionnumber}%
{\setlistparameter\currentlist\c!interaction\v!all}%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\makelistelement\v!all%
{\forgetall
\dostartlistattributes\c!style\c!color\empty
\!!widthb\hsize
\doifelse{\listparameter\c!headnumber}\v!yes
{\setbox2\hbox \ifdim\!!widtha>\zeropoint to \!!widtha \fi
{\makelistelement\v!sectionnumber
{\donestedlistattributes\c!numberstyle\c!numbercolor
{\listparameter\c!numbercommand{\currentlistsymbol}}%
\hfill}}}
{\!!widtha\zeropoint
\!!widthc\zeropoint
\setbox2\hbox{}}%
\setbox4\hbox
{\doif{\listparameter\c!pagenumber}\v!yes
{\doifsomething{#5} % \listwidth is new ; temp hack
{\hbox \ifdim\listwidth>\zeropoint to \listwidth\fi
{\hfill%\listwidth \listalternativeparameter\c!width
\makelistelement\v!pagenumber
{\donestedlistattributes\c!pagestyle\c!pagecolor
{\listparameter\c!pagecommand
{\pageprefix\??li\currentlist[#5]%
\translatednumber[#5]%
}}}}}}}%
%%\box2\relax
\bgroup
\donestedlistattributes\c!textstyle\c!textcolor
{\let\\=\newlineinlist
\dontconvertfont
\limitatedlistentry{#4}}%
\egroup
\ifdim\wd4=\zeropoint\relax % \ifvoid4
\else
\nobreak\listfill
%\hbox{\box4\listparameter\c!numbercommand{\currentlistsymbol}}\relax
\hbox{\box4\listparameter\c!separator}\relax
%\box4\relax
\relax
\fi%
\dostoplistattributes%
\listparameter\c!after\hskip1sp
}}
\enableregime[utf]
\language[de]
\setupinteraction [state=start]
\setuplistalternative [a] [command=\hskip.8em]
\setupcombinedlist [content] [alternative=a,
interaction=all,
level=section,
partnumber=no]
\setuplist [chapter] [after={\blank},
before={\blank},
numberstyle=\tfd,
pagestyle=italic,
style=\tfa,
width=1.75em]
\setuplistalternative[da][width=1em,command={\hskip1ex}]
\setuplist [section] [alternative=da,
headnumber=no,
align=left,%right
separator={\hskip1ex{\odot}\hskip5pt},
interaction=all,
margin=1.75em,
pagestyle=italic]
\starttext
\completecontent
\chapter{Einleitung}
\section{Ich bin da}
\section{So hat alles angefangen}
\section{Die Vorbereitungen}
\section{Rucksackbestellung}
\section{Ist denn schon wieder Weihnachten?}
\section{Mein erstes Kaenguru (ein Wallaby)}
\section{Abflugtermin steht fest!}
\section{Abschiedsparty}
\section{Noch 3 Tage}
\section{Etappe 1}
\section{Etappe 2}
\chapter{Sydney}
\section{Unser erster Tag in Sydney}
\section{Nicht viel Neues}
\section{Wohnungssuche}
\section{The Royal Easter Show}
\section{Am Freitag ziehen wir in unsere neue Wohnung}
\section{Einzug in die Wohnung!}
\section{Frohe Ostern}
\section{Sydney Aquarium}
\section{Harbour Explorer Tour}
\section{Kakerlaken}
\stoptext
--
luigi
----------------------------------------------------------------
If your question is of interest to others as well, please add an entry
to the Wiki!
maillist : [email protected] / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : https://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 : [email protected] / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : https://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
