summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/poemscol
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-06-30 21:27:12 +0000
committerKarl Berry <karl@freefriends.org>2015-06-30 21:27:12 +0000
commit3248fe623d991adc97c06036de7d66a10b130e44 (patch)
tree8017fc8af43456a95edd8a002bc2b2c693ee3e5b /Master/texmf-dist/tex/latex/poemscol
parent0ced05e5b1a36fbd26eb3c0965a73dfd8f97b54f (diff)
poemscol (30jun15)
git-svn-id: svn://tug.org/texlive/trunk@37724 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/poemscol')
-rw-r--r--Master/texmf-dist/tex/latex/poemscol/poemscol.sty614
1 files changed, 610 insertions, 4 deletions
diff --git a/Master/texmf-dist/tex/latex/poemscol/poemscol.sty b/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
index 825ae7c4c68..b64355fa848 100644
--- a/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
+++ b/Master/texmf-dist/tex/latex/poemscol/poemscol.sty
@@ -22,7 +22,7 @@
%% in the same archive or directory.)
\NeedsTeXFormat{LaTeX2e}[1997/12/01]
\ProvidesPackage{poemscol}
- [2015/6/18 v2.7 poemscol file]
+ [2015/6/18 v2.72 poemscol file]
@@ -30,6 +30,14 @@
+%%
+%% In my own book I also, strictly to save money, and at the price of
+%% some ugliness, changed the definition of |\normalsize| and |\small|,
+%% so that the former was 10 pt type on 11 pt leading (rather than 12
+%% pt), and that the latter was 9 pt type on 10 pt leading. You can
+%% reproduce this setting by issuing |\tightleading|, although I would
+%% advise not doing so unless you are under financial constraints.
+
\newcommand{\tightgeometry}{\geometry{verbose, tmargin= 33pt,
@@ -234,7 +242,6 @@
\leftheader{\relax}
\volumeheader{\relax}
\newcommand{\rightheader}[1]{\volumeheader{#1}}
-
\newlength{\headoffsetlength}
\setlength{\headoffsetlength}{-1sp}
\raggedbottom
@@ -2499,7 +2506,8 @@ r@#2\endcsname{}{}\@nil
\c@ntentsinfo{#1}{\contentsindentone}{\contentspoemtitlefont}%
{\contentsindenttwoamount}%
}
-\newcommand{\versoset@p@emtitle}[6]{\setlength{\titleentryoverrun}{#6}%
+\newcommand{\versoset@p@emtitle}[6]{\pmclversoresetsettitleinnotes%
+\setlength{\titleentryoverrun}{#6}%
{#2}%
{#3 \begin{titleentryenvironment}%
{\ifcentertitleson\begin{center}#4 #1\end{center}\else #4 #1\fi}%
@@ -2552,7 +2560,8 @@ r@#2\endcsname{}{}\@nil
\c@ntentsinfo{#1}{\contentsindentone}{\contentspoemtitlefont}%
{\contentsindenttwoamount}%
}
-\newcommand{\rectoset@p@emtitle}[6]{\setlength{\titleentryoverrun}{#6}%
+\newcommand{\rectoset@p@emtitle}[6]{\pmclrectoresetsettitleinnotes
+\setlength{\titleentryoverrun}{#6}%
{#2}%
{#3 \begin{titleentryenvironment}%
{\ifcentertitleson\begin{center}#4 #1\end{center}\else #4 #1\fi}%
@@ -2739,7 +2748,604 @@ r@#2\endcsname{}{}\@nil
\end{quotedverse}
\fi
\rectofalse\versofalse\paralleltextsfalse
+\makeatletter\pmclresetsettitleinnotes\makeatother
+}
+\newtoks{\versotextnotesname}
+\versotextnotesname={TEXTUAL NOTES}
+\newcommand{\changeversotextnotesname}[1]{\versotextnotesname={#1}}
+\newtoks{\versotextnotesheadername}
+\versotextnotesheadername={Textual Notes to}
+\newcommand{\changeversotextnotesheader}[1]{\versotextnotesheadername={#1}}
+\newtoks{\versotextnotescontentsname}
+\versotextnotescontentsname={Textual Notes}
+\newcommand{\changeversotextnotescontentsname}[1]{%
+\versotextnotescontentsname={#1}}
+\newif\ifversotextnotestwocol
+\versotextnotestwocolfalse
+\newcommand{\makeversotextnotes}{\global\textnotesontrue
+ \newwrite\versotextnotes
+ \global\verselinenumberstrue
+ \immediate\openout\versotextnotes=\jobname.vtn
+ \literalversotextnote{\flushbottom{\par\clearpage
+ {\pagestyle{volumetitlestyle}\cleardoublepage}
+\thispagestyle{volumetitlestyle}}
+\fancyhead{}
+\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
+\fancyhead[CO]{{\small{\em \the\versotextnotesheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\versotextnotesheadername~\mymarks}}}
+\fancyfoot{}
+\mark{3}
+\setendnotessectiontitle{\the\versotextnotesname}{versotextnotes}
+\tolerance=500\language=0
+\normalfont \backmattertextfont
+\ifversotextnotestwocol
+\begin{multicols}{2}
+\fi
+\setlength{\parindent}{-10pt}
+}
+}
+\newif\ifversotextnotessinglepar
+\newif\ifnoversotextnoteyet
+\newcommand{\literalversotextnote}[1]{\begingroup
+ \def\next{#1}%
+ \newlinechar='40
+ \immediate\write\versotextnotes{\expandafter\strip\meaning\next}%
+ \endgroup
+}
+\newcommand{\firstversotextnote}{\immediate\write\versotextnotes{\versotitletoothernotes}
+ \ifversotextnotessinglepar%
+ \literalversotextnote{\par}%
+ \fi% ifversotextnotessinglepa
+ }
+\newcommand{\versotextnote}[2][0]{\versotitleinnotescheck
+ \setlemmarange{#1}%
+ \ifnoversotextnoteyet % firstversotextnote
+ \firstversotextnote
+ \fi %noversotextnoteyet
+ \global\noversotextnoteyetfalse
+\immediate\write\versotextnotes{\checknoteheaders}%
+ \literalversotextnote{#2}%
+ \ifversotextnotessinglepar%
+ \literalversotextnote{\par}%
+ \fi% ifversotextnotessinglepar
+\resetlemmacounters
+}
+\newtoks{\rectotextnotesname}
+\rectotextnotesname={TEXTUAL NOTES}
+\newcommand{\changerectotextnotesname}[1]{\rectotextnotesname={#1}}
+\newtoks{\rectotextnotesheadername}
+\rectotextnotesheadername={Textual Notes to}
+\newcommand{\changerectotextnotesheader}[1]{\rectotextnotesheadername={#1}}
+\newtoks{\rectotextnotescontentsname}
+\rectotextnotescontentsname={Textual Notes}
+\newcommand{\changerectotextnotescontentsname}[1]{%
+\rectotextnotescontentsname={#1}}
+\newif\ifrectotextnotestwocol
+\rectotextnotestwocolfalse
+\newcommand{\makerectotextnotes}{\global\textnotesontrue
+ \newwrite\rectotextnotes
+ \global\verselinenumberstrue
+ \immediate\openout\rectotextnotes=\jobname.rtn
+ \literalrectotextnote{\flushbottom{\par\clearpage
+ {\pagestyle{volumetitlestyle}\cleardoublepage}
+\thispagestyle{volumetitlestyle}}
+\fancyhead{}
+\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
+\fancyhead[CO]{{\small{\em \the\rectotextnotesheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\rectotextnotesheadername~\mymarks}}}
+\fancyfoot{}
+\mark{3}
+\setendnotessectiontitle{\the\rectotextnotesname}{rectotextnotes}
+\tolerance=500\language=0
+\normalfont \backmattertextfont
+\ifrectotextnotestwocol
+\begin{multicols}{2}
+\fi
+\setlength{\parindent}{-10pt}
+}
+}
+\newif\ifrectotextnotessinglepar
+\newif\ifnorectotextnoteyet
+\newcommand{\literalrectotextnote}[1]{\begingroup
+ \def\next{#1}%
+ \newlinechar='40
+ \immediate\write\rectotextnotes{\expandafter\strip\meaning\next}%
+ \endgroup
+}
+\newcommand{\firstrectotextnote}{\immediate\write\rectotextnotes{\rectotitletoothernotes}
+ \ifrectotextnotessinglepar%
+ \literalrectotextnote{\par}%
+ \fi% ifrectotextnotessinglepar
+}
+\newcommand{\rectotextnote}[2][0]{\rectotitleinnotescheck
+ \setlemmarange{#1}%
+ \ifnorectotextnoteyet % firstrectotextnote
+ \firstrectotextnote
+ \fi %norectotextnoteyet
+ \global\norectotextnoteyetfalse
+\immediate\write\rectotextnotes{\checknoteheaders}%
+ \literalrectotextnote{#2}%
+ \ifrectotextnotessinglepar%
+ \literalrectotextnote{\par}%
+ \fi% ifrectotextnotessinglepar
+\resetlemmacounters
+}
+\newtoks{\versoemendationsname}
+\versoemendationsname={EMENDATIONS}
+\newcommand{\changeversoemendationsname}[1]{\versoemendationsname={#1}}
+\newtoks{\versoemendationsheadername}
+\versoemendationsheadername={Emendations to}
+\newcommand{\changeversoemendationsheader}[1]{\versoemendationsheadername={#1}}
+\newtoks{\versoemendationscontentsname}
+\versoemendationscontentsname={Emendations}
+\newcommand{\changeversoemendationscontentsname}[1]{%
+\versoemendationscontentsname={#1}}
+\newif\ifversoemendationstwocol
+\versoemendationstwocolfalse
+\newcommand{\makeversoemendations}{\global\emendationsontrue
+ \newwrite\versoemendations
+ \global\verselinenumberstrue
+ \immediate\openout\versoemendations=\jobname.vem
+ \literalversoemendation{\flushbottom{\par\clearpage
+ {\pagestyle{volumetitlestyle}\cleardoublepage}
+\thispagestyle{volumetitlestyle}}
+\fancyhead{}
+\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
+\fancyhead[CO]{{\small{\em \the\versoemendationsheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\versoemendationsheadername~\mymarks}}}
+\fancyfoot{}
+\mark{3}
+\setendnotessectiontitle{\the\versoemendationsname}{versoemendations}
+\tolerance=500\language=0
+\normalfont \backmattertextfont
+\ifversoemendationstwocol
+\begin{multicols}{2}
+\fi
+\setlength{\parindent}{-10pt}
+}
+}
+\newif\ifversoemendationssinglepar
+\newif\ifnoversoemendationyet
+\newcommand{\literalversoemendation}[1]{\begingroup
+ \def\next{#1}%
+ \newlinechar='40
+ \immediate\write\versoemendations{\expandafter\strip\meaning\next}%
+ \endgroup
+}
+\newcommand{\firstversoemendation}{\immediate\write\versoemendations{\versotitletoothernotes}
+ \ifversoemendationssinglepar%
+ \literalversoemendation{\par}%
+ \fi% ifversoemendationssinglepar
+}
+\newcommand{\versoemendation}[2][0]{\versotitleinnotescheck%
+ \setlemmarange{#1}%
+ \ifnoversoemendationyet % firstversoemendation
+ \firstversoemendation
+ \fi %noversoemendationyet
+ \global\noversoemendationyetfalse
+\immediate\write\versoemendations{\checknoteheaders}%
+ \literalversoemendation{#2}%
+ \ifversoemendationssinglepar%
+ \literalversoemendation{\par}%
+ \fi% ifversoemendationssinglepar
+\resetlemmacounters
+}
+\newtoks{\rectoemendationsname}
+\rectoemendationsname={EMENDATIONS}
+\newcommand{\changerectoemendationsname}[1]{\rectoemendationsname={#1}}
+\newtoks{\rectoemendationsheadername}
+\rectoemendationsheadername={Emendations to}
+\newcommand{\changerectoemendationsheader}[1]{\rectoemendationsheadername={#1}}
+\newtoks{\rectoemendationscontentsname}
+\rectoemendationscontentsname={Emendations}
+\newcommand{\changerectoemendationscontentsname}[1]{%
+\rectoemendationscontentsname={#1}}
+\newif\ifrectoemendationstwocol
+\rectoemendationstwocolfalse
+\newcommand{\makerectoemendations}{\global\emendationsontrue
+ \newwrite\rectoemendations
+ \global\verselinenumberstrue
+ \immediate\openout\rectoemendations=\jobname.rem
+ \literalrectoemendation{\flushbottom{\par\clearpage
+ {\pagestyle{volumetitlestyle}\cleardoublepage}
+\thispagestyle{volumetitlestyle}}
+\fancyhead{}
+\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
+\fancyhead[CO]{{\small{\em \the\rectoemendationsheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\rectoemendationsheadername~\mymarks}}}
+\fancyfoot{}
+\mark{3}
+\setendnotessectiontitle{\the\rectoemendationsname}{rectoemendations}
+\tolerance=500\language=0
+\normalfont \backmattertextfont
+\ifrectoemendationstwocol
+\begin{multicols}{2}
+\fi
+\setlength{\parindent}{-10pt}
+}
+}
+\newif\ifrectoemendationssinglepar
+\newif\ifnorectoemendationyet
+\newcommand{\literalrectoemendation}[1]{\begingroup
+ \def\next{#1}%
+ \newlinechar='40
+ \immediate\write\rectoemendations{\expandafter\strip\meaning\next}%
+ \endgroup
+}
+\newcommand{\firstrectoemendation}{\immediate\write\rectoemendations{\rectotitletoothernotes}
+ \ifrectoemendationssinglepar%
+ \literalrectoemendation{\par}%
+ \fi% ifrectoemendationssinglepar
+}
+\newcommand{\rectoemendation}[2][0]{\rectotitleinnotescheck
+ \setlemmarange{#1}%
+ \ifnorectoemendationyet % firstrectoemendation
+ \firstrectoemendation
+ \fi %norectoemendationyet
+ \global\norectoemendationyetfalse
+\immediate\write\rectoemendations{\checknoteheaders}%
+ \literalrectoemendation{#2}%
+ \ifrectoemendationssinglepar%
+ \literalrectoemendation{\par}%
+ \fi% ifrectoemendationssinglepar
+\resetlemmacounters
+}
+\newtoks{\versoexplanationsname}
+\versoexplanationsname={EXPLANATORY NOTES}
+\newcommand{\changeversoexplanationsname}[1]{\versoexplanationsname={#1}}
+\newtoks{\versoexplanationsheadername}
+\versoexplanationsheadername={Explanatory Notes to}
+\newcommand{\changeversoexplanationsheader}[1]{\versoexplanationsheadername={#1}}
+\newtoks{\versoexplanationscontentsname}
+\versoexplanationscontentsname={Explanatory Notes}
+\newcommand{\changeversoexplanationscontentsname}[1]{%
+\versoexplanationscontentsname={#1}}
+\newif\ifversoexplanationstwocol
+\versoexplanationstwocolfalse
+\newcommand{\makeversoexplanatorynotes}{\global\explanontrue
+ \global\verselinenumberstrue
+ \newwrite\versoexplanations
+ \immediate\openout\versoexplanations=\jobname.vex
+ \literalversoexplain{\flushbottom{\par\clearpage
+ {\pagestyle{volumetitlestyle}\cleardoublepage}
+\thispagestyle{volumetitlestyle}}
+\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
+\fancyhead[CO]{{\small{\em \the\versoexplanationsheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\versoexplanationsheadername~\mymarks}}}
+\fancyfoot{}
+\mark{3}
+\setendnotessectiontitle{\the\versoexplanationsname}{versoexplanatorynotes}
+\tolerance=500\language=0
+\normalfont \backmattertextfont
+\ifversoexplanationstwocol
+\begin{multicols}{2}
+\fi
+\setlength{\parindent}{-10pt}
+}
+}
+\newcommand{\literalversoexplain}[1]{
+ \begingroup
+ \def\next{#1}%
+ \newlinechar='40
+ \immediate\write\versoexplanations{\expandafter\strip\meaning\next}%
+ \endgroup
+}
+\newif\ifversoexplanationssinglepar
+\newcommand{\firstversoexplanatory}{\immediate\write\versoexplanations{\versotitletoothernotes}
+ \ifversoexplanationssinglepar%
+ \literalversoexplain{\par}%
+\fi}
+\newif\ifnoversoexplainyet
+\newcommand{\versoexplanatory}[2][0]{\versotitleinnotescheck%
+\ifexplanon
+ \setlemmarange{#1}%
+ \ifnoversoexplainyet % first versoexplanation
+ \firstversoexplanatory
+ \fi %noversoexplainyet
+ \global\noversoexplainyetfalse
+\immediate\write\versoexplanations{\checknoteheaders}%
+ \literalversoexplain{#2}%
+ \ifversoexplanationssinglepar%
+ \literalversoexplain{\par}%
+ \fi%
+ \fi % ifexplanon
+\resetlemmacounters
+}
+\newtoks{\rectoexplanationsname}
+\rectoexplanationsname={EXPLANATORY NOTES}
+\newcommand{\changerectoexplanationsname}[1]{\rectoexplanationsname={#1}}
+\newtoks{\rectoexplanationsheadername}
+\rectoexplanationsheadername={Explanatory Notes to}
+\newcommand{\changerectoexplanationsheader}[1]{\rectoexplanationsheadername={#1}}
+\newtoks{\rectoexplanationscontentsname}
+\rectoexplanationscontentsname={Explanatory Notes}
+\newcommand{\changerectoexplanationscontentsname}[1]{%
+\rectoexplanationscontentsname={#1}}
+\newif\ifrectoexplanationstwocol
+\rectoexplanationstwocolfalse
+\newcommand{\makerectoexplanatorynotes}{\global\explanontrue
+ \global\verselinenumberstrue
+ \newwrite\rectoexplanations
+ \immediate\openout\rectoexplanations=\jobname.rex
+ \literalrectoexplain{\flushbottom{\par\clearpage
+ {\pagestyle{volumetitlestyle}\cleardoublepage}
+\thispagestyle{volumetitlestyle}}
+\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
+\fancyhead[CO]{{\small{\em \the\rectoexplanationsheadername~\mymarks}}}
+\fancyhead[CE]{{\small{\em \the\rectoexplanationsheadername~\mymarks}}}
+\fancyfoot{}
+\mark{3}
+\setendnotessectiontitle{\the\rectoexplanationsname}{rectoexplanatorynotes}
+\tolerance=500\language=0
+\normalfont \backmattertextfont
+\ifrectoexplanationstwocol
+\begin{multicols}{2}
+\fi
+\setlength{\parindent}{-10pt}
+}
+}
+\newcommand{\literalrectoexplain}[1]{
+ \begingroup
+ \def\next{#1}%
+ \newlinechar='40
+ \immediate\write\rectoexplanations{\expandafter\strip\meaning\next}%
+ \endgroup
+}
+\newif\ifrectoexplanationssinglepar
+\newcommand{\firstrectoexplanatory}{\immediate\write\rectoexplanations{\rectotitletoothernotes}
+ \ifrectoexplanationssinglepar%
+ \literalrectoexplain{\par}%
+ \fi%
+}
+\newif\ifnorectoexplainyet
+\newcommand{\rectoexplanatory}[2][0]{\rectotitleinnotescheck%
+\ifexplanon
+ \setlemmarange{#1}%
+ \ifnorectoexplainyet % first rectoexplanation
+ \firstrectoexplanatory
+ \fi %norectoexplainyet
+ \global\norectoexplainyetfalse
+\immediate\write\rectoexplanations{\checknoteheaders}%
+ \literalrectoexplain{#2}%
+ \ifrectoexplanationssinglepar%
+ \literalrectoexplain{\par}%
+ \fi%
+ \fi % ifexplanon
+\resetlemmacounters
+}
+\newcommand{\versoprosetextnote}[3][0]{%
+\iftextnoteson%
+\versotitleinnotescheck
+\unskip\proselinelabel{#2}%
+\setproselemmarange{#2}{#1}%
+ \ifnoversotextnoteyet % firstversotextnote
+ \firstversotextnote
+ \fi %noversotextnoteyet
+ \global\noversotextnoteyetfalse
+\immediate\write\versotextnotes{\checkprosenoteheaders}%
+\literalversotextnote{#3}%
+\ifversotextnotessinglepar%
+\literalversotextnote{\par}%
+\fi%
+\resetlemmacounters%
+\fi\unskip%
+}
+\newcommand{\versoproseemendation}[3][0]{%
+\ifemendationson%
+\versotitleinnotescheck
+\unskip\proselinelabel{#2}%
+\setproselemmarange{#2}{#1}%
+ \ifredundantemendations
+ \iftextnoteson
+ \ifrangelemma
+ \versoprosetextnote[#1]{#2}{#3}%
+ \else
+ \versoprosetextnote{#2}{#3}%
+ \fi % ifrangelemma}
+ \fi %iftextnoteson
+\ifversotextnotessinglepar%
+\literalversotextnote{\par}%
+\fi% iftextnotessinglepar
+ \fi % ifredundantemendations
+ \ifnoversoemendationyet % firstemendation
+ \firstversoemendation
+ \fi%noemendyet
+ \global\noversoemendationyetfalse
+\immediate\write\versoemendations{\checkprosenoteheaders}%
+ \literalversoemendation{#3}%
+\ifversoemendationssinglepar%
+\literalversoemendation{\par}%
+\fi% ifemendationssinglep
+ \resetlemmacounters%
+\fi\unskip%
+}
+\newcommand{\versoproseexplanatory}[3][0]{%
+\ifexplanon%
+\versotitleinnotescheck
+\unskip\proselinelabel{#2}%
+\setproselemmarange{#2}{#1}%
+ \ifnoversoexplainyet% firstexplanation
+ \firstversoexplanatory%
+ \fi%noexplainyet
+ \global\noversoexplainyetfalse%
+\immediate\write\versoexplanations{\checkprosenoteheaders}%
+ \literalversoexplain{#3}%
+\ifversoexplanationssinglepar%
+ \literalversoexplain{\par}%
+ \fi% ifexplanationssinglepar
+ \resetlemmacounters%
+\fi\unskip%
+}
+\newcommand{\rectoprosetextnote}[3][0]{%
+\iftextnoteson%
+\rectotitleinnotescheck
+\unskip\proselinelabel{#2}%
+\setproselemmarange{#2}{#1}%
+ \ifnorectotextnoteyet % firstrectotextnote
+ \firstrectotextnote
+ \fi %norectotextnoteyet
+ \global\norectotextnoteyetfalse
+\immediate\write\rectotextnotes{\checkprosenoteheaders}%
+\literalrectotextnote{#3}%
+\ifrectotextnotessinglepar%
+\literalrectotextnote{\par}%
+\fi%
+\resetlemmacounters%
+\fi\unskip%
+}
+\newcommand{\rectoproseemendation}[3][0]{%
+\ifemendationson%
+\rectotitleinnotescheck
+\unskip\proselinelabel{#2}%
+\setproselemmarange{#2}{#1}%
+ \ifredundantemendations
+ \iftextnoteson
+ \ifrangelemma
+ \rectoprosetextnote[#1]{#2}{#3}%
+ \else
+ \rectoprosetextnote{#2}{#3}%
+ \fi % ifrangelemma}
+ \fi %iftextnoteson
+\ifrectotextnotessinglepar%
+\literalrectotextnote{\par}%
+\fi% iftextnotessinglepar
+ \fi % ifredundantemendations
+ \ifnorectoemendationyet % firstemendation
+ \firstrectoemendation
+ \fi%noemendyet
+ \global\norectoemendationyetfalse
+\immediate\write\rectoemendations{\checkprosenoteheaders}%
+ \literalrectoemendation{#3}%
+\ifrectoemendationssinglepar%
+\literalrectoemendation{\par}%
+\fi% ifemendationssinglep
+ \resetlemmacounters%
+\fi\unskip%
+}
+\newcommand{\rectoproseexplanatory}[3][0]{%
+\ifexplanon%
+\rectotitleinnotescheck
+\unskip\proselinelabel{#2}%
+\setproselemmarange{#2}{#1}%
+ \ifnorectoexplainyet% firstexplanation
+ \firstrectoexplanatory%
+ \fi%noexplainyet
+ \global\norectoexplainyetfalse%
+\immediate\write\rectoexplanations{\checkprosenoteheaders}%
+ \literalrectoexplain{#3}%
+\ifrectoexplanationssinglepar%
+ \literalrectoexplain{\par}%
+ \fi% ifexplanationssinglepar
+ \resetlemmacounters%
+\fi\unskip%
}
+\newcommand{\pmclresetsettitleinnotes}{%
+\noversoemendationyettrue%
+\noversoexplainyettrue%
+\noversotextnoteyettrue%
+\norectoemendationyettrue%
+\norectoexplainyettrue%
+\norectotextnoteyettrue%
+}
+\newcommand{\pmclversoresetsettitleinnotes}{%
+\noversoemendationyettrue%
+\noversoexplainyettrue%
+\noversotextnoteyettrue%
+}
+\newcommand{\pmclrectoresetsettitleinnotes}{%
+\norectoemendationyettrue%
+\norectoexplainyettrue%
+\norectotextnoteyettrue%
+}
+\let\literalexplanatory=\literalexplain
+\let\literalversoexplanatory=\literalversoexplain
+\let\literalrectoexplanatory=\literalrectoexplain
+\newcommand{\putversotextnotes}{
+\iftextnoteson
+\ifversotextnotestwocol
+\literalversotextnote{\end{multicols}}
+\fi %\iftextnotetwocol
+ \newpage
+ \hyphenationforsmall
+ \immediate\closeout\versotextnotes
+ \input \jobname.vtn
+\contentsendnotestitle{\the\versotextnotescontentsname}{versotextnotes}
+\else
+ \relax
+\fi}
+\newcommand{\putrectotextnotes}{
+\iftextnoteson
+\ifrectotextnotestwocol
+\literalrectotextnote{\end{multicols}}
+\fi %\iftextnotetwocol
+ \newpage
+ \hyphenationforsmall
+ \immediate\closeout\rectotextnotes
+ \input \jobname.rtn
+\contentsendnotestitle{\the\rectotextnotescontentsname}{rectotextnotes}
+\else
+ \relax
+\fi}
+\newcommand{\putversoemendations}{
+\ifemendationson
+\ifversoemendationstwocol
+\literalversoemendation{\end{multicols}}
+\fi %\iftextnotetwocol
+ \newpage
+ \hyphenationforsmall
+ \immediate\closeout\versoemendations
+ \input \jobname.vem
+\contentsendnotestitle{\the\versoemendationscontentsname}{versoemendations}
+\else
+ \relax
+\fi}
+\newcommand{\putrectoemendations}{
+\ifemendationson
+\ifrectoemendationstwocol
+\literalrectoemendation{\end{multicols}}
+\fi %\iftextnotetwocol
+ \newpage
+ \hyphenationforsmall
+ \immediate\closeout\rectoemendations
+ \input \jobname.rem
+\contentsendnotestitle{\the\rectoemendationscontentsname}{rectoemendations}
+\else
+ \relax
+\fi}
+\newcommand{\putversoexplanatorynotes}{
+\ifexplanon
+\ifversoexplanationstwocol
+\literalversoexplain{\end{multicols}}
+\fi %\iftextnotetwocol
+ \newpage
+ \hyphenationforsmall
+ \immediate\closeout\versoexplanations
+ \input \jobname.vex
+\ifpoemcontentson
+ \ifexplanon
+\contentsendnotestitle{\the\versoexplanationscontentsname}{versoexplanatorynotes}
+ \fi
+\fi
+\else
+ \relax
+\fi}% \end{macrocode}
+\newcommand{\putrectoexplanatorynotes}{
+\ifexplanon
+\ifrectoexplanationstwocol
+\literalrectoexplain{\end{multicols}}
+\fi %\iftextnotetwocol
+ \newpage
+ \hyphenationforsmall
+ \immediate\closeout\rectoexplanations
+ \input \jobname.rex
+\ifpoemcontentson
+ \ifexplanon
+\contentsendnotestitle{\the\rectoexplanationscontentsname}{rectoexplanatorynotes}
+ \fi
+\fi
+\else
+ \relax
+\fi}
\newif\ifversopassagestillopen
\versopassagestillopenfalse
\newif\ifrectopassagestillopen