From 3ca7e625a1d820c288b236fa606564082d6eb19d Mon Sep 17 00:00:00 2001
From: niepra01 <rolf.niepraschk@ptb.de>
Date: Tue, 26 May 2015 13:20:50 +0200
Subject: [PATCH] shorthand

---
 ptbletter/ptbletter.cls | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/ptbletter/ptbletter.cls b/ptbletter/ptbletter.cls
index 0c8a9f4..86429b7 100644
--- a/ptbletter/ptbletter.cls
+++ b/ptbletter/ptbletter.cls
@@ -88,14 +88,6 @@
   \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?
@@ -103,16 +95,24 @@
 \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}
+  \useshorthands*{"}
 }
+\MakeAutoQuote{»}{«}
+\defineshorthand{"`}{\openautoquote}
+\defineshorthand{"'}{\closeautoquote}
+\AtEndOfClass{\shorthandon{"}}
+
+\def\tiny{\@setfontsize\tiny{7}{8.17}}
+
+\ifptb@serif
+  \renewcommand*\familydefault{\rmdefault}
+\else
+  \renewcommand*\familydefault{\sfdefault}
+\fi
+
 \@setplength{toaddrhpos}{72bp}
 \@setplength{toaddrvpos}{124bp}
 %\@setplength{toaddrwidth}{85mm}
@@ -158,7 +158,7 @@
     \usekomavar*{handledby} & \usekomavar{handledby}\\
     \usekomavar*{myphone} & \usekomavar{myphone}\\
     \usekomavar*{myfax} & \usekomavar{myfax}\\
-    \usekomavar*{fromemail} & \usekomavar{fromemail}\\
+    \usekomavar*{emailseparator} & \usekomavar{fromemail}\\
     \multicolumn{2}{@{}l@{}}{} \\
     \usekomavar*{date} & \usekomavar{date}
   \end{tabular}
-- 
GitLab