%% %% This is file `poemscol.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% poemscol.dtx (with options: `package') %% %% IMPORTANT NOTICE: %% %% For the copyright see the source file. %% %% Any modified versions of this file must be renamed %% with new filenames distinct from poemscol.sty. %% %% For distribution of the original source see the terms %% for copying and modification in the file poemscol.dtx. %% %% This generated file may be distributed as long as the %% original source files, as listed above, are part of the %% same distribution. (The sources need not necessarily be %% in the same archive or directory.) \NeedsTeXFormat{LaTeX2e}[1997/12/01] \ProvidesPackage{poemscol} [2019/10/29 v3.141 poemscol file] %|\prosexyznote| %% \newcommand{\tightgeometry}{\geometry{verbose, tmargin= 33pt, textwidth=318.21pt,textheight=550pt, marginparsep=7pt,marginparwidth=10pt, headheight= 15pt, headsep=19pt, footskip=15pt, lmargin=132pt} \setlength{\oddsidemargin}{60pt} \setlength{\evensidemargin}{65.41pt}} \newcommand{\tightleading}{% \makeatletter \renewcommand\normalsize{% \@setfontsize\normalsize\@xpt\@xipt \abovedisplayskip 10\p@ \@plus2\p@ \@minus5\p@ \abovedisplayshortskip \z@ \@plus3\p@ \belowdisplayshortskip 6\p@ \@plus3\p@ \@minus3\p@ \belowdisplayskip \abovedisplayskip \let\@listi\@listI} \makeatother \normalsize \makeatletter \renewcommand\small{% \@setfontsize\small\@ixpt{10}% \abovedisplayskip 8.5\p@ \@plus3\p@ \@minus4\p@ \abovedisplayshortskip \z@ \@plus2\p@ \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@ \def\@listi{\leftmargin\leftmargini \topsep 4\p@ \@plus2\p@ \@minus2\p@ \parsep 2\p@ \@plus\p@ \@minus\p@ \itemsep \parsep}% \belowdisplayskip \abovedisplayskip } \makeatother} \newcommand{\volumetitlefont}{\fontsize{18}{23}\selectfont} \newcommand{\volumesubtitlefont}{\fontsize{14}{18}\selectfont} \newcommand{\poemtitlefont}{\fontsize{14}{18}\selectfont} \newcommand{\sequencetitlefont}{\fontsize{16}{20}\selectfont} \newcommand{\subsectiontitlefont}{\fontsize{12}{14.5}\selectfont} \newcommand{\backmatterheaderfont}{\fontsize{16}{20}\selectfont} \newcommand{\volumetitlesink}{\leavevmode\vspace{23.5pt}} \newcommand{\backmattersink}{\leavevmode\vspace{21.5pt}} \newcommand{\backmatterafterheadersink}{\leavevmode\vspace{11pt}} \newcommand{\backmattertextfont}{\small} \newcommand{\backmatterintrofont}{\normalsize} \newcommand{\backmattervolumefont}{\fontsize{12}{14.5}\selectfont} \newcommand{\backmattervolumesubtitlefont}{\fontsize{11}{13}\selectfont} \newcommand{\contentsvolumefont}{\fontsize{14}{20}\selectfont} \newcommand{\contentsvolumesubtitlefont}{\fontsize{12}{14.5}\selectfont} \newcommand{\contentssequencetitlefont}{\fontsize{10}{14}\selectfont} \newcommand{\contentspoemtitlefont}{\fontsize{10}{14}\selectfont} \widowpenalty=300 \clubpenalty=300 \newcommand{\notespoemclubpenalty}{\penalty-300} \newcommand{\notessequenceclubpenalty}{\penalty-1500} \newcommand{\notesvolumetitlepenalty}{\penalty-1500} \hfuzz=2pt \newlength{\verseindentamount} \setlength{\verseindentamount}{2em} \newcount\l@@pcounter \newcommand{\repeatedindent}[1]{\l@@pcounter=#1% \loop% \ifnum\l@@pcounter>0% \hspace{\verseindentamount}% \advance \l@@pcounter -1 \repeat} \newcommand{\verseindent}[1][]{% \ifthenelse{\equal{#1}{}}{\hspace{\verseindentamount}}{\repeatedindent{#1}}} \newlength{\indentedstanzaamount} \setlength{\indentedstanzaamount}{\verseindentamount} \newlength{\variablestanzaamount} \setlength{\variablestanzaamount}{\indentedstanzaamount} \newcommand{\adjustst@nzaindent}[1]{\l@@pcounter=#1% \loop% \addtolength{\variablestanzaamount}{\indentedstanzaamount}% \advance \l@@pcounter -1% \ifnum \l@@pcounter>0 \repeat} \newif\ifinindentedverse \newenvironment{indentedverse}[1][]{% \inindentedversetrue% \ifthenelse{\equal{#1}{}}{\relax}{\adjustst@nzaindent{#1}}% \let\\=\@centercr% \list{}{\itemsep\z@ \itemindent -\runoverindentvalue\listparindent \itemindent \rightmargin 0sp\leftmargin 0sp\advance\leftmargin \variablestanzaamount}\item[]} {\endlist\inindentedversefalse\setlength{\variablestanzaamount}{\indentedstanzaamount}} \setlength{\columnsep}{15pt} \newlength{\titleindentamount} \setlength{\titleindentamount}{1pc} \newlength{\titleindenttwoamount} \setlength{\titleindenttwoamount}{2pc} \newlength{\titleindentthreeamount} \setlength{\titleindentthreeamount}{3pc} \newcommand{\titleindent}{\hspace{\titleindentamount}} \setlength{\parindent}{1pc} \newlength{\volumetitleindentamount} \setlength{\volumetitleindentamount}{0pt} \newcommand{\volumetitleindent}{\relax} \newlength{\volumetitlesecondlineindentamount} \setlength{\volumetitlesecondlineindentamount}{0pt} \newcommand{\volumetitlesecondlineindent}{\relax} \newlength{\volumesubtitleindentamount} \setlength{\volumesubtitleindentamount}{\titleindentamount} \newcommand{\volumesubtitleindent}{\hspace{\volumesubtitleindentamount}} \newlength{\volumesubtitlesecondlineindentamount} \setlength{\volumesubtitlesecondlineindentamount}{\titleindentamount} \newcommand{\volumesubtitlesecondlineindent}{\hspace{\volumesubtitlesecondlineindentamount}} \newlength{\volumesectiontitleindentamount} \setlength{\volumesectiontitleindentamount}{0pt} \newcommand{\volumesectiontitleindent}{\relax} \newlength{\volumesectiontitlesecondlineindentamount} \setlength{\volumesectiontitlesecondlineindentamount}{0pt} \newcommand{\volumesectiontitlesecondlineindent}{\relax} \newlength{\poemtitleindentamount} \setlength{\poemtitleindentamount}{0pt} \newcommand{\poemtitleindent}{\relax} \newlength{\poemtitlesecondlineindentamount} \setlength{\poemtitlesecondlineindentamount}{0pt} \newcommand{\poemtitlesecondlineindent}{\relax} \newlength{\poemsubtitleindentamount} \setlength{\poemsubtitleindentamount}{\titleindentamount} \newcommand{\poemsubtitleindent}{\hspace{\poemsubtitleindentamount}} \newlength{\poemsectiontitleindentamount} \setlength{\poemsectiontitleindentamount}{\titleindentamount} \newcommand{\poemsectiontitleindent}{\hspace{\poemsectiontitleindentamount}} \newlength{\poemsectiontitlesecondlineindentamount} \setlength{\poemsectiontitlesecondlineindentamount}{\titleindentamount} \newcommand{\poemsectiontitlesecondlineindent}{\hspace{\poemsectiontitlesecondlineindentamount}} \newlength{\poemsubsectiontitleindentamount} \setlength{\poemsubsectiontitleindentamount}{\titleindenttwoamount} \newcommand{\poemsubsectiontitleindent}{\hspace{\poemsectiontitleindentamount}} \newlength{\sequencetitleindentamount} \setlength{\sequencetitleindentamount}{0pt} \newcommand{\sequencetitleindent}{\relax} \newlength{\sequencetitlesecondlineindentamount} \setlength{\sequencetitlesecondlineindentamount}{0pt} \newcommand{\sequencetitlesecondlineindent}{\hspace{\relax}} \newlength{\sequencesubtitleindentamount} \setlength{\sequencesubtitleindentamount}{\titleindentamount} \newcommand{\sequencesubtitleindent}{\hspace{\sequencesubtitleindentamount}} \newlength{\sequencesubtitlesecondlineindentamount} \setlength{\sequencesubtitlesecondlineindentamount}{\titleindentamount} \newcommand{\sequencesubtitlesecondlineindent}{\hspace{\sequencesubtitlesecondlineindentamount}} \newlength{\sequencesectiontitleindentamount} \setlength{\sequencesectiontitleindentamount}{\titleindentamount} \newcommand{\sequencesectiontitleindent}{\hspace{\sequencesectiontitleindentamount}} \newlength{\sequencesectiontitlesecondlineindentamount} \setlength{\sequencesectiontitlesecondlineindentamount}{\titleindentamount} \newcommand{\sequencesectiontitlesecondlineindent}{\hspace{\sequencesectiontitlesecondlineindentamount}} \newlength{\sequencesectionsubtitleindentamount} \setlength{\sequencesectionsubtitleindentamount}{\titleindenttwoamount} \newcommand{\sequencesectionsubtitleindent}{\hspace{\sequencesectionsubtitleindentamount}} \newlength{\sequencesectionsubtitlesecondlineindentamount} \setlength{\sequencesectionsubtitlesecondlineindentamount}{\titleindenttwoamount} \newcommand{\sequencesectionsubtitlesecondlineindent}{\hspace{\sequencesectionsubtitlesecondlineindentamount}} \newlength{\sequencesubsectiontitleindentamount} \setlength{\sequencesubsectiontitleindentamount}{\titleindenttwoamount} \newcommand{\sequencesubsectiontitleindent}{\hspace{\sequencesubsectiontitleindentamount}} \newlength{\sequencesubsubsectiontitleindentamount} \setlength{\sequencesubsubsectiontitleindentamount}{\titleindentthreeamount} \newcommand{\sequencesubsubsectiontitleindent}{\hspace{\sequencesubsubsectiontitleindentamount}} \newlength{\appendixtitleindentamount} \setlength{\appendixtitleindentamount}{0pt} \newcommand{\appendixtitleindent}{\relax} \newlength{\subappendixtitleindentamount} \setlength{\subappendixtitleindentamount}{0pt} \newcommand{\subappendixtitleindent}{\relax} \newlength{\forewordtitleindentamount} \setlength{\forewordtitleindentamount}{0pt} \newcommand{\forewordtitleindent}{\relax} \newlength{\notestitleindentamount} \setlength{\notestitleindentamount}{0pt} \newcommand{\notestitleindent}{\relax} \newdimen\volumetitleshiftamount \volumetitleshiftamount=1pc \newcommand{\volumetitleshift}{\hbox{\hspace{\volumetitleshiftamount}}} \newdimen\voladditionalamount \voladditionalamount=2pc \newdimen\contentsindentoneamount \contentsindentoneamount=24pt \newcommand{\contentsindentone}{\hspace{\contentsindentoneamount}} \newdimen\contentsindenttwoamount \contentsindenttwoamount=42pt \newcommand{\contentsindenttwo}{\hspace{\contentsindenttwoamount}} \newdimen\contentsindentthreeamount \contentsindentthreeamount=60pt \newcommand{\contentsindentthree}{\hspace{\contentsindentthreeamount}} \newdimen\contentsindentfouramount \contentsindentfouramount=72pt \newcommand{\contentsindentfour}{\hspace{\contentsindentfouramount}} \newdimen\contentsindentfiveamount \contentsindentfiveamount=80pt \newcommand{\contentsindentfive}{\hspace{\contentsindentfiveamount}} \newlength{\contentsvolumetitleindentamount} \setlength{\contentsvolumetitleindentamount}{0pt} \newcommand{\contentsvolumetitleindent}{\relax} \newlength{\contentsvolumetitlesecondlineindentamount} \setlength{\contentsvolumetitlesecondlineindentamount}{0pt} \newcommand{\contentsvolumetitlesecondlineindent}{\relax} \newlength{\contentsvolumesubtitleindentamount} \setlength{\contentsvolumesubtitleindentamount}{\titleindentamount} \newcommand{\contentsvolumesubtitleindent}{\hspace{\contentsvolumesubtitleindentamount}} \newlength{\contentsvolumesubtitlesecondlineindentamount} \setlength{\contentsvolumesubtitlesecondlineindentamount}{\titleindentamount} \newcommand{\contentsvolumesubtitlesecondlineindent}{\hspace{\contentsvolumesubtitlesecondlineindentamount}} \newlength{\contentsvolumesectiontitleindentamount} \setlength{\contentsvolumesectiontitleindentamount}{0pt} \newcommand{\contentsvolumesectiontitleindent}{\hspace{\contentsvolumesectiontitleindentamount}} \newlength{\contentsvolumesectiontitlesecondlineindentamount} \setlength{\contentsvolumesectiontitlesecondlineindentamount}{0pt} \newcommand{\contentsvolumesectiontitlesecondlineindent}{\hspace{\contentsvolumesectiontitlesecondlineindentamount}} \newlength{\contentspoemtitleindentamount} \setlength{\contentspoemtitleindentamount}{\contentsindentoneamount} \newcommand{\contentspoemtitleindent}{\hspace{\contentspoemtitleindentamount}} \newlength{\contentspoemtitlesecondlineindentamount} \setlength{\contentspoemtitlesecondlineindentamount}{\contentspoemtitleindentamount} \newcommand{\contentspoemtitlesecondlineindent}{\hspace{\contentspoemtitlesecondlineindentamount}} \newlength{\contentspoemsubtitleindentamount} \setlength{\contentspoemsubtitleindentamount}{\contentspoemsubtitleindentamount} \newcommand{\contentspoemsubtitleindent}{\hspace{\contentspoemsubtitleindentamount}} \newlength{\contentspoemsectiontitleindentamount} \setlength{\contentspoemsectiontitleindentamount}{\contentsindenttwoamount} \newcommand{\contentspoemsectiontitleindent}{\hspace{\contentspoemsectiontitleindentamount}} \newlength{\contentspoemsectiontitlesecondlineindentamount} \setlength{\contentspoemsectiontitlesecondlineindentamount}{\contentspoemsectiontitleindentamount} \newcommand{\contentspoemsectiontitlesecondlineindent}{\hspace{\contentspoemsectiontitlesecondlineindentamount}} \newlength{\contentspoemsubsectiontitleindentamount} \setlength{\contentspoemsubsectiontitleindentamount}{\contentsindentthreeamount} \newcommand{\contentspoemsubsectiontitleindent}{\hspace{\contentsindentthreeamount}} \newlength{\contentssequencetitleindentamount} \setlength{\contentssequencetitleindentamount}{\contentsindentoneamount} %313 \newcommand{\contentssequencetitleindent}{\hspace{\contentssequencetitleindentamount}} \newlength{\contentssequencetitlesecondlineindentamount} \setlength{\contentssequencetitlesecondlineindentamount}{\contentsindentoneamount} %313 \newcommand{\contentssequencetitlesecondlineindent}{\hspace{\contentssequencetitlesecondlineindentamount}} \newlength{\contentssequencesubtitleindentamount} \setlength{\contentssequencesubtitleindentamount}{\contentsindenttwoamount} %313 \newcommand{\contentssequencesubtitleindent}{\hspace{\contentssequencesubtitleindentamount}} \newlength{\contentssequencesubtitlesecondlineindentamount} \setlength{\contentssequencesubtitlesecondlineindentamount}{\contentsindenttwoamount} %313 \newcommand{\contentssequencesubtitlesecondlineindent}{\hspace{\contentssequencesubtitlesecondlineindentamount}} \newlength{\contentssequencesectiontitleindentamount} \setlength{\contentssequencesectiontitleindentamount}{\contentsindenttwoamount} %313 \newcommand{\contentssequencesectiontitleindent}{\hspace{\contentssequencesectiontitleindentamount}} \newlength{\contentssequencesectiontitlesecondlineindentamount} \setlength{\contentssequencesectiontitlesecondlineindentamount}{\contentsindenttwoamount} %313 \newcommand{\contentssequencesectiontitlesecondlineindent}{\hspace{\contentssequencesectiontitlesecondlineindentamount}} \newlength{\contentssequencesectionsubtitleindentamount} \setlength{\contentssequencesectionsubtitleindentamount}{\contentsindentthreeamount} %313 \newcommand{\contentssequencesectionsubtitleindent}{\hspace{\contentssequencesectionsubtitleindentamount}} \newlength{\contentssequencesectionsubtitlesecondlineindentamount} \setlength{\contentssequencesectionsubtitlesecondlineindentamount}{\contentsindentthreeamount}%313 \newcommand{\contentssequencesectionsubtitlesecondlineindent}{\hspace{\contentssequencesectionsubtitlesecondlineindentamount}} \newlength{\contentssequencesubsectiontitleindentamount} \setlength{\contentssequencesubsectiontitleindentamount}{\contentsindentthreeamount} \newcommand{\contentssequencesubsectiontitleindent}{\hspace{\contentssequencesubsectiontitleindentamount}} \newlength{\contentssequencesubsubsectiontitleindentamount} \setlength{\contentssequencesubsubsectiontitleindentamount}{\contentsindentfouramount} \newcommand{\contentssequencesubsubsectiontitleindent}{\hspace{\contentssequencesubsubsectiontitleindentamount}} \newcommand{\afterpoemtitleskip}{\smallskip} \newcommand{\afterpoemskip}{\bigskip} \newcommand{\aftersequencetitleskip}{\medskip} \newcommand{\stanzaskip}{\medskip} \newcommand{\poemtitlepenalty}{\penalty-1000} \newcommand{\multilinetitlepenalty}{\penalty-3000} \newcommand{\sequencetitlepenalty}{\penalty-3000} \newcommand{\multilinesequencepenalty}{\penalty-3500} \newlength{\poemtitlewidth} \newif\iftitlescenteredonleftverseblock \newif\iftitlesatleftmarginofcenteredblock \newif\iftitlesatleftversemargin \newif\ifnormaltitleindentation \newcommand{\normaltitleindentationscheme}{% \normaltitleindentationtrue% \titlesatleftversemarginfalse% \titlescenteredonleftverseblockfalse% \titlesatleftmarginofcenteredblockfalse% \centertitlesonfalse% } \newcommand{\titlesatleftversemarginscheme}{% \normaltitleindentationfalse% \titlesatleftversemargintrue% \titlescenteredonleftverseblockfalse% \titlesatleftmarginofcenteredblockfalse% \centertitlesonfalse% } \newcommand{\titlescenteredonleftverseblockscheme}{% \normaltitleindentationfalse% \titlesatleftversemarginfalse% \titlescenteredonleftverseblocktrue% \titlesatleftmarginofcenteredblockfalse% \centertitlesonfalse% } \newcommand{\titlesatleftmarginofcenteredblockscheme}{% \normaltitleindentationfalse% \titlesatleftversemarginfalse% \titlescenteredonleftverseblockfalse% \titlesatleftmarginofcenteredblocktrue% \centertitlesonfalse% } \newcommand{\centertitlesscheme}{% \normaltitleindentationfalse% \titlesatleftversemarginfalse% \titlescenteredonleftverseblockfalse% \titlesatleftmarginofcenteredblockfalse% \centertitlesontrue% \centerepigraphsontrue% } \newlength{\lefttitleaddition} \setlength{\lefttitleaddition}{0pt} \newcommand{\l@ftc@ntertitleblock}{\rightmargin \z@%% \setlength{\lefttitleaddition}{\versewidth}% \addtolength{\lefttitleaddition}{-\poemtitlewidth}% \addtolength{\lefttitleaddition}{-0.5\lefttitleaddition}% \setlength{\lefttitlemargin}{\lefttitleaddition}% } \def\makeatletter{\catcode`\@=11} \def\makeatother{\catcode`\@=12 } \newcommand{\runoverindent}[1]{\global\edef\runoverindentvalue{#1} } \runoverindent{6em} \newif\iflinenumberscenteredwithverse \linenumberscenteredwithversetrue \newlength{\marginparsepmin} \setlength{\marginparsepmin}{2em} \newlength{\versemarginadjust} \setlength{\versemarginadjust}{0pt} \newif\iftextcenteringturnedon \textcenteringturnedontrue \newcommand{\v@riablemarginpar}{\setlength{\marginparsep}{-\leftmargin}% \addtolength{\marginparsep}{\marginparsepmin}} \newcommand{\c@nterverseblock}[1]{\rightmargin \z@% \setlength{\leftmargin}{\linewidth}% \addtolength{\leftmargin}{-#1}% \addtolength{\leftmargin}{-0.5\leftmargin}% \iflinenumberscenteredwithverse\v@riablemarginpar\fi} \newif\iflastpoemcentered \newenvironment{pmclverse}[1][\linewidth]{% \global\lastpoemcenteredfalse \let\\=\@centercr% \list{}{\itemsep\z@ \itemindent -\runoverindentvalue \listparindent \itemindent \ifdim #1 < \linewidth \iftextcenteringturnedon \c@nterverseblock{#1}% \global\lastpoemcenteredtrue \else \rightmargin \leftmargin \addtolength{\leftmargin}{-\versemarginadjust}\fi \else \rightmargin \leftmargin \addtolength{\leftmargin}{-\versemarginadjust} \fi \advance\leftmargin\runoverindentvalue} \item[]} {\endlist} \newif\ifinquotedverse \newenvironment{quotedverse}{% \inquotedversetrue \let\\=\@centercr% \list{}{\itemsep\z@ \itemindent -\runoverindentvalue\listparindent \itemindent \rightmargin 0sp\leftmargin 0sp\advance\leftmargin \runoverindentvalue}\item[]} {\endlist\inquotedversefalse} \newcounter{verselinenumber} \newcounter{printlineindex} \newcounter{verselinenumberscratch} \newcounter{printlineindexscratch} \newcounter{lineindexrepeat} \setcounter{lineindexrepeat}{9} \newcounter{lemmalines} \setcounter{lemmalines}{0} \newcounter{lemmaend} \setcounter{lemmaend}{0} \newcounter{poemnumber} \setcounter{poemnumber}{1} \newcounter{notepageholdertitle} \setcounter{notepageholdertitle}{1} \newcounter{notepageholdernote} \setcounter{notepageholdernote}{1} \newtoks{\fulltitleholder} \newtoks{\titlesofar} \newtoks{\titleincrement} \newif\ifinstanza \newif\ifinpoem \newif\ifpoemcontentson \newif\iftextnoteson \newif\ifverselinenumbers \newif\ifexplanon \newif\ifemendationson \global\verselinenumberstrue \newif\ifindexingon \global\indexingontrue \ifindexingon \makeindex \fi \newif\ifincludeaccidentals \global\includeaccidentalstrue \newif\ifincludetypescripts \global\includetypescriptstrue \newif\ifredundantemendations \global\redundantemendationsfalse \newif\ifnoemendyet \newif\ifnoexplainyet \global\noemendyettrue \global\noexplainyettrue \newif{\ifmiddlecontentsline} \middlecontentslinefalse \newif{\iflastcontentsline} \lastcontentslinefalse \newif{\ifputpagenumberincontents} \putpagenumberincontentstrue \newif{\ifputpagenumberinnotes} \putpagenumberinnotestrue \newif{\ifsinglelinetitle} \singlelinetitletrue \newif{\iftitlefirstline} \titlefirstlinefalse \newif{\iftitlemiddleline} \titlemiddlelinefalse \newif{\iftitlelastline} \titlelastlinefalse \newif{\ifverserightflush} \verserightflushfalse \newif\ifrangelemma \rangelemmafalse \newcommand{\makeverselinenumbers}{\global\verselinenumberstrue} \let\makelinenumbers=\makeverselinenumbers% for compatibility \newif\iftextnotesatend \textnotesatendtrue \newif\ifemendationsatend \emendationsatendtrue \newif\ifexplanatend \explanatendtrue \newif\iftextfootnotespara \textfootnotesparatrue \newif\ifsourcesfootnotespara \sourcesfootnotesparafalse \newif\ifemendationfootnotespara \emendationfootnotesparatrue \newif\ifexplanfootnotespara \explanfootnotesparafalse \newcommand{\volumeheader}[1]{\global\edef\volumeheadervalue{#1} } \newcommand{\leftheader}[1]{\global\edef\leftheadervalue{#1} } \leftheader{\relax} \volumeheader{\relax} \newcommand{\rightheader}[1]{\volumeheader{#1}} \newlength{\headoffsetlength} \setlength{\headoffsetlength}{-1sp} \raggedbottom \pagestyle{fancy} \fancyhead{} \fancyfoot{} \fancyhfoffset[RO,LE]{\headoffsetlength} \fancyhead[RO]{{\small\textrm{\thepage}}} \fancyhead[LE]{{\small\textrm{\thepage}}} \fancyhead[CO]{\hfil{\small{\em \volumeheadervalue}}\hfil} \fancyhead[CE]{\hfil{\small{\em \leftheadervalue}}\hfil} \fancyfoot[CE]{{\small \botmark}\hfil} \fancyfoot[CO]{\hfil{\small \botmark}} \renewcommand{\headrulewidth}{0pt} \renewcommand{\footrulewidth}{0pt} \fancypagestyle{main}{% \fancyhead{} \fancyfoot{} \fancyhfoffset[RO,LE]{\headoffsetlength} \fancyhead[RO]{{\small\textrm{\thepage}}} \fancyhead[LE]{{\small\textrm{\thepage}}} \fancyhead[CO]{\hfil{\small{\em \volumeheadervalue}}\hfil} \fancyhead[CE]{\hfil{\small{\em \leftheadervalue}}\hfil} \fancyfoot[CE]{{\small \botmark}\hfil} \fancyfoot[CO]{\hfil{\small \botmark}} \renewcommand{\headrulewidth}{0pt} \renewcommand{\footrulewidth}{0pt} } \fancypagestyle{volumefirststyle}{% \fancyhf{} \fancyfoot[C]{\hfil{\small \botmark}\hfil} \renewcommand{\headrulewidth}{0pt} \renewcommand{\footrulewidth}{0pt} } \fancypagestyle{plain}{% \fancyhf{} \fancyhead[RO,LE]{{\small\textrm{\thepage}}} \renewcommand{\headrulewidth}{0pt} \renewcommand{\footrulewidth}{0pt} } \newtoks{\singlelineabbrev} \singlelineabbrev={l.\ } \newcommand{\changesinglelineabbrev}[1]{\singlelineabbrev={#1}} \newtoks{\multiplelineabbrev} \newcommand{\changemultiplelineabbrev}[1]{\multiplelineabbrev={#1}} \multiplelineabbrev{ll.\ } \newcommand{\myversemarks}{% \ifthenelse{\equal{\thefirstmarks{verselinemark}}{\thebotmarks{verselinemark}}}% {\unskip ~\the\singlelineabbrev~\thefirstmarks{verselinemark}}% if equal {\unskip ~\the\multiplelineabbrev\thefirstmarks{verselinemark}--\thebotmarks{verselinemark}}} % if not equal \fancypagestyle{longpoem}{% \fancyhead{} \fancyfoot{} \fancyhfoffset[RO,LE]{\headoffsetlength} \fancyhead[RO]{{\small\textrm{\thepage}}} \fancyhead[LE]{{\small\textrm{\thepage}}} \fancyhead[CO]{\hfil{\small{\em \volumeheadervalue ~\myversemarks}}\hfil} \fancyhead[CE]{\hfil{\small{\em \leftheadervalue~\myversemarks}}\hfil} \fancyfoot[CE]{{\small \botmark}\hfil} \fancyfoot[CO]{\hfil{\small \botmark}} \renewcommand{\headrulewidth}{0pt} \renewcommand{\footrulewidth}{0pt} } \fancypagestyle{volumetitlestyle}{% \fancyhf{} \renewcommand{\headrulewidth}{0pt} \renewcommand{\footrulewidth}{0pt} } \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 ~\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% \relax\else% \nolinebreak\incrementverselinenumber% \fi% \speciallinelockfalse% \nobreak \instanzafalse \stanzaskip } \newenvironment{marginenvironment}{}{} \newcommand{\stanzalinestraddle} {\begin{stanza}\addtocounter{verselinenumber}{-1}% \addtocounter{printlineindex}{-1}% } \newlength{\contentsentryoverrun} \setlength{\contentsentryoverrun}{\contentsindentoneamount} \newenvironment{contentsentryenvironment}{% \language=255%no hyphenation in contents \let\\=\@centercr% \list{}{\topsep\z@% \partopsep\z@% \itemsep\z@ \itemindent -\contentsentryoverrun\listparindent \itemindent \rightmargin 1sp\leftmargin 1sp\advance\leftmargin \contentsentryoverrun}\item[]}{\endlist} \newlength{\titleentryoverrun} \setlength{\titleentryoverrun}{\z@} \newenvironment{titleentryenvironment}{% \language=255%no hyphenation in poem titles \let\\=\@centercr% \list{}{\topsep\z@% \partopsep\z@% \itemsep\z@ \itemindent -\titleentryoverrun% \listparindent \itemindent % \iftitlesatleftmarginofcenteredblock% \left@ligntitleblock% \rightmargin \z@\leftmargin \lefttitlemargin% \else% \iftitlescenteredonleftverseblock \l@ftc@ntertitleblock \rightmargin \z@\leftmargin \lefttitlemargin \else \rightmargin \z@\leftmargin \z@% \fi\fi% \advance\leftmargin \titleentryoverrun}\item[]}{\endlist} \newlength{\versewidth} \setlength{\versewidth}{\linewidth}% default length for \versewidth \newenvironment{poem}[1][\linewidth] {\raggedright% \language=255%no hyphenation in verse \noemendyettrue% \noexplainyettrue% \setcounter{verselinenumber}{0}\setcounter{printlineindex}{0}% \nobreak\begin{pmclverse}[#1]% \inpoemtrue\nobreak\mark{\relax}% }{\end{pmclverse}% \inpoemfalse\mark{\relax}% \goodbreak\afterpoemskip%\bigskip } \newenvironment{rightflushverse}{\let\oldleftskip=\leftskip% \leftskip=1 \leftskip\advance\leftskip by 0pt plus 1fill}% {\let\leftskip=\oldleftskip} \newenvironment{volumetitlepage} {\par\clearpage{\pagestyle{volumetitlestyle}\cleardoublepage} \thispagestyle{volumetitlestyle}} {\newpage\thispagestyle{volumetitlestyle} \cleardoublepage\thispagestyle{volumefirststyle}} \newenvironment{maintitlepage} {\par\cleardoublepage\thispagestyle{volumetitlestyle} }{\newpage\thispagestyle{volumetitlestyle}\cleardoublepage} \newenvironment{booksectionpage} {\par\newpage\thispagestyle{volumetitlestyle}}{\newpage} \setlength{\marginparsep}{18pt} \setlength{\marginparwidth}{18pt} \newif\ifnumbersswitch \numbersswitchfalse \newif\ifnumbersright \numbersrightfalse \newcommand{\pmclsidepar}{\@dblarg{\@pmclsidepar}} \long\def\@pmclsidepar[#1]#2{\@bsphack\strut\vadjust{% added \checkoddpage \ifpmclsideparswitch \ifpmclreversesidepar \ifoddpage \oddpagefalse \else \oddpagetrue \fi \fi \else \oddpagetrue \ifpmclreversesidepar \oddpagefalse \fi \fi \rlap{\kern-\parindent \if@twocolumn \if@firstcolumn % put at left \kern -\marginparsep \kern -\marginparwidth % at left \else % put at right \kern \columnwidth \kern \marginparsep % at right \fi \else \ifoddpage % put at right \kern \textwidth \kern \marginparsep % at right \else % put at left \kern -\marginparsep \kern -\marginparwidth % at left \fi \fi \setbox0=\vtop to 0pt{% added \begin{minipage}[t]{\marginparwidth}% added \ifoddpage #2\else #1\fi% \end{minipage}% \vss}% added \vtop to 0pt{\kern\pmclsideparvshift % default should be 0pt \kern-\dp\strutbox \kern-\ht0 \box0 \vss}}}\@esphack}% added \gdef\thepmemc@@page{\the\c@page} \providecommand{\pmemlabel}[1]{\@bsphack \pmemprotected@write\@auxout{}% {\string\newpmemlabel{#1}{\thepmemc@@page}}% \@esphack} \long\def\pmemprotected@write#1#2#3{% \begingroup \let\thepmemc@@page\relax #2% \let\protect\@unexpandable@protect \edef\reserved@a{\write#1{#3}}% \reserved@a \endgroup \if@nobreak\ifvmode\nobreak\fi\fi} \providecommand{\newpmemlabel}[2]{{\global\@namedef{m@#1}{#2}}} \providecommand{\pmemlabelref}[1]{% \expandafter\ifx\csname m@#1\endcsname\relax 0% \else \csname m@#1\endcsname \fi} \newcount\@memcnta \DeclareRobustCommand{\checkoddpage}{% \oddpagefalse% \ifstrictpagecheck% \stepcounter{cp@cntr}\pmemlabel{\cplabel\thecp@cntr}% \@memcnta=\pmemlabelref{\cplabel\thecp@cntr}\relax \ifodd\@memcnta\oddpagetrue\fi \else \ifodd\c@page\oddpagetrue\fi \fi} \newif\ifpmclreversesidepar \pmclreversesidepartrue \newif\ifpmclsideparswitch \pmclsideparswitchfalse \if@twoside \pmclsideparswitchtrue \fi \newif\ifoddpage \newif\ifstrictpagecheck \strictpagecheckfalse \newcounter{cp@cntr} \newcommand{\cplabel}{^_} \newlength{\pmclsideparvshift} \setlength{\pmclsideparvshift}{0ex} \newcommand{\verselinenumberstoleft}{% \numbersswitchfalse\numbersrightfalse} \newcommand{\verselinenumberstoright}{% \numbersswitchfalse\numbersrighttrue} \newcommand{\verselinenumbersswitch}{% \strictpagechecktrue% \numbersswitchtrue\numbersrightfalse\pmclsideparswitchtrue} \newif\ifnumbersgutter \numbersgutterfalse% \newcommand{\verselinenumbersgutter}{\verselinenumbersswitch% \pmclreversesideparfalse% \numbersguttertrue% } \newcommand{\verselinenumbersouter}{\verselinenumbersswitch% \pmclreversesidepartrue% \numbersgutterfalse} \newcommand{\putverselinenumber}{\nolinebreak\begin{marginenvironment}% \nolinebreak% \ifnumbersswitch\pmclsidepar{\hfil\textrm{\scriptsize\theverselinenumber}}% \else% \ifnumbersright\pmclrightsidepar{\hfil\textrm{\scriptsize\theverselinenumber}}% \else% \pmclleftsidepar {\textrm{\scriptsize\theverselinenumber}\hfil}% \fi% \fi% \nolinebreak% \end{marginenvironment}% \nolinebreak% } \newif\ifspeciallinelock \speciallinelockfalse \newcommand{\verseline}{\ifspeciallinelock% \relax\else% \nolinebreak\incrementverselinenumber% \fi% \speciallinelockfalse% \nolinebreak\\ } \newcommand{\incrementverselinenumber}{% \nolinebreak\addtocounter{verselinenumber}{1}% \makeatletter \@ifundefined{marksthe}{\relax}{\marksthe{verselinemark}{\theverselinenumber}} \makeatother \addtocounter{printlineindex}{1}% \ifnum\theprintlineindex>\thelineindexrepeat% \ifverselinenumbers\nobreak% \putverselinenumber\nobreak% \fi\nobreak% \setcounter{printlineindex}{0}% \fi% } \newcommand{\setverselinemodulo}[1]{% \setcounter{lineindexrepeat}{#1}% \addtocounter{lineindexrepeat}{-1}% } \newcommand{\linebend}{\\ \hspace{\runoverindentvalue}% } \newcommand{\saveverselinenumber}{\setcounter{verselinenumberscratch}% {\value{verselinenumber}}% \setcounter{printlineindexscratch}{\value{printlineindex}}} \newcommand{\restoreverselinenumber}{\setcounter{verselinenumber}% {\value{verselinenumberscratch}}% \setcounter{printlineindex}{\value{printlineindexscratch}}} \newcommand{\rightversebegin} {\leavevmode\nobreak\hskip0pt plus -1fill\ignorespaces} \newcommand{\hour}[1]{{{\textsc{#1}}\ $\!\!\!$} } \newcommand{\brokenline}{\\} \newcommand{\versephantom}[1]{\leavevmode\phantom{#1}} \newcommand{\tweakbrokenline}{% \renewcommand{\brokenline}{\ifnumbersswitch\relax% \ifnumbersgutter% shift on odd pages for gutter numbers \ifodd\c@page \relax \else \speciallinelocktrue\incrementverselinenumber\fi \else % shift on even pages for outer numbers \ifodd\c@page \speciallinelocktrue\incrementverselinenumber \fi \fi \else \ifnumbersright \relax% \else \speciallinelocktrue\incrementverselinenumber% \fi% \fi% \\} } \newcommand{\brokenlineatbeginning}{% \renewcommand{\brokenline}{% \speciallinelocktrue\incrementverselinenumber% \\ } } \newcommand{\startverseline}{% \speciallinelocktrue% \leavevmode% \incrementverselinenumber% } \newcommand{\tweakstartverseline}{% \renewcommand{\startverseline}{% \leavevmode% \ifnumbersswitch% \ifnumbersgutter% \ifodd\c@page \relax \else \speciallinelocktrue\incrementverselinenumber\fi \else \ifodd\c@page \speciallinelocktrue\incrementverselinenumber \fi \fi% end of ifnumbersgutter \else \ifnumbersright \relax% numbers don't switch. Are they to the right? \else \speciallinelocktrue\incrementverselinenumber% or to the left? \fi% end of ifnumbersright \fi% end of ifnumbersswitch }% end of renewcommand }% end of tweakverseline \def\poemlinelabel#1{\@bsphack \protected@write\@auxout{}% {\string\newlabel{#1}{{\theverselinenumber}{\thepage}}}% \@esphack } \newtoks{\pmclcontentsname} \pmclcontentsname={CONTENTS} \newtoks{\pmclcontentsheader} \pmclcontentsheader={Contents} \newcommand{\changecontentsname}[1]{% \pmclcontentsname={#1}} \newcommand{\changecontentsheader}[1]{% \pmclcontentsheader={#1}} \newcommand{\makepoemcontents}[1][5]{\global\poemcontentsontrue \newwrite\poemcontents \immediate\openout\poemcontents=\jobname.ctn \literalcontents{\flushbottom\normalfont {\par\clearpage{\pagestyle{volumetitlestyle}\cleardoublepage} \pagestyle{fancy}\thispagestyle{volumetitlestyle}} \pagenumbering{roman} \setcounter{page}{#1} \fancyhead[RO,LE]{{\small\textrm{\thepage}}} \fancyhead[CO]{{\small{\em \the\pmclcontentsheader}}} \fancyhead[CE]{{\small{\em \the\pmclcontentsheader}}} \fancyfoot{} \backmattersink \begin{center}{\normalfont \backmatterheaderfont \the\pmclcontentsname}\end{center} \lefthyphenmin=2\backmatterafterheadersink\tolerance=500\language=0} \literalcontents{ \relax}} \newcommand{\setendnotessectiontitledefaults}[6]{% #2% #3 \begin{titleentryenvironment}% {\ifcentertitleson\begin{center}#1\end{center}\else #4 #1\fi}% \end{titleentryenvironment}% #5% \label{#6} } \newcommand{\setendnotessectiontitle}[2]{% \setendnotessectiontitledefaults{#1}{\poemtitlepenalty\backmattersink}{\backmatterheaderfont} {\notestitleindent}{\lefthyphenmin=2\backmatterafterheadersink}{#2}} \newcommand{\contentsendnotesdefaults}[4]{\ifpoemcontentson \immediate\write\poemcontents{\string\begin\string{contentsentryenvironment\string}}% \literalcontents{#2{#3#1}}% \ifputpagenumberincontents \immediate\write\poemcontents{\string\contentsleaders}% \immediate\write\poemcontents{\string\pageref \string{#4\string}}% \else \literalcontents{\relax}% \fi \immediate\write\poemcontents{\string\end\string{contentsentryenvironment\string}}% \immediate\write\poemcontents{\string\par}% \fi } \newcommand{\contentsendnotesindent}{\contentsindentone} \newcommand{\contentsendnotesfont}{\contentspoemtitlefont} \newcommand{\contentsendnotestitle}[2]{% \contentsendnotesdefaults{#1}{\contentsendnotesindent}{\contentsendnotesfont}{#2}% } \newlength{\noteindentation} \setlength{\noteindentation}{1em} \newcommand{\noteparbreak}{\\ \hspace*{\noteindentation}} \newtoks{\pmclnotesname} \pmclnotesname={TEXTUAL NOTES} \newcommand{\changenotesname}[1]{\pmclnotesname={#1}} \newtoks{\notesheadername} \notesheadername={Textual Notes to} \newcommand{\changenotesheader}[1]{\notesheadername={#1}} \newtoks{\textnotescontentsname} \textnotescontentsname={Textual Notes} \newcommand{\changetextnotescontentsname}[1]{\textnotescontentsname={#1}} \newif\iftextnotestwocol \textnotestwocolfalse \newcommand{\maketextnotes}{\global\textnotesontrue \global\verselinenumberstrue \newwrite\textnotes \immediate\openout\textnotes=\jobname.ent \literaltextnote{\flushbottom{\par\clearpage {\pagestyle{volumetitlestyle}\cleardoublepage} \thispagestyle{volumetitlestyle}} \fancyhead{} \fancyfoot{} \fancyhead[RO,LE]{{\small\textrm{\thepage}}} \fancyhead[CO]{{\small{\em \the\notesheadername~\mymarks}}} \fancyhead[CE]{{\small{\em \the\notesheadername~\mymarks}}} \fancyfoot[C]{} \mark{3} \setendnotessectiontitle{\the\pmclnotesname}{textualnotes} \tolerance=500\language=0 \normalfont \backmattertextfont \iftextnotestwocol \begin{multicols}{2} \fi \setlength{\parindent}{-10pt} } } \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}} \newif\ifemendationstwocol \emendationstwocolfalse \newcommand{\makeemendations}{\global\emendationsontrue \newwrite\emendations \global\verselinenumberstrue \immediate\openout\emendations=\jobname.emd \literalemend{\flushbottom{\par\clearpage {\pagestyle{volumetitlestyle}\cleardoublepage} \thispagestyle{volumetitlestyle}} \fancyhead{} \fancyhead[RO,LE]{{\small\textrm{\thepage}}} \fancyhead[CO]{{\small{\em \the\emendationsheadername~\mymarks}}} \fancyhead[CE]{{\small{\em \the\emendationsheadername~\mymarks}}} \fancyfoot{} \mark{3} \setendnotessectiontitle{\the\emendationsname}{emendationnotes} \tolerance=500\language=0 \normalfont \backmattertextfont \ifemendationstwocol \begin{multicols}{2} \fi \setlength{\parindent}{-10pt} } } \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}} \newif\ifexplanationstwocol \explanationstwocolfalse \newcommand{\makeexplanatorynotes}{\global\explanontrue \global\verselinenumberstrue \newwrite\explanations \immediate\openout\explanations=\jobname.enx \literalexplain{\flushbottom{\par\clearpage {\pagestyle{volumetitlestyle}\cleardoublepage} \thispagestyle{volumetitlestyle}} \fancyhead[RO,LE]{{\small\textrm{\thepage}}} \fancyhead[CO]{{\small{\em \the\explanationsheadername~\mymarks}}} \fancyhead[CE]{{\small{\em \the\explanationsheadername~\mymarks}}} \fancyfoot{} \mark{3} \setendnotessectiontitle{\the\explanationsname}{explanatorynotes} \tolerance=500\language=0 \normalfont \backmattertextfont \ifexplanationstwocol \begin{multicols}{2} \fi \setlength{\parindent}{-10pt} } } \newcommand{\@pagemarktotextnotes}[1]{% \immediate\write\textnotes{\string\setcounterfrompageref\string{notepageholdertitle\string}% \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}\string\unskip}% \@pagemarktotextnotes{#1}} \newcommand{\@poemtitletotextnotes}[1]{% \ifputpagenumberinnotes% \literaltextnote{\textbf{#1}}% \else% \literaltextnote{\par}\literaltextnote{\textbf{#1}}% \fi} \newif\ifappendixincontents \appendixincontentstrue \newif\ifforewordincontents \forewordincontentstrue \newcommand{\appendixdividerpage}[1]{\flushbottom{\par\clearpage {\pagestyle{volumetitlestyle}\cleardoublepage} \thispagestyle{volumetitlestyle}} \fancyhead{} \fancyfoot{} \fancyhead[RO,LE]{\small\textrm{\thepage}} \fancyhead[CO]{\small{\em #1}} \fancyhead[CE]{#1} \fancyfoot[C]{}} \newcommand{\appendixtitle}[1]{ \setendnotessectiontitledefaults{#1}{\poemtitlepenalty\backmattersink}{\backmatterheaderfont} {\appendixtitleindent}{\lefthyphenmin=2\backmatterafterheadersink}{appdx#1} \tolerance=500\language=0 \normalfont \backmattertextfont \setlength{\parindent}{\noteindentation} \ifappendixincontents\contentsendnotestitle{#1}{appdx#1}\fi } \newcommand{\makeappendix}[1]{% \appendixdividerpage{#1} \appendixtitle{#1} } \newcommand{\contentsendnotessubtitle}[2]{ \contentsendnotesdefaults{#1}{\contentsindenttwo}{\contentsendnotesfont}{#2} } \newcommand{\subappendixtitle}[1]{% \setendnotessectiontitledefaults{#1}{\poemtitlepenalty\backmattersink}{\backmatterheaderfont} {\subappendixtitleindent}{\lefthyphenmin=2\backmatterafterheadersink}{appdx#1} \tolerance=500\language=0 \normalfont \backmattertextfont \setlength{\parindent}{\noteindentation} \ifappendixincontents\contentsendnotessubtitle{#1}{appdx#1}\fi } \newcommand{\makesubappendix}[1]{% \appendixdividerpage{#1} \subappendixtitle{#1} } \newcommand{\foreworddividerpage}[1]{\flushbottom{\par\clearpage {\pagestyle{volumetitlestyle}\cleardoublepage} \thispagestyle{volumetitlestyle}} \fancyhead{} \fancyfoot{} \fancyhead[RO,LE]{\small\textrm{\thepage}} \fancyhead[CO]{\small{\em #1}} \fancyhead[CE]{#1} \fancyfoot[C]{}} \newcommand{\forewordtitle}[1]{ \setendnotessectiontitledefaults{#1}{\poemtitlepenalty\backmattersink}{\backmatterheaderfont} {\forewordtitleindent}{\lefthyphenmin=2\backmatterafterheadersink}{foreword#1} \tolerance=500\language=0 \normalfont \backmattertextfont \setlength{\parindent}{\noteindentation} \ifforewordincontents\contentsendnotestitle{#1}{foreword#1}\fi } \newcommand{\makeforeword}[1]{% \foreworddividerpage{#1} \forewordtitle{#1} } \newcommand{\pmclcontentsentrydefaults}[4]{ \ifpoemcontentson \immediate\write\poemcontents{\string\begin\string{contentsentryenvironment\string}}% \literalcontents{#2{#3#1}}% \ifputpagenumberincontents \immediate\write\poemcontents{\string\contentsleaders}% \literalcontents{#4} \else \literalcontents{\relax}% \fi \immediate\write\poemcontents{\string\end\string{contentsentryenvironment\string}}% \immediate\write\poemcontents{\string\par}% \fi } \newcommand{\pmclcontentsentry}[3]{% \pmclcontentsentrydefaults{#1}{#2}{\contentsendnotesfont}{#3}% } \newcommand{\wholebooktitle}[1]{{\Huge\begin{center} \hbox{#1}\end{center}} } \newcommand{\booksection}[1]{\volumesection{#1}} \newcommand{\volumetitle}[1]{% \set@p@emtitle{#1}{\volumetitlesink\par}{\volumetitlefont} {\volumetitleindent}{\nobreak\par\nobreak}{\z@} \putpagenumberincontentsfalse \putpagenumberinnotesfalse \literalcontents{\par\goodbreak\bigskip} \c@ntentsinfo{#1}{\contentsvolumetitleindent}{\contentsvolumefont} {\contentsvolumetitleindentamount} \literalcontents{\par\goodbreak\medskip} \literaltextnote{\notesvolumetitlepenalty\bigskip\goodbreak\par} \t@xtnotesinfo{\backmattervolumefont #1 \backmattertextfont\nobreak} \putpagenumberincontentstrue \putpagenumberinnotestrue} \newcommand{\volumetitlefirstline}[1]{\firstlinesettings% \set@p@emtitle{#1}{\volumetitlesink\par} {\volumetitlefont} {\volumetitleindent}{\nobreak\par\nobreak}{\z@} \putpagenumberincontentsfalse \putpagenumberinnotesfalse \literalcontents{\par\goodbreak\bigskip} \c@ntentsinfo{#1}{\contentsvolumetitleindent}{\contentsvolumefont} {\contentsvolumetitleindentamount} \literalcontents{\medskip\par\nobreak} \t@xtnotesinfo{\backmattervolumefont #1 \backmattertextfont\nobreak} \putpagenumberincontentstrue \putpagenumberinnotestrue} \newcommand{\volumetitlemiddleline}[1]{\middlelinesettings% \set@p@emtitle{#1}{\relax} {\volumetitlefont} {\volumetitlesecondlineindent}{\nobreak\par\nobreak}{\z@} \putpagenumberincontentsfalse \putpagenumberinnotesfalse \c@ntentsinfo{#1}{\contentsvolumetitleindent}{\contentsvolumefont} {\contentsvolumetitleindentamount} \literalcontents{\medskip\par\nobreak} \t@xtnotesinfo{\backmattervolumefont #1 \backmattertextfont\nobreak} \putpagenumberincontentstrue \putpagenumberinnotestrue} \newcommand{\volumetitlelastline}[1]{\lastlinesettings% \set@p@emtitle{#1}{\relax} {\volumetitlefont} {\volumetitlesecondlineindent}{\nobreak\par\nobreak}{\z@} \putpagenumberincontentsfalse \putpagenumberinnotesfalse \c@ntentsinfo{#1}{\contentsvolumetitleindent}{\contentsvolumefont} {\contentsvolumetitleindentamount} \literalcontents{\medskip\par\nobreak} \t@xtnotesinfo{\backmattervolumefont #1 \backmattertextfont\nobreak} \putpagenumberincontentstrue \putpagenumberinnotestrue} \newcommand{\volumesubtitle}[1]{{\volumesubtitlefont \volumetitleshift \volumesubtitleindent #1 \par} \ifpoemcontentson \literalcontents{{\contentsvolumesubtitlefont\contentsvolumesubtitleindent #1\par\medskip\nobreak}} \fi \iftextnoteson\iftextnotesatend \immediate\write\textnotes{\string\backmattervolumesubtitlefont\ #1} \immediate\write\textnotes{\string\par \string\backmattertextfont} \immediate\write\textnotes{\string\nobreak} \fi\fi } \newcommand{\volumesubtitlefirstline}[1]{{\firstlinesettings\volumesubtitlefont \volumetitleshift \volumesubtitlesecondlineindent #1 \par} \ifpoemcontentson \literalcontents{{\contentsvolumesubtitlefont\contentsvolumesubtitleindent #1\par\nobreak}} \fi \iftextnoteson\iftextnotesatend \immediate\write\textnotes{\string\backmattervolumesubtitlefont\ #1} \immediate\write\textnotes{\string\par \string\backmattertextfont} \immediate\write\textnotes{\string\nobreak} \fi\fi } \newcommand{\volumesubtitlemiddleline}[1]{{\middlelinesettings\volumesubtitlefont \volumesubtitlesecondlineindent #1 \par} \ifpoemcontentson \literalcontents{{\contentsvolumesubtitlefont\contentsvolumesubtitleindent #1\par\nobreak}} \fi \iftextnoteson\iftextnotesatend \immediate\write\textnotes{\string\backmattervolumesubtitlefont\ #1} \immediate\write\textnotes{\string\par \string\backmattertextfont} \immediate\write\textnotes{\string\nobreak} \fi\fi } \newcommand{\volumesubtitlelastline}[1]{{\lastlinesettings\volumesubtitlefont \volumesubtitlesecondlineindent #1 \par} \ifpoemcontentson \literalcontents{{\contentsvolumesubtitlefont\contentsvolumesubtitleindent #1\par\medskip\nobreak}} \fi \iftextnoteson\iftextnotesatend \immediate\write\textnotes{\string\backmattervolumesubtitlefont\ #1} \immediate\write\textnotes{\string\par \string\backmattertextfont} \immediate\write\textnotes{\string\nobreak} \fi\fi } \newcommand{\volumesectiontitle}[1]{\clearpage\thispagestyle{volumefirststyle} \ifcentertitleson\begin{center} {\volumesubtitlefont\textbf{#1}} \end{center} \else \volumesectiontitleindent {\volumesubtitlefont\textbf{#1}} \fi\bigskip\bigskip \ifpoemcontentson \literalcontents{\goodbreak{\ifcentertitleson\contentsvolumesubtitlefont #1\par\nobreak\else \contentsvolumesectiontitleindent #1 \par\nobreak\fi}} \fi \iftextnoteson\iftextnotesatend \immediate\write\textnotes{\string\notesvolumetitlepenalty} \immediate\write\textnotes{\string\par \string\begin{bf}} \immediate\write\textnotes{#1 \string\end{bf}} \immediate\write\textnotes{\string\par} \immediate\write\textnotes{\string\nobreak} \fi\fi } \newcommand{\volumesectiontitlefirstline}[1]{\firstlinesettings\clearpage\thispagestyle{volumefirststyle} \ifcentertitleson\begin{center} {\volumesubtitlefont\textbf{#1}} \end{center} \else \volumesectiontitleindent {\volumesubtitlefont\textbf{#1}\par} \fi% \bigskip\bigskip \ifpoemcontentson \literalcontents{\goodbreak{\ifcentertitleson\contentsvolumesubtitlefont #1\par\nobreak\else \contentsvolumesectiontitleindent #1 \par\nobreak\fi}} \fi \iftextnoteson\iftextnotesatend \immediate\write\textnotes{\string\notesvolumetitlepenalty} \immediate\write\textnotes{\string\par \string\begin{bf}} \immediate\write\textnotes{#1 \string\end{bf}} \immediate\write\textnotes{\string\par} \immediate\write\textnotes{\string\nobreak} \fi\fi } \newcommand{\volumesectiontitlemiddleline}[1]{\middlelinesettings \ifcentertitleson\begin{center} {\volumesubtitlefont\textbf{#1}} \end{center} \else \volumesectiontitleindent {\volumesubtitlefont\textbf{#1}\par} \fi% \bigskip\bigskip \ifpoemcontentson \literalcontents{\goodbreak{\ifcentertitleson\contentsvolumesubtitlefont #1\par\nobreak\else \contentsvolumesectiontitleindent #1 \par\nobreak\fi}} \fi \iftextnoteson\iftextnotesatend \immediate\write\textnotes{\string\notesvolumetitlepenalty} \immediate\write\textnotes{\string\par \string\begin{bf}} \immediate\write\textnotes{#1 \string\end{bf}} \immediate\write\textnotes{\string\par} \immediate\write\textnotes{\string\nobreak} \fi\fi } \newcommand{\volumesectiontitlelastline}[1]{\lastlinesettings \ifcentertitleson\begin{center} {\volumesubtitlefont\textbf{#1}} \end{center} \else \volumesectiontitleindent {\volumesubtitlefont\textbf{#1}} \fi\bigskip\bigskip \ifpoemcontentson \literalcontents{\goodbreak{\ifcentertitleson\contentsvolumesubtitlefont #1\par\nobreak\else \contentsvolumesectiontitleindent #1 \par\nobreak\fi}} \fi \iftextnoteson\iftextnotesatend \immediate\write\textnotes{\string\notesvolumetitlepenalty} \immediate\write\textnotes{\string\par \string\begin{bf}} \immediate\write\textnotes{#1 \string\end{bf}} \immediate\write\textnotes{\string\par} \immediate\write\textnotes{\string\nobreak} \fi\fi } \newcommand{\makepoemlabel}[1]{\label{#1}} \newcommand{\argpageref}[1]{\pageref{#1}} \newcommand{\m@kep@emlabel}{\ifsinglelinetitle% \addtocounter{poemnumber}{1}% \makepoemlabel{poem\thepoemnumber}% \else\iftitlefirstline% \addtocounter{poemnumber}{1}% \makepoemlabel{poem\thepoemnumber}% \else \relax \fi \fi } \newcommand{\m@ken@teholder}[1]{% \ifsinglelinetitle \fulltitleholder={#1}% \global\edef\@compoundlabelscratch{poem\thepoemnumber}% \else\iftitlefirstline \fulltitleholder={#1}% \global\edef\@compoundlabelscratch{poem\thepoemnumber}% \else\iftitlemiddleline \titlesofar=\fulltitleholder \titleincrement={~#1}% \global\edef\titleconcat{\the\titlesofar \the\titleincrement}% \fulltitleholder=\expandafter{\titleconcat}% \global\edef\@compoundlabelscratch{poem\thepoemnumber}% \else \titlesofar=\fulltitleholder \titleincrement={~#1}% \global\edef\titleconcat{\the\titlesofar \the\titleincrement}% \fulltitleholder=\expandafter{\titleconcat}% \global\edef\@compoundlabelscratch{poem\thepoemnumber}% \fi \fi \fi } \newif\ifcentertitleson \newcommand{\centertitles}{\centertitlesontrue\centerepigraphsontrue} \makeatletter \newcommand{\set@p@emtitle}[6]{\iftitlesatleftversemargin% {\begin{pmclverse}\addtolength{\leftmargin}{-\leftmargini}{#2 #3 #4 #1 #5} \end{pmclverse}}% \else% \setlength{\titleentryoverrun}{#6}% {#2}% {#3 \begin{titleentryenvironment}% {{\ifnormaltitleindentation #4 #1% \else \ifcentertitleson \begin{center} #1 \end{center} \else #1\fi\fi}}% \end{titleentryenvironment}}% {#5}% \m@kep@emlabel \m@ken@teholder{#1}% \setlength{\titleentryoverrun}{\z@}\fi} %%% special version for subtitles \newcommand{\set@p@emsubtitle}[6]{\iftitlesatleftversemargin% {\begin{pmclverse}\addtolength{\leftmargin}{-\leftmargini}{#2 #3 #4 #1 #5} \end{pmclverse}}% \else% \setlength{\titleentryoverrun}{#6}% {#2}% {#3 \begin{titleentryenvironment}% {{\ifnormaltitleindentation #4 #1% \else \ifcentertitleson \begin{center} #1 \end{center} \else #1\fi\fi}}% \end{titleentryenvironment}}% {#5}% \setlength{\titleentryoverrun}{\z@}\fi} \newcommand{\setcontentsleaders}[1]{% \def\contentsleaders{#1\nobreak% }} \setcontentsleaders{~/~} \newcommand{\c@ntentsinfo}[4]{\ifpoemcontentson \immediate\write\poemcontents{\string\setlength\string\contentsentryoverrun\string{#4\string}}% \immediate\write\poemcontents{\string\begin\string{contentsentryenvironment\string}}% \literalcontents{#2{#3#1}}% \ifputpagenumberincontents \immediate\write\poemcontents{\string\contentsleaders}% \immediate\write\poemcontents{\string\pageref \string{poem\thepoemnumber\string}}% \else \literalcontents{\relax}% \fi \immediate\write\poemcontents{\string\end\string{contentsentryenvironment\string}}% \immediate\write\poemcontents{\string\par}% \immediate\write\poemcontents{\string\setlength\string\contentsentryoverrun \string{\string\contentsindentoneamount\string}}% \fi } \newif\ifputtitleinnotes \puttitleinnotestrue \newcommand{\t@xtnotesinfo}[1]{\iftextnoteson \iftextnotesatend \immediate\write\textnotes{\string\notespoemclubpenalty}% \ifputpagenumberinnotes \@poempagetotextnotes{poem\thepoemnumber}% \fi \ifputtitleinnotes \@poemtitletotextnotes{#1}% \fi \fi\fi } \newlength{\lefttitlemargin} \newcommand{\leftaligntitlespace}{\hspace{\lefttitlemargin}} \newif\ifleftaligntitles % title flush with left margin of centered poem \leftaligntitlesfalse % default value \newcommand{\left@ligntitleblock}{\rightmargin \z@%% \setlength{\lefttitlemargin}{\linewidth}% \addtolength{\lefttitlemargin}{-\versewidth}% \addtolength{\lefttitlemargin}{-0.5\lefttitlemargin} } \newcommand{\poemtitle}[1]{% \set@p@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}% {\poemtitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}% \c@ntentsinfo{#1}{\contentspoemtitleindent}{\contentspoemtitlefont}% {\contentspoemtitleindentamount}% \t@xtnotesinfo{#1}% } \newcommand{\poemtitlenocontents}[1]{% \set@p@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}% {\poemtitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}% \t@xtnotesinfo{#1}% } \newcommand{\poemtitlebaretitle}[1]{% \set@p@emsubtitle{#1}{\poemtitlepenalty}{\poemtitlefont}% {\poemtitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}% } \newcommand{\poemtitleonlycontents}[1]{% \c@ntentsinfo{#1}{\contentspoemtitleindent}{\contentspoemtitlefont}% {\contentspoemtitleindentamount}% } \newcommand{\poemtitleonlynotes}[1]{% \m@kep@emlabel \m@ken@teholder{#1}% \t@xtnotesinfo{#1}% } \newcommand{\poemtitlenonotes}[1]{% \set@p@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}% {\poemtitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}% \c@ntentsinfo{#1}{\contentspoemtitleindent}{\contentspoemtitlefont}% {\contentspoemtitleindentamount}% } \newcommand{\poemtitleitalic}[2]{% \poemtitle{#1}} \newcommand{\firstlinesettings}{\singlelinetitlefalse \titlefirstlinetrue \putpagenumberincontentsfalse \putpagenumberinnotestrue} \newcommand{\middlelinesettings}{\singlelinetitlefalse \titlemiddlelinetrue \putpagenumberincontentsfalse \putpagenumberinnotesfalse} \newcommand{\lastlinesettings}{\singlelinetitlefalse \titlelastlinetrue \putpagenumberincontentstrue \putpagenumberinnotesfalse} \newcommand{\restoresinglelinesettings}{\putpagenumberinnotestrue \putpagenumberincontentstrue \titlefirstlinefalse \titlemiddlelinefalse \titlelastlinefalse \singlelinetitletrue} \newcommand{\poemtitlefirstline}[1]{ \firstlinesettings \set@p@emtitle{#1}{\multilinetitlepenalty}{\poemtitlefont}% {\poemtitleindent}{\nobreak\par\nobreak}{\z@}% \c@ntentsinfo{#1}{\contentspoemtitleindent}{\contentspoemtitlefont}% {\contentspoemtitleindentamount}% \t@xtnotesinfo{#1}% \restoresinglelinesettings } \newcommand{\poemtitlemiddleline}[1]{% \middlelinesettings \set@p@emtitle{#1}{\par\nobreak}{\poemtitlefont}% {\poemtitlesecondlineindent}{\nobreak\par\nobreak}{\z@}% \c@ntentsinfo{#1}{\contentspoemtitlesecondlineindent}{\contentspoemtitlefont}% {\contentspoemtitlesecondlineindentamount}% \t@xtnotesinfo{#1}% \restoresinglelinesettings } \newcommand{\poemtitlelastline}[1]{% \lastlinesettings \set@p@emtitle{#1}{\par\nobreak}{\poemtitlefont}% {\poemtitlesecondlineindent}{\nobreak\par\afterpoemtitleskip\nobreak}{\z@}% \c@ntentsinfo{#1}{\contentspoemtitlesecondlineindent}{\contentspoemtitlefont}% {\contentspoemtitlesecondlineindentamount}% \t@xtnotesinfo{#1}% \restoresinglelinesettings } \newcommand{\poemsectiontitle}[1]{% \set@p@emtitle{#1}{\poemtitlepenalty}{\subsectiontitlefont}% {\poemsectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}% {\titleindentamount}% \c@ntentsinfo{#1}{\contentspoemsectiontitleindent}{\contentspoemtitlefont}% {\contentspoemsectiontitleindentamount}% \t@xtnotesinfo{#1}% } \newcommand{\poemsectiontitlefirstline}[1]{% \firstlinesettings \set@p@emtitle{#1}{\multilinetitlepenalty}{\subsectiontitlefont}% {\poemsectiontitleindent}{\nobreak\par\nobreak}{\poemsectiontitleindentamount}% \c@ntentsinfo{#1}{\contentspoemsectiontitleindent}{\contentspoemtitlefont}% {\contentspoemsectiontitleindentamount}% \t@xtnotesinfo{#1}% \restoresinglelinesettings } \newcommand{\poemsectiontitlemiddleline}[1]{% \middlelinesettings \set@p@emtitle{#1}{\relax}{\subsectiontitlefont}% {\poemsectiontitlesecondlineindent}{\nobreak\par\nobreak}{\poemsectiontitlesecondlineindentamount}% \c@ntentsinfo{#1}{\contentspoemsectiontitlesecondlineindent}{\contentspoemtitlefont}% {\contentspoemsectiontitlesecondlineindentamount}% \t@xtnotesinfo{#1}% \restoresinglelinesettings } \newcommand{\poemsectiontitlelastline}[1]{% \lastlinesettings \set@p@emtitle{#1}{\par\nobreak}{\subsectiontitlefont}% {\poemsectiontitlesecondlineindent}{\nobreak\par\afterpoemtitleskip\nobreak}% {\poemsectiontitlesecondlineindentamount}% \c@ntentsinfo{#1}{\contentspoemsectiontitlesecondlineindent}{\contentspoemtitlefont}% {\contentspoemsectiontitlesecondlineindentamount}% \t@xtnotesinfo{#1}% \restoresinglelinesettings } \newcommand{\poemsectiontitlenocontents}[1]{% \sequencesubsectiontitlenocontents{#1}}% \newcommand{\poemfirstsectiontitle}[1]{% \set@p@emtitle{#1}{\par\nobreak}{\subsectiontitlefont}% {\poemsectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}% {\poemsectiontitleindentamount}% \c@ntentsinfo{#1}{\contentspoemsectiontitleindent}{\contentspoemtitlefont}% {\contentspoemsectiontitleindentamount}% \t@xtnotesinfo{#1}% } \newcommand{\poemfirstsectiontitlebaretitle}[1]{% \set@p@emtitle{#1}{\par\nobreak}{\subsectiontitlefont}% {\poemsectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}% {\poemsectiontitleindentamount}} \newcommand{\poemsectiontitlebaretitle}[1]{% \set@p@emtitle{#1}{\poemtitlepenalty}{\subsectiontitlefont}% {\titleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}% {\titleindentamount}% } \newcommand{\poemsubsectiontitle}[1]{% \set@p@emtitle{#1}{\poemtitlepenalty}{\subsectiontitlefont}% {\poemsubsectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}% {\poemsubsectiontitleindentamount}% \c@ntentsinfo{#1}{\contentspoemsubsectiontitleindent}{\contentspoemtitlefont}% {\contentspoemsubsectiontitleindentamount}% \t@xtnotesinfo{#1}% } \newcommand{\poemtitlenotitle}[1]{% \m@kep@emlabel \m@ken@teholder{#1}% \c@ntentsinfo{#1}{\contentspoemtitleindent}{\contentspoemtitlefont}% {\contentsindenttwoamount}% \t@xtnotesinfo{#1}% } \newcommand{\poemtitlenotitleitalic}[2]{% \poemtitlenotitle{1}} \newcommand{\sequencetitle}[1]{ \set@p@emtitle{#1}{\sequencetitlepenalty}{\sequencetitlefont} {\sequencetitleindent}{\nobreak\par\nobreak\aftersequencetitleskip\nobreak}{\z@} \putpagenumberincontentsfalse \c@ntentsinfo{#1}{\contentssequencetitleindent}{\contentssequencetitlefont} {\contentssequencetitleindentamount} \putpagenumberincontentstrue \t@xtnotesinfo{#1} } \newcommand{\sequencetitlefirstline}[1]{ \firstlinesettings \set@p@emtitle{#1}{\multilinesequencepenalty}{\sequencetitlefont} {\sequencetitleindent}{\nobreak\par\nobreak}{\z@} \c@ntentsinfo{#1}{\contentssequencetitleindent}{\contentssequencetitlefont} {\contentssequencetitleindentamount} \t@xtnotesinfo{#1} \restoresinglelinesettings } \newcommand{\sequencetitlemiddleline}[1]{ \middlelinesettings \set@p@emtitle{#1}{\par\nobreak}{\sequencetitlefont} {\sequencetitleindent}{\nobreak\par\nobreak}{\z@} \c@ntentsinfo{#1}{\contentssequencetitlesecondlineindent}{\contentssequencetitlefont} {\contentssequencetitlesecondlineindentamount} \t@xtnotesinfo{#1} \restoresinglelinesettings } \newcommand{\sequencetitlelastline}[1]{ \lastlinesettings \set@p@emtitle{#1}{\par\nobreak}{\sequencetitlefont} {\sequencetitleindent}{\nobreak\par\aftersequencetitleskip\nobreak}{\z@} \c@ntentsinfo{#1}{\contentssequencetitlesecondlineindent}{\contentssequencetitlefont} {\contentssequencetitlesecondlineindent} \t@xtnotesinfo{#1} \restoresinglelinesettings } \newcommand{\sequencesubtitle}[1]{ \set@p@emsubtitle{#1}{\par\nobreak}{\sequencetitlefont} {\sequencesubtitleindent}{\nobreak\par\aftersequencetitleskip\nobreak}{\z@} \c@ntentsinfo{#1}{\contentssequencesubtitleindent}{\contentssequencetitlefont} {\contentssequencesubtitleindentamount} } \newcommand{\sequencesubtitlefirstline}[1]{\firstlinesettings \set@p@emsubtitle{#1}{\par\nobreak}{\sequencetitlefont} {\sequencesubtitleindent}{\nobreak\par\aftersequencetitleskip\nobreak}{\z@} \c@ntentsinfo{#1}{\contentsindenttwo}{\contentssequencetitlefont} {\contentsindentthreeamount} \restoresinglelinesettings } \newcommand{\sequencesubtitlemiddleline}[1]{\middlelinesettings \set@p@emsubtitle{#1}{\par\nobreak}{\sequencetitlefont} {\sequencesubtitlesecondlineindent}{\nobreak\par\aftersequencetitleskip\nobreak}{\z@} \c@ntentsinfo{#1}{\contentssequencesubtitlesecondlineindent}{\contentssequencetitlefont} {\contentssequencesubtitlesecondlineindentamount} \restoresinglelinesettings } \newcommand{\sequencesubtitlelastline}[1]{\lastlinesettings \set@p@emsubtitle{#1}{\par\nobreak}{\sequencetitlefont} {\sequencesubtitlesecondlineindent}{\nobreak\par\aftersequencetitleskip\nobreak}{\z@} \c@ntentsinfo{#1}{\contentssequencesubtitlesecondlineindent}{\contentssequencetitlefont} {\contentssequencesubtitlesecondlineindentamount} \restoresinglelinesettings } \newcommand{\sequencesectiontitle}[1]{ \set@p@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont} {\sequencesectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak} {\sequencesectiontitleindentamount} \c@ntentsinfo{#1}{\contentssequencesectiontitleindent}{\contentspoemtitlefont} {\contentssequencesectiontitleindentamount} \t@xtnotesinfo{#1} } \newcommand{\sequencefirstsectiontitle}[1]{ \set@p@emtitle{#1}{\par\nobreak\afterpoemtitleskip}{\poemtitlefont} {\sequencesectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak} {\sequencesectiontitleindentamount} \c@ntentsinfo{#1}{\contentssequencesectiontitleindent}{\contentspoemtitlefont} {\contentssequencesectiontitleindentamount} \t@xtnotesinfo{#1} } \newcommand{\sequencetitlenonotes}[1]{ \set@p@emtitle{#1}{\par\nobreak}{\sequencetitlefont} {\sequencetitleindent}{\nobreak\par\aftersequencetitleskip\nobreak}{\sequencetitleindentamount} \c@ntentsinfo{#1}{\contentssequencetitleindent}{\contentssequencetitlefont} {\contentssequencetitleindentamount} } \newcommand{\sequencesectiontitlenonotes}[1]{ \set@p@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont} {\sequencesectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak} {\sequencesectiontitleindentamount} \c@ntentsinfo{#1}{\contentssequencesectiontitleindent}{\contentspoemtitlefont} {\contentssequencesectiontitleindentamount} } \newcommand{\sequencesectiontitlefirstline}[1]{ \firstlinesettings \set@p@emtitle{#1}{\multilinetitlepenalty}{\poemtitlefont} {\sequencesectiontitleindent}{\nobreak\par\nobreak}{\sequencesectiontitleindentamount} \c@ntentsinfo{#1}{\contentssequencesectiontitleindent}{\contentspoemtitlefont} {\contentssequencesectiontitleindentamount} \t@xtnotesinfo{#1} \restoresinglelinesettings } \newcommand{\sequencesectiontitlemiddleline}[1]{ \middlelinesettings \set@p@emtitle{#1}{\par\nobreak}{\poemtitlefont} {\sequencesectiontitleindent}{\nobreak\par\nobreak}{\sequencesectiontitleindentamount} \c@ntentsinfo{#1}{\contentssequencesectiontitlesecondlineindent}{\contentspoemtitlefont} {\contentssequencesectiontitlesecondlineindentamount} \t@xtnotesinfo{#1} \restoresinglelinesettings } \newcommand{\sequencesectiontitlelastline}[1]{ \lastlinesettings \set@p@emtitle{#1}{\par\nobreak}{\poemtitlefont} {\sequencesectiontitleindent}{\nobreak\par\afterpoemtitleskip\nobreak}{\sequencesectiontitleindentamount} \c@ntentsinfo{#1}{\contentssequencesectiontitlesecondlineindent}{\contentspoemtitlefont} {\contentssequencesectiontitlesecondlineindentamount} \t@xtnotesinfo{#1} \restoresinglelinesettings } \newcommand{\sequencefirstsectiontitlenocontents}[2]{ \set@p@emtitle{#1}{\par\nobreak\afterpoemtitleskip}{\poemtitlefont} {\sequencesectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak} {\sequencesectiontitleindentamount} \t@xtnotesinfo{#1} } \newcommand{\sequencesectiontitlenocontents}[2]{ \set@p@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont} {\sequencesectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak} {\sequencesectiontitleindentamount} \t@xtnotesinfo{#1} } \newcommand{\sequencefirstsectiontitlefirstline}[1]{ \firstlinesettings \set@p@emtitle{#1}{\par\nobreak\afterpoemtitleskip}{\poemtitlefont} {\sequencesectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak} {\sequencesectiontitleindentamount} \c@ntentsinfo{#1}{\contentssequencesectiontitleindent}{\contentspoemtitlefont} {\contentssequencesectiontitleindentamount} \t@xtnotesinfo{#1} \restoresinglelinesettings } \newcommand{\sequencefirstsectiontitlemiddleline}[1]{ \sequencesectiontitlemiddleline{#1}} \newcommand{\sequencefirstsectiontitlelastline}[1] {\sequencesectiontitlelastline{#1}} \newcommand{\sequencefirstsectiontitlenonotes}[1]{ \set@p@emtitle{#1}{\par\nobreak\afterpoemtitleskip}{\poemtitlefont} {\sequencesectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak} {\sequencesectiontitleindentamount} \c@ntentsinfo{#1}{\contentssequencesectiontitleindent}{\contentspoemtitlefont} {\contentssequencesectiontitleindentamount} } \newcommand{\sequencesectionsubtitle}[1]{\set@p@emsubtitle{#1}{\par\nobreak\afterpoemtitleskip} {\subsectiontitlefont}{\sequencesectionsubtitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\sequencesectionsubtitleindentamount} } \newcommand{\sequencesectionsubtitlefirstline}[1]{\firstlinesettings \set@p@emsubtitle{#1}{\par\nobreak\afterpoemtitleskip} {\subsectiontitlefont}{\sequencesectionsubtitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\sequencesectionsubtitleindentamount} \restoresinglelinesettings } \newcommand{\sequencesectionsubtitlemiddleline}[1]{\middlelinesettings \set@p@emsubtitle{#1}{\par\nobreak\afterpoemtitleskip} {\subsectiontitlefont}{\sequencesectionsubtitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\sequencesectionsubtitleindentamount} \restoresinglelinesettings } \newcommand{\sequencesectionsubtitlelastline}[1]{\lastlinesettings \set@p@emsubtitle{#1}{\par\nobreak\afterpoemtitleskip} {\subsectiontitlefont}{\sequencesectionsubtitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\sequencesectionsubtitleindentamount} \restoresinglelinesettings } \newcommand{\poemsubtitle}[1]{\set@p@emsubtitle{#1}{\par\nobreak\afterpoemtitleskip} {\subsectiontitlefont}{\poemsubtitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\titleindentamount} } \newcommand{\sequencesectiontitleitalicnonotes}[2] {\sequencesectiontitlenonotes{#1} } \newcommand{\sequencesectiontitleitalic}[2]{ \sequencesectiontitle{#1}} \newcommand{\sequencesectiontitlefirstlineitalic}[2] {\sequencesectiontitlefirstline{#1}} \newcommand{\sequencesectiontitlebaretitle}[1]{ \set@p@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont} {\titleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\titleindentamount} } \newcommand{\sequencesubsectiontitle}[1]{ \set@p@emtitle{#1}{\poemtitlepenalty}{\subsectiontitlefont} {\sequencesubsectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak} {\sequencesubsectiontitleindentamount} \c@ntentsinfo{#1}{\contentssequencesubsectiontitleindent}{\contentspoemtitlefont} {\contentssequencesubsectiontitleindentamount} \t@xtnotesinfo{#1} } \newcommand{\sequencesubsectiontitlenocontents}[1]{ \set@p@emtitle{#1}{\poemtitlepenalty}{\subsectiontitlefont} {\sequencesubsectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak} {\sequencesubsectiontitleindentamount} \t@xtnotesinfo{#1} } \newcommand{\sequencefirstsubsectiontitle}[1] {\set@p@emtitle{#1}{\par\nobreak}{\subsectiontitlefont} {\sequencesubsectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak} {\sequencesubsectiontitleindentamount} \c@ntentsinfo{#1}{\contentssequencesubsectiontitleindent}{\contentspoemtitlefont} {\contentssequencesubsectiontitleindentamount} \t@xtnotesinfo{#1} } \newcommand{\sequencefirstsubsectiontitlenocontents}[1] {\set@p@emtitle{#1}{\par\nobreak}{\subsectiontitlefont} {\sequencesubsectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak} {\sequencesubsectiontitleindentamount} \t@xtnotesinfo{#1} } \newcommand{\sequencesubsectiontitlefirstline}[1]{ \firstlinesettings \set@p@emtitle{#1}{\multilinetitlepenalty}{\subsectiontitlefont} {\sequencesubsectiontitleindent}{\nobreak\par\nobreak}{\sequencesubsectiontitleindentamount} \c@ntentsinfo{#1}{\contentssequencesubsectiontitleindent}{\contentspoemtitlefont} {\contentssequencesubsectiontitleindentamount} \t@xtnotesinfo{#1} \restoresinglelinesettings } \newcommand{\sequencesubsectiontitlemiddleline}[1]{ \middlelinesettings \set@p@emtitle{#1}{\nobreak}{\subsectiontitlefont} {\sequencesubsectiontitlesecondlineindent}{\nobreak\par\nobreak}{\sequencesubsectiontitlesecondlineindentamount} \c@ntentsinfo{#1}{\contentssequencesubsectiontitlesecondlineindent}{\contentspoemtitlefont} {\contentssequencesubsectiontitlesecondlineindentamount} \t@xtnotesinfo{#1} \restoresinglelinesettings } \newcommand{\sequencesubsectiontitlelastline}[1]{ \lastlinesettings \set@p@emtitle{#1}{\nobreak}{\subsectiontitlefont} {\sequencesubsectiontitleindent}{\nobreak\par\afterpoemtitleskip\nobreak} {\sequencesubsectiontitleindentamount} \c@ntentsinfo{#1}{\contentssequencesubsectiontitlesecondlineindent}{\contentspoemtitlefont} {\contentssequencesubsectiontitlesecondlineindentamount} \t@xtnotesinfo{#1} \restoresinglelinesettings } \newcommand{\sequencesubsubsectiontitle}[1]{ \set@p@emtitle{#1}{\poemtitlepenalty}{\subsectiontitlefont} {\sequencesubsubsectiontitleindent} {\nobreak\par\nobreak\afterpoemtitleskip\nobreak} {\sequencesubsubsectiontitleindentamount} \t@xtnotesinfo{#1} } \newcommand{\sequencesubsubsectiontitlenocontents}[1]{ \set@p@emtitle{#1}{\poemtitlepenalty}{\subsectiontitlefont} {\sequencesubsubsectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak} {\sequencesubsubsectiontitleindentamount} \t@xtnotesinfo{#1} } \newcommand{\sequencefirstsubsubsectiontitlenocontents}[1]{ \set@p@emtitle{#1}{\nobreak\par\nobreak}{\subsectiontitlefont} {\sequencesubsubsectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak} {\sequencesubsubsectiontitleindentamount} \t@xtnotesinfo{#1} } \newcommand{\sequencefirstsubsectiontitlefirstline}[1]{ \firstlinesettings \set@p@emtitle{#1}{\par\nobreak}{\subsectiontitlefont} {\sequencesubsectiontitleindent}{\nobreak\par\nobreak}{\sequencesubsectiontitleindentamount} \c@ntentsinfo{#1}{\contentssequencesubsectiontitleindent}{\contentspoemtitlefont} {\contentssequencesubsectiontitleindent} \t@xtnotesinfo{#1} \restoresinglelinesettings } \newcommand{\sequencefirstsubsectiontitlemiddleline}[1]{ \sequencesubsectiontitlemiddleline{#1}} \newcommand{\sequencefirstsubsectiontitlelastline}[1]{ \sequencesubsectiontitlelastline{#1}} \newcommand{\interjectiontitlefirstline}[1]{ \sequencefirstsubsectiontitlefirstline{#1}} \newcommand{\interjectiontitlelastline}[1]{ \sequencefirstsubsectiontitlelastline{#1} } \newcommand{\interjectiontitlemiddleline}[1]{ \sequencefirstsubsectionmiddleline{#1} } \newlength{\JHtextwidth} \setlength{\JHtextwidth}{\textwidth} \newlength{\JHmarginparsep} \setlength{\JHmarginparsep}{0pt} \newlength{\JHmarginparvshift} \setlength{\JHmarginparvshift}{0pt} \newif{\ifJHmarkstoleft} \JHmarkstolefttrue \newif{\ifJHmarkstoright} \JHmarkstorightfalse \newif{\ifJHmarkstoouter} \JHmarkstoouterfalse \newif{\ifJHmarkstogutter} \JHmarkstogutterfalse \newif{\ifJHmarginparswitch} \JHmarginparswitchfalse \newif{\ifJHreversemarginpar} \JHreversemarginparfalse \newcommand{\JHmarksleft}{% \JHmarkstolefttrue% \JHmarkstorightfalse% \JHmarkstoouterfalse% \JHmarkstogutterfalse% \JHmarginparswitchfalse% \JHreversemarginparfalse% \reversemarginpar } \newcommand{\JHmarksright}{% \JHmarkstoleftfalse% \JHmarkstorighttrue% \JHmarkstoouterfalse% \JHmarkstogutterfalse% \JHmarginparswitchfalse% \JHreversemarginparfalse% \normalmarginpar } \JHmarksright \newcommand{\JHmarksouter}{% \JHmarkstoleftfalse% \JHmarkstorightfalse% \JHmarkstooutertrue% \JHmarkstogutterfalse% \JHmarginparswitchtrue% \JHreversemarginparfalse% \@mparswitchtrue } \newcommand{\JHmarksgutter}{% \JHmarkstoleftfalse% \JHmarkstorightfalse% \JHmarkstoouterfalse% \JHmarkstoguttertrue% \JHmarginparswitchtrue% \JHreversemarginpartrue% \@mparswitchtrue \reversemarginpar } \newcommand{\JHrightmarginpar}[1]{% \pmclbsphack\strut\vadjust{% \rlap{\kern-\parindent% \kern\JHtextwidth\kern\JHmarginparsep% at right \setbox0=\vtop to 0pt{% added \begin{minipage}[t]{\marginparwidth}% added #1% \end{minipage}% \vss}% \vtop to 0pt{\kern\JHmarginparvshift% default should be 0pt \kern-\dp\strutbox \kern-\ht0 \box0 \vss}}}\pmclesphack}% \newcommand{\JHleftmarginpar}[1]{% \pmclbsphack\strut\vadjust{% changed \rlap{\kern-\parindent% \kern -\JHmarginparsep \kern -\marginparwidth% at left \setbox0=\vtop to 0pt{ \begin{minipage}[t]{\marginparwidth}% added #1% \end{minipage}% \vss}% changed \vtop to 0pt{\kern\JHmarginparvshift % default should be 0pt \kern-\dp\strutbox \kern-\ht0 \box0 \vss}}}\pmclesphack}% changed %%\marginpar{\scriptsize {\the\margrefmarker~p.~\pageref{margref\themargrefnumber}}} \newcommand{\JHoutermarginpar}{% \strictpagechecktrue% \checkoddpage% \ifoddpage% \JHswitchmarginpar{\scriptsize {\the\margrefmarker~p.~\pageref{margref\themargrefnumber}}}% \else% below is for even pages \JHswitchmarginpar{\scriptsize {\the\margrefmarker~p.~\pageref{margref\themargrefnumber}}}% \fi% } %%\marginpar{\scriptsize {\the\margrefmarker~p.~\pageref{margref\themargrefnumber}}} \newcommand{\JHguttermarginpar}{% \strictpagechecktrue \checkoddpage% \ifoddpage% \JHswitchmarginpar{\scriptsize {\the\margrefmarker~p.~\pageref{margref\themargrefnumber}}}% \else% below is for even pages \JHswitchmarginpar{\scriptsize {\the\margrefmarker~p.~\pageref{margref\themargrefnumber}}}% \fi% } \newcommand{\JHswitchmarginpar}{\@dblarg{\@JHswitchmarginpar}} \long\def\@JHswitchmarginpar[#1]#2{\@bsphack\strut\vadjust{% added \checkoddpage \ifJHmarginparswitch \ifJHreversemarginpar \ifoddpage \oddpagefalse \else \oddpagetrue \fi \fi \else \oddpagetrue \ifJHreversemarginpar \oddpagefalse \fi \fi \rlap{\kern-\parindent \if@twocolumn \if@firstcolumn % put at left \kern -\JHmarginparsep \kern -\marginparwidth % at left \else % put at right \kern \columnwidth \kern \JHmarginparsep % at right \fi \else \ifoddpage % put at right \kern \textwidth \kern \JHmarginparsep % at right \else % put at left \kern -\JHmarginparsep \kern -\marginparwidth % at left \fi \fi \setbox0=\vtop to 0pt{% added \begin{minipage}[t]{\marginparwidth}% added \ifoddpage #2\else #1\fi% \end{minipage}% \vss}% added \vtop to 0pt{\kern\JHmarginparvshift % default should be 0pt \kern-\dp\strutbox \kern-\ht0 \box0 \vss}}}\@esphack}% added \newcommand{\JHrighttitlemarginpar}[1]{% \pmclbsphack\strut\vadjust{% \rlap{\kern-\parindent% \kern\JHtextwidth\kern\JHmarginparsep% at right \kern-.5\JHtextwidth\kern\marginparsepmin \setbox0=\vtop to 0pt{% added \begin{minipage}[t]{\marginparwidth}% added #1% \end{minipage}% \vss}% \vtop to 0pt{\kern\JHmarginparvshift% default should be 0pt \kern-\dp\strutbox \kern-\ht0 \box0 \vss}}}\pmclesphack}% \newcommand{\JHlefttitlemarginpar}[1]{% \pmclbsphack\strut\vadjust{% changed \rlap{\kern-\parindent% \kern -\JHmarginparsep \kern -\marginparwidth% at left \kern-.5\JHtextwidth\kern\marginparsepmin \setbox0=\vtop to 0pt{ \begin{minipage}[t]{\marginparwidth}% added #1% \end{minipage}% \vss}% changed \vtop to 0pt{\kern\JHmarginparvshift % default should be 0pt \kern-\dp\strutbox \kern-\ht0 \box0 \vss}}}\pmclesphack}% changed \newcommand{\JHswitchtitlemarginpar}{\@dblarg{\@JHswitchtitlemarginpar}} \long\def\@JHswitchtitlemarginpar[#1]#2{\@bsphack\strut\vadjust{% added \checkoddpage \ifJHmarginparswitch \ifJHreversemarginpar \ifoddpage \oddpagefalse \else \oddpagetrue \fi \fi \else \oddpagetrue \ifJHreversemarginpar \oddpagefalse \fi \fi \rlap{\kern-\parindent \if@twocolumn \if@firstcolumn % put at left \kern -\JHmarginparsep \kern -\marginparwidth % at left \kern-.5\JHtextwidth\kern\marginparsepmin \else % put at right \kern \columnwidth \kern \JHmarginparsep % at right \fi \else \ifoddpage % put at right \kern \textwidth \kern \JHmarginparsep % at right \kern-.5\JHtextwidth\kern\marginparsepmin \else % put at left \kern -\JHmarginparsep \kern -\marginparwidth % at left \kern-.5\JHtextwidth\kern\marginparsepmin \fi \fi \setbox0=\vtop to 0pt{% added \begin{minipage}[t]{\marginparwidth}% added \ifoddpage #2\else #1\fi% \end{minipage}% \vss}% added \vtop to 0pt{\kern\JHmarginparvshift % default should be 0pt \kern-\dp\strutbox \kern-\ht0 \box0 \vss}}}\@esphack}% added \newcommand{\set@margp@emtitle}[7]{\setlength{\titleentryoverrun}{#6}% {#2}% {#3 \begin{titleentryenvironment}% {\ifcentertitleson\begin{center}#4 #1 #7\end{center}\else #4 #1 #7\fi}\end{titleentryenvironment}}% {#5}% \m@kep@emlabel% \m@ken@teholder{#1}% \setlength{\titleentryoverrun}{\z@}} %% subtitle version \newcommand{\set@margp@emsubtitle}[7]{\setlength{\titleentryoverrun}{#6}% {#2}% {#3 \begin{titleentryenvironment}% {\ifcentertitleson\begin{center}#4 #1 #7\end{center}\else #4 #1 #7\fi}\end{titleentryenvironment}}% {#5}% \setlength{\titleentryoverrun}{\z@}} \newcommand{\setmargpoemtitle}[2]{% \set@margp@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}% {\sequencetitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}{#2}% \c@ntentsinfo{#1}{\contentsindentone}{\contentspoemtitlefont}% {\contentsindenttwoamount}% \t@xtnotesinfo{#1}% \sources{\label{#2}}% } \@mparswitchfalse % so the title marker won't switch sides on alternate pages \newcommand{\JHpoemtitle}[2]{% \set@margp@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}% {\sequencetitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}% {\JHlabel{#2}}% \c@ntentsinfo{#1}{\contentssequencetitleindent}{\contentspoemtitlefont}% {\contentssequencetitleindentamount}% \t@xtnotesinfo{#1}% \sources{\label{#2}}% } \newcommand{\JHprosesectiontitle}[2]{% \set@margp@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}% {\sequencetitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}% {\JHlabel{#2}}% \c@ntentsinfo{#1}{\contentssequencetitleindent}{\contentspoemtitlefont}% {\contentssequencetitleindentamount}% \t@xtnotesinfo{#1}% \sources{\label{#2}}% } \newcommand{\JHlabel}[1]{% \ifJHmarkstoright\JHrighttitlemarginpar {{\scriptsize{\the\margrefmarker~p.~\pageref{#1}}}} \fi \ifJHmarkstoleft \JHlefttitlemarginpar{{\scriptsize{\the\margrefmarker~p.~\pageref{#1}}}} \fi \ifJHmarkstoouter \JHswitchtitlemarginpar{{\scriptsize{\the\margrefmarker~p.~\pageref{#1}}}} \fi \ifJHmarkstogutter \JHswitchtitlemarginpar{{\scriptsize{\the\margrefmarker~p.~\pageref{#1}}}} \fi } \newcommand{\JHsequencetitle}[2]{% \set@margp@emtitle{#1}{\sequencetitlepenalty}{\sequencetitlefont}% {\sequencetitleindent}{\nobreak\par\nobreak\aftersequencetitleskip\nobreak}{\z@}% {\JHlabel{#2}}% \putpagenumberincontentsfalse% \c@ntentsinfo{#1}{\contentsindentone}{\contentssequencetitlefont}% {\contentsindenttwoamount}% \putpagenumberincontentstrue% \t@xtnotesinfo{#1}% \sources{\label{#2}}% } \newcommand{\JHsequencesectiontitle}[2]{% \set@margp@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}% {\sequencesectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}% {\sequencesectiontitleindentamount}{\JHlabel{#2}}% \c@ntentsinfo{#1}{\contentssequencesectiontitleindent}{\contentspoemtitlefont}% {\contentsindentthreeamount}% \t@xtnotesinfo{#1}% \sources{\label{#2}}% } \newcommand{\JHsequencefirstsectiontitle}[2]{% \set@margp@emtitle{#1}{\par\nobreak\afterpoemtitleskip}{\poemtitlefont}% {\sequencesectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}% {\titleindentamount}{\JHlabel{#2}}% \c@ntentsinfo{#1}{\contentssequencesectiontitleindent}{\contentspoemtitlefont}% {\contentssequencesectiontitleindentamount}% \t@xtnotesinfo{#1}% \sources{\label{#2}}% } \newcommand{\JHpoemsectiontitle}[2]{% \set@margp@emtitle{#1}{\poemtitlepenalty}{\subsectiontitlefont}% {\poemsectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}% {\poemsectiontitleindentamount}{\JHlabel{#2}}% \c@ntentsinfo{#1}{\contentspoemsectiontitleindent}{\contentspoemtitlefont}% {\contentspoemsectiontitleindentamount}% \t@xtnotesinfo{#1}% \sources{\label{#2}}% } \newcommand{\JHpoemfirstsectiontitle}[2]{% \set@margp@emtitle{#1}{\par\nobreak}{\subsectiontitlefont}% {\poemsectiontitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}% {\\poemsectiontitleindentamount}{\JHlabel{#2}}% \c@ntentsinfo{#1}{\contentsi\poemsectiontitleindent}{\contentspoemtitlefont}% {\contents\poemsectiontitleindentamount}% \t@xtnotesinfo{#1}% \sources{\label{#2}}% } \newcommand{\JHsequencesectionsubtitle}[2]{% \set@margp@emsubtitle{#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\testforcenterepigraph% \begin{epigraphquote}% \emph{#1}\JHlabel{#2}\end{epigraphquote}% \sources{\label{#2}}\afterpoemtitleskip\nopagebreak} \newcommand{\JHepigraph}[2]{\nopagebreak\afterpoemtitleskip\testforcenterepigraph% \begin{epigraphquote}% \emph{#1}\JHlabel{#2}\end{epigraphquote}% \sources{\label{#2}}\afterpoemtitleskip\nopagebreak} \newcommand{\backmattersectiontitle}[1]{% \set@p@emtitle{#1}{\poemtitlepenalty}{\volumetitlefont}% {\relax}{\backmattersink}{\z@}% \c@ntentsinfo{#1}{contentsindentone}{\contentspoemtitlefont}% {\contentsindenttwoamount}% \t@xtnotesinfo{#1} } \newcounter{margrefnumber} \setcounter{margrefnumber}{1} \newtoks{\margrefmarker} \margrefmarker={\dag} \newcommand{\setmargrefmarker}[1]{\margrefmarker={#1}} \providecommand{\settitlemargrefmarker}[1]{\titlemargrefmarker={#1}} \newtoks{\titlemargrefmarker} \titlemargrefmarker={\dag} \newcommand{\makemargreflabel}{\string\label\string{margref\themargrefnumber\string}} \newif{\ifmargrefstomargin} \margrefstomargintrue \newcommand{\setmargref}{\nolinebreak\begin{marginenvironment}% \nolinebreak% \ifJHmarkstoright% \JHrightmarginpar{\scriptsize {\the\margrefmarker~p.~\pageref{margref\themargrefnumber}}}% \fi% \ifJHmarkstoleft% \JHleftmarginpar{\scriptsize {\the\margrefmarker~p.~\pageref{margref\themargrefnumber}}}% \fi% \ifJHmarkstoouter% \JHoutermarginpar% \fi% \ifJHmarkstogutter% \JHguttermarginpar% \fi% \end{marginenvironment}% \nolinebreak% } \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}}} } \newif\ifcenterepigraphson \centerepigraphsonfalse \newlength{\centerepigraphindentation} \setlength{\centerepigraphindentation}{6em} \newlength{\normalepigraphindentation} \setlength{\normalepigraphindentation}{1.5em} \newcommand{\centerepigraphquote}{% \setlength{\epigraphquoteleftmargin}{\centerepigraphindentation} \setlength{\epigraphquoterightmargin}{\centerepigraphindentation} } \newcommand{\normalepigraphquote}{% \setlength{\epigraphquoteleftmargin}{\normalepigraphindentation} \setlength{\epigraphquoterightmargin}{\normalepigraphindentation} } \newcommand{\testforcenterepigraph}{\ifcenterepigraphson% \centerepigraphquote \else \normalepigraphquote \fi} \newcommand{\epigraph}[1]{\nopagebreak\afterpoemtitleskip\testforcenterepigraph% \begin{epigraphquote}% \emph{#1}\end{epigraphquote}\afterpoemtitleskip\nopagebreak} \newcommand{\headnote}[1]{\epigraph{#1}} \newcommand{\attribution}[1]{\nopagebreak\afterpoemtitleskip\testforcenterepigraph% \begin{epigraphquote}% {\small\emph{#1}}\end{epigraphquote}\afterpoemtitleskip\nopagebreak} \newcommand{\poemdedication}[1]{\nopagebreak\afterpoemtitleskip\testforcenterepigraph% \begin{epigraphquote}% \emph{#1}\end{epigraphquote}\afterpoemtitleskip\nopagebreak} \providecommand{\dedication}[1]{\poemdedication{#1}} \newcommand{\volumededication}[1]{\par\bigskip\begin{volumetitlepagequote} \emph{#1}\end{volumetitlepagequote}} \newcommand{\volumeepigraph}[1]{\par\bigskip\begin{volumetitlepagequote} \emph{#1}\end{volumetitlepagequote}} \newcommand{\volumeattribution}[1]{\par\smallskip\begin{volumetitlepagequote} {\small \emph{#1}}\end{volumetitlepagequote}} \newenvironment{epigraphenvironment}{\nopagebreak\afterpoemtitleskip\testforcenterepigraph% \begin{epigraphquote}\em}{\end{epigraphquote}\afterpoemtitleskip\nopagebreak} \newcommand{\set@short@pigraph}[1]{\iftitlesatleftversemargin% {\begin{pmclverse}\addtolength{\leftmargin}{-\leftmargini}{\nobreak \emph{#1} \afterpoemtitleskip} \end{pmclverse}}% \else%\iftitlesatleftversemargin {\nobreak}% \begin{titleentryenvironment}% \ifnormaltitleindentation \hspace{\normalepigraphindentation}\emph{#1}% \else % for the \ifnormaltitleindentation \ifcenterepigraphson \begin{center} \emph{#1}\end{center} \else \emph{#1}\fi % for ifcenterepigraphson \fi %\ifnormaltitleindentation \end{titleentryenvironment} {\afterpoemtitleskip}% \fi}% for the \iftitlesatleftversemargin \newcommand{\shortpoemepigraph}[1]{\nopagebreak\afterpoemtitleskip% \set@short@pigraph{#1} } \newcommand{\shortpoemdedication}[1]{\nopagebreak\afterpoemtitleskip% \set@short@pigraph{#1} } \newcommand{\shortpoemattribution}[1]{\nopagebreak\afterpoemtitleskip% \set@short@pigraph{{\small #1}} } \newcommand{\JHshortepigraph}[2]{\nopagebreak\afterpoemtitleskip% \set@short@pigraph{#1}\marginpar{{\scriptsize{\the\margrefmarker~p.~\pageref{#2}}}} \sources{\label{#2}} } \newcommand{\JHshortdedication}[2]{\JHshortepigraph{#1}{#2}} \newlength{\dateindent}% \setlength{\dateindent}{\leftmargin}% \newcommand{\variabledateindent}{% \setlength{\dateindent}{\linewidth}% \addtolength{\dateindent}{-\versewidth}% \addtolength{\dateindent}{-.5\dateindent}} \newcommand{\poemdate}[1]{\iflastpoemcentered\variabledateindent% \else\setlength{\dateindent}{\leftmargin}% \fi% \bigskip\begin{raggedleft}\hspace{\dateindent}#1\end{raggedleft}\bigskip}% \newlength{\poemattributionindent}% \setlength{\poemattributionindent}{\leftmargin}% \newcommand{\variablepoemattributionindent}{% \setlength{\poemattributionindent}{\linewidth}% \addtolength{\poemattributionindent}{-\versewidth}% \addtolength{\poemattributionindent}{-.5\poemattributionindent}}% \newcommand{\poemattribution}[1]{\iflastpoemcentered\variablepoemattributionindent% \else\setlength{\poemattributionindent}{\leftmargin}% \fi% \bigskip\begin{raggedleft}\hspace{\poemattributionindent}#1\end{raggedleft}\bigskip}% \def\strip#1>{} \newcommand{\literaltextnote}[1]{\iftextnotesatend \begingroup \def\next{#1}% \newlinechar='40 \immediate\write\textnotes{\expandafter\strip\meaning\next}% \endgroup\fi } \newcommand{\literalemend}[1]{\ifemendationsatend \begingroup \def\next{#1}% \newlinechar='40 \immediate\write\emendations{\expandafter\strip\meaning\next}% \endgroup\fi } \newcommand{\literalexplain}[1]{\ifexplanatend \begingroup \def\next{#1}% \newlinechar='40 \immediate\write\explanations{\expandafter\strip\meaning\next}% \endgroup\fi } \newcommand{\literalcontents}[1]{\ifpoemcontentson \begingroup \def\next{#1}% \newlinechar='40 \immediate\write\poemcontents{\expandafter\strip\meaning\next}% \endgroup\fi } \newcommand{\literaltextnoteshort}[1]{ \iftextnotesatend \begingroup \def\next{#1}% \immediate\write\textnotes{\expandafter\strip\meaning\next}% \endgroup\fi} \newcommand{\literalemendshort}[1]{\ifemendationsatend \begingroup \def\next{#1}% \immediate\write\emendations{\expandafter\strip\meaning\next}% \endgroup\fi} \newcommand{\literalexplainshort}[1]{\ifexplanatend \begingroup \def\next{#1}% \immediate\write\explanations{\expandafter\strip\meaning\next}% \endgroup\fi} \newcommand{\literalcontentsshort}[1]{\ifpoemcontentson \begingroup \immediate\write\poemcontents{\expandafter\strip\meaning\next}% \endgroup\fi} \newcommand{\sameword}{$\sim$} \newcommand{\missingpunct}{${}_{\wedge}$} \newcommand{\pmccheckifinteger}[1]{% \protected@edef\@vsa{#1}% \ifcat _\ifnum9<1\pmcgobm{#1} _\else A\fi \integertrue% \else \integerfalse% \fi% } \newif\ifinteger \newcommand{\pmcgobm}[1]{#1} \newcommand{\setlemmarange}[1]{% \pmccheckifinteger{#1}% \ifinteger \setcounter{lemmalines}{#1}% \ifthenelse{\equal{\value{lemmalines}}{0}}{\rangelemmafalse}{\rangelemmatrue}% \setcounter{lemmaend}{\theverselinenumber}% \addtocounter{lemmaend}{\thelemmalines}% \else \setcounterfromref{lemmaend}{#1}\rangelemmatrue \fi \makeatother} \newcommand{\citerange}{% \ifrangelemma \theverselinenumber --\thelemmaend \else \theverselinenumber \fi} \newcommand{\resetlemmacounters}{\rangelemmafalse \setcounter{lemmalines}{0}% \setcounter{lemmaend}{0}% } \newcommand{\checknoteheaders}{\string\setcounter\string{notepageholdernote\string}% \string{\thepage\string}\string\ifhmode\string\unskip\string\fi% \string\ifthenelse\string{\string\value\string{notepageholdernote\string}>% \string\value\string{notepageholdertitle\string}\string}% \string{\string\mark\string{\string\thenotepageholdernote\string}\string}% \string{\string\mark\string{\string\thenotepageholdertitle\string}\string}\string\unskip \string\unskip\string\relax\ \citerange :\string~\string\nolinebreak}% \newif\iftextnotessinglepar \newcommand{\textnote}[2][0]{% \iftextnoteson \setlemmarange{#1}% \immediate\write\textnotes{\checknoteheaders}% \literaltextnote{#2}% \iftextnotessinglepar% \literaltextnote{\par}% \fi% \fi \resetlemmacounters } \newcommand{\accidental}[1]{% \iftextnoteson% \ifincludeaccidentals% \iftextnotesatend\immediate\write\textnotes{\string\nobreak}\fi% \textnote{#1}% \iftextnotesatend\immediate\write\textnotes{\string\nobreak}\fi% \iftextnotessinglepar% \literaltextnote{\par}% \fi% \fi\fi } \newcommand{\tsvariant}[2][0]{% \iftextnoteson \ifincludetypescripts% \iftextnotesatend\immediate\write\textnotes{\string\nobreak}\fi% \textnote[#1]{#2}% \iftextnotesatend\immediate\write\textnotes{\string\nobreak}\fi% \fi\fi } \newcommand{\tsaccidental}[1]{\iftextnoteson\ifincludetypescripts\accidental{#1}\fi\fi} \newcommand{\tsentry}[1]{\iftextnoteson\ifincludetypescripts{\@ifnextchar,{\unskip}{% Ê\@ifnextchar;{\unskip}{}% }#1}\fi\fi\unskip} \newcommand{\sources}[1]{% \iftextnoteson \begingroup \newlinechar='40 \def\next{#1}% \immediate\write\textnotes{\expandafter\strip\meaning\next}% \endgroup \iftextnotessinglepar% \literaltextnote{\par}% \fi% \fi } \newcommand{\titletoothernotes}{\string\par \ifputpagenumberinnotes% \string\argpageref\string{\@compoundlabelscratch\string}% \string\setcounterfrompageref\string{notepageholdertitle\string}% \string{\@compoundlabelscratch\string}% \fi% \string\textbf\string{\ \the\fulltitleholder\string}}% \newif\ifemendationssinglepar \newcommand{\emendation}[2][0]{ \ifemendationson \setlemmarange{#1}% \ifredundantemendations \iftextnoteson \ifrangelemma \textnote[#1]{#2}% \else \textnote{#2}% \fi % ifrangelemma} \iftextnotessinglepar% \literaltextnote{\par}% \fi% iftextnotesinglepar \fi %iftextnoteson \fi % ifredundantemendations \ifnoemendyet % firstemendation \firstemendation \fi %noemendyet \global\noemendyetfalse \immediate\write\emendations{\checknoteheaders}% \literalemend{#2}% \ifemendationssinglepar% \literalemend{\par}% \fi% ifemendationssinglepar \fi % ifemendationson \resetlemmacounters } \newcommand{\firstemendation}{\ifemendationsatend \immediate\write\emendations{\titletoothernotes}\fi } \newif\ifexplanationssinglepar \newcommand{\explanatory}[2][0]{% \ifexplanon \setlemmarange{#1}% \ifnoexplainyet % first explanation \firstexplanatory \fi %noexplainyet \global\noexplainyetfalse \immediate\write\explanations{\checknoteheaders}% \literalexplain{#2}% \ifexplanationssinglepar% \literalexplain{\par}% \fi% \fi % ifexplanon \resetlemmacounters } \newcommand{\firstexplanatory}{\ifexplanatend \immediate\write\explanations{\titletoothernotes}\fi } \makeatletter \long\def\appendtomacro#1#2{% \begingroup \toks@\expandafter{#1#2}% \xdef#1{\the\toks@}% \endgroup} \makeatother \newcommand{\definenewnotetype}[5]{% \expandafter\newif\csname if#1son\endcsname \global\csname #1sontrue\endcsname \expandafter\newif\csname ifno#1yet\endcsname \csname no#1yettrue\endcsname \expandafter\newif\csname if#1ssinglepar\endcsname \csname #1singleparfalse\endcsname \expandafter\newif\csname if#1stwocol\endcsname \csname #1stwocolfalse\endcsname \expandafter\newwrite\csname #1s\endcsname \immediate\expandafter\openout\csname #1s\endcsname=\expandafter\jobname .#2 \expandafter\newcommand\csname literal#1\endcsname[1]{ \begingroup \def\next{##1}% \newlinechar='40 \immediate\write\expandafter\csname #1s\endcsname{\expandafter\strip\meaning\next}% \endgroup} \csname literal#1\endcsname{\flushbottom{\par\clearpage {\pagestyle{volumetitlestyle}\cleardoublepage} \thispagestyle{volumetitlestyle}} \fancyhead{} \fancyfoot{} \fancyhead[RO,LE]{{\small\textrm{\thepage}}}} \immediate\write\csname #1s\endcsname{\string\fancyhead[CO]\string{\string{\string\small \string{\string\em\ #3\string~\string\mymarks\string}\string}\string}} \immediate\write\csname #1s\endcsname{\string\fancyhead[CE]\string{\string{\string\small \string{\string\em\ #3\string~\string\mymarks\string}\string}\string}} \csname literal#1\endcsname{\fancyfoot[C]{} \mark{3} \backmattersink} \immediate\write\csname #1s\endcsname{ \string\setendnotessectiontitle\string{#4\string}\string{#1notes\string}} \csname literal#1\endcsname{\lefthyphenmin=2\backmatterafterheadersink \tolerance=500\language=0 \normalfont \backmattertextfont} \immediate\write\csname #1s\endcsname{\string\if#1stwocol} \csname literal#1\endcsname{\begin{multicols}{2}\fi\setlength{\parindent}{-10pt}}% \expandafter\newcommand\csname first#1\endcsname{% \immediate\write\expandafter\csname #1s\endcsname{\titletoothernotes}% \immediate\write\csname #1s\endcsname{\string\if#1ssinglepar}% \immediate\write\csname #1s\endcsname{\string\par}% \immediate\write\csname #1s\endcsname{\string\fi}% } \expandafter\newcommand\csname #1\endcsname[2][0]{% \setlemmarange{##1}% \csname ifno#1yet\endcsname% \csname first#1\endcsname% \fi% \global\csname no#1yetfalse\endcsname% \immediate\write\expandafter\csname #1s\endcsname{\string\nobreak\string\nobreak\checknoteheaders}% \csname literal#1\endcsname{##2}% \csname if#1ssinglepar\endcsname% \csname literal#1\endcsname{\par}% \fi% \resetlemmacounters% } \expandafter\newcommand\csname prose#1\endcsname[3][0]{% \unskip\proselinelabel{##2}% \setproselemmarange{##2}{##1}% \csname ifno#1yet\endcsname% \csname first#1\endcsname% \fi% \global\csname no#1yetfalse\endcsname% \immediate\write\expandafter\csname #1s\endcsname{\checkprosenoteheaders}% \csname literal#1\endcsname{##3}% \csname if#1ssinglepar\endcsname% \csname literal#1\endcsname{\par}% \unskip% \fi% \resetlemmacounters\unskip% } \expandafter\newcommand\csname pm#1\endcsname[2][0]{% \setpmlemmarange{##1}% \csname ifno#1yet\endcsname% \csname first#1\endcsname% \fi% \global\csname no#1yetfalse\endcsname% \immediate\write\expandafter\csname #1s\endcsname{\pmchecknoteheaders\string~}% \immediate\write\expandafter\csname #1s\endcsname{\pmciterange}% \csname literal#1\endcsname{##2}% \csname if#1ssinglepar\endcsname% \csname literal#1\endcsname{\par}% \fi% \pmresetlemmacounters\unskip% } \makeatletter \appendtomacro{\endpoem}{\global\expandafter\csname no#1yettrue\endcsname} \makeatother \makeatletter \appendtomacro{\endprosesection}{\global\expandafter\csname no#1yettrue\endcsname} \makeatother \makeatletter \appendtomacro{\endpmsection}{\global\expandafter\csname no#1yettrue\endcsname} \makeatother \expandafter\newcommand\csname put#1s\endcsname{ \newpage\hyphenationforsmall \csname if#1stwocol\endcsname% \csname literal#1\endcsname{\end{multicols}}% \fi %\iftwocol \immediate\expandafter\closeout\csname #1s\endcsname \expandafter\input \jobname.#2 \ifpoemcontentson \contentsendnotestitle{#5}{#1notes} \fi } \expandafter\newcommand\csname margref#1\endcsname{% \addtocounter{margrefnumber}{1} \immediate\write\expandafter\csname #1s\endcsname{\makemargreflabel}% \setmargref } } \newcounter{proselinenumber} \setcounter{proselinenumber}{1} \newcounter{prosemodulo} \setcounter{prosemodulo}{\value{lineindexrepeat}} \addtocounter{prosemodulo}{1} \newcommand{\setprosemodulo}[1]{\modulolinenumbers[#1]} \newcommand{\prosesectiontitle}[1]{\poemtitle{#1}} \newcommand{\prosesectiontitlenotitle}[1]{\poemtitlenotitle{#1}} \setcounter{prosemodulo}{\value{lineindexrepeat}}% \addtocounter{prosemodulo}{1}% \ifx\modulolinenumbers\undefined% \relax\else \modulolinenumbers[\value{prosemodulo}]% if lineno is called \fi \newif\ifinprosesection \newenvironment{prosesection} {\inprosesectiontrue\resetlinenumber\begin{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 \noemendyettrue% \noexplainyettrue% } {\end{linenumbers}\inprosesectionfalse} \newenvironment{prosesectionnoreset} {\begin{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 \expandafter\@firstoftwo \else \expandafter\@secondoftwo \fi } \newcommand*{\@extract@ref}[2]{% \expandafter\expandafter\expandafter#1\csname r@#2\endcsname{}{}\@nil } \newcommand*{\@extractref}{% \@extract@ref\@car } \newcommand*{\@extractpageref}{% \@extract@ref\@secondcar } \long\def\@secondcar#1#2#3\@nil{#2} \newcommand*{\setcounterfromref}[2]{% \ifrefundefined{#2}{% \protect\G@refundefinedtrue \@latex@warning{Reference `#2' on page \thepage \space undefined}% \setcounter{#1}{0}% }{% \setcounter{#1}{\@extractref{#2}}% }% } \newcommand*{\setcounterfrompageref}[2]{% \ifrefundefined{#2}{% \protect\G@refundefinedtrue \@latex@warning{Reference `#2' on page \thepage \space undefined}% \setcounter{#1}{0}% }{% \setcounter{#1}{\@extractpageref{#2}}% }% } \makeatother \newcommand{\setproselemmastart}[1]{% \unskip \setcounterfromref{proselinenumber}{#1}} \newcommand{\setproselemmarange}[2]{% \setproselemmastart{#1}% \pmccheckifinteger{#2}% \ifinteger \setcounter{lemmalines}{#2}% \ifthenelse{\equal{\value{lemmalines}}{0}}{\rangelemmafalse}{\rangelemmatrue}% \setcounter{lemmaend}{\theproselinenumber}% \addtocounter{lemmaend}{\thelemmalines}\unskip% \else \setcounterfromref{lemmaend}{#2}\rangelemmatrue \fi\unskip } \newcommand{\proseciterange}{% \ifrangelemma% \theproselinenumber --\thelemmaend% \else% \theproselinenumber% \fi} \newcommand{\checkprosenoteheaders}{\string\setcounter\string{notepageholdernote\string}% \string{\thepage\string}\string\ifhmode\string\unskip\string\fi \string\ifthenelse\string{\string\value\string{notepageholdernote\string}> \string\value\string{notepageholdertitle\string}\string}% \string{\string\mark\string{\string\thenotepageholdernote\string}\string}% \string{\string\mark\string{\string\thenotepageholdertitle\string}\string}\string\unskip \string\unskip\string\relax\ \proseciterange :\string~\string\nolinebreak}% \newcommand{\proselinelabel}[1]{\ifhmode\unskip\fi\linelabel{#1}} \newcommand{\prosetextnote}[3][0]{% \iftextnoteson% \unskip\proselinelabel{#2}% \setproselemmarange{#2}{#1}% \immediate\write\textnotes{\checkprosenoteheaders}% \literaltextnote{#3}% \iftextnotessinglepar% \literaltextnote{\par}% \fi% \resetlemmacounters% \fi\unskip% } \newcommand{\proseemendation}[3][0]{% \ifemendationson% \unskip\proselinelabel{#2}% \setproselemmarange{#2}{#1}% \ifredundantemendations \iftextnoteson \ifrangelemma \prosetextnote[#1]{#2}{#3}% \else \prosetextnote{#2}{#3}% \fi % ifrangelemma} \fi %iftextnoteson \iftextnotessinglepar% \literaltextnote{\par}% \fi% iftextnotessinglepar \fi % ifredundantemendations \ifnoemendyet % firstemendation \firstemendation \fi%noemendyet \global\noemendyetfalse \immediate\write\emendations{\checkprosenoteheaders}% \literalemend{#3}% \ifemendationssinglepar% \literalemend{\par}% \fi% ifemendationssinglep \resetlemmacounters% \fi\unskip% } \newcommand{\proseexplanatory}[3][0]{% \ifexplanon% \unskip\proselinelabel{#2}% \setproselemmarange{#2}{#1}% \ifnoexplainyet% firstexplanation \firstexplanatory% \fi%noexplainyet \global\noexplainyetfalse% \immediate\write\explanations{\checkprosenoteheaders}% \literalexplain{#3}% \ifexplanationssinglepar% \literalexplain{\par}% \fi% ifexplanationssinglepar \resetlemmacounters% \fi\unskip% } \newcommand{\proseaccidental}[2]{ \iftextnoteson \ifincludeaccidentals \immediate\write\textnotes{\string\nobreak}% \prosetextnote{#1}{#2}% \immediate\write\textnotes{\string\nobreak}% \iftextnotessinglepar% \literaltextnote{\par}% \fi% \fi\fi } \newcommand{\prosetsvariant}[3][0]{\iftextnoteson \ifincludetypescripts \immediate\write \textnotes{\string\nobreak}% \prosetextnote[#1]{#2}{#3}% \immediate\write\textnotes{\string\nobreak}% \iftextnotessinglepar% \literaltextnote{\par}% \fi% \fi\fi } \newcommand{\prosetsaccidental}[2]{\iftextnoteson \ifincludetypescripts\proseaccidental{#1}{#2}\fi\fi} \newif{\ifprosebysentence} \newif{\ifrunningsentencenumbers}\runningsentencenumberstrue \newif{\ifmarginsentencenumbers}\marginsentencenumberstrue \newif{\ifsuppressfirstpara}\suppressfirstparafalse \newif{\ifsuppressfirstsentence}\suppressfirstsentencefalse \newtoks{\pmnoteheader} \newcounter{pmsentencenumber}\setcounter{pmsentencenumber}{0} \newcounter{pmmodulo}\setcounter{pmmodulo}{3} \newcounter{pmindexcount}\setcounter{pmindexcount}{0} \newcommand{\setprosebysentence}{\prosebysentencetrue% } \newenvironment{pmsection}{ \noemendyettrue% \noexplainyettrue% }{} \newcommand{\runningsentencenumberformat}[1]{\nobreak% \ifsuppressfirstsentence% \ifthenelse{\thepmsentencenumber=1}{\relax}{% \unskip\textsuperscript{\scriptsize{#1}}}% \unskip\nobreak% \else% \textsuperscript{\scriptsize{#1}}%\fi \unskip\nobreak} \newcommand{\marginsentencenumberformat}[1]{\scriptsize{#1}} \newcommand{\setpmmodulo}[1]{\setcounter{pmmodulo}{#1}% \addtocounter{pmmodulo}{-1}% } \newcommand{\pmnumberstoleft}{%\catcode`\@=11% \numbersswitchfalse\numbersrightfalse% \setlength{\marginparsep}{18pt}% } \newcommand{\pmnumberstoright}{%\catcode`\@=11% \numbersswitchfalse\numbersrighttrue% \setlength{\marginparsep}{-18pt} } \newcommand{\pmnumbersswitch}{\strictpagechecktrue\numbersswitchtrue\numbersrightfalse% \setlength{\marginparsep}{18pt}% } \newcommand{\pmnumbersgutter}{%\catcode`\@=11% \pmnumbersswitch% \pmclreversesideparfalse\numbersguttertrue% \setlength{\marginparsep}{18pt}% } \newcommand{\pmnumbersouter}{%\catcode`\@=11% \pmnumbersswitch% \pmclreversesidepartrue\numbersgutterfalse% \setlength{\marginparsep}{18pt}% } \newcommand{\putpmsentencenumber}{% \ifsuppressfirstsentence% \ifthenelse{\thepmsentencenumber=1}{\relax}{\putpmmarginnumber{\thepmsentencenumber}% {\marginsentencenumberformat}}% \else% \putpmmarginnumber{\thepmsentencenumber}% {\marginsentencenumberformat}% \fi} \newcommand{\putpmmarginnumber}[2]{% \nolinebreak\begin{marginenvironment}% \nolinebreak% \ifnumbersswitch%\marginpar{\hfil #2{#1}} \pmclsidepar{\hfil #2{#1}}% \else% \ifnumbersright%\marginpar{\hfil #2{#1}} \pmclrightsidepar{\hfil #2{#1}}% \else% \marginpar{#2{#1}\hfil} \pmclleftsidepar {#2{#1}\hfil}% \fi% \fi% \nolinebreak% \end{marginenvironment}\nolinebreak% } \newcommand{\pmsentence}{% \addtocounter{pmsentencenumber}{1}% \ifrunningsentencenumbers% add running number \runningsentencenumberformat{\thepmsentencenumber}% \fi% \ifmarginsentencenumbers% add marginal number \addtocounter{pmindexcount}{1}% \leavevmode% \ifthenelse{\value{pmindexcount}>\value{pmmodulo}}% {\putpmsentencenumber\nobreak% \setcounter{pmindexcount}{0}% }{\relax}% \fi% \ifpmparas% \global\edef\noteheaderconcat{\thepmparagraph:\thepmsentencenumber}% \pmnoteheader=\expandafter{\noteheaderconcat}% \else% \global\edef\noteheaderconcat{\thepmsentencenumber} \pmnoteheader=\expandafter{\noteheaderconcat}% \fi% } \newcommand{\pmsentencetwo}{% \addtocounter{pmsentencenumber}{1}% \ifrunningsentencenumbers% add running number \runningsentencenumberformat{\thepmsentencenumber}% \fi% \ifmarginsentencenumbers% add marginal number \addtocounter{pmindexcount}{1}% \leavevmode% \ifthenelse{\value{pmindexcount}>\value{pmmodulo}}% { \putpmsentencenumbertwo\nobreak% \setcounter{pmindexcount}{0}% }{\relax}% \fi% \ifpmparas% \global\edef\noteheaderconcat{\thepmparagraph:\thepmsentencenumber}% \pmnoteheader=\expandafter{\noteheaderconcat}% \else% \global\edef\noteheaderconcat{\thepmsentencenumber}% \pmnoteheader=\expandafter{\noteheaderconcat}% \fi% } \newcommand{\putpmsentencenumbertwo}{% \putpmmarginnumber{\rlap{\phantom{1},~\thepmsentencenumber}}% {\marginsentencenumberformat}} \newcommand{\pmsentencethree}{% \addtocounter{pmsentencenumber}{1}% \ifrunningsentencenumbers% add running number \runningsentencenumberformat{\thepmsentencenumber}% \fi% \ifmarginsentencenumbers% add marginal number \addtocounter{pmindexcount}{1}% \leavevmode% \ifthenelse{\value{pmindexcount}>\value{pmmodulo}}% { \putpmsentencenumberthree\nobreak% \setcounter{pmindexcount}{0}% }{\relax}% \fi% \ifpmparas% \global\edef\noteheaderconcat{\thepmparagraph:\thepmsentencenumber}% \pmnoteheader=\expandafter{\noteheaderconcat}% \else% \global\edef\noteheaderconcat{\thepmsentencenumber}% \pmnoteheader=\expandafter{\noteheaderconcat}% \fi% } \newcommand{\putpmsentencenumberthree}{% \putpmmarginnumber{\rlap{\phantom{1,~2},~\thepmsentencenumber}}% {\marginsentencenumberformat}} \newcommand{\pmsentencefour}{% \addtocounter{pmsentencenumber}{1}% \ifrunningsentencenumbers% add running number \runningsentencenumberformat{\thepmsentencenumber}% \fi% \ifmarginsentencenumbers% add marginal number \addtocounter{pmindexcount}{1}% \leavevmode% \ifthenelse{\value{pmindexcount}>\value{pmmodulo}}% { \putpmsentencenumberfour\nobreak% \setcounter{pmindexcount}{0}% }{\relax}% \fi% \ifpmparas% \global\edef\noteheaderconcat{\thepmparagraph:\thepmsentencenumber}% \pmnoteheader=\expandafter{\noteheaderconcat}% \else% \global\edef\noteheaderconcat{\thepmsentencenumber}% \pmnoteheader=\expandafter{\noteheaderconcat}% \fi% } \newcommand{\putpmsentencenumberfour}{% \putpmmarginnumber{\rlap{\phantom{1,~2,~3},~\thepmsentencenumber}}% {\marginsentencenumberformat}} \newcounter{pmparagraph} \setcounter{pmparagraph}{0} \newif{\ifpmparas}\pmparasfalse \newif{\ifpmparainmar}\pmparainmartrue \newif{\ifpmpararunning}\pmpararunningfalse \newif{\ifpmsentencebypara}% reset sentence counter every paragraph \pmsentencebyparatrue \newcommand{\pmparmarformat}[1]{\textbf{{\small #1}}} \newcommand{\pmpararunningformat}[1]{% \ifsuppressfirstpara% \ifthenelse{\thepmparagraph=1}{\relax}{\textbf{\small #1}~}% \else% \textbf{\small #1}~% \fi} \newcommand{\putpmmarparanumber}{% \ifsuppressfirstpara% \ifthenelse{\thepmparagraph=1}{\relax}{\putpmmarginnumber{\llap{\thepmparagraph~~}} {\pmparmarformat}}% \else% \putpmmarginnumber{\llap{\thepmparagraph~~}}{\pmparmarformat}% \fi} \newcommand{\pmpara}{\leavevmode% \pmparastrue\addtocounter{pmparagraph}{1}% \ifpmparainmar% put in marginal paragraph number \putpmmarparanumber \fi \ifpmpararunning% put in running number \pmpararunningformat{\thepmparagraph}% \fi \ifpmsentencebypara% reset sentence counter \setcounter{pmsentencenumber}{0}% \setcounter{pmindexcount}{0}% \fi} \makeatletter \def\sentencelabel#1{\@bsphack% \ifpmparas% \protected@write\@auxout{}% {\string\newlabel{#1}{{\thepmparagraph :\thepmsentencenumber}{\thepage}}}% \else% \protected@write\@auxout{}% {\string\newlabel{#1}{{\thepmsentencenumber}{\thepage}}}% \fi% \@esphack% } \makeatother \newtoks{\pmrangeend} % for notes that refer to ranges \newcommand{\setpmlemmarange}[1]{% \pmccheckifinteger{#1}% \ifinteger% \setcounter{lemmalines}{#1}% \ifthenelse{\equal{\value{lemmalines}}{0}}{\rangelemmafalse}{\rangelemmatrue}% \setcounter{lemmaend}{\thepmsentencenumber}% \addtocounter{lemmaend}{\thelemmalines}% \pmrangeend={\thelemmaend}% \else% \pmrangeend={\ref{#1}}\rangelemmatrue% \fi% } \newcommand{\pmciterange}{% \ifrangelemma{\the\pmnoteheader --\the\pmrangeend:}% \else% \the\pmnoteheader:% \fi} \newcommand{\pmchecknoteheaders}{\string\setcounter\string{notepageholdernote\string}% \string{\thepage\string}\string\ifhmode\string\unskip\string\fi \string\ifthenelse\string{\string\value\string{notepageholdernote\string}> \string\value\string{notepageholdertitle\string}\string}% \string{\string\mark\string{\string\thenotepageholdernote\string}\string}% \string{\string\mark\string{\string\thenotepageholdertitle\string}\string}\string\unskip} \newcommand{\pmresetlemmacounters}{\rangelemmafalse% \setcounter{lemmalines}{0}% \setcounter{lemmaend}{0}% \pmrangeend={\relax}% } \newcommand{\pmtextnote}[2][0]{% \iftextnoteson% \setpmlemmarange{#1}% \immediate\write\textnotes{\pmchecknoteheaders\string~}% \immediate\write\textnotes{\pmciterange}% \literaltextnote{#2}% \iftextnotessinglepar% \literaltextnote{\par}% \fi% \fi% \pmresetlemmacounters% \unskip} \newcommand{\pmexplanatory}[2][0]{% \ifexplanon% \setpmlemmarange{#1}% \ifnoexplainyet % first explanation \firstexplanatory% \fi %noexplainyet \global\noexplainyetfalse% \immediate\write\explanations{\pmchecknoteheaders\string~}% \immediate\write\explanations{\pmciterange}% \literalexplain{#2}% \ifexplanationssinglepar% \literalexplain{\par}% \fi %ifexplanationssinglepar \fi % ifexplanon \pmresetlemmacounters% \unskip% } \newcommand{\pmemendation}[2][0]{% \ifemendationson% \setpmlemmarange{#1}% \ifredundantemendations% \iftextnoteson% \ifrangelemma% \pmtextnote[#1]{#2}% \else% \pmtextnote{#2}% \fi % ifrangelemma} \fi %iftextnoteson \fi % ifredundantemendations \ifnoemendyet % firstemendation \firstemendation% \fi %noemendyet \global\noemendyetfalse% \immediate\write\emendations{\pmchecknoteheaders\string~}% \immediate\write\emendations{\pmciterange}% \literalemend{#2}% \ifemendationssinglepar% \literalemend{\par}% \fi% ifemendationssinglepar \fi % ifemendationson \pmresetlemmacounters% } \newcommand{\pmaccidental}[1]{% \iftextnoteson% \ifincludeaccidentals% \immediate\write\textnotes{\string\nobreak}% \pmtextnote{#1}% \immediate\write\textnotes{\string\nobreak}% \iftextnotessinglepar% \literaltextnote{\par}% \fi% \fi\fi% } \newcommand{\pmtsvariant}[2][0]{\iftextnoteson% \ifincludetypescripts% \immediate\write\textnotes{\string\nobreak}% \pmtextnote[#1]{#2}% \immediate\write\textnotes{\string\nobreak}% \iftextnotessinglepar% \literaltextnote{\par}% \fi% \fi\fi% } \newcommand{\pmtsaccidental}[1]{\iftextnoteson\ifincludetypescripts\pmaccidental{#1}\fi\fi} \newcommand{\textnotesatfoot}{% first redefine textnotes \global\textnotesontrue% \global\textnotesatendfalse% \ifsourcesfootnotespara% \DeclareNewFootnote[para]{A}% \else% \DeclareNewFootnote[plain]{A}% \fi% \iftextfootnotespara% \DeclareNewFootnote[para]{B}% \else% \DeclareNewFootnote[plain]{B}% \fi% \renewcommand{\textnote}[2][0]{\setlemmarange{##1}% \FootnotetextB{\relax}{\citerange:~##2}% \resetlemmacounters}% \renewcommand{\sources}[1]{\FootnotetextA{\relax}{##1}}% \renewcommand{\prosetextnote}[3][0]{% \unskip\proselinelabel{##2}% \setproselemmarange{##2}{##1}% \FootnotetextB{\relax}{\proseciterange:~##3}\resetlemmacounters}% \renewcommand{\pmtextnote}[2][0]{\setpmlemmarange{##1}% \FootnotetextB{\relax}{\pmciterange~##2}\pmresetlemmacounters} } \newcommand{\emendationsatfoot}{% \global\emendationsontrue% \global\emendationsatendfalse% \ifemendationfootnotespara% \DeclareNewFootnote[para]{C}% \else% \DeclareNewFootnote[plain]{C}% \fi% \renewcommand{\emendation}[2][0]{\setlemmarange{##1}% \FootnotetextC{\relax}{\citerange:~##2}% \resetlemmacounters}% \renewcommand{\proseemendation}[3][0]{\unskip\proselinelabel{##2}% \setproselemmarange{##2}{##1}% \FootnotetextC{\relax}{\proseciterange:~##3}\resetlemmacounters}% \renewcommand{\pmemendation}[2][0]{\setpmlemmarange{##1}% \FootnotetextC{\relax}{\pmciterange~##2}\pmresetlemmacounters} } \newcommand{\explanationsatfoot}{% \global\explanontrue% \global\explanatendfalse% \ifexplanfootnotespara% \DeclareNewFootnote[para]{D}% \else% \DeclareNewFootnote[plain]{D}% \fi% \renewcommand{\explanatory}[2][0]{\setlemmarange{##1}% \FootnotetextD{\relax}{\citerange:~##2}% \resetlemmacounters}% \renewcommand{\proseexplanatory}[3][0]{\unskip\proselinelabel{##2}% \setproselemmarange{##2}{##1}% \FootnotetextD{\relax}{\proseciterange:~##3}} \renewcommand{\pmexplanatory}[2][0]{\setpmlemmarange{##1}% \FootnotetextD{\relax}{\pmciterange~##2}\pmresetlemmacounters}% } \newcommand{\bibleverse}{\pmsentence} \newcommand{\biblechapter}{\pmpara} \newif\ifpoemendnoteson \poemendnotesontrue \newif\ifpoemendnotessinglepar \poemendnotessinglepartrue \newcommand{\makepoemendnotes}{ \global\verselinenumberstrue \newwrite\poemendnotes \immediate\openout\poemendnotes=\jobname.pnd \literalpoemendnote{\bigskip} } \newcommand{\poemendnote}[2][0]{% \ifpoemendnoteson \setlemmarange{#1}% \immediate\write\poemendnotes{\checknoteheaders} \literalpoemendnote{#2}% \ifpoemendnotessinglepar% \literalpoemendnote{\par}% \fi% \fi \resetlemmacounters } \newcommand{\literalpoemendnote}[1]{% \begingroup \def\next{#1}% \newlinechar='40 \immediate\write\poemendnotes{\expandafter\strip\meaning\next}% \endgroup } \newcommand{\putpoemendnotes}{ \ifpoemendnoteson \immediate\closeout\poemendnotes \input \jobname.pnd \else \relax \fi} \newif\ifpoemendemendationnoteson \poemendemendationnotesontrue \newif\ifpoemendemendationnotessinglepar \poemendemendationnotessinglepartrue \newcommand{\makepoemendemendationnotes}{ \global\verselinenumberstrue \newwrite\poemendemendationnotes \immediate\openout\poemendemendationnotes=\jobname.pmd \literalpoemendemendationnote{\bigskip} } \newcommand{\poemendemendationnote}[2][0]{% \ifpoemendemendationnoteson \setlemmarange{#1}% \immediate\write\poemendemendationnotes{\checknoteheaders} \literalpoemendemendationnote{#2}% \ifpoemendemendationnotessinglepar% \literalpoemendemendationnote{\par}% \fi% \fi \resetlemmacounters } \newcommand{\literalpoemendemendationnote}[1]{% \begingroup \def\next{#1}% \newlinechar='40 \immediate\write\poemendemendationnotes{\expandafter\strip\meaning\next}% \endgroup } \newcommand{\putpoemendemendationnotes}{ \ifpoemendemendationnoteson \immediate\closeout\poemendemendationnotes \input \jobname.pmd \else \relax \fi} \newif\ifpoemendexplanatorynoteson \poemendexplanatorynotesontrue \newif\ifpoemendexplanatorynotessinglepar \poemendexplanatorynotessinglepartrue \newcommand{\makepoemendexplanatorynotes}{ \global\verselinenumberstrue \newwrite\poemendexplanatorynotes \immediate\openout\poemendexplanatorynotes=\jobname.pxd \literalpoemendexplanatorynote{\bigskip} } \newcommand{\poemendexplanatorynote}[2][0]{% \ifpoemendexplanatorynoteson \setlemmarange{#1}% \immediate\write\poemendexplanatorynotes{\checknoteheaders} \literalpoemendexplanatorynote{#2}% \ifpoemendexplanatorynotessinglepar% \literalpoemendexplanatorynote{\par}% \fi% \fi \resetlemmacounters } \newcommand{\literalpoemendexplanatorynote}[1]{% \begingroup \def\next{#1}% \newlinechar='40 \immediate\write\poemendexplanatorynotes{\expandafter\strip\meaning\next}% \endgroup } \newcommand{\putpoemendexplanatorynotes}{ \ifpoemendexplanatorynoteson \immediate\closeout\poemendexplanatorynotes \input \jobname.pxd \else \relax \fi} \newif\ifpoemendtextnoteson \poemendtextnotesontrue \newif\ifpoemendtextnotessinglepar \poemendtextnotessinglepartrue \newcommand{\makepoemendtextnotes}{ \global\verselinenumberstrue \newwrite\poemendtextnotes \immediate\openout\poemendtextnotes=\jobname.pmd \literalpoemendtextnote{\bigskip} } \newcommand{\poemendtextnote}[2][0]{% \ifpoemendtextnoteson \setlemmarange{#1}% \immediate\write\poemendtextnotes{\checknoteheaders} \literalpoemendtextnote{#2}% \ifpoemendtextnotessinglepar% \literalpoemendtextnote{\par}% \fi% \fi \resetlemmacounters } \newcommand{\literalpoemendtextnote}[1]{% \begingroup \def\next{#1}% \newlinechar='40 \immediate\write\poemendtextnotes{\expandafter\strip\meaning\next}% \endgroup } \newcommand{\putpoemendtextnotes}{ \ifpoemendtextnoteson \immediate\closeout\poemendtextnotes \input \jobname.pmd \else \relax \fi} \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{*} \newcommand{\nostanzaatbottom}[1]{\global\edef\nostanzaatbottomvalue{#1}} \nostanzaatbottom{\relax} \def\cleartorecto{\clearpage\if@twoside \ifodd\c@page\else \hbox{}\thispagestyle{empty}% \newpage\if@twocolumn\hbox{}\newpage\fi\fi\fi} \def\cleartoverso{\clearpage\if@twoside \ifodd\c@page\hbox{}\thispagestyle{empty}% \newpage\if@twocolumn\hbox{}\newpage\fi\fi\fi} \makeatletter \def\ifenv#1{% \def\reserved@a{#1}% \ifx\reserved@a\@currenvir \expandafter\@firstoftwo \else \expandafter\@secondoftwo \fi } \makeatother \newdimen\pmclsavsk \newcount\pmclsavsf \def\pmclbsphack{% \relax \ifhmode \pmclsavsk\lastskip \pmclsavsf\spacefactor \fi} \def\pmclesphack{% \relax \ifhmode \spacefactor\pmclsavsf \ifdim\pmclsavsk>0pt \ignorespaces \fi \fi} \newcommand{\pmclleftsidepar}[1]{% \pmclbsphack\strut\vadjust{% changed \rlap{\kern-\parindent% \kern -\marginparsep \kern -\marginparwidth% at left \setbox0=\vtop to 0pt{% added \begin{minipage}[t]{\marginparwidth}% added #1% \end{minipage}% \vss}% changed \vtop to 0pt{\kern\pmclsideparvshift % default should be 0pt \kern-\dp\strutbox \kern-\ht0 \box0 \vss}}}\pmclesphack}% changed \newcommand{\pmclrightsidepar}[1]{% \pmclbsphack\strut\vadjust{% \rlap{\kern-\parindent% \kern\textwidth\kern\marginparsep% at right \setbox0=\vtop to 0pt{% added \begin{minipage}[t]{\marginparwidth}% added #1% \end{minipage}% \vss}% changed \vtop to 0pt{\kern\pmclsideparvshift% default should be 0pt \kern-\dp\strutbox \kern-\ht0 \box0 \vss}}}\pmclesphack}% changed \newif\ifparalleltexts \paralleltextsfalse \newif\ifrecto \rectofalse \newif\ifverso \versofalse \newif\ifrectopoempending \rectopoempendingfalse \newif\ifversopoempending \versopoempendingfalse \newif\ifrectostanzapending \rectostanzapendingfalse \newif\ifversostanzapending \versostanzapendingfalse \newif\ifrectostanzastillopen \rectostanzastillopenfalse \newif\ifversostanzastillopen \versostanzastillopenfalse \newif\ifrectopoemstillopen \rectopoemstillopenfalse \newif\ifversopoemstillopen \versopoemstillopenfalse \newif\ifrectoprosesectionpending \rectoprosesectionpendingfalse \newif\ifversoprosesectionpending \versoprosesectionpendingfalse \newif\ifrectoprosesectionstillopen \rectoprosesectionstillopenfalse \newif\ifversoprosesectionstillopen \versoprosesectionstillopenfalse \newif\ifrectoquotedversepending \rectoquotedversependingfalse \newif\ifversoquotedversepending \versoquotedversependingfalse \newif\ifrectoquotedversestillopen \rectoquotedversestillopenfalse \newif\ifversoquotedversestillopen \versoquotedversestillopenfalse \newif\ifrectoemendationspending \rectoemendationspendingfalse \newif\ifversoemendationspending \versoemendationspendingfalse \newif\ifrectoexplanationspending \rectoexplanationspendingfalse \newif\ifversoexplanationspending \versoexplanationspendingfalse \newcounter{rectolinecounter} \setcounter{rectolinecounter}{1} \newcounter{rectoindexscratch} \setcounter{rectoindexscratch}{1} \newcounter{versolinecounter} \setcounter{versolinecounter}{1} \newcounter{versoindexscratch} \setcounter{versoindexscratch}{1} \newcommand{\startparalleltexts}{% \leavevmode \cleartoverso \paralleltextstrue \renewenvironment{poem}{\raggedright \language=255%no hyphenation in verse \noemendyettrue \noexplainyettrue \setcounter{verselinenumber}{0}\setcounter{printlineindex}{0} \nobreak\begin{pmclverse} \inpoemtrue\nobreak\mark{\relax}} % must end poem if parallel text. Don't worry, % begin recto page and begin verso page will % reopen the poem and reset the line counter to the right value % if it was finish recto page or finish verso page % that closed the poem rather than your own declaration. {\ifversopoemstillopen \end{pmclverse} \inpoemfalse\mark{\relax} \else \ifrectopoemstillopen \end{pmclverse} \inpoemfalse\mark{\relax} \else \end{pmclverse} \inpoemfalse\mark{\relax} \goodbreak\afterpoemskip%\bigskip \fi\fi } \renewenvironment{stanza}{\penalty-100\instanzatrue\mark{\nostanzaatbottomvalue\ }} {\ifversostanzastillopen \relax \else \ifrectostanzastillopen \relax \else \nobreak\mark{\stanzaatbottomvalue\ }\nobreak \ifspeciallinelock% \relax\else% \nolinebreak\incrementverselinenumber% \fi% \speciallinelockfalse% \nobreak \instanzafalse \stanzaskip \fi\fi } \renewcommand{\putverselinenumber}{\nolinebreak\begin{marginenvironment}% \nolinebreak \pmclleftsidepar{\textrm{\scriptsize\theverselinenumber}}% \nolinebreak \end{marginenvironment}% \nolinebreak } } \newenvironment{parallelverse}{\startparalleltexts} {\finishparalleltexts} \newtoks{\versotitleholder} \newtoks{\rectotitleholder} \newcommand{\makeversotitleholder}[1]{% \versotitleholder={#1}% } \newcommand{\makerectotitleholder}[1]{% \rectotitleholder={#1}% } \makeatletter \newcommand{\versopoemtitle}[1]{% \versoset@p@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}% {\poemtitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}% \c@ntentsinfo{#1}{\contentsindentone}{\contentspoemtitlefont}% {\contentsindenttwoamount}% } \newcommand{\versoset@p@emtitle}[6]{\pmclversoresetsettitleinnotes% \setlength{\titleentryoverrun}{#6}% {#2}% {#3 \begin{titleentryenvironment}% {\ifcentertitleson\begin{center}#1\end{center}\else #4 #1\fi}% \end{titleentryenvironment}}% {#5}% \m@kep@emlabel \versom@ken@teholder{#1}% \setlength{\titleentryoverrun}{\z@}} \newcommand{\versom@ken@teholder}[1]{% \ifsinglelinetitle \versotitleholder={#1}% \global\edef\@compoundlabelscratch{poem\thepoemnumber}% \else\iftitlefirstline \versotitleholder={#1}% \global\edef\@compoundlabelscratch{poem\thepoemnumber}% \else\iftitlemiddleline \titlesofar=\versotitleholder \titleincrement={~#1}% \global\edef\titleconcat{\the\titlesofar \the\titleincrement}% \versotitleholder=\expandafter{\titleconcat}% \global\edef\@compoundlabelscratch{poem\thepoemnumber}% \else \titlesofar=\versotitleholder \titleincrement={~#1}% \global\edef\titleconcat{\the\titlesofar \the\titleincrement}% \versotitleholder=\expandafter{\titleconcat}% \global\edef\@compoundlabelscratch{poem\thepoemnumber}% \fi \fi \fi } \newcommand{\versotitletoothernotes}{\string\par \ifputpagenumberinnotes% \string\argpageref\string{\@compoundlabelscratch\string}% \string\setcounterfrompageref\string{notepageholdertitle\string}% \string{\@compoundlabelscratch\string}% \fi% \string\textbf\string{\ \the\versotitleholder\string} }% \newcommand{\versopoemtitlenocontents}[1]{% \versoset@p@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}% {\poemtitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}% } \newcommand{\versotitleinnotescheck}{\ifparalleltexts\let\titletoothernotes=\versotitletoothernotes\fi} \makeatother \makeatletter \newcommand{\rectopoemtitle}[1]{% \rectoset@p@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}% {\poemtitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}% \c@ntentsinfo{#1}{\contentsindentone}{\contentspoemtitlefont}% {\contentsindenttwoamount}% } \newcommand{\rectoset@p@emtitle}[6]{\pmclrectoresetsettitleinnotes \setlength{\titleentryoverrun}{#6}% {#2}% {#3 \begin{titleentryenvironment}% {\ifcentertitleson\begin{center}#1\end{center}\else #4 #1\fi}% \end{titleentryenvironment}}% {#5}% \m@kep@emlabel \rectom@ken@teholder{#1}% \setlength{\titleentryoverrun}{\z@}} \newcommand{\rectom@ken@teholder}[1]{% \ifsinglelinetitle \rectotitleholder={#1}% \global\edef\@compoundlabelscratch{poem\thepoemnumber}% \else\iftitlefirstline \rectotitleholder={#1}% \global\edef\@compoundlabelscratch{poem\thepoemnumber}% \else\iftitlemiddleline \titlesofar=\rectotitleholder \titleincrement={~#1}% \global\edef\titleconcat{\the\titlesofar \the\titleincrement}% \rectotitleholder=\expandafter{\titleconcat}% \global\edef\@compoundlabelscratch{poem\thepoemnumber}% \else \titlesofar=\rectotitleholder \titleincrement={~#1}% \global\edef\titleconcat{\the\titlesofar \the\titleincrement}% \rectotitleholder=\expandafter{\titleconcat}% \global\edef\@compoundlabelscratch{poem\thepoemnumber}% \fi \fi \fi } \newcommand{\rectotitletoothernotes}{\string\par \ifputpagenumberinnotes% \string\argpageref\string{\@compoundlabelscratch\string}% \string\setcounterfrompageref\string{notepageholdertitle\string}% \string{\@compoundlabelscratch\string}% \fi% \string\textbf\string{\ \the\rectotitleholder\string} }% \newcommand{\rectopoemtitlenocontents}[1]{% \rectoset@p@emtitle{#1}{\poemtitlepenalty}{\poemtitlefont}% {\poemtitleindent}{\nobreak\par\nobreak\afterpoemtitleskip\nobreak}{\z@}% } \newcommand{\rectotitleinnotescheck}{\ifparalleltexts\let\titletoothernotes=\rectotitletoothernotes\fi} \makeatother \newcommand{\saveversoline}{\setcounter{versolinecounter}% {\value{verselinenumber}}% \setcounter{versoindexscratch}{\value{printlineindex}}} \newcommand{\restoreversoline}{\setcounter{verselinenumber}% {\value{versolinecounter}}% \setcounter{printlineindex}{\value{versoindexscratch}}} \newcommand{\saverectoline}{\setcounter{rectolinecounter}% {\value{verselinenumber}}% \setcounter{rectoindexscratch}{\value{printlineindex}}} \newcommand{\restorerectoline}{\setcounter{verselinenumber}% {\value{rectolinecounter}}% \setcounter{printlineindex}{\value{rectoindexscratch}}} \newtoks{\synchroflag} \newcommand{\setsynchroflag}[1]{\synchroflag={#1}} \setsynchroflag{\relax} \newcommand{\synchrolabel}[1]{\poemlinelabel{#1}} \newcommand{\hfilll}{\hskip 0pt plus 1 filll} \newcommand{\synchroref}[1]{% \pmclrightsidepar{{\textrm{\scriptsize[\the\synchroflag\ref{#1}]}}}% } \newcommand{\startversopage}{ \ifrectostanzastillopen \end{stanza} \rectostanzastillopenfalse \end{poem} \rectopoemstillopenfalse \fi \ifrectopoemstillopen % from previous page \end{poem} \rectopoemstillopenfalse \fi \ifversopoempending % from previous verso \begin{poem} \global\versopoempendingfalse \fi \ifversostanzapending % from previous verso \begin{stanza} \global\versostanzapendingfalse \fi \ifversoemendationspending \noemendyetfalse \global\versoemendationspendingfalse \fi \ifversoexplanationspending \noexplainyetfalse \global\versoexplanationspendingfalse \fi \rectofalse\versotrue\restoreversoline \let\titletoothernotes=\versotitletoothernotes} \newcommand{\finishversopage}{ \saveversoline\versofalse\ \ifinpoem \global\versopoempendingtrue \versopoemstillopentrue \fi \ifinstanza \global\versostanzapendingtrue \versostanzastillopentrue \global\versopoempendingtrue \versopoemstillopentrue \fi \ifnoemendyet \relax \else \global\versoemendationspendingtrue \noemendyetfalse \fi \ifnoexplainyet \relax \else \global\versoexplanationspendingtrue \noexplainyetfalse \fi } \newcommand{\startrectopage}{ \ifversostanzastillopen \end{stanza} \versostanzastillopenfalse \end{poem} \versopoemstillopenfalse \fi \ifversopoemstillopen \end{poem} \versopoemstillopenfalse \fi \ifrectopoempending \begin{poem} \global\rectopoempendingfalse \fi \ifrectostanzapending \begin{stanza} \global\rectostanzapendingfalse \fi \ifrectoemendationspending \noemendyetfalse \global\rectoemendationspendingfalse \fi \ifrectoexplanationspending \noexplainyetfalse \global\rectoexplanationspendingfalse \fi \versofalse\rectotrue\restorerectoline \let\titletoothernotes=\rectotitletoothernotes} \newcommand{\finishrectopage}{\saverectoline\rectofalse \ifinpoem \global\rectopoempendingtrue \rectopoemstillopentrue \fi \ifinstanza \global\rectostanzapendingtrue \rectostanzastillopentrue \global\rectopoempendingtrue \rectopoemstillopentrue \fi \ifnoemendyet \relax \else \global\rectoemendationspendingtrue \noemendyetfalse \fi \ifnoexplainyet \relax \else \global\versoexplanationspendingtrue \noexplainyetfalse \fi } \newcommand{\finishparalleltexts}{ \ifinstanza \end{stanza} \fi \ifinpoem \end{poem} \fi \ifinprosesection \end{prosesection} \fi \ifinquotedverse \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 \rectopassagestillopenfalse \newif\ifinpara \inparafalse \newif\ifrectoparapending \rectoparapendingfalse \newif\ifrectoparaopen \rectoparaopenfalse \newif\ifversoparapending \versoparapendingfalse \newif\ifversoparaopen \versoparaopenfalse \newcounter{prosepage} \setcounter{prosepage}{1} \newcommand{\makeprosepagelabel}{\proselinelabel{prosepageno\theprosepage}} \newcounter{versoproselinecounter} \newcommand{\saveversoproseline}{% \refstepcounter{prosepage}% \makeprosepagelabel \setcounterfromref{versoproselinecounter}{prosepageno\theprosepage} } \newcommand{\restoreversoproseline}{\setcounter{linenumber}{\value{versoproselinecounter}}}% \newcounter{rectoproselinecounter} \newcommand{\saverectoproseline}{% \refstepcounter{prosepage}% \makeprosepagelabel \setcounterfromref{rectoproselinecounter}{prosepageno\theprosepage} } \newcommand{\restorerectoproseline}{\setcounter{linenumber}% {\value{rectoproselinecounter}}}% \newcommand{\parastart}{\inparatrue} \newcommand{\paraend}{\inparafalse} \newcommand{\startparalleltextsprose}{% \leavevmode \cleartoverso \paralleltextstrue \inparafalse } \newcommand{\finishparalleltextsprose}{% \paralleltextsfalse} \newenvironment{parallelprose}{\startparalleltextprose} {\finishparalleltextsprose} \newcommand{\startversoprosepage}{% \let\titletoothernotes=\versotitletoothernotes \restoreversoproseline% \ifversoparapending{\inparatrue}\else{\inparafalse}\fi% \ifinpara{\noindent}\else{\relax}\fi% } \newcommand{\finishversoprosepage}{% \ifinpara{\versoparapendingtrue}\else{\versoparapendingfalse}\fi% \saveversoproseline% } \newcommand{\startrectoprosepage}{% \let\titletoothernotes=\rectotitletoothernotes \restorerectoproseline% \ifrectoparapending{\inparatrue}\else{\inparafalse}\fi% \ifinpara{\noindent}\else{\relax}\fi% } \newcommand{\finishrectoprosepage}{% \ifinpara{\rectoparapendingtrue}\else{\rectoparapendingfalse}\fi% \saverectoproseline } \newcommand{\finish}{ \small\bf \hyphenchar\font=45 \small\it \hyphenchar\font=45 \small\rm \hyphenchar\font=45 \ifemendationson \newpage \immediate\closeout\emendations \input \jobname.emd \fi \iftextnoteson \newpage \immediate\closeout\textnotes \input \jobname.ent \newpage \fi \ifexplanon \immediate\closeout\explanations \input \jobname.enx \newpage \fi \ifindexingon \printindex \fi \ifpoemcontentson \ifemendationson \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\ \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\ \the\explanationscontentsname} \immediate\write \poemcontents{\string~ / \string~\ \string\pageref{explanatorynotes}} \fi \ifindexingon \immediate\write\poemcontents{\string\par \string\smallskip} \immediate\write \poemcontents{\string\contentspoemtitlefont\ \the\poemindexcontentsname} \immediate\write \poemcontents{\string~ / \string~\ \string\pageref{indexpage}\string\par} \fi \immediate\closeout\poemcontents \input \jobname.ctn \fi \clearpage \thispagestyle{volumetitlestyle} \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. \cleardoublepage } \newcommand{\testforauxonfirstrun}{\IfFileExists{\jobname.aux}{\relax} {\let\finish=\relax \let\puttextnotes=\relax \let\putexplanatory=\relax \let\putemendations=\relax \typeout{Run again to read in endnotes files}}} \newcommand{\putpoemcontents}{ \IfFileExists{\jobname.ctn}{\input \jobname.ctn \clearpage \resetpagestyle\normalsize} {\typeout{Run again to input contents file here}} } \newcommand{\hyphenationforsmall}{\small\bf \hyphenchar\font=45 \small\it \hyphenchar\font=45 \small\rm \hyphenchar\font=45 } \newcommand{\putemendations}{ \ifemendationson \ifemendationstwocol \literalemend{\end{multicols}} \fi %\iftextnotetwocol \newpage \hyphenationforsmall \immediate\closeout\emendations \input \jobname.emd \contentsendnotestitle{\the\emendationscontentsname}{emendationnotes} \else \relax \fi} \newcommand{\putexplanatory}{ \ifexplanon \ifexplanationstwocol \literalexplain{\end{multicols}} \fi %\iftextnotetwocol \newpage \hyphenationforsmall \immediate\closeout\explanations \input \jobname.enx \ifpoemcontentson \ifexplanon \contentsendnotestitle{\the\explanationscontentsname}{explanatorynotes} \fi \fi \else \relax \fi} \newcommand{\puttextnotes}{ \iftextnoteson \iftextnotestwocol \literaltextnote{\end{multicols}} \fi %\iftextnotetwocol \newpage \hyphenationforsmall \immediate\closeout\textnotes \input \jobname.ent \contentsendnotestitle{\the\textnotescontentsname}{textualnotes} \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\ \the\poemindexcontentsname} \immediate\write \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}} \newenvironment{cjquotation} {\tolerance=2000% \vspace{-\bigskipamount} \restoreverselinenumber \language=255 \noindent\relax \list{}{\listparindent 0em% \itemindent 0em% \rightmargin 2em% \leftmargin 2em% \topsep 0em% \parskip 0em% \itemindent \listparindent \rightmargin \leftmargin \parsep \z@ \@plus\p@}% \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 \the\poemindexheadername}}} \fancyhead[CE]{{\small{\em \the\poemindexheadername}}} \fancyfoot{} \label{\the\poemindexlabelname} \lefthyphenmin=2\tolerance=500\language=0 \normalfont \backmattertextfont \raggedright \begin{multicols} {2}[\backmattersink\begin{center}{\normalfont \backmatterheaderfont \the\poemindexname}\end{center} \backmatterafterheadersink]% \let\item\pmclidxitem} {\end{multicols}\clearpage} \makeatother \newlength{\epigraphquoteleftmargin} \newlength{\epigraphquoterightmargin} \setlength{\epigraphquoteleftmargin}{1.5em} \setlength{\epigraphquoterightmargin}{1.5em} \newif\ifleftalignepigraphs \leftalignepigraphsfalse \makeatletter \newenvironment{epigraphquote}{\list{}{% \ifleftalignepigraphs\left@ligntitleblock% \rightmargin 1sp\leftmargin \lefttitlemargin% \else \rightmargin\epigraphquoterightmargin% \leftmargin\epigraphquoteleftmargin% \fi \topsep 0pt% \partopsep 0pt% \listparindent 0pt% }% \item\relax} {\endlist}\makeatother \newenvironment{volumetitlepagequote}{\list{}{\rightmargin \voladditionalamount% \leftmargin \voladditionalamount% \topsep 0pt% \partopsep 0pt% \listparindent 0pt }% \item\relax} {\endlist} \endinput --------------060108090809060900030409-- \endinput %% %% End of file `poemscol.sty'.