summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/poemscol
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2006-10-04 08:43:01 +0000
committerNorbert Preining <preining@logic.at>2006-10-04 08:43:01 +0000
commitba9472aebfed07843bc4faa00c7b96bc86194691 (patch)
tree4a952a012e2f1663beaac6384dec265fb50dd361 /Master/texmf-dist/tex/latex/poemscol
parenta88bdfe70c672cfced299babf0a54881a916bcca (diff)
Fix ctan2tds for pgf installation
comment powerdot-doc-vn in tpm-ctan-check, it always breaks Update of the following packages: labelcas pstricks-add sectionbox ltxmisc frenchle flowfram verse emulateapj pst-pdf poemscol babelbib dk-bib breakurl screenplay ncctools xkeyval bibleref muthesis pst-labo pgf ncclatex active-conf xcolor commath lineno dottex makeplo git-svn-id: svn://tug.org/texlive/trunk@2240 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/poemscol')
-rw-r--r--Master/texmf-dist/tex/latex/poemscol/poemscol.sty304
1 files changed, 244 insertions, 60 deletions
diff --git a/Master/texmf-dist/tex/latex/poemscol/poemscol.sty b/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
index 9f3c6111f71..654fd1dbf20 100644
--- a/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
+++ b/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
@@ -22,7 +22,8 @@
%% in the same archive or directory.)
\NeedsTeXFormat{LaTeX2e}[1997/12/01]
\ProvidesPackage{poemscol}
- [2006/04/25 v2.49 poemscol file]
+ [2006/05/19 v2.51 poemscol file]
+
@@ -268,10 +269,16 @@
\newcommand{\resetpagestyle}{\pagestyle{main}
}
\newcommand{\clearemptydoublepage}{\newpage{\pagestyle{empty}\cleardoublepage}}
+\newtoks{\singlepageabbrev}
+\singlepageabbrev={p.}
+\newcommand{\changesinglepageabbrev}[1]{\singlepageabbrev={#1}}
+\newtoks{\multiplepageabbrev}
+\newcommand{\changemultiplepageabbrev}[1]{\multiplepageabbrev={#1}}
+\multiplepageabbrev{pp.}
\newcommand{\mymarks}{%
\ifthenelse{\equal{\firstmark}{\botmark}}%
- {\unskip to p.~\firstmark}% if equal
- {\unskip to pp.~\firstmark--\botmark}}%if not equal
+ {\unskip ~\the\singlepageabbrev~\firstmark}% if equal
+ {\unskip ~\the\multiplepageabbrev~\firstmark--\botmark}}%if not equal
\newcommand{\poemdotfill}{\dotfill}
\newenvironment{stanza}{\penalty-100\instanzatrue\mark{\nostanzaatbottomvalue\ }}
{\nobreak\mark{\stanzaatbottomvalue\ }\nobreak\ifspeciallinelock%
@@ -430,7 +437,6 @@
\setlength{\marginparwidth}{10pt}%
\numbersswitchfalse\numbersrightfalse}
\newcommand{\verselinenumberstoright}{%
- % \setlength{\marginparsep}{-18pt}%
\setlength{\marginparsep}{18pt}%
\setlength{\marginparwidth}{10pt}%
\numbersswitchfalse\numbersrighttrue}
@@ -543,6 +549,14 @@
{\string\newlabel{#1}{{\theverselinenumber}{\thepage}}}%
\@esphack
}
+\newtoks{\contentsname}
+\contentsname={CONTENTS}
+\newtoks{\contentsheadername}
+\contentsheadername={Contents}
+\newcommand{\changecontentsname}[1]{%
+\contentsname={#1}}
+\newcommand{\changecontentsheader}[1]{%
+\contentsheadername={#1}}
\newcommand{\makepoemcontents}[1][5]{\global\poemcontentsontrue
\newwrite\poemcontents
\immediate\openout\poemcontents=\jobname.ctn
@@ -552,16 +566,24 @@
\pagenumbering{roman}
\setcounter{page}{#1}
\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
-\fancyhead[CO]{{\small{\em Contents}}}
-\fancyhead[CE]{{\small{\em Contents}}}
+\fancyhead[CO]{{\small{\em \the\contentsheadername}}}
+\fancyhead[CE]{{\small{\em \the\contentsheadername}}}
\fancyfoot{}
\backmattersink
\begin{center}{\normalfont \backmatterheaderfont
-CONTENTS}\end{center}
+\the\contentsname}\end{center}
\lefthyphenmin=2\backmatterafterheadersink\tolerance=500\language=0}
\literalcontents{ \relax}}
-
+\newtoks{\notesname}
+\notesname={TEXTUAL NOTES}
+\newcommand{\changenotesname}[1]{\notesname={#1}}
+\newtoks{\notesheadername}
+\notesheadername={Textual Notes to}
+\newcommand{\changenotesheader}[1]{\notesheadername={#1}}
+\newtoks{\textnotescontentsname}
+\textnotescontentsname={Textual Notes}
+\newcommand{\changetextnotescontentsname}[1]{\textnotescontentsname={#1}}
\newcommand{\maketextnotes}{\global\textnotesontrue
\global\verselinenumberstrue
\newwrite\textnotes
@@ -572,17 +594,27 @@ CONTENTS}\end{center}
\fancyhead{}
\fancyfoot{}
\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
-\fancyhead[CO]{{\small{\em Textual Notes~\mymarks}}}
-\fancyhead[CE]{{\small{\em Textual Notes~\mymarks}}}
+\fancyhead[CO]{{\small{\em \the\notesheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\notesheadername~\mymarks}}}
\fancyfoot[C]{}
\mark{3}
\backmattersink
-\begin{center}{\normalfont \backmatterheaderfont TEXTUAL NOTES}\end{center}
+\begin{center}{\normalfont \backmatterheaderfont \the\notesname}\end{center}
\label{textualnotes}
\lefthyphenmin=2\backmatterafterheadersink\tolerance=500\language=0
\normalfont \backmattertextfont}
}
+\newtoks{\emendationsname}
+\emendationsname={EMENDATIONS}
+\newcommand{\changeemendationsname}[1]{\emendationsname={#1}}
+\newtoks{\emendationsheadername}
+\emendationsheadername={Emendations to}
+\newcommand{\changeemendationsheader}[1]{\emendationsheadername={#1}}
+\newtoks{\emendationscontentsname}
+\emendationscontentsname={Emendations}
+\newcommand{\changeemendationscontentsname}[1]{%
+\emendationscontentsname={#1}}
\newcommand{\makeemendations}{\global\emendationsontrue
\newwrite\emendations
\global\verselinenumberstrue
@@ -592,18 +624,28 @@ CONTENTS}\end{center}
\thispagestyle{volumetitlestyle}}
\fancyhead{}
\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
-\fancyhead[CO]{{\small{\em Emendations~\mymarks}}}
-\fancyhead[CE]{{\small{\em Emendations~\mymarks}}}
+\fancyhead[CO]{{\small{\em \the\emendationsheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\emendationsheadername~\mymarks}}}
\fancyfoot{}
\mark{3}
\backmattersink
\begin{center}{\normalfont \backmatterheaderfont
-EMENDATIONS}\end{center}
+\the\emendationsname}\end{center}
\label{emendationnotes}
\lefthyphenmin=2\backmatterafterheadersink\tolerance=500\language=0
\normalfont \backmattertextfont}
}
+\newtoks{\explanationsname}
+\explanationsname={EXPLANATORY NOTES}
+\newcommand{\changeexplanationsname}[1]{\explanationsname={#1}}
+\newtoks{\explanationsheadername}
+\explanationsheadername={Explanatory Notes to}
+\newcommand{\changeexplanationsheader}[1]{\explanationsheadername={#1}}
+\newtoks{\explanationscontentsname}
+\explanationscontentsname={Explanatory Notes}
+\newcommand{\changeexplanationscontentsname}[1]{%
+\explanationscontentsname={#1}}
\newcommand{\makeexplanatorynotes}{\global\explanontrue
\global\verselinenumberstrue
\newwrite\explanations
@@ -612,13 +654,13 @@ EMENDATIONS}\end{center}
{\pagestyle{volumetitlestyle}\cleardoublepage}
\thispagestyle{volumetitlestyle}}
\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
-\fancyhead[CO]{{\small{\em Explanatory Notes~\mymarks}}}
-\fancyhead[CE]{{\small{\em Explanatory Notes~\mymarks}}}
+\fancyhead[CO]{{\small{\em \the\explanationsheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\explanationsheadername~\mymarks}}}
\fancyfoot{}
\mark{3}
\backmattersink
\begin{center}{\normalfont \backmatterheaderfont
-EXPLANATORY NOTES}\end{center}
+\the\explanationsname}\end{center}
\label{explanatorynotes}
\lefthyphenmin=2\backmatterafterheadersink\tolerance=500\language=0
\normalfont \backmattertextfont }
@@ -626,12 +668,12 @@ EXPLANATORY NOTES}\end{center}
\newcommand{\@pagemarktotextnotes}[1]{%
\immediate\write\textnotes{\string\setcounterfrompageref\string{notepageholdertitle\string}%
-\string{#1\string}}%
-\immediate\write\textnotes{\string\mark
+\string{#1\string}\string\unskip}%
+\immediate\write\textnotes{\string\mark%
\string{\string\thenotepageholdertitle\string}}%
}
\newcommand{\@poempagetotextnotes}[1]{%
- \immediate\write\textnotes{\string\par\string\argpageref\string{#1\string}}%
+\immediate\write\textnotes{\string\par\string\argpageref\string{#1\string}\string\unskip}%
\@pagemarktotextnotes{#1}}
\newcommand{\@poemtitletotextnotes}[1]{\literaltextnote{\textbf{#1}}}
@@ -791,7 +833,6 @@ EXPLANATORY NOTES}\end{center}
\@poemtitletotextnotes{#1}%
\fi\fi
}
-
\newcommand{\poemtitle}[1]{%
\set@p@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}%
{\relax}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}%
@@ -799,6 +840,15 @@ EXPLANATORY NOTES}\end{center}
{\contentsindenttwoamount}%
\t@xtnotesinfo{#1}%
}
+\newcommand{\poemtitlenocontents}[1]{%
+\set@p@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}%
+{\relax}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}%
+\t@xtnotesinfo{#1}%
+}
+\newcommand{\poemtitlebaretitle}[1]{%
+\set@p@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}%
+{\relax}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}%
+}
\newcommand{\poemtitleitalic}[2]{%
\poemtitle{#1}}
\newcommand{\firstlinesettings}{\singlelinetitlefalse
@@ -1177,6 +1227,7 @@ EXPLANATORY NOTES}\end{center}
\c@ntentsinfo{#1}{\contentsindentone}{\contentspoemtitlefont}%
{\contentsindenttwoamount}%
\t@xtnotesinfo{#1}%
+\sources{\label{#2}}%
}
\newcommand{\set@margp@emtitle}[7]{\setlength{\titleentryoverrun}{#6}%
{#2}%
@@ -1187,10 +1238,25 @@ EXPLANATORY NOTES}\end{center}
\m@ken@teholder{#1}%
\setlength{\titleentryoverrun}{\z@}}
\newcommand{\JHpoemtitle}[2]{%
-\setmargpoemtitle{#1}{\JHlabel{#2}}%
+\set@margp@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}%
+{\relax}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}%
+{\JHlabel{#2}}%
+\c@ntentsinfo{#1}{\contentsindentone}{\contentspoemtitlefont}%
+{\contentsindenttwoamount}%
+\t@xtnotesinfo{#1}%
+\sources{\label{#2}}%
+}
+\newcommand{\JHprosesectiontitle}[2]{%
+\set@margp@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}%
+{\relax}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}%
+{\JHlabel{#2}}%
+\c@ntentsinfo{#1}{\contentsindentone}{\contentspoemtitlefont}%
+{\contentsindenttwoamount}%
+\t@xtnotesinfo{#1}%
+\sources{\label{#2}}%
}
\newcommand{\JHlabel}[1]{%
-\marginpar{{\scriptsize{\dag~p.~\pageref{#1}}}}}
+\marginpar{{\scriptsize{\the\margrefmarker~p.~\pageref{#1}}}}}
\newcommand{\JHsequencetitle}[2]{%
\set@margp@emtitle{#1}{\sequencetitlepenalty}{\sequencetitlefont}%
{\relax}{\nobreak\par\nobreak\aftersequencetitleskip\nobreak}{\z@}%
@@ -1200,6 +1266,7 @@ EXPLANATORY NOTES}\end{center}
{\contentsindenttwoamount}%
\putpagenumberincontentstrue%
\t@xtnotesinfo{#1}%
+\sources{\label{#2}}%
}
\newcommand{\JHsequencesectiontitle}[2]{%
\set@margp@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}%
@@ -1208,6 +1275,7 @@ EXPLANATORY NOTES}\end{center}
\c@ntentsinfo{#1}{\contentsindenttwo}{\contentspoemtitlefont}%
{\contentsindentthreeamount}%
\t@xtnotesinfo{#1}%
+\sources{\label{#2}}%
}
\newcommand{\JHsequencefirstsectiontitle}[2]{%
\set@margp@emtitle{#1}{\par\nobreak\afterpoemtitleskip}{\poemtitlefont}%
@@ -1216,6 +1284,66 @@ EXPLANATORY NOTES}\end{center}
\c@ntentsinfo{#1}{\contentsindenttwo}{\contentspoemtitlefont}%
{\contentsindentthreeamount}%
\t@xtnotesinfo{#1}%
+\sources{\label{#2}}%
+}
+\newcommand{\JHpoemsectiontitle}[2]{%
+\set@margp@emtitle{#1}{\poemtitlepenalty}{\subsectiontitlefont}%
+{\titleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}%
+{\titleindentamount}{\JHlabel{#2}}%
+\c@ntentsinfo{#1}{\contentsindenttwo}{\contentspoemtitlefont}%
+{\contentsindentthreeamount}%
+\t@xtnotesinfo{#1}%
+\sources{\label{#2}}%
+}
+\newcommand{\JHpoemfirstsectiontitle}[2]{%
+\set@margp@emtitle{#1}{\par\nobreak}{\subsectiontitlefont}%
+{\titleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}%
+{\titleindentamount}{\JHlabel{#2}}%
+\c@ntentsinfo{#1}{\contentsindenttwo}{\contentspoemtitlefont}%
+{\contentsindentthreeamount}%
+\t@xtnotesinfo{#1}%
+\sources{\label{#2}}%
+}
+\newcommand{\JHsequencesectionsubtitle}[2]{%
+\set@margp@emtitle{#1}{\par\nobreak}{\subsectiontitlefont}%
+{\titleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}%
+{\titleindentamount}{\JHlabel{#2}}%
+\sources{\label{#2}}%
+}
+\newcommand{\JHpoemsubtitle}[2]{\JHsequencesectionsubtitle{#1}{#2}
+}
+\newcommand{\JHdedication}[2]{\nopagebreak\afterpoemtitleskip\begin{epigraphquote}%
+\emph{#1}\JHlabel{#2}\end{epigraphquote}%
+\sources{\label{#2}}\afterpoemtitleskip\nopagebreak}
+\newcommand{\JHepigraph}[2]{\nopagebreak\afterpoemtitleskip\begin{epigraphquote}%
+\emph{#1}\JHlabel{#2}\end{epigraphquote}%
+\sources{\label{#2}}\afterpoemtitleskip\nopagebreak}
+\newcounter{margrefnumber}
+\setcounter{margrefnumber}{1}
+\newtoks{\margrefmarker}
+\margrefmarker={\dag}
+\newcommand{\setmargrefmarker}[1]{\margrefmarker={#1}}
+\newcommand{\makemargreflabel}{\string\label\string{margref\themargrefnumber\string}}
+\newcommand{\setmargref}
+{\marginpar{\scriptsize {\the\margrefmarker~p.~\pageref{margref\themargrefnumber}}}
+}
+\newcommand{\margreftextnote}{%
+\iftextnoteson\addtocounter{margrefnumber}{1}%
+\immediate\write\textnotes{\makemargreflabel}%
+\setmargref\else\relax\fi%
+}
+\newcommand{\margrefexplanatory}{%
+\ifexplanon\addtocounter{margrefnumber}{1}%
+\immediate\write\explanations{\makemargreflabel}%
+\setmargref\else\relax\fi%
+}
+\newcommand{\margrefemendation}{%
+\ifemendationson\addtocounter{margrefnumber}{1}%
+\immediate\write\emendations{\makemargreflabel}%
+\setmargref\else\relax\fi%
+}
+\newcommand{\margrefspecial}[1]{%
+\marginpar{\scriptsize {\the\margrefmarker~p.~\pageref{#1}}}
}
\newcommand{\epigraph}[1]{\nopagebreak\afterpoemtitleskip\begin{epigraphquote}
\emph{#1}\end{epigraphquote}\afterpoemtitleskip\nopagebreak}
@@ -1410,7 +1538,7 @@ EXPLANATORY NOTES}\end{center}
\xdef#1{\the\toks@}%
\endgroup}
\makeatother
-\newcommand{\definenewnotetype}[4]{%
+\newcommand{\definenewnotetype}[5]{%
\expandafter\newif\csname if#1son\endcsname
\global\csname #1sontrue\endcsname
\expandafter\newif\csname ifno#1yet\endcsname
@@ -1494,11 +1622,17 @@ EXPLANATORY NOTES}\end{center}
\immediate\expandafter\closeout\csname #1s\endcsname
\expandafter\input \jobname.#2
\ifpoemcontentson
- \immediate\write\poemcontents{\string\contentspoemtitlefont\ #3}
- \immediate\write\poemcontents{\string~ / \string~\ \string\pageref{#1notes} \string\par}
+ \immediate\write\poemcontents{\string\contentspoemtitlefont\ #5}
+ \immediate\write\poemcontents{\string~ \string\contentsleaders
+ \string~\ \string\pageref{#1notes} \string\par}
\immediate\write\poemcontents{\string\par \string\smallskip}
\fi
}
+\expandafter\newcommand\csname margref#1\endcsname{%
+\addtocounter{margrefnumber}{1}
+\immediate\write\expandafter\csname #1s\endcsname{\makemargreflabel}%
+\setmargref
+}
}
\newcounter{proselinenumber}
\setcounter{proselinenumber}{1}
@@ -1508,11 +1642,14 @@ EXPLANATORY NOTES}\end{center}
\newcommand{\setprosemodulo}[1]{\modulolinenumbers[#1]}
\newcommand{\prosesectiontitle}[1]{\poemtitle{#1}}
\newcommand{\prosesectiontitlenotitle}[1]{\poemtitlenotitle{#1}}
-\newenvironment{prosesection}
-{\resetlinenumber\begin{linenumbers}%
\setcounter{prosemodulo}{\value{lineindexrepeat}}%
\addtocounter{prosemodulo}{1}%
-\modulolinenumbers[\value{prosemodulo}]%
+\ifx\modulolinenumbers\undefined%
+ \relax\else
+\modulolinenumbers[\value{prosemodulo}]% if lineno is called
+\fi
+\newenvironment{prosesection}
+{\resetlinenumber\begin{linenumbers}%
\renewcommand{\linenumberfont}{\scriptsize}%
\ifnumbersright\rightlinenumbers*\setlength{\linenumbersep}{-\marginparsep}%
\else\ifnumbersswitch\rightlinenumbers*\setlength{\linenumbersep}{-\marginparsep}%
@@ -1525,10 +1662,13 @@ EXPLANATORY NOTES}\end{center}
{\end{linenumbers}}
\newenvironment{prosesectionnoreset}
{\begin{linenumbers}%
-\setcounter{prosemodulo}{\value{lineindexrepeat}}%
-\addtocounter{prosemodulo}{1}%
-\modulolinenumbers[\value{prosemodulo}]%
-\renewcommand{\linenumberfont}{\scriptsize}}{\end{linenumbers}}
+\renewcommand{\linenumberfont}{\scriptsize}
+\ifnumbersright\rightlinenumbers*\setlength{\linenumbersep}{-\marginparsep}%
+\else\ifnumbersswitch\rightlinenumbers*\setlength{\linenumbersep}{-\marginparsep}%
+\else\leftlinenumbers*\setlength{\linenumbersep}{\marginparsep}%
+\addtolength{\linenumbersep}{5pt}% seems about right
+\fi\fi
+}{\end{linenumbers}}
\makeatletter
\newcommand*{\ifrefundefined}[1]{%
\expandafter\ifx\csname r@#1\endcsname\relax
@@ -2007,16 +2147,18 @@ r@#2\endcsname{}{}\@nil
}
\newcommand{\bibleverse}{\pmsentence}
\newcommand{\biblechapter}{\pmpara}
-\newcommand{\quotedversecorrectiontextnote}
-{\iftextnoteson\immediate\write
-\textnotes{\string\par\string\noindent\string\kern-\parindent}\fi}% a bad kludge
-\newcommand{\quotedversecorrectionemendation}
-{\ifemendationson\immediate\write
-\emendations{\string\par\string\noindent\string\kern-\parindent}\fi}% a bad kludge
-\newcommand{\quotedversecorrectionexplanatory}
-{\ifexplanon\immediate\write
-\explanations{\string\par\string\noindent\string\kern-\parindent}\fi}% a bad kludge
-
+\newcommand{\quotedversecorrectiontextnote}[1][0pt]
+{\iftextnoteson%
+\immediate\write\textnotes{\string\noindent\string\kern-#1}%
+\fi}
+\newcommand{\quotedversecorrectionemendation}[1][0pt]
+{\ifemendationson%
+\immediate\write\emendations{\string\noindent\string\kern-#1}%
+\fi}
+\newcommand{\quotedversecorrectionexplanatory}[1][0pt]
+{\ifexplanon%
+\immediate\write\explanations{\string\noindent\string\kern-#1}%
+\fi}
\newcommand{\stanzaatbottom}[1]{\global\edef\stanzaatbottomvalue{#1}}
\stanzaatbottom{*}
@@ -2137,7 +2279,6 @@ r@#2\endcsname{}{}\@nil
\inpoemfalse\mark{\relax}
\goodbreak\afterpoemskip%\bigskip
\fi\fi }
-
\renewenvironment{stanza}{\penalty-100\instanzatrue\mark{\nostanzaatbottomvalue\ }}
{\ifversostanzastillopen
\relax
@@ -2317,27 +2458,29 @@ r@#2\endcsname{}{}\@nil
\fi
\ifpoemcontentson
\ifemendationson
- \immediate\write\poemcontents{\string\contentspoemtitlefont\ Emendations}
+ \immediate\write\poemcontents{\string\contentspoemtitlefont\
+ \the\emendationscontentsname}
\immediate\write
\poemcontents{\string~ / \string~\ \string\pageref{emendationnotes} \string\par}
\immediate\write\poemcontents{\string\par \string\smallskip}
\fi
\iftextnoteson
- \immediate\write\poemcontents{\string\contentspoemtitlefont\ Textual Notes}
+ \immediate\write\poemcontents{\string\contentspoemtitlefont\
+ \the\textnotescontentsname}
\immediate\write
\poemcontents{\string~ / \string~\ \string\pageref{textualnotes} \string\par}
\immediate\write\poemcontents{\string\par \string\smallskip}
\fi
\ifexplanon
\immediate\write
-\poemcontents{\string\contentspoemtitlefont\ Explanatory Notes}
+\poemcontents{\string\contentspoemtitlefont\ \the\explanationscontentsname}
\immediate\write
\poemcontents{\string~ / \string~\ \string\pageref{explanatorynotes}}
\fi
\ifindexingon
\immediate\write\poemcontents{\string\par \string\smallskip}
\immediate\write
-\poemcontents{\string\contentspoemtitlefont\ Index of Titles and First Lines}
+\poemcontents{\string\contentspoemtitlefont\ \the\poemindexcontentsname}
\immediate\write
\poemcontents{\string~ / \string~\ \string\pageref{indexpage}\string\par}
\fi
@@ -2380,9 +2523,10 @@ wherever such spaces are lost in pagination.
\input \jobname.emd
\ifpoemcontentson
\ifemendationson
-\immediate\write\poemcontents{\string\contentspoemtitlefont\ Emendations}
+\immediate\write\poemcontents{\string\contentspoemtitlefont\ \the\emendationscontentsname}
\immediate\write
- \poemcontents{\string~ / \string~\ \string\pageref{emendationnotes} \string\par}
+ \poemcontents{\string~ \string\contentsleaders \string~\
+ \string\pageref{emendationnotes} \string\par}
\immediate\write\poemcontents{\string\par \string\smallskip}
\fi
\fi
@@ -2397,9 +2541,10 @@ wherever such spaces are lost in pagination.
\input \jobname.enx
\ifpoemcontentson
\ifexplanon
-\immediate\write\poemcontents{\string\contentspoemtitlefont\ Explanatory Notes}
+\immediate\write\poemcontents{\string\contentspoemtitlefont\ \the\explanationscontentsname}
\immediate\write
- \poemcontents{\string~ / \string~\ \string\pageref{explanatorynotes} \string\par}
+ \poemcontents{\string~ \string\contentsleaders \string~\
+ \string\pageref{explanatorynotes} \string\par}
\immediate\write\poemcontents{\string\par \string\smallskip}
\fi
\fi
@@ -2414,26 +2559,62 @@ wherever such spaces are lost in pagination.
\input \jobname.ent
\ifpoemcontentson
\iftextnoteson
-\immediate\write\poemcontents{\string\contentspoemtitlefont\ Textual Notes}
+\immediate\write\poemcontents{\string\contentspoemtitlefont\ \the\textnotescontentsname}
\immediate\write
- \poemcontents{\string~ / \string~\ \string\pageref{textualnotes} \string\par}
+ \poemcontents{\string~ \string\contentsleaders \string~\
+ \string\pageref{textualnotes} \string\par}
\immediate\write\poemcontents{\string\par \string\smallskip}
\fi
\fi
\else
\relax
\fi}
+\newtoks{\poemindexname}
+\poemindexname={Index of Titles and First Lines}
+\newcommand{\changepoemindexname}[1]{\poemindexname={#1}}
+\newtoks{\poemindexheadername}
+\poemindexheadername={Index of Titles and First Lines}
+\newcommand{\changepoemindexheader}[1]{\poemindexheadername={#1}}
+\newtoks{\poemindexcontentsname}
+\poemindexcontentsname={Index of Titles and First Lines}
+\newcommand{\changepoemindexcontentsname}[1]{\poemindexcontentsname={#1}}
\newcommand{\putpoemindex}{\ifindexingon
\printindex
\fi
\ifpoemcontentson\ifindexingon
\immediate\write\poemcontents{\string\par \string\smallskip}
\immediate\write
-\poemcontents{\string\contentspoemtitlefont\ Index of Titles and First Lines}
+\poemcontents{\string\contentspoemtitlefont\ \the\poemindexcontentsname}
\immediate\write
-\poemcontents{\string~ / \string~\ \string\pageref{indexpage}\string\par}
+\poemcontents{\string~\string\contentsleaders \string~\ \string\pageref{indexpage}\string\par}
\fi\fi}
+\newcommand{\putmultiplepoemindex}[4]{%
+\ifindexingon
+\poemindexname={#2}
+\poemindexheadername={#3}
+\poemindexcontentsname={#4}
+\poemindexlabelname={#4}
+\printindex[#1][#2]
+\fi
+\ifpoemcontentson\ifindexingon
+ \immediate\write\poemcontents{\string\par \string\smallskip}
+ \immediate\write
+\poemcontents{\string\contentspoemtitlefont\ \the\poemindexcontentsname}
+ \immediate\write
+\poemcontents{\string~ \string\contentsleaders \string~\
+\string\pageref{\the\poemindexlabelname}\string\par}
+ \fi\fi
+}
+\newcommand{\noteaboutstanzamarkpage}{\begin{volumetitlepage}
+\vspace{106pt}
+\begin{center}
+{\poemtitlefont Note}
+\end{center}
+\noindent The symbol \stanzaatbottomvalue\ is used to indicate
+a space between sections of a poem
+wherever such spaces are lost in pagination.
+\end{volumetitlepage}}
\newcommand{\longpage}{\enlargethispage{\baselineskip}}
\newcommand{\shortpage}{\enlargethispage{-\baselineskip}}
@@ -2455,22 +2636,25 @@ wherever such spaces are lost in pagination.
\item[]
}
{\endlist}
+\newtoks{\poemindexlabelname}
+\poemindexlabelname={indexpage}
+\newcommand{\changepoemindexlabelname}[1]{\poemindexlabelname={#1}}
\renewenvironment{theindex}
{{\par\clearpage{\pagestyle{volumetitlestyle}\cleardoublepage}
\thispagestyle{volumetitlestyle}}
\makeatletter
\def\pmclidxitem{\par\hangindent 1em}
\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
-\fancyhead[CO]{{\small{\em Index of Titles and First Lines}}}
-\fancyhead[CE]{{\small{\em Index of Titles and First Lines}}}
+\fancyhead[CO]{{\small{\em \the\poemindexheadername}}}
+\fancyhead[CE]{{\small{\em \the\poemindexheadername}}}
\fancyfoot{}
- \label{indexpage}
+ \label{\the\poemindexlabelname}
\lefthyphenmin=2\tolerance=500\language=0
\normalfont \backmattertextfont
\raggedright
\begin{multicols}
{2}[\backmattersink\begin{center}{\normalfont
-\backmatterheaderfont INDEX OF TITLES AND FIRST LINES}\end{center}
+\backmatterheaderfont \the\poemindexname}\end{center}
\backmatterafterheadersink]%
\let\item\pmclidxitem}
{\end{multicols}\clearpage}