summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/calendar/filoaddr.cls
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/calendar/filoaddr.cls')
-rw-r--r--Master/texmf-dist/tex/latex/calendar/filoaddr.cls78
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}