diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/calendar/filoaddr.cls')
-rw-r--r-- | Master/texmf-dist/tex/latex/calendar/filoaddr.cls | 78 |
1 files changed, 78 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/calendar/filoaddr.cls b/Master/texmf-dist/tex/latex/calendar/filoaddr.cls new file mode 100644 index 00000000000..398c87292b5 --- /dev/null +++ b/Master/texmf-dist/tex/latex/calendar/filoaddr.cls @@ -0,0 +1,78 @@ +\NeedsTeXFormat{LaTeX2e}[1995/06/01] +\ProvidesClass{filoaddr} + [1998/01/17 18:15:06 3.1.1.1 Filofax address pages (Frank Bennett)] +\DeclareOption{fourcolumn}% + {\PassOptionsToPackage{\CurrentOption}{autofilo}} +\DeclareOption*{\PassOptionsToClass{\CurrentOption}{article}} +\ProcessOptions +\LoadClass{article} +\RequirePackage{rotating} +\RequirePackage{url} +\def\mygobble#1{} +\newlength\templen +\newlength\mytemplength +\newlength\descheight +\newlength\myparwidth +\newlength\descwidth +\newlength\biggerwidth +\newlength\myentryheight +\newlength\myparheight +\newlength\mylinewidth +\def\entry#1{% +\vbox{% +\vskip2pt +\topline +\vskip 2pt +\parbox{\linewidth}{% +\raggedright% +\small#1} +\vskip 1pt +\bottomline}} +\def\topline{% + \vbox to0pt{% + \hbox to\linewidth{% + \hskip-2.4pt% + \vrule width0.4pt height0pt depth7pt% + \vrule width\mylinewidth depth0.4pt height0pt% + \vrule width0.4pt height0pt depth7pt\hskip-2.4pt}% + \vskip-7pt}} +\def\bottomline{% + \vbox to0pt{% + \vskip-7pt + \hbox to\linewidth{% + \hskip-2.4pt% + \vrule width0.4pt height7pt depth0pt% + \vrule width\mylinewidth depth0.4pt height0pt% + \vrule width0.4pt height7pt depth0pt% + \hskip-2.4pt}}} +\def\address#1#2{% + \settoheight\myparheight{\vbox{% + \boxmaxdepth0pt% + \parbox{\myparwidth}{\raggedright #2}}}% + \settowidth\descwidth{\small\textbf{#1}}% + \ifnum\descwidth>\myparheight\biggerwidth\descwidth\else% + \biggerwidth\myparheight\fi% + \vbox{\vskip3pt% + \hbox to\linewidth{% + \hskip3pt% + \vbox to\biggerwidth{% + \vfil% + \hbox to\descheight{% + \begin{sideways}{\small\textbf{#1}}\end{sideways}% + \hfil}% + \vfil}% + \hskip2pt% + \vbox to\biggerwidth{% + \vfil% + \hbox to\myparwidth{% + \parbox{\myparwidth}{\raggedright #2}}% + \vfil}}}} +\def\addresses#1{% + \autofilo{#1} + \settoheight\descheight{\vbox{\boxmaxdepth0pt{\small\textbf{Yy}}}} + \myparwidth\linewidth% + \advance\myparwidth by-\descheight\relax% + \advance\myparwidth by-5pt\relax% + \mylinewidth\linewidth + \advance\mylinewidth by4pt\relax} +\def\endaddresses{\endautofilo} |