scrlttr2copy (14feb16)

git-svn-id: svn://tug.org/texlive/trunk@39734 c570f23f-e606-0410-a88d-b1316a301751

8 files changed, 144 insertions, 1 deletions

diff --git a/Master/texmf-dist/doc/latex/scrlttr2copy/README.md b/Master/texmf-dist/doc/latex/scrlttr2copy/README.md
new file mode 100644
index 00000000000..77e30b6f8e7
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/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/Master/texmf-dist/doc/latex/scrlttr2copy/letter-copy-test.pdf b/Master/texmf-dist/doc/latex/scrlttr2copy/letter-copy-test.pdf
new file mode 100644
index 00000000000..49e0a9b90aa
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/scrlttr2copy/letter-copy-test.pdf
diff --git a/Master/texmf-dist/doc/latex/scrlttr2copy/letter-copy-test.tex b/Master/texmf-dist/doc/latex/scrlttr2copy/letter-copy-test.tex
new file mode 100644
index 00000000000..5c265efa8bd
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/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}
diff --git a/Master/texmf-dist/tex/latex/scrlttr2copy/copy.lco b/Master/texmf-dist/tex/latex/scrlttr2copy/copy.lco
new file mode 100644
index 00000000000..e3213a9f248
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/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/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index 1836b9bd41a..69c6a8f3a33 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -493,7 +493,7 @@ my @TLP_working = qw(
     sauter sauterfonts savefnmark savesym savetrees
     scale scalebar scalerel scanpages
     schemabloc schemata sclang-prettifier schule schulschriften schwalbe-chess
-    sciposter screenplay screenplay-pkg scrjrnl
+    sciposter screenplay screenplay-pkg scrjrnl scrlttr2copy
     sdrt sduthesis
     secdot section sectionbox sectsty seealso
     selectp selnolig semantic semaphor
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index d4ad33c71a4..955aefd0634 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -1680,6 +1680,7 @@ $standardtex='\.(.bx|code\.tex|cfg|sty|clo|ldf|cls|def|fd|fontspec|cmap|4ht)$';
  'ruhyphen',    '\.tex',
  'sa-tikz',     'tikzlib.*tex|' . $standardtex,
  'sansmath',    '^..[^s].*\.sty', # not miscdoc.sty
+ 'scrlttr2copy','\.lco',
  'selnolig',    '\.lua|' . $standardtex,
  'seminar',     '\.bug|\.bg2|\.cls|\.sty|2up.tex',
  'shade',       'shade\.tex',  # not description.tex
diff --git a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
index a63353a01d2..cf31f5a4768 100644
--- a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
@@ -837,6 +837,7 @@ depend scale
 depend scalebar
 depend scalerel
 depend scanpages
+depend scrlttr2copy
 depend sdrt
 depend secdot
 depend sectionbox
diff --git a/Master/tlpkg/tlpsrc/scrlttr2copy.tlpsrc b/Master/tlpkg/tlpsrc/scrlttr2copy.tlpsrc
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/scrlttr2copy.tlpsrc