From ba9472aebfed07843bc4faa00c7b96bc86194691 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 4 Oct 2006 08:43:01 +0000 Subject: 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 --- Master/texmf-dist/tex/latex/poemscol/poemscol.sty | 304 +++++++++++++++++----- 1 file changed, 244 insertions(+), 60 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 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} -- cgit v1.2.3