summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/scrlttr2copy
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/scrlttr2copy
Initial commit
Diffstat (limited to 'macros/latex/contrib/scrlttr2copy')
-rw-r--r--macros/latex/contrib/scrlttr2copy/README.md12
-rw-r--r--macros/latex/contrib/scrlttr2copy/copy.lco76
-rw-r--r--macros/latex/contrib/scrlttr2copy/letter-copy-test.pdfbin0 -> 88407 bytes
-rw-r--r--macros/latex/contrib/scrlttr2copy/letter-copy-test.tex53
4 files changed, 141 insertions, 0 deletions
diff --git a/macros/latex/contrib/scrlttr2copy/README.md b/macros/latex/contrib/scrlttr2copy/README.md
new file mode 100644
index 0000000000..77e30b6f8e
--- /dev/null
+++ b/macros/latex/contrib/scrlttr2copy/README.md
@@ -0,0 +1,12 @@
+# scrlttr2copy
+A letter class option file for automatically creation of copies.
+
+The file `copy.lco` provides the new class option »copy« for the KOMA-Script
+letter class »scrlttr2«. If the option »copy« is given all pages of a specific
+letter are duplicated with background text marking as copies.
+
+For more details see the example document `letter-copy-test.tex`.
+
+[Rolf Niepraschk](mailto:Rolf.Niepraschk@gmx.de), 2016-02-13
+
+
diff --git a/macros/latex/contrib/scrlttr2copy/copy.lco b/macros/latex/contrib/scrlttr2copy/copy.lco
new file mode 100644
index 0000000000..e3213a9f24
--- /dev/null
+++ b/macros/latex/contrib/scrlttr2copy/copy.lco
@@ -0,0 +1,76 @@
+
+%% Copyright (C) 2015
+%% Rolf Niepraschk, Rolf.Niepraschk@gmx.de
+%%
+%% 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 2003/12/01 or later.
+%%
+%% This work has the LPPL maintenance status "author-maintained".
+
+\ProvidesFile{copy.lco}[2015/05/31 v0.1d copy letter-class-option (RN)]
+
+\RequirePackage{atbegshi,picture,xcolor,graphicx}
+\RequirePackage{etex}
+
+\newcounter{copy@pages}
+
+\AtBeginLetter{\shipout@copy}
+\AtEndDocument{\shipout@copy}
+
+\newcommand*\shipout@copy{%
+ \if@twoside\ifodd\c@copy@pages
+ \@latex@info@no@line{Shipout an empty page}%
+ \AtBeginShipoutOriginalShipout\null
+ \fi\fi
+ \immediate\closeout\@mainaux
+ \immediate\openout\@mainaux\jobname.aux
+ \begingroup
+ \c@page=\z@
+ \loop\ifnum\c@page<\c@copy@pages
+ \advance\c@page\@ne
+ \@latex@info@no@line{Shipout copy of page \the\c@page}%
+ \setbox\AtBeginShipoutBox=\box\csname out@box\the\c@page\endcsname
+ \AtBeginShipoutUpperLeft{\LetterCopyMarker}%
+ \AtBeginShipoutOriginalShipout\box\AtBeginShipoutBox
+ \repeat
+ \endgroup
+ \c@copy@pages=\z@
+}
+
+\AtBeginShipout{%
+ \@ifundefined{out@box\the\c@page}{%
+ \@latex@info@no@line{Alloc savebox for page \the\c@page}%
+ \expandafter\newsavebox\csname out@box\the\c@page\endcsname
+ }{%
+ \@latex@info@no@line{Savebox for page \the\c@page\space already exist}%
+ }%
+ \@latex@info@no@line{Save page \the\c@page}%
+ \global\setbox\csname out@box\the\c@page\endcsname=\copy\AtBeginShipoutBox
+ \global\c@copy@pages=\c@page
+}
+
+\newcommand*\LetterCopyMarker{%
+ \put(0.5\paperwidth,-0.5\paperheight){%
+ \makebox(0,0)[c]{\resizebox{\textwidth}{!}{\rotatebox{45}{%
+ \textsf{\textbf{\color{lightgray}\strut\usekomavar*{copy}}}}}}%
+ }%
+}
+
+\newkomavar[\copyname]{copy}
+\newcommand*\copyname{Copy}
+
+\defcaptionname{american,australian,british,canadian,%
+ english,newzealand,UKenglish,USenglish}\copyname{Copy}%
+\defcaptionname{german,ngerman,austrian,naustrian,%
+ swissgerman,nswissgerman}\copyname{Kopie}
+\defcaptionname{acadian,canadien,francais,french}\copyname{Copie}
+\defcaptionname{spanish,italian,portugese}\copyname{Copia}
+\defcaptionname{polish}\copyname{Kopia}
+\defcaptionname{russian}\copyname{Копия}
+
+\endinput
diff --git a/macros/latex/contrib/scrlttr2copy/letter-copy-test.pdf b/macros/latex/contrib/scrlttr2copy/letter-copy-test.pdf
new file mode 100644
index 0000000000..49e0a9b90a
--- /dev/null
+++ b/macros/latex/contrib/scrlttr2copy/letter-copy-test.pdf
Binary files differ
diff --git a/macros/latex/contrib/scrlttr2copy/letter-copy-test.tex b/macros/latex/contrib/scrlttr2copy/letter-copy-test.tex
new file mode 100644
index 0000000000..5c265efa8b
--- /dev/null
+++ b/macros/latex/contrib/scrlttr2copy/letter-copy-test.tex
@@ -0,0 +1,53 @@
+
+\documentclass[%
+,copy
+,ngerman
+%,english
+,fontsize=11pt
+,twoside=true
+,enlargefirstpage
+]{scrlttr2}
+\usepackage[utf8]{inputenc}
+\usepackage{babel}
+\usepackage{blindtext}
+
+\setkomavar{fromname}{Peter Silie}
+\setkomavar{fromaddress}{Hinter dem Tal 2\\
+54321 Musterheim}
+\setkomavar{date}{26.\,5.\,2015}
+
+%\setkomavar*{copy}{Zweitschrift}
+
+\begin{document}
+
+\setkomavar{subject}{Ihr Schreiben vom 11.\,5.\,2015}
+
+\begin{letter}{%
+Ellen Bogen \\
+Dorfstraße 1\\
+12345 Musterhausen
+}
+
+\opening{Sehr geehrte Frau Bogen,}
+
+\blindtext[4]
+
+\closing{Mit freundlichen Grüßen}
+
+\end{letter}
+
+\begin{letter}{%
+Ellen Bogen \\
+Dorfstraße 1\\
+12345 Musterhausen
+}
+
+\opening{Sehr geehrte Frau Bogen,}
+
+\blindtext[22]
+
+\closing{Mit freundlichen Grüßen}
+
+\end{letter}
+
+\end{document}