diff options
author | Karl Berry <karl@freefriends.org> | 2017-10-25 21:53:08 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2017-10-25 21:53:08 +0000 |
commit | d82ebe296fa506626d900ce47291abe5a812ba21 (patch) | |
tree | 4918285d2c2a82c3e5951bcb1b31486030c03f1a /Master/texmf-dist/tex | |
parent | 171ad3c127f01f54e89475127cb14980f24ded9b (diff) |
poemscol (25oct17)
git-svn-id: svn://tug.org/texlive/trunk@45599 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r-- | Master/texmf-dist/tex/latex/poemscol/poemscol.sty | 37 |
1 files changed, 36 insertions, 1 deletions
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}% |