blob: 398c87292b5d0ada824077c929b54a4d4cdf1caa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
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}
|
