From d82ebe296fa506626d900ce47291abe5a812ba21 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 25 Oct 2017 21:53:08 +0000 Subject: poemscol (25oct17) git-svn-id: svn://tug.org/texlive/trunk@45599 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/poemscol/poemscol.sty | 37 ++++++++++++++++++++++- 1 file changed, 36 insertions(+), 1 deletion(-) (limited to 'Master/texmf-dist/tex/latex/poemscol') diff --git a/Master/texmf-dist/tex/latex/poemscol/poemscol.sty b/Master/texmf-dist/tex/latex/poemscol/poemscol.sty index e3d66b3e943..72d6de8fb4b 100644 --- a/Master/texmf-dist/tex/latex/poemscol/poemscol.sty +++ b/Master/texmf-dist/tex/latex/poemscol/poemscol.sty @@ -22,7 +22,7 @@ %% in the same archive or directory.) \NeedsTeXFormat{LaTeX2e}[1997/12/01] \ProvidesPackage{poemscol} - [2017/9/03 v2.85 poemscol file] + [2017/10/23 v2.87 poemscol file] @@ -2322,6 +2322,41 @@ r@#2\endcsname{}{}\@nil } \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} \newcommand{\quotedversecorrectiontextnote}[1][0pt] {\iftextnoteson% \immediate\write\textnotes{\string\noindent\string\kern-#1}% -- cgit v1.2.3