diff --git a/antragsbestaetigung/ptbletter-test.tex b/antragsbestaetigung/ptbletter-test.tex new file mode 100644 index 0000000000000000000000000000000000000000..2f87688a9610acd82b075733fb68c3189d3e2398 --- /dev/null +++ b/antragsbestaetigung/ptbletter-test.tex @@ -0,0 +1,40 @@ + +\documentclass[% +,ngerman +,visualize +]{ptbletter} + +\usepackage{blindtext} + +\setkomavar{backaddress}{PTB\\Abbestr. 2--12\\10587 Berlin} +%\setkomavar{backaddress}{PTB\\Postfach 33 45\\38023 Braunschweig} + +\setkomavar{yourref}{hugo} +\setkomavar{yourmail}{2015-05-08} + +\setkomavar{handledby}{Peter Silie} +\setkomavar{myref}{pesi} +\setkomavar{mymail}{2015-05-14} +\setkomavar{myphone}{7316} +\setkomavar{myfax}{7777} +\setkomavar{fromemail}{Peter.Silie@ptb.de} + +\setkomavar{subject}{Neuordnung der Welt} + +\setkomavar{date}{2015-05-21} + +\begin{document} + +\begin{letter}{% +Petra Mustermann\\ +Vor dem Berg 1\\ +12345 Musterhausen% +} + +\opening{Liebe Vereinsvorsitzende,} + +\blindtext[2] + +\end{letter} + +\end{document} diff --git a/antragsbestaetigung/ptbletter.cls b/antragsbestaetigung/ptbletter.cls new file mode 100644 index 0000000000000000000000000000000000000000..c615e2eaafe42a09ea54b2c8ce075b1f97302cfc --- /dev/null +++ b/antragsbestaetigung/ptbletter.cls @@ -0,0 +1,157 @@ +% Rolf Niepraschk, Rolf.Niepraschk@ptb.de + +\setcounter{errorcontextlines}{100} \listfiles + +\NeedsTeXFormat{LaTeX2e}[1999/12/01] +\ProvidesClass{ptbletter} + [2015/05/08 v0.1a PTB-Brief-Klasse (RN)] + +\DeclareOption{german}{\def\ptb@lang{main=ngerman}} +\DeclareOption{ngerman}{\def\ptb@lang{main=ngerman}} +\DeclareOption{de}{\def\ptb@lang{main=ngerman}} +\DeclareOption{english}{\def\ptb@lang{main=english}} +\DeclareOption{en}{\def\ptb@lang{main=english}} + +\DeclareOption{visualize}{% + \PassOptionsToClass{\CurrentOption}{scrlttr2} + \AtEndOfClass{% + \showfields{head,address,location,refline,foot}% + %\showfields{refline}% + \addtokomafont{field}{\color{lightgray}}% + \setshowstyle{rule}% + %\setshowstyle{edges}% + %\setshowstyle{frame}% default + } +} + +\DeclareOption*{\PassOptionsToClass{\CurrentOption}{scrlttr2}} + +\ExecuteOptions{pagesize} +\ProcessOptions\relax + +\LoadClass[% +,fontsize=10pt +,DINmtext +,fromrule=off% ??? +,backaddress=plain +,refline=nodate +]{scrlttr2} + +\RequirePackage{hyphsubst}% Trennregeln austauschen +\HyphSubstIfExists{ngerman-x-latest}{% + \HyphSubstLet{ngerman}{ngerman-x-latest}}{} +\HyphSubstIfExists{german-x-latest}{% + \HyphSubstLet{german}{german-x-latest}}{} + +\RequirePackage{ifxetex,ifluatex,url} +\newif\ifXeOrLua \XeOrLuafalse +\ifxetex\XeOrLuatrue\else\ifluatex\XeOrLuatrue\fi\fi + +\ifXeOrLua% XeLaTeX oder luaLaTeX + \RequirePackage{fontspec} + \setmainfont{TeX Gyre Pagella}[Ligatures=TeX] + \setsansfont{TeX Gyre Heros}[Scale=MatchUppercase,Ligatures=TeX] + \setmonofont{AnonymousPro-Regular}[% + Extension = .ttf, + BoldFont = AnonymousPro-Bold, + ItalicFont = AnonymousPro-Italic, + BoldItalicFont = AnonymousPro-BoldItalic, + Scale = MatchLowercase + ] +\else + \RequirePackage[utf8]{inputenc} + \RequirePackage[T1]{fontenc} + \RequirePackage{textcomp} + \RequirePackage{mathpazo} + \RequirePackage{tgpagella} + \RequirePackage{tgheros} + \RequirePackage[ttdefault=true,scale=1.034]{AnonymousPro} +\fi + +%\RequirePackage{etoolbox} +%\preto\@classoptionslist{ngerman,} +% Ohne Sprachangabe "deutsch" verwenden. Bessere Lösung? + +\RequirePackage[\ptb@lang]{babel} +\RequirePackage{iflang} +\IfLanguageName{ngerman}{% + \typeout{german} + \RequirePackage[babel=once,german=guillemets]{csquotes} + \AtEndOfClass{\shorthandon{"}} + \defineshorthand{"`}{\openautoquote} + \defineshorthand{"'}{\closeautoquote} +% \MakeAutoQuote{»}{«} +}{% + \typeout{english} + \RequirePackage[babel=once]{csquotes} +} +\@setplength{toaddrhpos}{72bp} +\@setplength{toaddrvpos}{123bp} +%\@setplength{toaddrwidth}{85mm} + +\@setplength{lochpos}{-354bp}% "-" --> vom linken Blattand aus +\@setplength{locvpos}{146bp}% --> vom oberen Blattand aus +\@setplength{locwidth}{212bp} +\@setplength{locheight}{132bp} + +\@setplength{refaftervskip}{75bp} + +%\@setplength{refvpos}{1sp} +%\@setplength{refhpos}{1sp} +%\@setplength{refwidth}{110bp} +\removereffields + +\setkomavar{backaddressseparator}{\,\,\textbullet\,\,} + +\addtokomafont{addressee}{\sffamily} +\addtokomafont{refvalue}{\normalfont} + +\setkomavar{location}{% TODO: Tabelle! +\raggedright\usekomafont{refvalue}% +{\usekomafont{refname}\usekomavar*{yourref}:}~\usekomavar{yourref}\\ +{\usekomafont{refname}\usekomavar*{yourmail}:}~\usekomavar{yourmail}\\ +{\usekomafont{refname}\usekomavar*{myref}:}~\usekomavar{myref}\\ +{\usekomafont{refname}\usekomavar*{mymail}:}~\usekomavar{mymail}\\ +~\\ +{\usekomafont{refname}\usekomavar*{handledby}:}~\usekomavar{handledby}\\ +{\usekomafont{refname}\usekomavar*{myphone}:}~\usekomavar{myphone}\\ +{\usekomafont{refname}\usekomavar*{myfax}:}~\usekomavar{myfax}\\ +{\usekomafont{refname}\usekomavar*{fromemail}:}~\usekomavar{fromemail}\\ +~\\ +{\usekomafont{refname}\usekomavar*{date}:}~\usekomavar{date} +} + +\newkomavar[\mymailname]{mymail} +\newkomavar[\myphonename]{myphone} +\newkomavar[\myfaxname]{myfax} +\newkomavar[\handledbyname]{handledby} + +\defcaptionname{american,australian,british,canadian,% + english,newzealand,UKenglish,USenglish}\yourrefname{Your reference}% +\defcaptionname{american,australian,british,canadian,% + english,newzealand,UKenglish,USenglish}\yourmailname{My letter of}% +\defcaptionname{american,australian,british,canadian,% + english,newzealand,UKenglish,USenglish}\myrefname{My reference}% +\defcaptionname{american,australian,british,canadian,% + english,newzealand,UKenglish,USenglish}\myphonename{Telephone}% +\defcaptionname{american,australian,british,canadian,% + english,newzealand,UKenglish,USenglish}\myfaxname{Fax}% +\defcaptionname{american,australian,british,canadian,% + english,newzealand,UKenglish,USenglish}\emailname{E-mail}% +\defcaptionname{american,australian,british,canadian,% + english,newzealand,UKenglish,USenglish}\handledbyname{Handled by}% + +\defcaptionname{german,ngerman,austrian,naustrian,% + swissgerman,nswissgerman}\yourmailname{Ihre Nachricht vom}% +\defcaptionname{german,ngerman,austrian,naustrian,% + swissgerman,nswissgerman}\myrefname{Mein Zeichen}% +\defcaptionname{german,ngerman,austrian,naustrian,% + swissgerman,nswissgerman}\mymailname{Meine Nachricht vom}% +\defcaptionname{german,ngerman,austrian,naustrian,% + swissgerman,nswissgerman}\myphonename{Telefondurchwahl}% +\defcaptionname{german,ngerman,austrian,naustrian,% + swissgerman,nswissgerman}\myfaxname{Telefaxdurchwahl}% +\defcaptionname{german,ngerman,austrian,naustrian,% + swissgerman,nswissgerman}\handledbyname{Bearbeitet von}% + +\endinput