lib/tex/iletter.cls

   1 %
   2 % Author: Juergen Vigna (jug@sad.it)
   3 %
   4 % Defining some modifications and some new Commands for an
   5 % italian version to write letters.
   6 %
   7 \NeedsTeXFormat{LaTeX2e}
   8 \ProvidesClass{iletter}[1997/06/04 v1.0 Italian Style Letter]
   9 \LoadClassWithOptions{letter}
  10 \setlength\topmargin{-1cm}
  11 \setlength\oddsidemargin{-1cm}
  12 %Grundzeilenabstand 1/6in = 4,23mm (DIN 2107,2142)
  13 \newdimen\GZA
  14 \GZA=1in
  15 \divide\GZA by 6
  16 \newcommand*{\data}[1]{\def\mydata{#1}}
  17 \newcommand*{\citta}[1]{\def\mycitta{#1}}
  18 \newcommand*{\oggetto}[1]{\def\myoggetto{#1}}
  19 \data{}
  20 \citta{}
  21 \oggetto{}
  22 %Nuova definizione del commando opening
  23 \renewcommand*{\opening}[1]{%
  24 %%    \thispagestyle{plain}
  25     \unitlength1mm
  26     \begin{picture}(0,0)
  27         %Absenderadresse und Datum
  28         \put(0,12.69){\parbox[t]{1\textwidth}{\parbox[t]{3in}{\fromaddress}}}
  29         %Empfaengeradresse
  30 %%        \put(90,-21.15){\parbox[t]{3in}{\mbox{}\par\toname \\ \toaddress}}
  31         \put(90,-15.15){\parbox[t]{3in}{\mbox{}\par\toname \\ \toaddress}}
  32     \end{picture}%
  33     \mbox{}\par
  34     \vspace{-1\parskip}
  35     \vspace{14\GZA}
  36     \ifx\mydata\@empty\relax
  37         \ifx\mycitta\@empty\relax\else\mycitta, \@date\fi
  38     \else\relax
  39         \ifx\mycitta\@empty\relax\mydata\else\mycitta, \mydata\fi
  40     \fi
  41     \mbox{} \par
  42     %Anpassung wegen der verschiedenen Grundzeilenabstaende
  43     \ifcase\@ptsize\vspace{0.045pt}\or\vspace{-1.555pt}\or\vspace{-2.955pt}\or\fi
  44     \ifx\myoggetto\@empty\relax\else Oggetto: \myoggetto\fi
  45     \mbox{} \par
  46     \vspace{-1\parskip}
  47     \vspace{2\GZA}
  48     %Anpassung wegen der verschiedenen Grundzeilenabstaende
  49     \ifcase\@ptsize\vspace{0.045pt}\or\vspace{-1.555pt}\or\vspace{-2.955pt}\or\fi
  50     \newcommand{\Apertura}{#1}
  51     \ifx\Apertura\empty \else #1\par\fi\nobreak
  52 }
  53
  54 % Redefinizione del commando closing
  55 \renewcommand{\closing}[1]{\par\nobreak\vspace{\parskip}%
  56     \stopbreaks
  57     \noindent
  58     \ignorespaces #1\\[6\medskipamount]%
  59 %%    \ifx\@empty\fromaddress\else
  60     \hspace*{\longindentation}% \fi
  61     \parbox{\indentedwidth}{%
  62         \raggedright
  63         \ifx\@empty\fromsig
  64              \fromname
  65         \else \fromsig \fi\strut
  66     }%
  67     \par
  68 }