From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- macros/latex/contrib/scrlttr2copy/README.md | 12 ++++ macros/latex/contrib/scrlttr2copy/copy.lco | 76 +++++++++++++++++++++ .../contrib/scrlttr2copy/letter-copy-test.pdf | Bin 0 -> 88407 bytes .../contrib/scrlttr2copy/letter-copy-test.tex | 53 ++++++++++++++ 4 files changed, 141 insertions(+) create mode 100644 macros/latex/contrib/scrlttr2copy/README.md create mode 100644 macros/latex/contrib/scrlttr2copy/copy.lco create mode 100644 macros/latex/contrib/scrlttr2copy/letter-copy-test.pdf create mode 100644 macros/latex/contrib/scrlttr2copy/letter-copy-test.tex (limited to 'macros/latex/contrib/scrlttr2copy') 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 Binary files /dev/null and b/macros/latex/contrib/scrlttr2copy/letter-copy-test.pdf 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} -- cgit v1.2.3