verses together

verses together

[Ciro Soto]

I am writing a book with poems and need to maintain four, sometimes
five, lines together
in the same page. I don't know in advance which four lines will be
split at the end of the
page. How would I implement this?

Using \testpage[n] works, only if I know in advance where the the split happens.

thank you
Ciro


-- Links of your interest:
http://www-personal.engin.umd.umich.edu/~cirosoto/
http://www.TheGuitarMakerExploration.com
http://www.myspace.com/sotoaguirre
___________________________________________________________________________________
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
___________________________________________________________________________________

Re: verses together

[Hans Hagen]

Ciro Soto wrote:
> I am writing a book with poems and need to maintain four, sometimes
> five, lines together
> in the same page. I don't know in advance which four lines will be
> split at the end of the
> page. How would I implement this?
> 
> Using \testpage[n] works, only if I know in advance where the the split happens.

add this to your local cont-new.tex file (after \protect):

\def\startlines
   {\@@rgbefore
    \pushmacro\checkindentation
    \whitespace
   %\page[\v!preference]} gaat mis na koppen, nieuw: later \nobreak
    \begingroup
    \setupindenting[\@@rgindenting]%
    \typesettinglinestrue
    \setupwhitespace[\v!none]%
    \obeylines
    \ignorespaces
    \gdef\afterfirstobeyedline % tzt two pass, net als opsomming
      {\gdef\afterfirstobeyedline
         {\nobreak
 
\doifnot\@@rgoption\v!packed{\global\let\afterfirstobeyedline\relax}}}%
    \def\obeyedline
      {\par
       \futurelet\next\dobetweenthelines}%
    \activatespacehandler\@@rgspace
    \GotoPar}

\def\dobetweenthelines
   {\doifmeaningelse\next\obeyedline
     {\@@rginbetween}
     {\afterfirstobeyedline}}

\setuplines
   [\c!option=,
    \c!before=\blank,
    \c!after=\blank,
    \c!inbetween=\blank,
    \c!indenting=\v!no,
    \c!space=\v!default]

-- -- -- --

test: (the packed option is new)

\setuplines[indenting={yes,medium,odd},option=packed] % no yes odd even

\starttext

\dorecurse{33}{test\par}

\startlines
first
second
third
fourth

first
second
third
fourth

first
second
third
fourth

first
second
third
fourth
\stoplines

\stoptext



-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
      tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com
                                              | 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://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________