krab@iesd.auc.dk (Kresten Krab Thorup) (06/06/91)
I've hacked a little style, which I use for long captions. You may
take it ot leave it. The documentation in the file says everything
there is to say.
/Kresten
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% lcaption.sty 1.0
%
% Provides smart formatting of long captions. The captions are
% formatted like:
% Figure 1: This is a
% long text.
%
% <-----\CapSize----->
%
% If \CapSize is set to ZERO, it will fit the caption to \hsize
% (the width of the surrounding text)
%
% The syntax is \lcaption[short]{long} just like LaTeX's caption command.
% the [short] argument may be omitted.
%
% The command \smartcap will make \caption act like \lcaption. It
% should be used only once.
%
% \CapSize defaults to ZERO, and may be set by a command like:
%
% \CapSize=5in
%
% Based on original by Lars P. Fischer <fischer@iesd.auc.dk>
% Parts of the code is taken from latex.tex (c) by Leslie Lamport
% Put together by Kresten Krab Thorup <Krab@iesd.auc.dk> january 1991
% You may not redistribute modified versions of this code, unless
% you name it to something else than lcaption.sty
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\typeout{Style Option `lcaption' r1.0 <01/06/91> (KKT)}
\newdimen\CapSize\CapSize\z@
\long\def\@lmakecaption#1#2{
\vskip 10pt
\setbox\@tempboxa\hbox{#1:\ }
\@tempdima\hsize\advance\@tempdima-\wd\@tempboxa
\ifdim\CapSize=\z@\else
\ifdim\@tempdima>\CapSize \@tempdima\CapSize\fi\fi
\setbox\@tempboxa\hbox{#1: #2}
\ifdim\wd\@tempboxa<\hsize\hfil #1: #2\hfil\par\else
\hbox to\hsize{\hfil #1: \parbox[t]\@tempdima{#2}\hfil}
\fi}
\def\lcaption{\let\@makecaption\@lmakecaption\caption}
\def\smartcap{\def\caption{\let\@makecaption\@lmakecaption
\refstepcounter\@captype \@dblarg{\@caption\@captype}}}