Re: bbdb-print -> filofax?

[Harald Backer]

>>>>> "SN" == Stan Norton <[EMAIL PROTECTED]> writes:

    SN> Has anyone hacked bbdb-print to output filofax (~ 95 x 175 mm)
    SN> pages?

I hacked up something for my filofax pocket, see attached tex file.

I use pstops from psutils to get the propper size and layout on the
printer.

Any better solution is appreciated.

Regards, Harald Backer                  

SINTEF Automatic Control                : Phone +47 7359 4375
The Norwegian Institute of Technology   : Fax   +47 7359 4399
N-7034 Trondheim                        : [EMAIL PROTECTED]
NORWAY


%%% bbdb-print.tex
%%% For instructions and copyright, see bbdb-print.el, which is the
%%% companion to this file, or mail [EMAIL PROTECTED]

%%%%harald
\voffset=-2cm
\hoffset=-2cm
\vsize=27cm

\font\rm=cmr12 \rm
\font\bf=cmbx12
\font\it=cmti12
\font\tt=cmtt12
\font\bigbf=cmbx14 scaled \magstep3
\raggedright   % some might like \raggedbottom
\tolerance=5000
\parskip=0pt\baselineskip=13pt
\leftskip=1em\parindent=-1em

\def\\{\par}

\def\separator#1{\bigbreak\goodbreak
    \hrule
    \line{\vrule
          \hfill
          \vbox{\smallskip
                \hbox{\bigbf#1}
                \smallskip}
          \hfill
          \vrule}
    \hrule
    \bigbreak}

\def\name#1{\line{\bf#1\dotfill}}

\def\comp#1{#1\\}

\def\phone#1{\hfill#1\\}

\def\email#1{\smallbreak{\tt#1}\\}

\def\address#1{\smallbreak#1\smallbreak}

\def\note#1#2{{\smallbreak\leftskip=2em\parindent=-1em
              \noindent\hskip-\leftskip{\it#1:  } #2\\}}

\def\notes#1{\smallbreak{\it(#1)}\\}

\def\beginrecord{\bigbreak}
\def\endrecord{\bigbreak}

%%%
%%% Define Three-column format
%%%

\newdimen\fullhsize
%%%%\fullhsize=6.5in
\fullhsize=19cm
\hsize=9cm
\let\lr=L \newbox\leftcolumn \newbox\midcolumn
\output={\if L\lr
%%%%            \global\setbox\leftcolumn=\columnbox \global\let\lr=M
%%%%    \else \if M\lr
                \global\setbox\midcolumn=\columnbox \global\let\lr=R
        \else
                \tripleformat \global\let\lr=L
        \fi%%%%        \fi
        \ifnum\outputpenalty>-20000 \else\dosupereject\fi}
\def\tripleformat
       {\shipout\vbox{\makeheadline
                \fullline{\box\leftcolumn\hfil
                 \box\midcolumn\hfil\columnbox}
                \makefootline}
        \advancepageno}
\def\columnbox{\leftline{\pagebody}}
\def\fullline{\hbox to \fullhsize}
\def\byecolumns
        {\vfill\supereject
         \if L\lr \else\null\vfill\eject\fi
         \if L\lr \else\null\vfill\eject\fi}