From 5cee021f41816ad2d99d3276e020be283fc1247f Mon Sep 17 00:00:00 2001 From: Matt Simmons Date: Mon, 6 Oct 1997 00:48:35 +0000 Subject: New version of bbdb-print from Boris Goldowsky --- tex/bbdb-cols.tex | 61 ++++++++++++++++++++++++++++++------------------------ tex/bbdb-print.tex | 43 ++++++++++++++++++++------------------ 2 files changed, 57 insertions(+), 47 deletions(-) diff --git a/tex/bbdb-cols.tex b/tex/bbdb-cols.tex index b9a3d2b..4102d0f 100644 --- a/tex/bbdb-cols.tex +++ b/tex/bbdb-cols.tex @@ -1,13 +1,13 @@ -%%% multicol.tex - multiple columns per page, multiple pages per sheet. +%%% bbdb-cols.tex - multiple columns per page, multiple pages per sheet. %%% Authors: Luigi Semenzato %%% Boris Goldowsky %%% Copyright (C) 1993 Boris Goldowsky -%%% Version: 3.0; 21Mar94 +%%% Version: 3.92; 5Jan95 %%% Commentary: %%% -%%% Put \input multicol.tex +%%% Put \input bbdb-cols.tex %%% at the beginning of your TeX file. %%% Then \twocol, \threecol, or \fourcol for multi-column output %%% or \gridformat (4x3 grid of small credit-card-sized pages) @@ -15,27 +15,31 @@ %%% In any case you will need to put \endcol at the end of the %%% document, before \bye. +%%% For instructions on using this format file with BBDB, see bbdb-print.el +%%% which should have come bundled with this file. The complete bbdb-print +%%% package is also available via anonymous ftp at: +%%% /cs.rochester.edu:/pub/u/boris/bbdb-print.tar.gz + %%% This file is part of the bbdb-print extensions to the Insidious %%% Big Brother Database, which is for use with GNU Emacs. %%% -%%% The Insidious Big Brother Database is free software; you can redistribute -%%% it and/or modify it under the terms of the GNU General Public License as -%%% published by the Free Software Foundation; either version 1, or (at your -%%% option) any later version. +%%% This program is free software; you can redistribute it and/or +%%% modify it under the terms of the GNU General Public License as +%%% published by the Free Software Foundation; either version 1, or +%%% (at your option) any later version. %%% -%%% BBDB is distributed in the hope that it will be useful, but WITHOUT ANY -%%% WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS -%%% FOR A PARTICULAR PURPOSE. See the GNU General Public License for more -%%% details. +%%% This program is distributed in the hope that it will be useful, +%%% but WITHOUT ANY WARRANTY; without even the implied warranty of +%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +%%% General Public License for more details. %%% %%% You should have received a copy of the GNU General Public License %%% along with GNU Emacs; see the file COPYING. If not, write to %%% the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -\newdimen\multicolhsize \multicolhsize=\hsize +\newdimen\colshsize \colshsize=\hsize \newdimen\columngutter \columngutter=.2in % space between columns -\newdimen\pagegutter \pagegutter=1in % space between minipages \newbox\columnA \newbox\columnB \newbox\columnC @@ -48,16 +52,16 @@ \def\columnbox{\leftline{\pagebody}} -\def\multicolline{\hbox to \multicolhsize} +\def\colsline{\hbox to \colshsize} \newcount\NROW \NROW=3 % for grid format. are these really variables \newcount\NCOL \NCOL=4 % that can be changed? should they be set - % from lisp? + % from lisp? I'm not sure. \newcount\rowindex \newcount\colindex \def\onecol % for consistency---or maybe one could use it for switching back. { - \output={\shipout\vbox{\makeheadline\multicolline{\columnbox}\makefootline} + \output={\shipout\vbox{\makeheadline\colsline{\columnbox}\makefootline} \advancepageno \ifnum\outputpenalty>-20000 \else\dosupereject\fi} \def\endcol{} }% end onecol @@ -71,7 +75,7 @@ \global\setbox\columnA=\columnbox \global\let\column=B \else \shipout\vbox{\makeheadline - \multicolline{\box\columnA\hfil\columnbox} + \colsline{\box\columnA\hfil\columnbox} \makefootline} \advancepageno \global\let\column=A \fi @@ -96,8 +100,8 @@ \global\setbox\columnB=\columnbox \global\let\column=C \else \shipout\vbox{\makeheadline - \multicolline{\box\columnA\hfil\box\columnB - \hfil\columnbox} + \colsline{\box\columnA\hfil\box\columnB + \hfil\columnbox} \makefootline} \advancepageno \global\let\column=A \fi\fi @@ -129,8 +133,8 @@ \else \shipout\vbox { \makeheadline - \multicolline{\box\columnA\hfil\box\columnB\hfil - \box\columnC\hfil\columnbox} + \colsline{\box\columnA\hfil\box\columnB\hfil + \box\columnC\hfil\columnbox} \makefootline} \advancepageno\global\let\column=A \fi\fi\fi @@ -149,17 +153,20 @@ \def\quadformat#1#2 { - \hsize=#1 \advance\hsize by -.15in \divide\hsize 2 + \FULLHSIZE=\hsize + \FULLVSIZE=\vsize + + \colshsize=#1 \vsize=#2 - \multicolhsize=#1 - \FULLHSIZE=#1 \multiply\FULLHSIZE 2 \advance\FULLHSIZE by \pagegutter - \FULLVSIZE=#2 \multiply\FULLVSIZE 2 \advance\FULLVSIZE by \pagegutter + + \hsize=\colshsize \advance\hsize by -.15in \divide\hsize 2 + \let\lr=L \let\quadrant=A \output={\if L\lr \global\setbox\columnA=\columnbox \global\let\lr=R \else - \global\setbox\quadrantbox=\vbox{\multicolline + \global\setbox\quadrantbox=\vbox{\colsline {\box\columnA\hfil\columnbox}} \global\let\lr=L \quadrantformat \fi @@ -223,5 +230,5 @@ \ifnum\colindex=1\null\vfill\eject\fi} } % end of grid. -%%% multicol.tex ends here. +%%% bbdb-cols.tex ends here. diff --git a/tex/bbdb-print.tex b/tex/bbdb-print.tex index cba8af5..d6fd2e1 100644 --- a/tex/bbdb-print.tex +++ b/tex/bbdb-print.tex @@ -3,24 +3,25 @@ %%% Authors: Luigi Semenzato %%% Boris Goldowsky %%% Copyright (C) 1993 Boris Goldowsky -%%% Version: 3.0; 21Mar94 +%%% Version: 3.92; 5Jan95 %%% For instructions on using this format file with BBDB, see bbdb-print.el -%%% which should have come bundled with this file; or write to -%%% boris@cs.rochester.edu. +%%% which should have come bundled with this file. The complete bbdb-print +%%% package is also available via anonymous ftp at: +%%% /cs.rochester.edu:/pub/u/boris/bbdb-print.tar.gz %%% This file is part of the bbdb-print extensions to the Insidious %%% Big Brother Database, which is for use with GNU Emacs. %%% -%%% The Insidious Big Brother Database is free software; you can redistribute -%%% it and/or modify it under the terms of the GNU General Public License as -%%% published by the Free Software Foundation; either version 1, or (at your -%%% option) any later version. +%%% This program is free software; you can redistribute it and/or +%%% modify it under the terms of the GNU General Public License as +%%% published by the Free Software Foundation; either version 1, or +%%% (at your option) any later version. %%% -%%% BBDB is distributed in the hope that it will be useful, but WITHOUT ANY -%%% WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS -%%% FOR A PARTICULAR PURPOSE. See the GNU General Public License for more -%%% details. +%%% This program is distributed in the hope that it will be useful, +%%% but WITHOUT ANY WARRANTY; without even the implied warranty of +%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +%%% General Public License for more details. %%% %%% You should have received a copy of the GNU General Public License %%% along with GNU Emacs; see the file COPYING. If not, write to @@ -47,12 +48,12 @@ %%% \endaddresses %%% \bye -\nopagenumbers \raggedright \tolerance=10000 \hbadness=10000 \parskip 0pt \parindent=0pt % was 10pt +\footline{\hfil} %%% %%% Fonts @@ -126,6 +127,16 @@ %%% Macros for formatting the entries. %%% +\def\beginaddresses{} + +\def\endaddresses{ + \bigskip\hrule\smallskip + \noindent {\bf Printed \today}\vfill\endcol} + +\def\beginrecord{\bigbreak} + +\def\endrecord{\bigbreak} + \def\\{\par} \def\dots{\leaders\hbox to 0.6em{\hss.\hss}} @@ -150,14 +161,6 @@ \def\notes#1{\smallbreak{\it(#1)}\\ } -\def\beginrecord{\bigbreak} - -\def\endrecord{\bigbreak} - -\def\endaddresses{ - \bigskip\hrule\smallskip - \noindent {\bf Printed \today}\vfill\endcol} - \def\today{\number\day\space \ifcase\month\or Jan\or Feb\or Mar\or Apr \or May\or June\or Jul\or Aug\or Sept\or Oct\or Nov\or Dec\fi -- cgit v1.2.3