summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/ledmac/ledpar.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/latex/ledmac/ledpar.dtx')
-rw-r--r--Master/texmf-dist/source/latex/ledmac/ledpar.dtx49
1 files changed, 45 insertions, 4 deletions
diff --git a/Master/texmf-dist/source/latex/ledmac/ledpar.dtx b/Master/texmf-dist/source/latex/ledmac/ledpar.dtx
index 9384498d841..92471dbdc8b 100644
--- a/Master/texmf-dist/source/latex/ledmac/ledpar.dtx
+++ b/Master/texmf-dist/source/latex/ledmac/ledpar.dtx
@@ -50,7 +50,7 @@
%
% \fi
%
-% \CheckSum{4396}
+% \CheckSum{4448}
%
% \makeatletter
% \newcommand*{\DescribeIt}{\leavevmode\@bsphack\begingroup\MakePrivateLetters
@@ -126,6 +126,7 @@
% \def\fileversion{v0.5} \def\filedate{2011/08/21}
% \def\fileversion{v0.6} \def\filedate{2011/08/22}
% \def\fileversion{v0.7} \def\filedate{2011/08/31}
+% \def\fileversion{v0.8} \def\filedate{2011/09/16}
% \changes{v0.1}{2004/12/10}{First public release}
% \changes{v0.2}{2005/01/01}{Fix babel problems}
% \changes{v0.3}{2005/03/24}{Reorganize for ledarab}
@@ -136,6 +137,7 @@
% \changes{v0.5}{2011/08/21}{Corrections about \cs{section} and other titles in numbered sections}
% \changes{v0.6}{2011/08/22}{Be able to us \cs{chapter} in parallel pages.}
% \changes{v0.7}{2011/08/31}{Option `shiftedverses' which make there is no blank between two parallel verses with inequal length.}
+% \changes{v0.8}{2011/09/16}{Possibility to have a symbol on each hanging of verses, like in the french typography. Redefine the commande \cs{hangingsymbol} to define the character.}
% \hyphenation{man-u-script man-u-scripts}
%
% \newcommand{\Lpack}[1]{\textsf{#1}}
@@ -647,6 +649,10 @@
%
%
%
+% \DescribeMacro{\hangingsymbol}Like in ledmac, you could redefine the command \cmd{\hangingsymbol} to insert a character in each hanged line. If you use it, you must run \LaTeX two time. Example for the french typographie
+%\begin{verbatim}
+%\renewcommand{\hangingsymbol}{[\,}
+%\end{verbatim}
% \StopEventually{}
%
% \clearpage
@@ -687,7 +693,7 @@
% \begin{macrocode}
%<*code>
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{ledpar}[2011/08/31 v0.7 ledmac extension for parallel texts]
+\ProvidesPackage{ledpar}[2011/09/16 v0.8 ledmac extension for parallel texts]
% \end{macrocode}
% With the option `shiftedverses' a long verse one the left side (or in the right side) don't make a blank on the corresponding verse, but the blank is put on the bottom of the page. Consequently, the verses on the parallel pages are shifted, but the shifted stop at every end of pages.
@@ -2081,7 +2087,7 @@
% The \verb?pairs? environment is for parallel columns and the \verb?pages?
% environment for parallel pages.
% \begin{macrocode}
-\newenvironment{pairs}{%
+\newenvironment{pairs}{%}
\l@dpairingtrue
\l@dpagingfalse
}{%
@@ -2424,6 +2430,7 @@
% some common code}
% \begin{macrocode}
\newcommand*{\do@lineL}{%
+ \manageparhangingsymbol
\advance\countLline \@ne
\ifvbox\namebox{l@dLcolrawbox\the\l@dpscL}%
{\vbadness=10000
@@ -2433,7 +2440,7 @@
\global\setbox\one@line=\vsplit\namebox{l@dLcolrawbox\the\l@dpscL}
to\baselineskip}%
\unvbox\one@line \global\setbox\one@line=\lastbox
- \getline@num
+ \getline@numL
\setbox\l@dleftbox
\hb@xt@ \Lcolwidth{%
\affixline@num
@@ -2474,6 +2481,7 @@
% \changes{v0.3}{2005/02/10}{Changed \cs{do@lineR} similarly to \cs{do@lineL}}
% \begin{macrocode}
\newcommand*{\do@lineR}{%
+\manageparhangingsymbol
\advance\countRline \@ne
\ifvbox\namebox{l@dRcolrawbox\the\l@dpscR}%
{\vbadness=10000
@@ -2524,10 +2532,26 @@
\fi
\else
\ifnum\@lockR<\tw@
+ \addtocounter{hbox}{10}%
\global\advance\line@numR \@ne
\global\subline@numR \z@
\fi
\fi}
+\newcommand*{\getline@numL}{%
+ \global\advance\absline@num \@ne
+ \do@actions
+ \do@ballast
+ \ifsublines@
+ \ifnum\sub@lock<\tw@
+ \global\advance\subline@num \@ne
+ \fi
+ \else
+ \ifnum\@lock<\tw@
+ \global\advance\line@num \@ne
+ \addtocounter{hbox}{10}%
+ \global\subline@num \z@
+ \fi
+ \fi}
% \end{macrocode}
@@ -3363,8 +3387,21 @@
% \end{macro}
%
%
+
% \section{Verse}
%
+%
+% The \cmd{\manageparhangingsymbol} command is made to insert the hanging symbol (like in the french typography).
+%\begin{macrocode}
+
+\newcommand{\manageparhangingsymbol}{%
+ \setcounter{hbox}{0}%
+ \everyhbox{%
+ \ifnum \value{hbox}=-2%
+ \hangingsymbol%
+ \fi%
+ \addtocounter{hbox}{-1}}}
+%\end{macrocode}
% Before we can define the main stanza macros we need to be able to save
% and reset
% the category code for \&. To save the current value we use
@@ -3376,6 +3413,7 @@
% \end{macrocode}
%
%
+%
% \begin{environment}{astanza}
% This is roughly an environmental form of \cs{stanza}, which treats
% its stanza-like contents as a single chunk.
@@ -4036,6 +4074,7 @@
\do@lineL
\advance\numpagelinesL \@ne
\ifshiftedverses
+ \addtocounter{hbox}{-1}
\ifdim\ht\l@dleftbox>0pt\hb@xt@ \hsize{\ledstrutL\unhbox\l@dleftbox}\fi%
\else
\hb@xt@ \hsize{\ledstrutL\unhbox\l@dleftbox}%
@@ -4077,6 +4116,7 @@
\do@lineR
\advance\numpagelinesR \@ne
\ifshiftedverses
+ \addtocounter{hbox}{-1}
\ifdim\ht\l@drightbox>0pt\hb@xt@ \hsize{\ledstrutR\unhbox\l@drightbox}\fi%
\else
\hb@xt@ \hsize{\ledstrutR\unhbox\l@drightbox}%
@@ -4126,6 +4166,7 @@
\global\l@dpscR=\z@
\global\l@dnumpstartsL=\z@
\global\l@dnumpstartsR=\z@
+
\ignorespaces}
% \end{macrocode}