From: "luigi scarso" <luigi.scarso@gmail.com>
To: "mailing list for ConTeXt users" <ntg-context@ntg.nl>
Subject: Re: TOC, listalternative d, ragged right, interaction
Date: Fri, 29 Jun 2007 07:08:45 +0200 [thread overview]
Message-ID: <fe8d59da0706282208k2a7ff4a9k33daa61a2fc2bf3b@mail.gmail.com> (raw)
In-Reply-To: <fe8d59da0706051621g3f81ab72qb06ef018f8fe501e@mail.gmail.com>
Some ideas.
I should be able to clean this weekend
\unprotect
\setvalue{\@@dodolistelement da}{\let\dosomelistelement\dodofixdlistelementDA}
\def\dodofixdlistelementDA#1#2#3#4#5#6%
{%%%init of \dodofixdlistelementDA#1#2#3#4#5#6%
\leftskip1em%% temporary
\setupalign[\listparameter\c!align]%
\tolerance10000
%
\def\makelistelement##1##2%
{\hskip1sp%% temporary
\doifelse{\listparameter\c!interaction}{##1}
{\setbox0\hbox{\showcontrastlocation\??ia{#6}{##2}}%
\linklisttoelement{#2}{#5}{#6}{\box0}}%{\copy0}}%
{\hbox{##2}}}%
%
\doif{\listparameter\c!interaction}\v!all
{\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
\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
\box4\relax
\relax
\fi%
\dostoplistattributes}
%%%%%%%%%%%%%%%%
%% no interactions
%% #3\nobreak\kern1ex\nobreak%
%% \hbox{#4}\nobreak\kern1ex\nobreak%
%% {\sl#6}\hskip0.1explus1ex%
}
\protect
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\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]
\def\listfill {\hskip.25em\relax}%
\def\listskip {0pt}%
\def\listwidth {2em}%
\def\liststretch{10em}
\setuplist [section] [alternative=da,%d,
headnumber=no,
align=left,%right
separator={\hskip1pt plus5pt---\hskip1pt plus5pt},
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 : ntg-context@ntg.nl / 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 : ntg-context@ntg.nl / 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
___________________________________________________________________________________
next prev parent reply other threads:[~2007-06-29 5:08 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <20070528092945.GA26819@storsten..pD9E24CDE.dip.t-dialin.net>
2007-05-29 7:02 ` luigi scarso
2007-05-30 1:35 ` luigi scarso
2007-06-05 23:21 ` luigi scarso
2007-06-29 5:08 ` luigi scarso [this message]
2007-07-19 0:32 ` luigi scarso
2007-05-28 9:30 Daniel Schömer
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=fe8d59da0706282208k2a7ff4a9k33daa61a2fc2bf3b@mail.gmail.com \
--to=luigi.scarso@gmail.com \
--cc=ntg-context@ntg.nl \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).