Cfrgtkky

The poetry package overrides \*, which means that I can't use that to prevent page breaks in the middle of a stanza. Is there another way to create a line break while forbidding a page break at the same location? Preferably a setting, rather than adding something to the end of every line - but whatever works, works.

Example:

documentclass[a4paper]{article}

usepackage{poetry}



begin{document}



Some text.

vspace{15cm} % Force poem down page



poem

Some poetry\

A metaphor here,\

A metaphor there.\!



Here begins another stanza\

More words.\!



The final stanza\

A final metaphor\

The end\-



end{document}

I'd like to prevent page breaks in mid-stanza (in the final stanza in the compiled example).

Not sure if this is sufficient, but it allows the avoidance of 1-line widows by growing the page by baselineskip. It is invoked with \*

The "fix" accomplishes this by redefining poem@endpart, which is what gets invoked via \*. The original poem@endpart is saved in poemendpart

The following MWE demonstrates the use of \* on page 1, but not on page 2 (which wraps to page 3).

documentclass[a4paper]{article}

usepackage{poetry}



makeatletter

letpoemendpartpoem@endpart

defpoem@endpart{enlargethispage{baselineskip}poem@endline}

makeatother

begin{document}



Some text.

vspace{16.2cm} % Force poem down page





poem

Some poetry\

A metaphor here,\

A metaphor there.\!



Here begins another stanza\

More words.\!



The final stanza\

A final metaphor\*

The end\-

clearpage

Some text.

vspace{16.2cm} % Force poem down page





poem

Some poetry\

A metaphor here,\

A metaphor there.\!



Here begins another stanza\

More words.\!



The final stanza\

A final metaphor\

The end\-



end{document}

An alternative in the other direction, that is, forcing an early break, is to issue a clearpage immediately prior to a \, as in

documentclass[a4paper]{article}

usepackage{poetry}



begin{document}



Some text.

vspace{16.2cm} % Force poem down page





poem

Some poetry\

A metaphor here,\

A metaphor there.\!



Here begins another stanza\

More words.clearpage\!



The final stanza\

A final metaphor\

The end\-

clearpage

Some text.

vspace{16.2cm} % Force poem down page





poem

Some poetry\

A metaphor here,\

A metaphor there.\!



Here begins another stanza\

More words.\!



The final stanza\

A final metaphor\

The end\-



end{document}

SUPPLEMENT

This attempt tries to modify the use of \ so that page breaks are prevented altogether. Thus, a normal verse will never break across a page boundary midway through. Seems to work for this use case.

I edited poem@endline to begin with a nopagebreak, so that a break did not occur at such a line. However, additional instances of nopagebreak needed to be added in the macro placelineno, after instances of hskip, to prevent pagebreaks following the line number (but before the verse line). I don't think I got them all, but enough to demonstrate the effect in the OP's MWE.

documentclass[a4paper]{article}

usepackage{poetry}



makeatletter



defpoem@endline{nopagebreak%

par%

advancepoemlineno by1%

advancevslineno by1%

poem@defaultpars%

leftskip=poem@defleftskip%

placelineno%

}%



defplacelineno{%

setcounter{verseline}{thevslineno}%

setcounter{poemline}{thepoemlineno}%

poem@linenumsevery=value{poemlinenumsevery}%

poem@linenumboxgap=thepoemlinenumboxgap%

poem@linenumboxwd=thepoemlinenumboxwd%

modulo{thepoemlineno}{thepoem@linenumsevery}%

ifpoemlinenums%

ifnumpoem@tmpa=0%

ifpoemlinenumright%

hskip0ptnopagebreaktlap{%

rlap{%

hskippoem@maxlinewd%

hskippoem@linenumboxgap%

hbox topoem@linenumboxwd{%

hfil%

poemlinenumstylethepoemline%

}%

}%

}%

else%

hskip-poem@linenumboxgapnopagebreak%

llap{%

tlap{%

hbox topoem@linenumboxwd{%

poemlinenumstylethepoemline%

hfil%

}penalty10000%

}%

}penalty10000%

fi%

else

hskip-poem@linenumboxgapnopagebreak%

llap{tlap{hbox topoem@linenumboxwd{hfil}}}%

penalty10000%

fi%

else

hskip-poem@linenumboxgapnopagebreak%

llap{tlap{hbox topoem@linenumboxwd{hfil}}}%

penalty10000%

fi%

parvskip-baselineskip%

poem@indentevery=value{poemindentevery}%

ifnumpoem@indentevery=0%

else%

modulo{thepoemlineno}{thepoem@indentevery}%

ifnumpoem@tmpa=0%

hin%

fi%

fi%

expandafterpoem@expandvsloopexpandafter{poemvsindentlines}%

def@currentlabel{thepoemline}%

phantomsection%

}%





letpoemendpartpoem@endpart

defpoem@endpart{enlargethispage{baselineskip}poem@endline}

makeatother

begin{document}



Some text.

vspace{16.2cm} % Force poem down page





poem

Some poetry\

A metaphor here,\

A metaphor there.\!



Here begins another stanza\

More words.\!



The final stanza\

A final metaphor\*

The end\-

clearpage

Some text.

vspace{16.2cm} % Force poem down page





poem

Some poetry\

A metaphor here,\

A metaphor there.\!



Here begins another stanza\

More words.\!



The final stanza\

A final metaphor\

The end\-



end{document}