diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex')
| -rw-r--r-- | Master/texmf-dist/tex/latex/versonotes/versonotes.sty | 210 |
1 files changed, 210 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/versonotes/versonotes.sty b/Master/texmf-dist/tex/latex/versonotes/versonotes.sty new file mode 100644 index 00000000000..e9c4808afca --- /dev/null +++ b/Master/texmf-dist/tex/latex/versonotes/versonotes.sty @@ -0,0 +1,210 @@ +%% +%% This is file `versonotes.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% versonotes.dtx (with options: `package') +%% versonotes: Notes on verso pages +%% +%% Release version 0.2, 2015 February 16. +%% +%% Copyright 2014, 2015 Norman Gray <http://nxg.me.uk> +%% +%% This work may be distributed and/or modified under the +%% conditions of the LaTeX Project Public License, either version 1.3 +%% of this license or (at your option) any later version. +%% The latest version of this license is in +%% http://www.latex-project.org/lppl.txt +%% and version 1.3 or later is part of all distributions of LaTeX +%% version 2005/12/01 or later. +%% +%% This work has the LPPL maintenance status `maintained'. +%% +%% The Current Maintainer of this work is Norman Gray +%% +%% This work consists of the files versonotes.dtx and versonotes.ins +%% and the derived file versonotes.sty. +%% +%%%% File: versonotes.dtx + +%%%% Source: c64b7a550082, 2015-02-16T18:33:46+00:00 +%% +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{versonotes}[2015/02/16 v0.2] + +\def\verso@resetmergestate{\verso@mergestate=2} +\DeclareOption{mergecollisions}{\def\verso@resetmergestate{\verso@mergestate=0}} +\ProcessOptions +\long\def\versonote#1{\@bsphack + \pdfsavepos + \write\@auxout{\string\verso@note{\the\c@page}{\the\pdflastypos sp}\unexpanded{{#1}}}% + \@esphack} +\newdimen\versotextwidth + \versotextwidth=\textwidth +\newdimen\versoleftmargin + \versoleftmargin=\paperwidth + \advance\versoleftmargin -\textwidth + \advance\versoleftmargin -\evensidemargin + \advance\versoleftmargin -\hoffset + \advance\versoleftmargin -1in +\def\versolayout{ + \leftskip=0pt plus 1fil + \rightskip=0pt + \parfillskip=0pt + \parindent=0pt + \parskip=\medskipamount +} +\def\end@versonote{% + \write\@auxout{\string\verso@note{\the\c@page}{-1pt}{}}} +\AtEndDocument{\end@versonote} +\newtoks\verso@pages +\newtoks\verso@currentpage +\newcount\verso@currentpagenum + \verso@currentpagenum=1 +\newcount\verso@currentnotenum + \verso@currentnotenum=0 +\newdimen\verso@spacerskip + \verso@spacerskip=10pt +\newif\if@verso@processversonotes + \@verso@processversonotesfalse +\newdimen\verso@pagebottom + \verso@pagebottom=1in + \advance\verso@pagebottom \topskip + \advance\verso@pagebottom \topmargin + \advance\verso@pagebottom \headheight + \advance\verso@pagebottom \headsep + \advance\verso@pagebottom \textheight +\newdimen\verso@currentposition +\pdfpageheight=\paperheight +\long\def\verso@note#1#2#3{% + \global\@verso@processversonotestrue + \@tempcnta=#1 + \ifnum\@tempcnta=1 + \PackageWarning{versopages}{page 1 verso text will be ignored} + \fi + \@tempdima=#2 % #2 < 0pt is the end-of-document flag + \loop + \@tempswafalse + \ifnum\@tempcnta>\verso@currentpagenum \@tempswatrue \fi + \ifdim\@tempdima < 0pt \@tempswatrue \@tempdima=0pt \fi + \if@tempswa + \edef\@tempa{\the\verso@pages {\the\verso@currentpage}} + \global\verso@pages=\expandafter{\@tempa} + \advance\verso@currentpagenum 1 + \verso@currentpage={} + \repeat + \verso@currentpage=\expandafter{\the\verso@currentpage \\{{#1}{#2}{#3}}} +} +\AtEndDocument{\long\def\verso@note#1#2#3{}} +\def\verso@testmergenote#1,#2\@nil{ + \def\@tempa{#1} + \ifx\@tempa\@empty + \@tempcnta=-1 + \else + \@tempcnta=#1 + \fi + \advance\@tempcnta -1 + \ifnum\@tempcnta=\verso@currentnotenum + \@tempswatrue + \xdef\verso@mergenotelist{#2} + \immediate\write\@auxout{\string\verso@mergenote{#1}} + \else + \@tempswafalse + \fi +} +\newcount\verso@mergestate + \verso@resetmergestate +\newtoks\verso@accumulatenote + \verso@accumulatenote={} +\long\def\verso@setnote#1#2#3{ + \@tempdima=\paperheight \advance\@tempdima -#2 + % target position; will become skip to add + \@tempdimb=\verso@currentposition + \global\advance\verso@currentnotenum 1 + \expandafter\verso@testmergenote\verso@mergenotelist,\@nil + \if@tempswa + \verso@accumulatenote=\expandafter{% + \the\verso@accumulatenote + #3% + \quad\P~\nobreak} + %\PackageInfo{versonotes}{\typeout{Merging notes on p#1}} + \else + \setbox0=\vtop{ + \versolayout + \the\verso@accumulatenote + #3\par} + \verso@accumulatenote={} + \ifdim\@tempdima>\verso@currentposition + \advance\@tempdima -\verso@currentposition + \advance\@tempdima -\ht0 + \advance\@tempdimb \@tempdima + \verso@resetmergestate + \else + % note: \PackageWarning seems to produce odd effects here + \message{^^Jversonotes warning: Moved versonote text on p.#1.} + \advance\verso@mergestate 1 + \ifnum\verso@mergestate=1 + \immediate\write\@auxout{\string\verso@mergenote{\the\verso@currentnotenum}} + \fi + \nointerlineskip + \vbox to \verso@spacerskip{\vfil + \hbox to \hsize{\hfil\vrule height 0.4pt width 10em} + \vfil} + \advance\@tempdimb \verso@spacerskip + \@tempdima=0pt % ...so don't add any more skip + \fi + \advance\@tempdimb \ht0 + \advance\@tempdimb \dp0 + \ifdim\@tempdimb>\verso@pagebottom + \message{^^Jversonotes warning: versonote text on p.#1 hit bottom of page.} + \advance\@tempdima -\@tempdimb + \advance\@tempdima \verso@pagebottom + \@tempdimb=\verso@pagebottom + \fi + \vskip\@tempdima + \verso@currentposition=\@tempdimb + \nointerlineskip + \box0 + \fi +} +\def\verso@mergenotelist{} +\def\verso@mergenote#1{\xdef\verso@mergenotelist{\verso@mergenotelist #1,}} +\let\verso@orig@shipout\shipout +\long\def\verso@processonepage@#1#2\@nil{ + \def\@tempa{#1} + \ifnum\c@page>1 + \ifx\@tempa\@empty + \verso@orig@shipout\vbox{} + \else + \begingroup + \let\protect\relax + \hoffset=-1in \advance\hoffset \versoleftmargin + \voffset=-1in + \hsize=\versotextwidth + \topskip=0pt + \topmargin=0pt + \headheight=0pt + \headsep=0pt + \vsize=1000mm % larger than any actual note + \normalfont\normalsize + \long\def\\##1{\verso@setnote ##1} + \verso@orig@shipout\vbox{ + \verso@currentposition=0pt + #1} + \endgroup + \fi + \fi + \global\verso@pages={#2}} +\def\verso@processonepage{ + \if@verso@processversonotes + \expandafter\verso@processonepage@\the\verso@pages{}{}\@nil + \else + % we don't seem to have any versonotes in this file: don't come here again + \global\let\verso@processonepage\relax + \fi +} +\def\shipout{\verso@processonepage \verso@orig@shipout} +\endinput +%% +%% End of file `versonotes.sty'. |