diff options
author | Karl Berry <karl@freefriends.org> | 2013-04-09 16:54:30 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-04-09 16:54:30 +0000 |
commit | 09fd9c9121cefeb7ebe015102a51a796e2d8a314 (patch) | |
tree | b535dbaecec73e08d3b68c44c7fde7d6bcd99d52 /Master/texmf-dist | |
parent | ba6b0d9a71177f6c82fd81c79c42254dceca27ad (diff) |
pfarrei (8apr13)
git-svn-id: svn://tug.org/texlive/trunk@29796 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r-- | Master/texmf-dist/doc/latex/pfarrei/pfarrei.pdf | bin | 419416 -> 499976 bytes | |||
-rwxr-xr-x | Master/texmf-dist/scripts/pfarrei/a5toa4.tlu | 4 | ||||
-rwxr-xr-x | Master/texmf-dist/scripts/pfarrei/pfarrei.tlu | 27 | ||||
-rw-r--r-- | Master/texmf-dist/source/latex/pfarrei/README | 18 | ||||
-rw-r--r-- | Master/texmf-dist/source/latex/pfarrei/pfarrei.dtx | 746 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/pfarrei/a5toa4.tex | 8 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/pfarrei/pfarrei.sty | 234 |
7 files changed, 917 insertions, 120 deletions
diff --git a/Master/texmf-dist/doc/latex/pfarrei/pfarrei.pdf b/Master/texmf-dist/doc/latex/pfarrei/pfarrei.pdf Binary files differindex 03c944fe195..fe363a60b6a 100644 --- a/Master/texmf-dist/doc/latex/pfarrei/pfarrei.pdf +++ b/Master/texmf-dist/doc/latex/pfarrei/pfarrei.pdf diff --git a/Master/texmf-dist/scripts/pfarrei/a5toa4.tlu b/Master/texmf-dist/scripts/pfarrei/a5toa4.tlu index 25c7de5986e..436941eda58 100755 --- a/Master/texmf-dist/scripts/pfarrei/a5toa4.tlu +++ b/Master/texmf-dist/scripts/pfarrei/a5toa4.tlu @@ -28,10 +28,10 @@ -- The list of files belonging to the work `pfarrei' is given in -- the file `pfarrei.dtx'. -- --- $Id: pfarrei.dtx 20 2013-03-10 14:19:06Z mjk $ +-- $Id: pfarrei.dtx 33 2013-04-08 07:22:56Z mjk $ kpse.set_program_name(arg[-1], 'a5toa4') -require('pfarrei') +require('pfarrei.pfarrei') -- -- -- End of file `a5toa4.tlu'. diff --git a/Master/texmf-dist/scripts/pfarrei/pfarrei.tlu b/Master/texmf-dist/scripts/pfarrei/pfarrei.tlu index ee5f0ed8d67..f2756f6f907 100755 --- a/Master/texmf-dist/scripts/pfarrei/pfarrei.tlu +++ b/Master/texmf-dist/scripts/pfarrei/pfarrei.tlu @@ -28,7 +28,7 @@ -- The list of files belonging to the work `pfarrei' is given in -- the file `pfarrei.dtx'. -- -local version_number = string.sub( '$Revision: 20 $', 12, -2 ) +local version_number = string.sub( '$Revision: 33 $', 12, -2 ) local action_version = ' r' .. version_number .. '\n' .. [[ Copyright (c) 2013 Markus Kohm. @@ -62,7 +62,9 @@ local processing_opts = { ['-s'] = 'sidebyside', ['--sidebyside'] = 'sidebyside', ['-o'] = 'overwrite', - ['--overwrite'] = 'overwrite' + ['--overwrite'] = 'overwrite', + ['-d'] = 'debug', + ['--debug'] = 'debug', } -- detect action options and do action @@ -86,12 +88,14 @@ end -- process options and parameters local booklet = false local overwrite = false +local debug = false i = 1 while arg[i] do action = processing_opts[arg[i]] if action == 'booklet' then booklet = true elseif action == 'sidebyside' then booklet = false elseif action == 'overwrite' then overwrite = true + elseif action == 'debug' then debug = true elseif action == nil then -- build the temporary tex file local tmpdir = os.tmpdir("pfarrei.XXXXXX" ) @@ -99,7 +103,7 @@ while arg[i] do local basename = string.match( tmpfile,'(.*)%.[^.]*$') or tmpfile tmpfile = tmpdir..'/'..basename..'.tex' local file = assert( io.open( tmpfile, 'w' ) ) - if booklet then assert( file:write("\\def\\Booklet{}\n") ) end + if booklet then assert( file:write("\\PassOptionsToPackage{booklet}{pfarrei}\n") ) end assert( file:write("\\def\\OriginalFile{",arg[i],"}\n") ) assert( file:write("\\input{a5toa4.tex}\n") ) assert( file:flush() ) @@ -129,12 +133,17 @@ while arg[i] do end assert( destfile:close() ) srcfile:close() - tmpfile=tmpdir..'/'..basename - os.remove( tmpfile..'.aux' ) - os.remove( tmpfile..'.tex' ) - os.remove( tmpfile..'.log' ) - os.remove( tmpfile..'.pdf' ) - os.remove( tmpdir ) + if debug + then + print('DEBUG: Temporary files in: '..tmpdir); + else + tmpfile=tmpdir..'/'..basename + os.remove( tmpfile..'.aux' ) + os.remove( tmpfile..'.tex' ) + os.remove( tmpfile..'.log' ) + os.remove( tmpfile..'.pdf' ) + os.remove( tmpdir ) + end overwrite = false end i=i+1 diff --git a/Master/texmf-dist/source/latex/pfarrei/README b/Master/texmf-dist/source/latex/pfarrei/README index bcc6833233e..1260da14c27 100644 --- a/Master/texmf-dist/source/latex/pfarrei/README +++ b/Master/texmf-dist/source/latex/pfarrei/README @@ -1,22 +1,22 @@ -$Id: README 19 2013-03-10 14:15:48Z mjk $ +$Id: README 31 2013-04-02 09:26:09Z mjk $ ============================================================================ -pfarrei - A bundle of executables, LaTeX documents and packages for priests +pfarrei - A bundle of executables, LaTeX documents and packages for pastors ---------------------------------------------------------------------------- Maintainer: Markus Kohm E-Mail: komascript at gmx info -Abstract: In "Die TeXnische Komödie" 1/2004 Christian Justen told - about his practise using LaTeX at his work as priest. One +Abstract: In "Die TeXnische Komödie" 1/2013 Christian Justen told + about his practise using LaTeX at his work as pastor. One point was to arrange A5 papers onto A4 landscape paper either side-by-side or as a booklet. He made two bash scripts for this. `pfarrei' provides one texlua script for the same. Other points would be, e.g, special limitations of the - page break. `pfarrei' should help there too, but currently - this hasn't been implemented due to the early implementation - state of the bundle. -Requires: LaTeX2e, ifpdf, pdfpages + page break. `pfarrei' provides LaTeX commands and + environments to help for that too. +Requires: LaTeX2e, ifpdf, pdfpages, TeXLua License: LPPL 1.3c or later State: Maintained +Topics: compact output, typically multiple pages/sheet ---------------------------------------------------------------------------- Special installation note: To extract all the files just call `tex pfarrei.dtx'. Note, @@ -42,6 +42,6 @@ Special installation note: Please note, that there's also a TDS distribution of `pfarrei' that may be installed simply by extraction of `pfarrei.tds.zip' at a TEXMF tree and additionally copying - `a5toa4.tlu' to the binary directory of the TeX distribution + the binary to the binary directory of the TeX distribution as described above. ============================================================================ diff --git a/Master/texmf-dist/source/latex/pfarrei/pfarrei.dtx b/Master/texmf-dist/source/latex/pfarrei/pfarrei.dtx index a1deca6de9d..8c2e2c1375e 100644 --- a/Master/texmf-dist/source/latex/pfarrei/pfarrei.dtx +++ b/Master/texmf-dist/source/latex/pfarrei/pfarrei.dtx @@ -1,4 +1,4 @@ -% \CheckSum{36} +% \CheckSum{464} % \iffalse^^A meta-comment % ====================================================================== % pfarrei.dtx @@ -72,10 +72,10 @@ \begingroup \def\revisiondate$#1: #2-#3-#4 #5${% \gdef\pfarreirevisiondate{#2/#3/#4}% - }\revisiondate$Date: 2013-03-10 15:19:06 +0100 (So, 10 Mär 2013) $ + }\revisiondate$Date: 2013-04-08 09:22:56 +0200 (Mo, 08. Apr 2013) $ \def\revision$#1: #2 #3${% \gdef\pfarreirevision{#2}% - }\revision$Revision: 20 $ + }\revision$Revision: 33 $ \endgroup %<*dtx> \def\LaTeXformat{LaTeX2e} @@ -88,8 +88,8 @@ %</dtx> %<package>\ProvidesPackage{pfarrei.sty} %<a5toa4>\ProvidesFile{a5toa4.tex} - [\pfarreirevisiondate\space r\pfarreirevision LaTeX2e package - (for priests)] + [\pfarreirevisiondate\space r\pfarreirevision\space LaTeX2e package + (for pastors)] %</dtx|tex> %<*driver> \documentclass{ltxdoc} @@ -97,6 +97,13 @@ \usepackage[utf8]{inputenc} \usepackage[T1]{fontenc} \usepackage{lmodern} +\usepackage{hypdoc} + +\newcommand*{\StartBlock}[1][2]{% + \bigskip\nobreak\vskip#1\baselineskip\pagebreak[1]\vskip-#1\baselineskip + \nobreak\noindent +} + \CodelineIndex \RecordChanges \GetFileInfo{pfarrei.dtx} @@ -104,11 +111,14 @@ \title{Das Pfarrei-Paket\footnote{% \protect\foreignlanguage{english}{Sorry if you don't understand German, but currently there's only a German manual, because the idea of this is - from a German article at ``Die \TeX nische Komödie''. But you may try to - call ``\texttt{a5toa4 --help}'' to get some useful information.% + from a German article at ``Die \TeX nische Komödie''. But at least you + may try to call ``\texttt{a5toa4 --help}'' to get some useful + information.% }% }% -} \date{\filedate} \author{Markus Kohm} +} +\date{\filedate\footnote{Version \fileversion}} +\author{Markus Kohm\footnote{komascript at gmx info}} \maketitle \DocInput{pfarrei.dtx} \PrintChanges @@ -221,13 +231,18 @@ the file `pfarrei.dtx'. % \begin{abstract} % In "`Die \TeX nische Kömdie"', Ausgabe 1/2013 hat Christian Justen über % seinen Einsatz von \LaTeX{} im Pfarrdienst berichtet. Einige der von ihm -% verwendeten bash-Scripte und seine Schilderungen dazu haben mich dazu +% verwendeten bash-Scripte und seine Schilderungen dazu haben mich % inspiriert, eine Sammlung zu beginnen, die entsprechende Dinge leisten. -% Allerdings habe ich mich dazu entschlossen, keine bash-Script zu -% verwenden, sondern die Funktionalität derselben in lua-Scripte für die -% Ausführung mit texlua zu realisieren, da texlua inzwischen Bestandteil -% aller \TeX-Distributionen ist. Somit wurde das ganze besser vom -% Betriebssystem unabhängig. +% Allerdings habe ich mich entschlossen, keine bash-Script zu verwenden, +% sondern die Funktionalität derselben in lua-Scripte für die Ausführung mit +% \TeX Lua zu realisieren, da \TeX Lua inzwischen Bestandteil aller +% \TeX-Distributionen ist. Somit wurde das ganze besser vom Betriebssystem +% unabhängig. +% +% Ergänzt habe ich das ganze durch einige Befehle und Umgebungen, die für +% die Erstellung von Lied- und Gebetsheftchen für den Gottesdienst +% praktisch sein könnten. Jedenfalls habe ich selbst Nutzen daraus +% gezogen. Weiteres ist geplant. % \end{abstract} % % \tableofcontents @@ -235,9 +250,9 @@ the file `pfarrei.dtx'. % \section{Die Skripte-Seite} % \label{sec:skripte} % -% In besagtem Artikel wurden zwei Skripte, "`a5toa4"' und "`a5toa4bogen"' -% vorgestellt. Beide erzeugen aus PDF-Dateien, die im A5-Format vorliegen, -% neue PDF-Dateien im A4-quer-Format. +% In besagtem Artikel wurden zwei Skripte, "`\texttt{a5toa}4"' und +% "`\texttt{a5toa4bogen}"' vorgestellt. Beide erzeugen aus PDF-Dateien, die im +% A5-Format vorliegen, neue PDF-Dateien im A4-quer-Format. % % Das erste, "`a5toa4", arrangiert die A5-Seiten dabei so, dass jeweils zwei % aufeinander folgende A5-Seiten nebeneinandern ausgegeben werden. Das ist vor @@ -251,25 +266,28 @@ the file `pfarrei.dtx'. % erhalten. Daher wird für diese Ausgabe im Weiteren die Bezeichnung % \emph{booklet} verwendet. % -% Ich dacht mir, das könne man in ein einziges Programm gießen. Dieses heißt -% bei mir dann schlicht "`a5toa4.tlu"' bzw. bei optimaler Installation kann es -% zumindest unter Linux und OSX auch als "`a5toa4"' angesprochen werden. +% \StartBlock%^^A +% Ich\marginpar{\raggedleft\texttt{a5toa4.tlu}} dachte mir, das könne man in +% ein einziges Programm gießen. Dieses heißt bei mir dann schlicht +% "`a5toa4.tlu"'. Bei optimaler Installation kann es auch als "`a5toa4"' +% angesprochen werden. % -% Ruft man das Programm mit der Option "`\texttt{-V}"' oder -% "`\texttt{--version}"' auf, so gibt es lediglich eine Versionsinformation -% aus. +% Ruft\marginpar{\raggedleft\texttt{-{}-version}} man das Programm mit der +% Option "`\texttt{-V}"' oder "`\texttt{-{}-version}"' auf, so gibt es lediglich +% eine Versionsinformation aus. % -% Beim Aufruf mit Option "`\texttt{-h}"' oder "`\texttt{--help}"' wird -% hingegen eine ausführliche Hilfe zu den Aufrufmöglichkeiten und den Optionen -% ausgegeben. +% Beim\marginpar{\raggedleft\texttt{-{}-help}} Aufruf mit Option +% "`\texttt{-h}"' oder "`\texttt{-{}-help}"' wird hingegen eine ausführliche +% Hilfe zu den Aufrufmöglichkeiten und den Optionen ausgegeben. % -% Man kann es aber auch mit einer Reihe von Durchführungsoptionen und Namen -% von PDF-Dateien aufrufen. In diesem Fall wird entweder eine booklet- oder -% eine side-by-side-Ausgabe erzeugt. Die Wahl, ob eine booklet- oder eine +% Man\marginpar{\raggedleft\texttt{-{}-booklet}\\\texttt{-{}-sidebyside}} kann +% es aber auch mit einer Reihe von Durchführungsoptionen und Namen von +% PDF-Dateien aufrufen. In diesem Fall wird entweder eine booklet- oder eine +% side-by-side-Ausgabe erzeugt. Die Wahl, ob eine booklet- oder eine % side-by-side-Ausgabe erfolgen soll, erfolgt über die Optionen -% "`\texttt{-b}"' oder "`\texttt{--booklet}"' für booklet bzw. "`\texttt{-s}"' -% oder "`\texttt{--sidebyside}"' für side-by-side. Voreingstellt ist die -% side-by-side-Ausgabe. +% "`\texttt{-b}"' oder "`\texttt{-{}-booklet}"' für booklet +% bzw. "`\texttt{-s}"' oder "`\texttt{-{}-sidebyside}"' für +% side-by-side. Voreingstellt ist die side-by-side-Ausgabe. % % Für die Durchführung wurde auch ein Verbesserungsvorschlag von Christian % Justen selbst aufgegriffen. Bei ihm haben die Skripte mit einer @@ -286,11 +304,14 @@ the file `pfarrei.dtx'. % wurde, entweder um "`\texttt{-booklet.pdf}"' oder % "`\texttt{-sidebyside.pdf}"' ergänzt. Auch dies ist eine Abweichung von % Christian Justens Original-Skripten, bei denen immer die Ursprungsdatei vom -% Ergebnis überschrieben wurde. Dieses Verhalten ist aber ebenfalls zu -% erreichen, indem man Option "`\texttt{-o}"' oder "`\texttt{--overwrite}"' -% angibt. Nach erfolgreichem PDF\LaTeX-Lauf und dem Kopieren des Ergebnisses -% ins aktuelle Arbeitsverzeichnis, wird das temporäre Verzeichnis samt Inhalt -% wieder gelöscht. +% Ergebnis überschrieben wurde. +% +% Ein\marginpar{\raggedleft\texttt{-{}-overwrite}} Überschreiben der +% Ursprungsdatei wie bei Christian Justens Original-Skripten kann man aber +% alternativ ebenfalls erreichen, indem man Option "`\texttt{-o}"' oder +% "`\texttt{-{}-overwrite}"' angibt. Nach erfolgreichem PDF\LaTeX-Lauf und dem +% Kopieren des Ergebnisses ins aktuelle Arbeitsverzeichnis, wird das temporäre +% Verzeichnis samt Inhalt wieder gelöscht. % % Eine weitere Änderung bei mir betrifft die Tatsache, dass man für die % Verarbeitung mehrerer Dateien nicht mehrere Aufrufe benötigt, man kann auch @@ -311,13 +332,12 @@ the file `pfarrei.dtx'. % die Ursprungsdatei überschrieben werden, so ist vor jeder dieser Dateien die % Option erneut zu setzen. % -% Tatsächlich ist "`\texttt{a5toa4.tlu}"' aber nur ein Wrapper für +% Tatsächlich\marginpar{\raggedleft\texttt{pfarrei.tlu}} ist +% "`\texttt{a5toa4.tlu}"' aber nur ein Wrapper für % "`\texttt{pfarrei.tlu}"'. Das wurde deshalb so gemacht, damit das % eigentliche Programm leichter durch Versionen in \texttt{TEXMFLOCAL} oder % \texttt{TEXMFHOME} ersetzt werden kann, ohne dass jedes Mal das -% \emph{Binary} ersetzt werden muss. Unter Windows muss man allerdings erst -% einmal dafür sorgen, dass das Skript als Binary aufgerufen -% wird.\footnote{Hierfür wird noch ein Windows-Batch-Jongleur gesucht.} +% \emph{Binary} ersetzt werden muss. % % Eine letzte kleine Änderung meiner Fassung betrifft die Anforderungen an das % Seitenformat der Quelldateien. Im Original wurde mit der \texttt{pdfpages} @@ -330,58 +350,161 @@ the file `pfarrei.dtx'. % ins A5-Format gebracht, bevor sie auf der A4-quer-Seite platziert werden. % % -% \subsection*{Zusammenfassung} +% \subsection*{Zusammenfassung\marginpar{\raggedleft\texttt{a5toa4}}} % -% Um aus einem Quell-PDF "`\texttt{foo.pdf}"' ein Ziel-PDF -% "`\texttt{foo-sidebyside.pdf}"' zu erzeugen, bei dem die Seiten des -% Quell-PDF aufeinander folgend, nebeneinander auf einer A4-quer-Seite -% platziert sind, verwendet man: +% Um\marginpar{\raggedleft\texttt{-s}} aus einem Quell-PDF +% "`\texttt{foo.pdf}"' ein Ziel-PDF "`\texttt{foo-sidebyside.pdf}"' zu +% erzeugen, bei dem die Seiten des Quell-PDF aufeinander folgend, +% nebeneinander auf einer A4-quer-Seite platziert sind, verwendet man: % \begin{verbatim} % a5toa4 -s foo.pdf % \end{verbatim}\unskip\ignorespaces % Soll die Ziel-PDF hingegen die Quell-PDF überschreiben, so gibt vor dem % Dateinamen zusätzlich Option "`\texttt{-o}"' an. % -% Um aus einem Quell-PDF "`\texttt{foo.pdf}"' ein Ziel-PDF -% "`\texttt{foo-sidebyside.pdf}"' zu erzeugen, bei dem die Seiten des -% Quell-PDF so auf einer A4-quer-Seite platziert sind, dass durch Falten in -% der Mitte ein Heft entsteht, verwendet man: +% Um\marginpar{\raggedleft\texttt{-b}} aus einem Quell-PDF +% "`\texttt{foo.pdf}"' ein Ziel-PDF "`\texttt{foo-booklet.pdf}"' zu erzeugen, +% bei dem die Seiten des Quell-PDF so auf einer A4-quer-Seite platziert sind, +% dass durch Falten in der Mitte ein Heft entsteht, verwendet man: % \begin{verbatim} % a5toa4 -b foo.pdf % \end{verbatim}\unskip\ignorespaces -% Soll die Ziel-PDF hingegen die Quell-PDF überschreiben, so gibt vor dem -% Dateinamen zusätzlich Option "`\texttt{-o}"' an. % -% Informationen über die verwendete Version von "`\texttt{a5toa4}"' erhält man -% mit: +% Soll\marginpar{\raggedleft\texttt{-o}} die Ziel-PDF hingegen die Quell-PDF +% überschreiben, so gibt vor dem Dateinamen zusätzlich Option "`\texttt{-o}"' +% an. +% +% Informationen\marginpar{\raggedleft\texttt{-V}} über die verwendete Version +% von "`\texttt{a5toa4}"' erhält man mit: % \begin{verbatim} -% a5toa4 --version +% a5toa4 -V % \end{verbatim}\unskip % -% Eine Hilfe zum Programm erhält man mit: +% Eine\marginpar{\raggedleft\texttt{-h}} Hilfe zum Programm erhält man mit: % \begin{verbatim} -% a5toa4 --help +% a5toa4 -h % \end{verbatim} % % % \section{Die \LaTeX-Seite} % \label{sec:latex} % -% Die \LaTeX-Seite zu den Skripten aus Abschnitt~\ref{sec:skripte} besteht -% zunächst einmal aus dem \LaTeX-Dokument "`\texttt{a5ona4.tex}"'. Dieses +% Die \LaTeX-Seite zu den Skripten aus \autoref{sec:skripte} besteht +% zunächst einmal aus dem \LaTeX-Dokument "`\texttt{a5toa4.tex}"'. Dieses % lädt wiederum das \LaTeX-Paket "`\texttt{pfarrei.sty}"'. Die eigentliche -% Funktionalität verbirgt sich darin. Derzeit gibt es fast nur eine Anweisung -% \cs{AvToAiv}. Diese erledigt die Hauptarbeit, wobei die erwartet, dass die -% Original-PDF-Datei, die verarbeitet werden soll, im Makro \cs{OriginalFile} -% abgelegt ist. Das Skript sorgt dafür, dass dies geschieht. Darüber hinaus -% fällt die Entscheidung, ob eine booklet- oder eine side-by-side-Ausgabe -% erfolgen soll, schlicht über die Frage, ob das Makro \cs{Booklet} für -% \LaTeX{} definiert ist oder nicht. -% -% Eine weitere Funktionalität stellt "`\texttt{pfarrei}.sty"' derzeit noch -% nicht bereit. Hier sollen allerdings in naher Zukunft einige Dinge -% implementiert werden, die Christian Justen in seinem Artikel ebenfalls -% erwähnt hat. +% Funktionalität verbirgt sich darin. +% +% \StartBlock%^^A +% \DescribeMacro{\AvToAiv}\hspace*{-\marginparsep}\oarg{Original-Datei}\\%^^A +% \DescribeMacro{\OriginalFile}%^^A +% Die Anweisung \cs{AvToAiv} erledigt die Hauptarbeit für \texttt{a5toa4}. Die +% Voreinstellung für das optionale Argument \meta{Original-Datei} ist +% \cs{OriginalFile}. Das Skript "`\texttt{a5toa4.tlu}"' setzt dieses Makro +% entsprechend. +% +% \StartBlock[1]%^^A +% Man kann das \LaTeX-Paket \textsf{pfarrei} aber auch per +% \begin{verbatim} +% \usepackage{pfarrei} +% \end{verbatim}\unskip +% oder +% \begin{verbatim} +% \usepackage[booklet]{pfarrei} +% \end{verbatim}\unskip +% direkt in seinem Dokument laden. Dann stellt es Umgebungen und Befehle für +% die Erstellung von Textblättern oder Textheften für Pfarrer, Lektoren und +% andere Mitwirkende an einem Gottesdienst oder auch für die Gemeinde +% bereit. +% +% \StartBlock%^^A +% \DescribeMacro{\ifbooklet} +% \hspace*{-\marginparsep}\marg{Dann-Code}\marg{Sonst-Code}\\* +% Es kann Code davon abhängig ausgeführt werden, ob ein Booklet erzeugt wird +% oder nicht. Im Falle eines Booklets wird der \meta{Dann-Code} ausgeführt, +% anderenfalls der \meta{Sonst-Code}. Dies wird auch intern, beispielsweise +% innerhalb von \cs{AvToAiv} oder innerhalb der +% \texttt{booklet}\dots\texttt{page}-Umgebungen verwendet, um die +% entsprechende Entscheidung durchzuführen. +% +% \StartBlock%^^A +% \DescribeEnv{bookletfrontpage}%^^A +% \DescribeMacro{\bookletfrontpagestyle}%^^A +% Mit der Umgebung \texttt{bookletfontpage} kann eine Titelseite erstellt +% werden, die nur bei der Erzeugung eines Booklets ausgegeben wird. Die +% Umgebung sollte immer am Anfang des Dokuments stehen, anderenfalls +% produziert sie eine Fehlermeldung. Dies geschieht, weil die Titelseite nun +% einmal die erste Seite sein sollte. Sollte der Seitenstil \texttt{empty} +% einmal nicht für die Titelseite gewünscht werden, kann man +% \cs{bookletfrontpagestyle} auf den Namen des gewünschten Stils umdefinieren. +% +% \StartBlock[6]%^^A +% \DescribeMacro{\motto}\hspace*{-\marginparsep}\marg{Motto}\\*%^^A +% \DescribeMacro{\titlepicture}\hspace*{-\marginparsep}\marg{Bild}\\*%^^A +% \DescribeMacro{\title}\hspace*{-\marginparsep}\marg{Titel}\\*%^^A +% \DescribeMacro{\parish}\hspace*{-\marginparsep}\marg{Gemeinde}\\*%^^A +% \DescribeMacro{\date}\hspace*{-\marginparsep}\marg{Datum}\\*%^^A +% \DescribeMacro{\makebooklettitlepage}%^^A +% Ähnlich zu \cs{maketitle} bei den Standard-Klassen kann man für Booklets +% (aufbauend auf der oben erklärten Umgebung \texttt{bookletfrontpage} statt +% auf \texttt{titlepage}) mit Hilfe von \cs{makebooklettitlepage} eine +% Titelseite für ein Booklet erzeugen. Der Titel besteht aus einem Motto (oben +% auf der Seite), gefolgt von einem Titelbild, gefolgt von dem Titel, Angaben +% zur Gemeinde und zum Schluss das Datum. Es ist zu beachten, dass man +% \cs{makebooklettitlepage} \emph{nicht} selbst in eine Umgebung packen +% sollte, da diese Anweisung intern die Umgebung \texttt{bookletfrontpage} +% verwendet. Darüber hinaus ist zu beachten, dass als Titelbild nicht einfach +% ein Dateinamen angegeben wird, sondern die kompletten Anweisungen, um ein +% Bild einzuladen oder zu erstellen. Auch muss ggf. ein Grafikpaket selbst +% geladen werden. +% +% \StartBlock%^^A +% \DescribeEnv{bookletbackpage}%^^A +% \DescribeEnv{bookletemptypage}%^^A +% \DescribeMacro{\bookletbackpagestyle}%^^A +% \DescribeMacro{\bookletemptypagestyle}%^^A +% Für ein Booklet kann mit der Umgebung \texttt{bookletbackpage} außerdem eine +% Rückseite definiert werden. Die Definition kann an beliebiger Stelle +% erfolgen. Die Ausgabe findet auf einer durch vier teilbaren Seite am Ende +% des Dokuments statt. Dazu werden ggf. leere Seiten eingefügt. Den Inhalt der +% \emph{leeren Seiten} kann ebenfalls mit einer Umgebung, nämlich +% \texttt{bookletemptypage}, definiert werden. Wie bereits beim Seitenstil für +% die Vorderseite, kann auch der Seitenstil für die \emph{leeren Seiten} und +% die Rückseite umdefiniert werden. +% +% \StartBlock%^^A +% \DescribeEnv{samedoublepage}%^^A +% Wenn der Inhalt dieser Umgebung auf die aktuelle Seite passt, wird er +% ausgegeben. Passt er nicht auf die aktuelle Seite und die aktuelle Seite ist +% eine Seite mit einer ungeraden Seitenzahl, dann wird zunächst ein +% Seitenumbruch durchgeführt. Anschließend wird der Inhalt ausgegeben. Dadurch +% wird vermieden, dass beispielsweise ein Lektor oder Pfarrer unnötig +% innerhalb eines Textes umblättern muss. Es ist zu beachten, dass innerhalb +% dieser Umgebung Fußnoten, Marginalien und Gleitumgebungen nicht korrekt +% funktionieren. +% +% \StartBlock%^^A +% \DescribeMacro{\setupprayer}\hspace*{-\marginparsep}\marg{Optionen}\\*%^^A +% \DescribeEnv{prayer}%^^A +% \DescribeMacro{\noresponder}%^^A +% Die Umgebung \texttt{prayer} ist für Gebete gedacht. Die Umgebung hat ein +% optionales Argument. Dieses ist identisch mit \meta{Optionen} gilt dann aber +% nur lokal für diese Gebetsumgebung. Als \meta{Optionen} kann eine +% Komma-separierte Liste von \meta{Schlüssel}\texttt{=}\meta{Wert}-Optionen +% angegeben werden. Folgende Schlüssel werden verstanden: +% \begin{description} +% \item[\texttt{leader=}\meta{Vorbeter}:] Setzt die Voreinstellung für das +% optionale Argument von \cs{item} auf \meta{Vorbeter}. +% \item[\texttt{responder=}\meta{Antwortende(r)}:] Setzt die Voreinstellung +% für das optionale Argument des automatisch als Antwort eingefügten +% \cs{item} auf \meta{Antwortende(r)}. +% \item[\texttt{response=}\meta{Antwort}:] Setzt die automatisch eingefügte +% Antwort auf \meta{Antwort}. +% \end{description} +% Eine automatische Antwort wird nur eingefügt, wenn sowohl \texttt{responder} +% als auch \texttt{response} angegeben sind. Soll nur für einzelne \cs{item} +% keine automatische Antwort erstellt werden, so ist irgendwo innerhalb des +% entsprechenden \cs{item} (\emph{nicht} jedoch innerhalb des optionalen +% Arguments von \cs{item}) oder danach ein \cs{noresponder} einzufügen. % % \StopEventually{} % @@ -409,7 +532,9 @@ the file `pfarrei.dtx'. \AvToAiv \end{document} % \end{macrocode} -% Das war es schon. +% Das war es schon. Trotzdem hat die Verwendung einer solchen zusätzlichen +% Datei den Vorteil, dass man bei Bedarf lokal auch ein ganz anderes +% "`\texttt{a5toa4.tex}"' speichern kann. % % \iffalse^^A meta-comment %</a5toa4> @@ -421,7 +546,21 @@ the file `pfarrei.dtx'. %<*package> % \fi^^A meta-comment % -% Als erstes werden die Optionen ausgeführt (obwohl es noch keine gibt): +% \begin{macro}{\ifbooklet} +% \changes{r28}{2013/04/01}{neue Anweisung} +% Wir haben eine Option, die bestimmt, ob wir ein Booklet erzeugen oder +% nicht. Später wird das schlicht über das Makro \cs{ifbooklet} +% festgestellt. Falls ein Booklet erzeugt werden soll wird das erste, sonst +% das zweite Argument ausgeführt. +% \begin{macrocode} +\newcommand*{\ifbooklet}{} +\let\ifbooklet\@secondoftwo +\DeclareOption{booklet}{\let\ifbooklet\@firstoftwo} +\DeclareOption{nobooklet}{\let\ifbooklet\@secondoftwo} +% \end{macrocode} +% \end{macro} +% +% Dann werden die Optionen ausgeführt: % \begin{macrocode} \ProcessOptions* % \end{macrocode} @@ -430,11 +569,13 @@ the file `pfarrei.dtx'. \RequirePackage{ifpdf} \RequirePackage{pdfpages} % \end{macrocode} +% +% % \begin{macro}{\AvToAiv} % Der Name des Makros kommt von \texttt{a5toa4}. Es muss sichergestellt sein, % dass dies im PDF-Modus verwendet wird. % \begin{macrocode} -\newcommand*{\AvToAiv}{% +\newcommand*{\AvToAiv}[1][\OriginalFile]{% \ifpdf\else \PackageError{pfarrei}{PDF mode needed}{% a5toa4 needs the direct PDF mode.\MessageBreak @@ -443,15 +584,434 @@ the file `pfarrei.dtx'. }% \input{x.tex} \fi - \@ifundefined{Booklet}{% - \includepdf[pages=-,nup=2x1]{\OriginalFile}% + \ifbooklet{% + \includepdf[pages=-,booklet]{#1}% }{% - \includepdf[pages=-,booklet]{\OriginalFile}% + \includepdf[pages=-,nup=2x1]{#1}% }% } % \end{macrocode} % \end{macro}^^A \AvToAiv % +% \begin{environment}{bookletpage} +% \changes{r28}{2013/04/01}{neue virtuelle Umgebung} +% Da mehrfach eine Umgebung für einzelne Seiten benötigt wird, definieren wir +% dafür eine eigene Umgebung, die dann entsprechend individualisiert wird. Es +% ist zu beachten, dass diese Umgebung nicht als Umgebung aufgerufen werden +% sollte, sondern direkt \cs{bookletpage} und \cs{endbookletpage}. +% \begin{macrocode} +\newenvironment*{bookletpage}{% + \edef\reserved@a{bookletpage}% + \ifx\@currenvir\reserved@a + \PackageError{pfarrei}{`bookletpage' used as ordinary environment}{% + Please note, that `bookletpage' is a virtual environment + only.\MessageBreak + You should not use it directly as an environment, but use + `\string\bookletpage' at the\MessageBreak + begin code and `\string\endbookletpage' at the end code of a wrapper + environment.\MessageBreak + If you'll continue, expect several additional errors% + }% + \let\bookletpagebox\@tempboxa + \let\bookletpagestyle\@empty + \else + \expandafter\let\expandafter\bookletpagebox + \csname \@currenvir box\endcsname + \expandafter\let\expandafter\bookletpagestyle + \csname \@currenvir style\endcsname + \fi + \edef\reserved@a{% + \noexpand\begin{lrbox}{\bookletpagebox} + \noexpand\begin{minipage}[t][\textheight][t]{\textwidth}% + \begingroup + \def\noexpand\@currenvir{\@currenvir}% + \def\noexpand\@currenvline{\@currenvline}% + \noexpand\parskip=\the\parskip + \noexpand\parindent=\the\parindent + \noexpand\parfillskip=\the\parfillskip + }\reserved@a +}{% +% \end{macrocode} +% Das Ende wird in zwei Portionen aufgeteilt: +% \begin{macrocode} + \endbookletpagebox + \printbookletpagebox +} +% \end{macrocode} +% \begin{macro}{\endbookletpagebox} +% \changes{r28}{2013/04/01}{neue (eigentlich interne) Anweisung} +% das Beenden der Erzeugung der Box für die Seite +% \begin{macrocode} +\def\endbookletpagebox{% + \par + \endgroup + \end{minipage}% + \end{lrbox}% + \global\setbox\bookletpagebox\box\bookletpagebox +} +% \end{macrocode} +% \end{macro} +% \begin{macro}{\printbookletpagebox} +% \changes{r28}{2013/04/01}{neue (eigentlich interne) Anweisung} +% und die Ausgabe der Box, falls ein Booklet erzeugt wird. +% \begin{macrocode} +\newcommand*\printbookletpagebox[1][\@currenvir]{% + \ifbooklet{% + \@ifundefined{bookletpagestyle}{}{% + \ifx\bookletpagestyle\@empty\else\thispagestyle{\bookletpagestyle}\fi% + }% + \clearpage\noindent\usebox\bookletpagebox\clearpage + }{% + \PackageInfo{pfarrei}{`#1' not printed}% + }% +} +% \end{macrocode} +% \end{macro} +% \end{environment} +% +% +% \begin{environment}{bookletfrontpage} +% \changes{r26}{2013/03/31}{neue Umgebung} +% Umgebung, um eine Booklet-Titelseite zu erzeugen. +% \begin{macro}{\bookletfrontpagebox} +% \changes{r26}{2013/03/31}{neue Box} +% \begin{macro}{\bookletfrontpagestyle} +% \changes{r26}{2013/03/31}{neues Makro} +% Es ist nur eine Seite erlaubt. Also packen wir das ganze in eine Box. Dafür +% brauchen wir eine solche: +% \begin{macrocode} +\newsavebox\bookletfrontpagebox +\newcommand*{\bookletfrontpagestyle}{empty} +\newenvironment*{bookletfrontpage}{% + \bookletpage +}{% + \endbookletpagebox + \clearpage + \ifbooklet{% + \ifnum\c@page>\@ne + \PackageError{pfarrei}{Booklet front page not first page}{% + The booklet font page should be the first page, but it seems, that it + is\MessageBreak + page no. \the\c@page. \space Maybe you should put it immediately after + `\string\begin{document}.% + Nevertheless, if you'll continue it will be printed here% + }% + \fi + \printbookletpagebox + }{% + \PackageInfo{pfarrei}{Booklet front page ignored}% + }% +} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{environment} +% +% \begin{environment}{bookletbackpage} +% \changes{r26}{2013/03/31}{neue Umgebung}%^^A +% \begin{macro}{\bookletbackpagebox} +% \changes{r26}{2013/03/31}{neue Box}%^^A +% \begin{macro}{\bookletbackpagestyle} +% \changes{r26}{2013/03/31}{neues Makro} +% Im Prinzip ist die Booklet-Rückseite fast wie bei der Titelseite, +% allerdings fügen wir hier so viele Leerseiten ein, dass wir wirklich auf +% einer durch 4 teilbaren Seite landen. +% \begin{environment}{bookletemptypage} +% \changes{r26}{2013/03/31}{neue Box}%^^A +% \begin{macro}{\bookletemptypagebox} +% \changes{r26}{2013/03/31}{neue Umgebung}%^^A +% \begin{macro}{\bookletemptypagestyle} +% \changes{r26}{2013/03/31}{neues Makro}%^^A +% Die Umgebung für die konfigurierbare \emph{Leerseite}, besitzt keine eigene +% Ausgabe, sondern sammelt tatsächlich nur den Inhalt. Die Ausgabe erfolgt +% dann bei der Ausgabe der Booklet-Rückseite. +% \begin{macrocode} +\newsavebox\bookletemptypagebox +\newcommand*{\bookletemptypagestyle}{empty} +\newenvironment*{bookletemptypage}{% + \bookletpage +}{% + \endbookletpagebox +} +\newsavebox\bookletbackpagebox +\newcommand*{\bookletbackpagestyle}{empty} +\newenvironment*{bookletbackpage}{% + \bookletpage +}{% + \endbookletpagebox + \if@filesw\immediate\write\@mainaux{\string\printbookletbackpage}\fi +}% +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{environment} +% \begin{macro}{\printbookletbackpage} +% \changes{r26}{2013/03/31}{neue Anweisung}%^^A +% \begin{macro}{\@printbookletbackpage} +% \changes{r26}{2013/03/31}{neue interne Anweisung}%^^A +% Die eigentliche Ausgabe der letzten Seite geschieht über einen Eintrag in +% der \texttt{aux}-Datei. Das ist zwar nicht ganz sauber (und +% \textsf{scrlfile} meckert deshalb ggf.), aber die Standard-Klasse +% \textsf{letter} macht das ähnlich für die Etiketten. Also hoffen wir +% einfach, dass es gut geht. +% \begin{macrocode} +\newcommand*{\printbookletbackpage}{} +\newcommand*{\@printbookletbackpage}{% + \ifbooklet{% + \clearpage + \let\bookletpagestyle\bookletemptypagestyle + \ifvoid\bookletemptypagebox + \let\bookletpagebox\strutbox + \else + \let\bookletpagebox\bookletemptypagebox + \fi + \@tempcnta=\c@page + \divide\@tempcnta by 4 + \multiply\@tempcnta by 4 + \ifnum \@tempcnta=\c@page\else + \advance\@tempcnta by 4 + \@whilenum \c@page<\@tempcnta\do{% + \printbookletpagebox + }% + \fi + \let\bookletpagestyle\bookletbackpagestyle + \let\bookletpagebox\bookletbackpagebox + \printbookletpagebox + }{% + \PackageInfo{pfarrei}{Booklet back page ignored}% + }% +} +% \end{macrocode} +% Das Drucken darf während des Lesens der \texttt{aux}-Datei in +% \cs{begin{document}} nicht erfolgen. Daher definieren wir es erst danach +% entsprechend um. Dadurch ist es während des Lesens der \texttt{aux}-Datei in +% \cs{end{document}} funktionsfähig. +% \begin{macrocode} +\AtBeginDocument{\let\printbookletbackpage\@printbookletbackpage} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{environment} +% +% +% \begin{macro}{\makebooklettitlepage} +% \changes{r26}{2013/03/31}{neue Anweisung}%^^A +% \begin{macro}{\motto} +% \changes{r26}{2013/03/31}{neue Anweisung}%^^A +% \begin{macro}{\@motto} +% \changes{r26}{2013/03/31}{neues internes Makro}%^^A +% \begin{macro}{\titlepicture} +% \changes{r26}{2013/03/31}{neue Anweisung}%^^A +% \begin{macro}{\@titlepicture} +% \changes{r26}{2013/03/31}{neues internes Makro}%^^A +% \begin{macro}{\title} +% \changes{r26}{2013/03/31}{neue Anweisung}%^^A +% \begin{macro}{\@title} +% \changes{r26}{2013/03/31}{neues internes Makro}%^^A +% \begin{macro}{\parish} +% \changes{r26}{2013/03/31}{neue Anweisung}%^^A +% \begin{macro}{\@parish} +% \changes{r26}{2013/03/31}{neues internes Makro}%^^A +% \begin{macro}{\date} +% \changes{r26}{2013/03/31}{neue Anweisung}%^^A +% \begin{macro}{\@date} +% \changes{r26}{2013/03/31}{neues internes Makro}%^^A +% Der Standard-Titel für Booklets besteht aus einem Motto, einem Bild, einem +% Titel, der Gemeinde und dem Datum. Wir gehen davon aus, dass die +% Klasse bereits \cs{date}, \cs{@date}, \cs{title} und \cs{@title} zur +% Verfügung stellt. Allerdings ergibt die Voreinstellung \cs{today} für das +% Datum hier wenig Sinn, weshalb die Voreinstellung in einen leeren Wert +% geändert wird. Den Rest machen wir komplett selbst: +% \begin{macrocode} +\newcommand*{\motto}[1]{\gdef\@motto{#1}} +\newcommand*{\@motto}{} +\newcommand*{\titlepicture}[1]{\gdef\@titlepicture{#1}} +\newcommand*{\@titlepicture}{} +\providecommand*{\title}[1]{\gdef\@title{#1}} +\providecommand*{\@title}{} +\newcommand*{\parish}[1]{\gdef\@parish{#1}} +\newcommand*{\@parish}{} +\providecommand*{\date}[1]{\gdef\@date{#1}} +\def\@date{} +\newcommand*{\makebooklettitlepage}{% + \begin{bookletfrontpage} + \parskip.5\baselineskip + \parindent\z@ + \parfillskip \z@ \@plus 1fil + \centering + \ifx\@motto\@empty\else{\Huge\@motto\par}\fi + \vfill + \ifx\@titlepicture\@empty\else\@titlepicture\par\fi + \vfill + \parskip\z@ + \Huge + \@title\par + \@parish\par + \@date\par + \ifx\@title\@empty\ifx\@parish\@empty\ifx\@date\@empty\null\fi\fi\fi + \end{bookletfrontpage} +} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% +% \begin{environment}{samedoublepage} +% \changes{r28}{2013/03/31}{neue Umgebung}%^^A +% \begin{macro}{\samedoublepage@save@hbox} +% \changes{r28}{2013/03/31}{neues internes Makro}%^^A +% Es wird etwas umständlich eine vertikale Box gespeichert, +% \begin{macrocode} +\let\samedoublepage@save@hbox\hbox +\newenvironment*{samedoublepage}{% + \par + \let\hbox\vbox + \begin{lrbox}{\@tempboxa}% + \let\hbox\samedoublepage@save@hbox +}{% + \end{lrbox}% + \let\hbox\samedoublepage@save@hbox +% \end{macrocode} +% um diese dann in Stücke zu zerschneiden, die auf eine Seite passen, +% \begin{macrocode} + \@tempdima\ifdim\pagegoal=\maxdimen\textheight + \else\dimexpr\pagegoal-\pagetotal\fi + \ifdim \@tempdima + <\dimexpr\ht\@tempboxa+\dp\@tempboxa\relax + \ifodd\c@page +% \end{macrocode} +% Wobei aber nicht auf ungeraden Seiten mit nur einem Stück des Kuchens +% begonnen wird. +% \begin{macrocode} + \newpage + \@tempdima\textheight + \else \typeout{even page}% + \fi + \@whiledim \@tempdima + <\dimexpr\ht\@tempboxa+\dp\@tempboxa\relax\do{% + \splitmaxdepth\dp\strutbox + \splittopskip\topskip + \setbox\z@\vsplit\@tempboxa to \@tempdima + \showthe\dimexpr\ht\z@+\dp\z@\relax + \showthe\@tempdima + \usebox\z@ + \newpage + \@tempdima\textheight + }% + \fi +% \end{macrocode} +% Und am Ende nicht vergessen, den Rest der Box auch noch auszugeben. +% \begin{macrocode} + \ifvoid\@tempboxa\else\usebox\@tempboxa\fi +} +% \end{macrocode} +% \end{macro} +% \end{environment} +% +% \begin{environment}{prayer} +% \changes{r28}{2013/04/01}{neue Umgebung} +% \begin{macro}{\setupprayer} +% \changes{r28}{2013/04/01}{neue Anweisung} +% Die Gebetsumgebung wird mit Hilfe von \textsf{keyval} definiert. Sie kann +% außer mit dem optionalen Argument auch jederzeit mit \cs{setupprayer} +% konfiguriert werden. +% \begin{macro}{\prayer@responder} +% \changes{r28}{2013/04/01}{neues internes Makro} +% \begin{macro}{\prayer@response} +% \changes{r28}{2013/04/01}{neues internes Makro} +% \begin{macro}{\prayer@leader} +% \changes{r28}{2013/04/01}{neues internes Makro} +% Dafür werden mehrere interne Makros benötigt, um die gewünschten Werte +% aufzunehmen. +% \begin{macrocode} +\RequirePackage{keyval} +\define@key{pfarrei.prayer}{response}{\def\prayer@response{#1}} +\define@key{pfarrei.prayer}{responder}{\def\prayer@responder{#1:}} +\define@key{pfarrei.prayer}{leader}{\def\prayer@leader{#1:}} +\newcommand*{\prayer@responder}{} +\newcommand*{\prayer@response}{} +\newcommand*{\prayer@leader}{} +\newcommand*{\setupprayer}{% + \setkeys{pfarrei.prayer}% +} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \begin{macro}{\ifprayer@firstitem} +% \changes{r28}{2013/04/01}{neuer interner Schalter} +% \begin{macro}{prayer@response@item} +% \changes{r28}{2013/04/01}{neue interne Anweisung} +% Da die Antwort beim ersten \cs{item} noch nicht ausgegeben werden darf, +% sondern nur nach den nachfolgenden, muss die Information, ob es das erste +% \cs{item} ist, über einen Schalter gespeichert werden. +% \begin{macrocode} +\newif\ifprayer@firstitem +\newcommand*{\prayer@response@item}{% + \ifprayer@firstitem\else + \ifx\prayer@responder\@empty\else + \ifx\prayer@response\@empty\else + \prayer@save@item[\prayer@responder] \prayer@response + \fi + \fi + \fi +} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \begin{macro}{\prayer@item} +% \changes{r28}{2013/04/01}{neue interne Anweisung} +% \begin{macro}{\prayer@save@item} +% \changes{r28}{2013/04/01}{neue interne Anweisung} +% Die \cs{item}-Anweisung von \texttt{prayer} ist etwas anders als von anderen +% Listen-Umgebungen. Sie baut jedoch auf der Originaldefinition auf. Daher +% muss die Originaldefinition gespeichert und entsprechend erweitert verwendet +% werden. +% \begin{macrocode} +\newcommand*{\prayer@item}[1][\prayer@leader]{% + \prayer@response@item + \prayer@firstitemfalse + \prayer@save@item[{#1}]% +} +% \end{macrocode} +% \begin{macro}{\noresponder} +% \changes{r28}{2013/04/01}{neue Anweisung} +% Das Abschalten der nächsten automatischen Antwort geschieht einfach, indem +% so getan wird, als wäre das nächste \cs{item} wieder das erste. +% \begin{macrocode} +\newenvironment*{prayer}[1][]{% + \begin{description} + \begingroup + \def\@currenvir{prayer}% + \setupprayer{#1}% + \let\prayer@save@item\item + \let\item\prayer@item + \prayer@firstitemtrue + \let\noresponder\prayer@firstitemtrue +}{% + \prayer@response@item + \endgroup + \end{description} +} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{environment} +% +% % \iffalse^^A meta-comment %</package> % \fi^^A meta-comment @@ -473,10 +1033,10 @@ the file `pfarrei.dtx'. %<*a5toa4> % \fi^^A meta-comment % \begin{macrocode} --- $Id: pfarrei.dtx 20 2013-03-10 14:19:06Z mjk $ +-- $Id: pfarrei.dtx 33 2013-04-08 07:22:56Z mjk $ kpse.set_program_name(arg[-1], 'a5toa4') -require('pfarrei') +require('pfarrei.pfarrei') % \end{macrocode} % \iffalse^^A meta-comment %</a5toa4> @@ -488,7 +1048,7 @@ require('pfarrei') %<*pfarrei> % \fi^^A meta-comment % \begin{macrocode} -local version_number = string.sub( '$Revision: 20 $', 12, -2 ) +local version_number = string.sub( '$Revision: 33 $', 12, -2 ) local action_version = ' r' .. version_number .. '\n' .. [[ Copyright (c) 2013 Markus Kohm. @@ -522,7 +1082,9 @@ local processing_opts = { ['-s'] = 'sidebyside', ['--sidebyside'] = 'sidebyside', ['-o'] = 'overwrite', - ['--overwrite'] = 'overwrite' + ['--overwrite'] = 'overwrite', + ['-d'] = 'debug', + ['--debug'] = 'debug', } -- detect action options and do action @@ -546,12 +1108,14 @@ end -- process options and parameters local booklet = false local overwrite = false +local debug = false i = 1 while arg[i] do action = processing_opts[arg[i]] if action == 'booklet' then booklet = true elseif action == 'sidebyside' then booklet = false elseif action == 'overwrite' then overwrite = true + elseif action == 'debug' then debug = true elseif action == nil then -- build the temporary tex file local tmpdir = os.tmpdir("pfarrei.XXXXXX" ) @@ -559,7 +1123,7 @@ while arg[i] do local basename = string.match( tmpfile,'(.*)%.[^.]*$') or tmpfile tmpfile = tmpdir..'/'..basename..'.tex' local file = assert( io.open( tmpfile, 'w' ) ) - if booklet then assert( file:write("\\def\\Booklet{}\n") ) end + if booklet then assert( file:write("\\PassOptionsToPackage{booklet}{pfarrei}\n") ) end assert( file:write("\\def\\OriginalFile{",arg[i],"}\n") ) assert( file:write("\\input{a5toa4.tex}\n") ) assert( file:flush() ) @@ -589,12 +1153,17 @@ while arg[i] do end assert( destfile:close() ) srcfile:close() - tmpfile=tmpdir..'/'..basename - os.remove( tmpfile..'.aux' ) - os.remove( tmpfile..'.tex' ) - os.remove( tmpfile..'.log' ) - os.remove( tmpfile..'.pdf' ) - os.remove( tmpdir ) + if debug + then + print('DEBUG: Temporary files in: '..tmpdir); + else + tmpfile=tmpdir..'/'..basename + os.remove( tmpfile..'.aux' ) + os.remove( tmpfile..'.tex' ) + os.remove( tmpfile..'.log' ) + os.remove( tmpfile..'.pdf' ) + os.remove( tmpdir ) + end overwrite = false end i=i+1 @@ -616,6 +1185,7 @@ end % %%% Local Variables: %%% mode: doctex +%%% TeX-PDF-mode: t %%% mode: flyspell %%% ispell-local-dictionary: "de_DE" %%% TeX-master: t diff --git a/Master/texmf-dist/tex/latex/pfarrei/a5toa4.tex b/Master/texmf-dist/tex/latex/pfarrei/a5toa4.tex index 6fda799e025..feff6e1eb47 100644 --- a/Master/texmf-dist/tex/latex/pfarrei/a5toa4.tex +++ b/Master/texmf-dist/tex/latex/pfarrei/a5toa4.tex @@ -29,14 +29,14 @@ \begingroup \def\revisiondate$#1: #2-#3-#4 #5${% \gdef\pfarreirevisiondate{#2/#3/#4}% - }\revisiondate$Date: 2013-03-10 15:19:06 +0100 (So, 10 M^^c3^^a4r 2013) $ + }\revisiondate$Date: 2013-04-08 09:22:56 +0200 (Mo, 08. Apr 2013) $ \def\revision$#1: #2 #3${% \gdef\pfarreirevision{#2}% - }\revision$Revision: 20 $ + }\revision$Revision: 33 $ \endgroup \ProvidesFile{a5toa4.tex} - [\pfarreirevisiondate\space r\pfarreirevision LaTeX2e package - (for priests)] + [\pfarreirevisiondate\space r\pfarreirevision\space LaTeX2e package + (for pastors)] \documentclass[a4paper,landscape]{article} \usepackage{pfarrei} \begin{document} diff --git a/Master/texmf-dist/tex/latex/pfarrei/pfarrei.sty b/Master/texmf-dist/tex/latex/pfarrei/pfarrei.sty index 34b5cba0a26..1bd50ed21d6 100644 --- a/Master/texmf-dist/tex/latex/pfarrei/pfarrei.sty +++ b/Master/texmf-dist/tex/latex/pfarrei/pfarrei.sty @@ -29,18 +29,22 @@ \begingroup \def\revisiondate$#1: #2-#3-#4 #5${% \gdef\pfarreirevisiondate{#2/#3/#4}% - }\revisiondate$Date: 2013-03-10 15:19:06 +0100 (So, 10 M^^c3^^a4r 2013) $ + }\revisiondate$Date: 2013-04-08 09:22:56 +0200 (Mo, 08. Apr 2013) $ \def\revision$#1: #2 #3${% \gdef\pfarreirevision{#2}% - }\revision$Revision: 20 $ + }\revision$Revision: 33 $ \endgroup \ProvidesPackage{pfarrei.sty} - [\pfarreirevisiondate\space r\pfarreirevision LaTeX2e package - (for priests)] + [\pfarreirevisiondate\space r\pfarreirevision\space LaTeX2e package + (for pastors)] +\newcommand*{\ifbooklet}{} +\let\ifbooklet\@secondoftwo +\DeclareOption{booklet}{\let\ifbooklet\@firstoftwo} +\DeclareOption{nobooklet}{\let\ifbooklet\@secondoftwo} \ProcessOptions* \RequirePackage{ifpdf} \RequirePackage{pdfpages} -\newcommand*{\AvToAiv}{% +\newcommand*{\AvToAiv}[1][\OriginalFile]{% \ifpdf\else \PackageError{pfarrei}{PDF mode needed}{% a5toa4 needs the direct PDF mode.\MessageBreak @@ -49,12 +53,226 @@ }% \input{x.tex} \fi - \@ifundefined{Booklet}{% - \includepdf[pages=-,nup=2x1]{\OriginalFile}% + \ifbooklet{% + \includepdf[pages=-,booklet]{#1}% }{% - \includepdf[pages=-,booklet]{\OriginalFile}% + \includepdf[pages=-,nup=2x1]{#1}% }% } +\newenvironment*{bookletpage}{% + \edef\reserved@a{bookletpage}% + \ifx\@currenvir\reserved@a + \PackageError{pfarrei}{`bookletpage' used as ordinary environment}{% + Please note, that `bookletpage' is a virtual environment + only.\MessageBreak + You should not use it directly as an environment, but use + `\string\bookletpage' at the\MessageBreak + begin code and `\string\endbookletpage' at the end code of a wrapper + environment.\MessageBreak + If you'll continue, expect several additional errors% + }% + \let\bookletpagebox\@tempboxa + \let\bookletpagestyle\@empty + \else + \expandafter\let\expandafter\bookletpagebox + \csname \@currenvir box\endcsname + \expandafter\let\expandafter\bookletpagestyle + \csname \@currenvir style\endcsname + \fi + \edef\reserved@a{% + \noexpand\begin{lrbox}{\bookletpagebox} + \noexpand\begin{minipage}[t][\textheight][t]{\textwidth}% + \begingroup + \def\noexpand\@currenvir{\@currenvir}% + \def\noexpand\@currenvline{\@currenvline}% + \noexpand\parskip=\the\parskip + \noexpand\parindent=\the\parindent + \noexpand\parfillskip=\the\parfillskip + }\reserved@a +}{% + \endbookletpagebox + \printbookletpagebox +} +\def\endbookletpagebox{% + \par + \endgroup + \end{minipage}% + \end{lrbox}% + \global\setbox\bookletpagebox\box\bookletpagebox +} +\newcommand*\printbookletpagebox[1][\@currenvir]{% + \ifbooklet{% + \@ifundefined{bookletpagestyle}{}{% + \ifx\bookletpagestyle\@empty\else\thispagestyle{\bookletpagestyle}\fi% + }% + \clearpage\noindent\usebox\bookletpagebox\clearpage + }{% + \PackageInfo{pfarrei}{`#1' not printed}% + }% +} +\newsavebox\bookletfrontpagebox +\newcommand*{\bookletfrontpagestyle}{empty} +\newenvironment*{bookletfrontpage}{% + \bookletpage +}{% + \endbookletpagebox + \clearpage + \ifbooklet{% + \ifnum\c@page>\@ne + \PackageError{pfarrei}{Booklet front page not first page}{% + The booklet font page should be the first page, but it seems, that it + is\MessageBreak + page no. \the\c@page. \space Maybe you should put it immediately after + `\string\begin{document}.% + Nevertheless, if you'll continue it will be printed here% + }% + \fi + \printbookletpagebox + }{% + \PackageInfo{pfarrei}{Booklet front page ignored}% + }% +} +\newsavebox\bookletemptypagebox +\newcommand*{\bookletemptypagestyle}{empty} +\newenvironment*{bookletemptypage}{% + \bookletpage +}{% + \endbookletpagebox +} +\newsavebox\bookletbackpagebox +\newcommand*{\bookletbackpagestyle}{empty} +\newenvironment*{bookletbackpage}{% + \bookletpage +}{% + \endbookletpagebox + \if@filesw\immediate\write\@mainaux{\string\printbookletbackpage}\fi +}% +\newcommand*{\printbookletbackpage}{} +\newcommand*{\@printbookletbackpage}{% + \ifbooklet{% + \clearpage + \let\bookletpagestyle\bookletemptypagestyle + \ifvoid\bookletemptypagebox + \let\bookletpagebox\strutbox + \else + \let\bookletpagebox\bookletemptypagebox + \fi + \@tempcnta=\c@page + \divide\@tempcnta by 4 + \multiply\@tempcnta by 4 + \ifnum \@tempcnta=\c@page\else + \advance\@tempcnta by 4 + \@whilenum \c@page<\@tempcnta\do{% + \printbookletpagebox + }% + \fi + \let\bookletpagestyle\bookletbackpagestyle + \let\bookletpagebox\bookletbackpagebox + \printbookletpagebox + }{% + \PackageInfo{pfarrei}{Booklet back page ignored}% + }% +} +\AtBeginDocument{\let\printbookletbackpage\@printbookletbackpage} +\newcommand*{\motto}[1]{\gdef\@motto{#1}} +\newcommand*{\@motto}{} +\newcommand*{\titlepicture}[1]{\gdef\@titlepicture{#1}} +\newcommand*{\@titlepicture}{} +\providecommand*{\title}[1]{\gdef\@title{#1}} +\providecommand*{\@title}{} +\newcommand*{\parish}[1]{\gdef\@parish{#1}} +\newcommand*{\@parish}{} +\providecommand*{\date}[1]{\gdef\@date{#1}} +\def\@date{} +\newcommand*{\makebooklettitlepage}{% + \begin{bookletfrontpage} + \parskip.5\baselineskip + \parindent\z@ + \parfillskip \z@ \@plus 1fil + \centering + \ifx\@motto\@empty\else{\Huge\@motto\par}\fi + \vfill + \ifx\@titlepicture\@empty\else\@titlepicture\par\fi + \vfill + \parskip\z@ + \Huge + \@title\par + \@parish\par + \@date\par + \ifx\@title\@empty\ifx\@parish\@empty\ifx\@date\@empty\null\fi\fi\fi + \end{bookletfrontpage} +} +\let\samedoublepage@save@hbox\hbox +\newenvironment*{samedoublepage}{% + \par + \let\hbox\vbox + \begin{lrbox}{\@tempboxa}% + \let\hbox\samedoublepage@save@hbox +}{% + \end{lrbox}% + \let\hbox\samedoublepage@save@hbox + \@tempdima\ifdim\pagegoal=\maxdimen\textheight + \else\dimexpr\pagegoal-\pagetotal\fi + \ifdim \@tempdima + <\dimexpr\ht\@tempboxa+\dp\@tempboxa\relax + \ifodd\c@page + \newpage + \@tempdima\textheight + \else \typeout{even page}% + \fi + \@whiledim \@tempdima + <\dimexpr\ht\@tempboxa+\dp\@tempboxa\relax\do{% + \splitmaxdepth\dp\strutbox + \splittopskip\topskip + \setbox\z@\vsplit\@tempboxa to \@tempdima + \showthe\dimexpr\ht\z@+\dp\z@\relax + \showthe\@tempdima + \usebox\z@ + \newpage + \@tempdima\textheight + }% + \fi + \ifvoid\@tempboxa\else\usebox\@tempboxa\fi +} +\RequirePackage{keyval} +\define@key{pfarrei.prayer}{response}{\def\prayer@response{#1}} +\define@key{pfarrei.prayer}{responder}{\def\prayer@responder{#1:}} +\define@key{pfarrei.prayer}{leader}{\def\prayer@leader{#1:}} +\newcommand*{\prayer@responder}{} +\newcommand*{\prayer@response}{} +\newcommand*{\prayer@leader}{} +\newcommand*{\setupprayer}{% + \setkeys{pfarrei.prayer}% +} +\newif\ifprayer@firstitem +\newcommand*{\prayer@response@item}{% + \ifprayer@firstitem\else + \ifx\prayer@responder\@empty\else + \ifx\prayer@response\@empty\else + \prayer@save@item[\prayer@responder] \prayer@response + \fi + \fi + \fi +} +\newcommand*{\prayer@item}[1][\prayer@leader]{% + \prayer@response@item + \prayer@firstitemfalse + \prayer@save@item[{#1}]% +} +\newenvironment*{prayer}[1][]{% + \begin{description} + \begingroup + \def\@currenvir{prayer}% + \setupprayer{#1}% + \let\prayer@save@item\item + \let\item\prayer@item + \prayer@firstitemtrue + \let\noresponder\prayer@firstitemtrue +}{% + \prayer@response@item + \endgroup + \end{description} +} \endinput %% %% End of file `pfarrei.sty'. |