Skip to content
Snippets Groups Projects
Commit 3467ca8b authored by Rolf Niepraschk's avatar Rolf Niepraschk
Browse files

Layoutanpassungen, BLN/BS, serif/sanserif + allerlei

parent a21db574
No related branches found
No related tags found
No related merge requests found
......@@ -2,38 +2,38 @@
\documentclass[%
,ngerman
,visualize
,twoside
,serif
,BLN
]{ptbletter}
\usepackage{blindtext}
\setkomavar{backaddress}{PTB\\Abbestr. 2--12\\10587 Berlin}
%\setkomavar{backaddress}{PTB\\Postfach 33 45\\38023 Braunschweig}
\yourref{hugo}
\yourmail{2015-05-08}
\setkomavar{yourref}{hugo}
\setkomavar{yourmail}{2015-05-08}
\handledby{Peter Silie}
\myref{pesi}
\mymail{2015-05-14}
\myphone{7316}
\myfax{7777}
\myemail{Peter.Silie@ptb.de}
\setkomavar{handledby}{Peter Silie}
\setkomavar{myref}{pesi}
\setkomavar{mymail}{2015-05-14}
\setkomavar{myphone}{7316}
\setkomavar{myfax}{7777}
\setkomavar{fromemail}{Peter.Silie@ptb.de}
\subject{Neuordnung der Welt}
\setkomavar{subject}{Neuordnung der Welt}
\setkomavar{date}{2015-05-21}
\date{2015-05-21}
\begin{document}
\begin{letter}{%
Petra Mustermann\\
Vor dem Berg 1\\
12345 Musterhausen%
12345 Musterhausen
}
\opening{Liebe Vereinsvorsitzende,}
\blindtext[2]
\blindtext[12]
\end{letter}
......
......@@ -4,13 +4,29 @@
\NeedsTeXFormat{LaTeX2e}[1999/12/01]
\ProvidesClass{ptbletter}
[2015/05/08 v0.1a PTB-Brief-Klasse (RN)]
[2015/05/22 v0.1b PTB-Brief-Klasse (RN)]
\let\ptb@tempdima=\@ovxx
\let\ptb@tempdimb=\@ovyy
\let\ptb@tempdimc=\@ovdx
\let\ptb@tempdimd=\@clnwd
\let\ptb@tempdime=\@clnht
\let\ptb@tempdimf=\@dashdim
\newif\ifptb@BLN \ptb@BLNtrue
\newif\ifPTB@serif \PTB@seriffalse
% TODO: BS, BLN, serif, sanserif
\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{BS}{\ptb@BLNfalse}
\DeclareOption{BLN}{\ptb@BLNtrue}
\DeclareOption{sanserif}{\PTB@seriffalse}
\DeclareOption{serif}{\PTB@seriftrue}
\DeclareOption{visualize}{%
\PassOptionsToClass{\CurrentOption}{scrlttr2}
......@@ -30,23 +46,29 @@
\ProcessOptions\relax
\LoadClass[%
,fontsize=10pt
,fontsize=11pt
,DINmtext
,fromrule=off% ???
,backaddress=plain
,refline=nodate
,enlargefirstpage
]{scrlttr2}
% Texbreite beibehalten, linken Rand anpassen
\ptb@tempdima=\textwidth
\RequirePackage[verbose,inner=72bp,textwidth=\ptb@tempdima]{geometry}
\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}
\RequirePackage{ifxetex,ifluatex,url,array}
\newif\ifXeOrLua \XeOrLuafalse
\ifxetex\XeOrLuatrue\else\ifluatex\XeOrLuatrue\fi\fi
% TODO: Mathematik?
\ifXeOrLua% XeLaTeX oder luaLaTeX
\RequirePackage{fontspec}
\setmainfont{TeX Gyre Pagella}[Ligatures=TeX]
......@@ -68,6 +90,14 @@
\RequirePackage[ttdefault=true,scale=1.034]{AnonymousPro}
\fi
\def\tiny{\@setfontsize\tiny{7}{8.17}}
\ifPTB@serif
\renewcommand*\familydefault{\rmdefault}
\else
\renewcommand*\familydefault{\sfdefault}
\fi
%\RequirePackage{etoolbox}
%\preto\@classoptionslist{ngerman,}
% Ohne Sprachangabe "deutsch" verwenden. Bessere Lösung?
......@@ -86,41 +116,111 @@
\RequirePackage[babel=once]{csquotes}
}
\@setplength{toaddrhpos}{72bp}
\@setplength{toaddrvpos}{123bp}
\@setplength{toaddrvpos}{124bp}
%\@setplength{toaddrwidth}{85mm}
\@setplength{lochpos}{-354bp}% "-" --> vom linken Blattand aus
\@setplength{locvpos}{146bp}% --> vom oberen Blattand aus
\@setplength{locwidth}{212bp}
\@setplength{locheight}{132bp}
\@setplength{locheight}{135bp}
%\@setplength{refaftervskip}{75bp}
%\@setplength{refhpos}{72bp}
\@setplength{refvpos}{304bp}
%\@setplength{refwidth}{40mm}
\@setplength{refaftervskip}{\z@}
\@setplength{firstfoothpos}{72bp}
\@setplength{firstfootvpos}{764bp}
\@setplength{firstheadwidth}{469bp}
\@setplength{firstfootwidth}{\useplength{firstheadwidth}}
\footskip= 30bp %
\@setplength{refaftervskip}{75bp}
\@setplength{subjectaftervskip}{23bp}
%\@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}
\setkomafont{refname}{\sffamily\tiny}
\setkomafont{refvalue}{\normalfont}
\setkomavar{location}{%
\extrarowheight=-1bp %
\begin{tabular}{@{}>{\usekomafont{refname}}l<{:}@{~\,}>{\usekomafont{refvalue}}l@{}}
\usekomavar*{yourref} & \usekomavar{yourref}\\
\usekomavar*{yourmail} & \usekomavar{yourmail}\\
\usekomavar*{myref} & \usekomavar{myref}\\
\usekomavar*{mymail} & \usekomavar{mymail}\\
\multicolumn{2}{@{}l@{}}{} \\
\usekomavar*{handledby} & \usekomavar{handledby}\\
\usekomavar*{myphone} & \usekomavar{myphone}\\
\usekomavar*{myfax} & \usekomavar{myfax}\\
\usekomavar*{fromemail} & \usekomavar{fromemail}\\
\multicolumn{2}{@{}l@{}}{} \\
\usekomavar*{date} & \usekomavar{date}
\end{tabular}
}
\setkomavar{firstfoot}{% TODO: engl/dt
\parbox{\useplength{firstfootwidth}}{%
\sffamily\tiny
\begin{tabular}{@{}l@{}}
Hausadresse, Lieferanschrift:\\
\ifptb@BLN Abbestr. 2--12 \else Bundesallee 100 \fi \\
\ifptb@BLN 10587 Berlin \else 38116 Braunschweig\fi \\
DEUTSCHLAND
\end{tabular}%
\hfill
\begin{tabular}{@{}l@{~}l@{}}
Telefon: & \ifptb@BLN +49 30 3481-0 \else +49 531 592-0 \fi \\
Telefax: & \ifptb@BLN +49 30 3481-7490 \else +49 531 592-9292 \fi \\
E-Mail: & \ifptb@BLN poststelle\_ib@ptb.de \else poststelle@ptb.de \fi \\
Internet: & http://www.ptb.de
\end{tabular}%
\hfill
\begin{tabular}{@{}l@{~}l@{}}
\multicolumn{2}{@{}l@{}}{Deutsche Bundesbank, Filiale Leipzig} \\
IBAN: & DE38 8600 0000 0086 0010 40 \\
BIC: & MARKDEF1860 \\
VAT-Nr.: & DE 811 240 952
\end{tabular}%
\hfill
\begin{tabular}{@{}l@{}}
\ifptb@BLN PTB Braunschweig \else PTB Berlin-Charlottenburg \fi \\
\ifptb@BLN Bundesallee 100 \else Abbestr. 2--12 \fi \\
\ifptb@BLN 38116 Braunschweig \else 10587 Berlin \fi \\
DEUTSCHLAND
\end{tabular}%
\hfill \mbox{}
}%
}
\setkomavar{backaddressseparator}{\,\,\textbullet\,\,}
\ifptb@BLN
\setkomavar{backaddress}{PTB\\Abbestr. 2--12\\10587 Berlin}
\else
\setkomavar{backaddress}{PTB\\Postfach 33 45\\38023 Braunschweig}
\fi
\newcommand*\handledby[1]{\setkomavar{handledby}{#1}}
\newcommand*\myref[1]{\setkomavar{myref}{#1}}
\newcommand*\mymail[1]{\setkomavar{mymail}{#1}}
\newcommand*\myphone[1]{\setkomavar{myphone}{#1}}
\newcommand*\myfax[1]{\setkomavar{myfax}{#1}}
\newcommand*\myemail[1]{\setkomavar{fromemail}{#1}}
\newcommand*\yourref[1]{\setkomavar{yourref}{#1}}
\newcommand*\yourmail[1]{\setkomavar{yourmail}{#1}}
\newcommand*\backaddress[1]{\setkomavar{backaddress}{#1}}
\newcommand*\subject[1]{\setkomavar{subject}{#1}}
\renewcommand*\date[1]{\setkomavar{date}{#1}}
\newkomavar[\mymailname]{mymail}
\newkomavar[\myphonename]{myphone}
\newkomavar[\myfaxname]{myfax}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment