registers: how can I place a command around the whole of the page numbers of an index term?

registers: how can I place a command around the whole of the page numbers of an index term?

[MF]

Hello list,
i'd like moving the page numbers in my index to the right, with a
\wordright.

\setupregister[index][n=1,alternative=A]

\starttext
\CONTEXT\index{\ConTeXt}
\page
\LATEX\index{\LaTeX}
\page
\CONTEXT\index{\ConTeXt}
\page
\placeindex
\stoptext

The index is at page 4. I want to move the numbers "1,3" and "2" to the
right.
The parameter pagecommand is for the single page number, i want to put
a command (\wordright) around the whole block of page numbers.
How can i do that?

Greetings,
Massi


___________________________________________________________________________________
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://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: registers: how can I place a command around the whole of the page numbers of an index term?

[Wolfgang Schuster]

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

There is no option to apply a command to all page numbers but you can
add something after the register entry with the textcommand key.

Be aware this solution isn’t perfect because in the worst case
(narrow columns for the register or long entries) page numbers
can be split on multiple lines.

\setupregister
   [index]
   [n=1,
    alternative=A,
    textcommand=\groupedcommand{}{\hfill\quad}]

Wolfgang
> MF <mailto:massifr@fastwebnet.it>
> 9. Mai 2018 um 17:09
> Hello list,
> i'd like moving the page numbers in my index to the right, with a
> \wordright.
>
> \setupregister[index][n=1,alternative=A]
>
> \starttext
> \CONTEXT\index{\ConTeXt}
> \page
> \LATEX\index{\LaTeX}
> \page
> \CONTEXT\index{\ConTeXt}
> \page
> \placeindex
> \stoptext
>
> The index is at page 4. I want to move the numbers "1,3" and "2" to the
> right.
> The parameter pagecommand is for the single page number, i want to put
> a command (\wordright) around the whole block of page numbers.
> How can i do that?
>
> Greetings,
> Massi
>
>
> ___________________________________________________________________________________
> 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://context.aanhet.net
> archive : https://bitbucket.org/phg/context-mirror/commits/
> wiki : http://contextgarden.net
> ___________________________________________________________________________________


[-- Attachment #1.2: Type: text/html, Size: 3100 bytes --]

[-- Attachment #2: Type: text/plain, Size: 492 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://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: registers: how can I place a command around the whole of the page numbers of an index term?

[MF]

Thanks Wolfgang and sorry if i reply to my mail, since i've downloaded
yours on another PC.

I've found these macros in strc-reg.mkiv, that are called right before
and after the page numbers:

\unexpanded\def\startregisterpages
  {\begingroup
   \dostarttagged\t!registerpages\empty
   \useregisterstyleandcolor\c!pagestyle\c!pagecolor}

\unexpanded\def\stopregisterpages
  {\dostoptagged
   \endgroup}

And this seems to work:

\let\origstartregisterpages=\startregisterpages%
\let\origstopregisterpages=\stopregisterpages%
\unexpanded\def\startregisterpages{\origstartregisterpages\wordright\bg
roup }
\unexpanded\def\stopregisterpages{\egroup\origstopregisterpages}

\setupregister[index][n=1,alternative=A]

\starttext
\CONTEXT\index{\ConTeXt}
\page
\LATEX\index{\LaTeX}
\page
\CONTEXT\index{\ConTeXt}
\page
\placeindex
\stoptext

I've also learned about \groupedcommand, which i did not know.
Again, thanks for you help.

Best wishes,
Massi


___________________________________________________________________________________
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://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: registers: how can I place a command around the whole of the page numbers of an index term?

[MF]

This is a more polite version, that lets you restore the original
macros.

\let\origstartregisterpages=\startregisterpages%
\let\origstopregisterpages=\stopregisterpages%
\def\setupregisterpagescommand#1{%
  \unexpanded\def\startregisterpages{\origstartregisterpages#1\bgroup }
  \unexpanded\def\stopregisterpages{\egroup\origstopregisterpages}}
\def\resetregisterpagescommand{%
  \let\startregisterpages=\origstartregisterpages%
  \let\stopregisterpages=\origstopregisterpages}

\setupregister[index][n=1,alternative=A]

\starttext
\CONTEXT\index{\ConTeXt}
\page
\LATEX\index{\LaTeX}
\page
\CONTEXT\index{\ConTeXt}
\page
\setupregisterpagescommand{\wordright}
\placeindex
\page
\resetregisterpagescommand
\placeindex
\stoptext

btw, Hans, are you going to add an option to \setupregister? :)
___________________________________________________________________________________
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://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: registers: how can I place a command around the whole of the page numbers of an index term?

[Wolfgang Schuster]

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

The following solution which adds two additional keys (pageleft and 
pageright)
is cleaner because it doesn’t have to overload commands.


\unprotect

\unexpanded\def\startregisterpages
   {\begingroup
    \dostarttagged\t!registerpages\empty
    \useregisterstyleandcolor\c!pagestyle\c!pagecolor
    \registerparameter\c!pageleft}

\unexpanded\def\stopregisterpages
   {\registerparameter\c!pageright
    \dostoptagged
    \endgroup}

\protect

\setupregister
   [index]
   [n=1,
    alternative=A,
    distance=0pt,
    pageleft=\wordright\bgroup,
    pageright=\egroup]

\starttext
\CONTEXT\index{\ConTeXt}
\page
\LATEX\index{\LaTeX}
\page
\CONTEXT\index{\ConTeXt}
\page
\placeindex
\stoptext


Wolfgang
> MF <mailto:massifr@fastwebnet.it>
> 10. Mai 2018 um 12:35
> This is a more polite version, that lets you restore the original
> macros.
>
> \let\origstartregisterpages=\startregisterpages%
> \let\origstopregisterpages=\stopregisterpages%
> \def\setupregisterpagescommand#1{%
> \unexpanded\def\startregisterpages{\origstartregisterpages#1\bgroup }
> \unexpanded\def\stopregisterpages{\egroup\origstopregisterpages}}
> \def\resetregisterpagescommand{%
> \let\startregisterpages=\origstartregisterpages%
> \let\stopregisterpages=\origstopregisterpages}
>
> \setupregister[index][n=1,alternative=A]
>
> \starttext
> \CONTEXT\index{\ConTeXt}
> \page
> \LATEX\index{\LaTeX}
> \page
> \CONTEXT\index{\ConTeXt}
> \page
> \setupregisterpagescommand{\wordright}
> \placeindex
> \page
> \resetregisterpagescommand
> \placeindex
> \stoptext
>
> btw, Hans, are you going to add an option to \setupregister? :)
> ___________________________________________________________________________________
> 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://context.aanhet.net
> archive : https://bitbucket.org/phg/context-mirror/commits/
> wiki : http://contextgarden.net
> ___________________________________________________________________________________


[-- Attachment #1.2: Type: text/html, Size: 3814 bytes --]

[-- Attachment #2: Type: text/plain, Size: 492 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://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: registers: how can I place a command around the whole of the page numbers of an index term?

[Hans Hagen]

On 5/10/2018 12:35 PM, MF wrote:
> This is a more polite version, that lets you restore the original
> macros.
> 
> \let\origstartregisterpages=\startregisterpages%
> \let\origstopregisterpages=\stopregisterpages%
> \def\setupregisterpagescommand#1{%
>    \unexpanded\def\startregisterpages{\origstartregisterpages#1\bgroup }
>    \unexpanded\def\stopregisterpages{\egroup\origstopregisterpages}}
> \def\resetregisterpagescommand{%
>    \let\startregisterpages=\origstartregisterpages%
>    \let\stopregisterpages=\origstopregisterpages}
> 
> \setupregister[index][n=1,alternative=A]
> 
> \starttext
> \CONTEXT\index{\ConTeXt}
> \page
> \LATEX\index{\LaTeX}
> \page
> \CONTEXT\index{\ConTeXt}
> \page
> \setupregisterpagescommand{\wordright}
> \placeindex
> \page
> \resetregisterpagescommand
> \placeindex
> \stoptext
> 
> btw, Hans, are you going to add an option to \setupregister? :)
knowing that wolfgang looked into it i just wait till he cooks up something

Hans


-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
        tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
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://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: registers: how can I place a command around the whole of the page numbers of an index term?

[MF]

\wordright is ok until the numbers don't exceed the text width.

It manages these two cases right:

Index term, and some
text  21, 34, 45, 72

Index term, and some
text
  21, 34, 45, 72, 89

When the numbers exceed the text width, it fails:

Index term, and some
text
21, 34, 45, 72, 89, 101, 103, 109

It fails because it uses a hbox, that can't do nothing but running
beyond the right margin.

This would be a solution:

Index term, and some
text
 21, 34, 45, 72, 89,
       101, 103, 109

where the rule is: when the numbers exceed the text width, close the
paragraph, then start a new, right aligned one.

So i wrote this:

---------------------------------------------------
\def\wordorparagraphright#1{\let\scratchWidth\relax
  \setbox\scratchbox=\hbox{#1}\newdimen\scratchWidth
  \scratchWidth=\wd\scratchbox
  \ifdim\scratchWidth < 0.9\textwidth
    \wordright{#1}%
  \else
    \par
    \startalignment[flushright]#1\stopalignment
  \fi}

\starttext
\input sapolsky \wordorparagraphright{\it other text} \par
\blank
\input sapolsky \wordorparagraphright{\it other text, this time longer}
\par
\blank
\input sapolsky \wordorparagraphright{\it other text, this time
much much much much much much much much much much much much 
much much much much much much much much much much longer} \par
\stoptext
---------------------------------------------------

But it doesn't work with

---------------------------------------------------
\unprotect

\unexpanded\def\startregisterpages
   {\begingroup
    \dostarttagged\t!registerpages\empty
    \useregisterstyleandcolor\c!pagestyle\c!pagecolor
    \registerparameter\c!pageleft}

\unexpanded\def\stopregisterpages
   {\registerparameter\c!pageright
    \dostoptagged
    \endgroup}

\protect

\def\wordorparagraphright#1{\let\scratchWidth\relax
 
\setbox\scratchbox=\hbox{#1}\newdimen\scratchWidth
 
\scratchWidth=\wd\scratchbox
  \ifdim\scratchWidth < 0.9\textwidth
    \w
ordright{#1}%
  \else
    \par
    \startalignment[flushright]#1\stopalign
ment
  \fi}

\setupregister
   [index]
   [n=1,
    alternative=A,
    distance=0pt,
    pageleft=\wordorparagraphright\bgroup,
    pageright=\egroup]

\starttext
\CONTEXT\index{\ConTeXt}
\page
\LATEX\index{\LaTeX}
\page
\CONTEXT\index{\ConTeXt}
\page
\placeindex
\stoptext
---------------------------------------------------

I suppose it's related to the problem that \groupedcommand solves.
Is there a solution?

An even better solution would be:

Index term, and some
text 21, 34, 45, 72,
   89, 101, 103, 109

where the rule is: put the text until it fills the current line, than
proceed flushing the remainder of the paragraph lines to the right.

Here i tried changing \leftskip in the middle of a paragraph, but it
works globally.

I think this is even harder to implement, at least in the middle of the
register macros.
___________________________________________________________________________________
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://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: registers: how can I place a command around the whole of the page numbers of an index term?

[MF]

> This would be a solution:
> 
> Index term, and some
> text
>  21, 34, 45, 72, 89,
>        101, 103, 109
> 
> where the rule is: when the numbers exceed the text width, close the
> paragraph, then start a new, right aligned one.
> 
> So i wrote this:
> 
> ---------------------------------------------------
> \def\wordorparagraphright#1{\let\scratchWidth\relax
>   \setbox\scratchbox=\hbox{#1}\newdimen\scratchWidth
>   \scratchWidth=\wd\scratchbox
>   \ifdim\scratchWidth < 0.9\textwidth
>     \wordright{#1}%
>   \else
>     \par
>     \startalignment[flushright]#1\stopalignment
>   \fi}
> 
> \starttext
> \input sapolsky \wordorparagraphright{\it other text} \par
> \blank
> \input sapolsky \wordorparagraphright{\it other text, this time
> longer}
> \par
> \blank
> \input sapolsky \wordorparagraphright{\it other text, this time
> much much much much much much much much much much much much 
> much much much much much much much much much much longer} \par
> \stoptext
> ---------------------------------------------------
> 

This, instead, works also with registers:

-------------------------------------------------
--
\unexpanded\def\wordorparagraphright{\dosingleempty\WordOrParagraphRigh
t}

\def\WordOrParagraphRight[#1]{\groupedcommand{\setbox0\hbox\bgroup}
{\egroup\newdimen\myBoxWd\myBoxWd=\wd0
  \ifdim\myBoxWd < .7\hsize
    \wordright{\box0}%
  \else
    \startalignment[flushright]\leftskip=.3\hsize plus 1fil\unhbox0
\stopalignment
  \fi}}

\starttext
\input sapolsky \wordorparagraphright{\it other text} \par
\blank
\input sapolsky \wordorparagraphright{\it other text, this time longer}
\par
\blank
\input sapolsky \wordorparagraphright{\it other text, this time
much much much much much much much much much much much much 
much much much much much much much much much much longer} \par
\stoptext
---------------------------------------------------


A doubt: i'm using box0, is it dangerous?

I tried with scratchbox, but it doesn't work, then i moved to box0, and
it seems to work, even with a big file (with a big register too) of
mine.

___________________________________________________________________________________
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://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________