Re: Index formatting: column leaks over page margin

["luigi scarso" <luigi.scarso@gmail.com>]

On 1/15/07, luigi scarso <luigi.scarso@gmail.com> wrote:
> hmm line "map 17, 33, 52, 69, 70, 70, 70, 71, 71," is too much right?
> I've played with index settings some time ago: I will refresh my memories.
> luigi
>
Ok, I hope these can help you.

%%%%%%%%%%%%%%%%%%%%%%%%%
\setupcolors[state=start]
%%%%%%%%%% Indeces
%%%%%% Index
\defineregister[Index][Indeces]
\setupheadtext[en][IndexCode=Code Index]
%%
\def\ICTextCommand#1{%
#1\hskip1ex%
}%% end \ICTextCommand
%%
\def\ICPageCommand#1{%
\gdef\registerpageseparator{,}%
\hbox{#1}%
}%% end \ICPageCommand
%%
\def\ICHeadLetterCommand#1{%
\setbox100=\hbox{%
\switchtobodyfont[8pt]%
\framed[frame=off,
        width=1.5em,height=1em,after=0.5em,
        strut=no,
        background=color,backgroundcolor=black]%
{\color[white]{\setnostrut{#1}}}\hfill}%
\box100%
}%%end \ICHeadLetterCommand
%%%%%
\setupregister[Index][n=2,
                      align=yes,
                      balance=no,
                      symbol=,
                      distance=0pt,
                      expand=no,
                      partnumber=no,
                      indicator=yes,
                      textstyle={\tfx},pagestyle={\tfx},
                      textcommand={\ICTextCommand},
                      pagecommand={\ICPageCommand},
                      command={\ICHeadLetterCommand},]
%%%%%%%%%%%%%%%%%%%%

\starttext
\dorecurse{100}{
boo\Index{boo} Boo\Index{Boo}
foo\Index{foo} Foo\Index{Foo}
goo\Index{goo} Goo\Index{Goo}
\page }%%
%%
\completeIndex
\stoptext
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%