ledmac (2sep11)

git-svn-id: svn://tug.org/texlive/trunk@23791 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 21 insertions, 4 deletions

diff --git a/Master/texmf-dist/tex/latex/ledmac/ledpar.sty b/Master/texmf-dist/tex/latex/ledmac/ledpar.sty
index 516f36bd844..7c90f0b2415 100644
--- a/Master/texmf-dist/tex/latex/ledmac/ledpar.sty
+++ b/Master/texmf-dist/tex/latex/ledmac/ledpar.sty
@@ -24,8 +24,12 @@
 %% 
 
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{ledpar}[2011/08/22 v0.6 ledmac extension for parallel texts]
+\ProvidesPackage{ledpar}[2011/08/31 v0.7 ledmac extension for parallel texts]
 
+\newif\ifshiftedverses
+\shiftedversesfalse
+\DeclareOption{shiftedverses}{\shiftedversestrue}
+\ProcessOptions
   \l@dpairingfalse
 \newif\ifl@dpaging
   \l@dpagingfalse
@@ -1723,7 +1727,11 @@
 {            \loop\ifl@dsamepage
               \do@lineL
               \advance\numpagelinesL \@ne
-              \hb@xt@ \hsize{\ledstrutL\unhbox\l@dleftbox}%
+              \ifshiftedverses
+               \ifdim\ht\l@dleftbox>0pt\hb@xt@ \hsize{\ledstrutL\unhbox\l@dleftbox}\fi%
+              \else
+               \hb@xt@ \hsize{\ledstrutL\unhbox\l@dleftbox}%
+              \fi
               \get@nextboxL
               \checkpageL
             \repeat
@@ -1739,7 +1747,11 @@
 {            \loop\ifl@dsamepage
               \do@lineR
               \advance\numpagelinesR \@ne
-              \hb@xt@ \hsize{\ledstrutR\unhbox\l@drightbox}%
+              \ifshiftedverses
+               \ifdim\ht\l@drightbox>0pt\hb@xt@ \hsize{\ledstrutR\unhbox\l@drightbox}\fi%
+              \else
+               \hb@xt@ \hsize{\ledstrutR\unhbox\l@drightbox}%
+              \fi
               \get@nextboxR
               \checkpageR
             \repeat
@@ -1874,7 +1886,12 @@
   \fi}
 
 \newdimen\ledthegoal
-\newcommand*{\goalfraction}{0.9}
+\ifshiftedverses
+       \newcommand*{\goalfraction}{0.95}
+\else
+       \newcommand*{\goalfraction}{0.9}
+\fi
+
 \newcommand*{\check@goal}{%
   \ledthegoal=\goalfraction\pagegoal}