From c70862e56903d16c3f4a014431e6bf9f9c378115 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 22 Aug 2019 20:24:08 +0000 Subject: poemscol (21aug19) git-svn-id: svn://tug.org/texlive/trunk@51934 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/poemscol/poemscol.sty | 28 ++++++++++++++--------- 1 file changed, 17 insertions(+), 11 deletions(-) (limited to 'Master/texmf-dist/tex/latex/poemscol') diff --git a/Master/texmf-dist/tex/latex/poemscol/poemscol.sty b/Master/texmf-dist/tex/latex/poemscol/poemscol.sty index 1a42da65680..15617f71408 100644 --- a/Master/texmf-dist/tex/latex/poemscol/poemscol.sty +++ b/Master/texmf-dist/tex/latex/poemscol/poemscol.sty @@ -22,8 +22,7 @@ %% in the same archive or directory.) \NeedsTeXFormat{LaTeX2e}[1997/12/01] \ProvidesPackage{poemscol} - [2019/08/03 v3 poemscol file] - % must enclose it in square brackets, not curly ones.\end{sloppypar} + [2019/08/18 v3.02 poemscol file] %|\prosexyznote| %% @@ -92,22 +91,29 @@ \hfuzz=2pt \newlength{\verseindentamount} \setlength{\verseindentamount}{2em} -\newcommand{\verseindent}{\hspace{\verseindentamount}} +\newcount\l@@pcounter +\newcommand{\repeatedindent}[1]{\l@@pcounter=#1% +\loop% +\ifnum\l@@pcounter>0% +\hspace{\verseindentamount}% +\advance \l@@pcounter -1 +\repeat} +\newcommand{\verseindent}[1][]{% +\ifthenelse{\equal{#1}{}}{\hspace{\verseindentamount}}{\repeatedindent{#1}}} \newlength{\indentedstanzaamount} \setlength{\indentedstanzaamount}{\verseindentamount} \newlength{\variablestanzaamount} \setlength{\variablestanzaamount}{\indentedstanzaamount} -\newcount\loopcounter -\newcommand{\adjustst@nzaindent}[1]{\loopcounter=#1 -\loop - \addtolength{\variablestanzaamount}{\indentedstanzaamount} - \advance \loopcounter -1 -\ifnum \loopcounter>0 +\newcommand{\adjustst@nzaindent}[1]{\l@@pcounter=#1% +\loop% + \addtolength{\variablestanzaamount}{\indentedstanzaamount}% + \advance \l@@pcounter -1% +\ifnum \l@@pcounter>0 \repeat} \newif\ifinindentedverse \newenvironment{indentedverse}[1][]{% -\inindentedversetrue -\ifthenelse{\equal{#1}{}}{\relax}{\adjustst@nzaindent{#1}} +\inindentedversetrue% +\ifthenelse{\equal{#1}{}}{\relax}{\adjustst@nzaindent{#1}}% \let\\=\@centercr% \list{}{\itemsep\z@ \itemindent -\runoverindentvalue\listparindent \itemindent \rightmargin 0sp\leftmargin 0sp\advance\leftmargin -- cgit v1.2.3