summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/ledmac/ledmac.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-11-10 00:01:45 +0000
committerKarl Berry <karl@freefriends.org>2011-11-10 00:01:45 +0000
commitf01a57cb491fec4fe48784ed8a048788ddc572d4 (patch)
tree8bd2b79ee03fc8d87e4dea2daf972fc7cc6e58db /Master/texmf-dist/tex/latex/ledmac/ledmac.sty
parent7ec50efcbabe73cfe05cb85be9ebca8319eb32c6 (diff)
ledmac (9nov11)
git-svn-id: svn://tug.org/texlive/trunk@24561 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/ledmac/ledmac.sty')
-rw-r--r--Master/texmf-dist/tex/latex/ledmac/ledmac.sty32
1 files changed, 23 insertions, 9 deletions
diff --git a/Master/texmf-dist/tex/latex/ledmac/ledmac.sty b/Master/texmf-dist/tex/latex/ledmac/ledmac.sty
index dcd5a7301a3..8c01163223a 100644
--- a/Master/texmf-dist/tex/latex/ledmac/ledmac.sty
+++ b/Master/texmf-dist/tex/latex/ledmac/ledmac.sty
@@ -23,7 +23,7 @@
%% This work consists of the files listed in the README file.
%%
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{ledmac}[2011/10/02 v0.12.1 LaTeX port of EDMAC]
+\ProvidesPackage{ledmac}[2011/11/08 v0.13 LaTeX port of EDMAC]
\newif\ifledfinal
\DeclareOption{final}{\ledfinaltrue}
@@ -2453,7 +2453,7 @@
\let\ledllfill\hfil
\let\ledrlfill\hfil
\def\@tempa{#1}\def\@tempb{l}%
- \ifx\@tempa\@tempb
+ \ifx\@tempa\@tempb
\let\ledllfill\relax
\else
\def\@tempb{r}%
@@ -2627,23 +2627,37 @@
\newcommand*{\setstanzaindents}[1]{\setstanzavalues{sza}{#1}}
\newcommand*{\setstanzapenalties}[1]{\setstanzavalues{szp}{#1}}
+\newcounter{stanzaindentsrepetition}
+\newcount\stanza@modulo
+
+\newcommand*{\managestanza@modulo}[0]{
+ \advance\stanza@modulo\@ne
+ \ifnum\stanza@modulo>\value{stanzaindentsrepetition}
+ \stanza@modulo\@ne
+ \fi
+}
\def\stanza@line{
-\parindent=\csname sza@\number\stanza@count
+ \ifnum\value{stanzaindentsrepetition}=0
+ \parindent=\csname sza@\number\stanza@count
@\endcsname\stanzaindentbase
- \pstart\stanza@hang\ignorespaces}
+ \else
+ \managestanza@modulo
+ \parindent=\csname sza@\number\stanza@modulo
+ @\endcsname\stanzaindentbase
+ \fi
+ \pstart\stanza@hang\ignorespaces}
\xdef\stanza@hang{\noexpand\leavevmode\noexpand\startlock
\hangindent\expandafter
\noexpand\csname sza@0@\endcsname\stanzaindentbase
\hangafter\@ne}
\def\sza@penalty{\count@\csname szp@\number\stanza@count @\endcsname
- \ifnum\count@>\@M\advance\count@-\@M\penalty-\else
- \penalty\fi\count@}
-
+ \ifnum\count@>\@M\advance\count@-\@M\penalty-\else
+ \penalty\fi\count@}
\let\startstanzahook\relax
\let\endstanzaextra\relax
\xdef\stanza{\noexpand\instanzatrue\expandafter
- \begingroup\startstanzahook%
- \catcode`\&\active\global\stanza@count\@ne
+ \begingroup\startstanzahook%
+ \catcode`\&\active\global\stanza@count\@ne\stanza@modulo\@ne
\noexpand\ifnum\expandafter\noexpand
\csname sza@0@\endcsname=\z@\let\noexpand\stanza@hang\relax
\let\noexpand\endlock\relax\noexpand\else\interlinepenalty