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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
% magaz.sty Ver 0.2 04-Sep-2003 "Magazine style"
% Copyright 1999, Donald Arseneau, asnd@triumf.ca, Vancouver, Canada
% This software is free to distribute, unaltered, and to use in any
% application. It may be altered and incorporated in other software freely.
%
% This version is just a single tool from a larger body of tools I might
% try to implement if I ever have the spare time. I'm writing this part
% now [1999] in response to a request on comp.text.tex.
%
% Yes Special formatting for first line of text in a paragraph
% No Special formatting for for first n lines (allow each different)
% No Also for first character (drop caps) (working together)
% No "Continued on"/"continued from" markers
% No wrapfig spanning columns
% No wrapfig placed at fixed location on page
% NO! Piecing together fragments of gallies to fit page
%
% Instructions:
%
% The "\FirstLine" command takes one argument: Some text.
%
% The first line of this text will be formatted according to
% "\FirstLineFont"; but if the text occupies less than a line, all
% that text (and no more) will be affected by "\FirstLineFont".
% The argument should be ordinary text, not lists and displayed
% equations. Such things will give you a `Bad text' error.
%
% This command is intended to be used in a replacement for a normal
% sectioning command in a document class; "\paragraph" would be
% appropriate. In particular, this "\paragraph" (or whatever) should
% insert vertical space and penalties etc., and probably "\noindent"
% at the start of the argument. The document class should also define
% "\FirstLineFont" appropriately as either a switch or a text-command;
% as in "\renewcommand\FirstLineFont{\MakeUppercase}". The defult
% definition is "\providecommand\FirstLineFont{\scshape}".
\ProvidesPackage{magaz}[2003/09/04 v0.2]
\newcommand\FirstLine[1]{\begingroup
% typeset text 3 times: 1) using all breaks to count segments; 2) with
% a full first line and \FirstLineFont to get first line and remaining
% segments; 3) Using current font, keeping only `remaining segments'
% on a single line.
\setbox\z@\box\mz@firstbox \setbox\z@\box\mz@remains % void the global boxes
\hbadness\maxdimen \hfuzz\maxdimen
\setbox\@tempboxa\vbox{% 1) use all breaks
\hsize\z@ \leftskip\z@skip \rightskip\z@skip \parfillskip\fill
\parshape\z@ \pretolerance\m@ne \tolerance\@ne
\doublehyphendemerits\z@ \finalhyphendemerits\z@
#1\global\mathchardef\mz@spf\spacefactor\@@par
\global\mathchardef\mz@numl\prevgraf
}% end vbox "1)"
\setbox\@tempboxa\vbox{% 2) first line, plus other segments
\parshape \tw@ \z@\hsize \z@\maxdimen
\doublehyphendemerits\z@ \finalhyphendemerits\z@
\pretolerance\m@ne \parfillskip\fill
{\FirstLineFont{#1}\@@par}%
\ifnum\prevgraf>\tw@ % Bad argument: not simple text or too much text
\mz@handlebad{#1}%
\else
\unskip\unkern\unpenalty \unskip\unkern\unpenalty
\ifnum\prevgraf<\tw@ % All text fits on first line
\setbox\z@\lastbox
\global\setbox\mz@firstbox\hbox{\unhbox\z@\unskip}%
\global\setbox\mz@remains\hbox{}%
\else % 2 lines: text fills first line with some left over
\setbox\z@\lastbox
\ifvoid\z@ % could not grab last line
\mz@handlebad{#1}%
\else
\unskip\unkern\unpenalty \unskip\unkern\unpenalty
\global\setbox\mz@firstbox\lastbox % 2a) break up "other segments"
\hsize\z@ \leftskip\z@skip \rightskip\z@skip \parfillskip\fill
\parshape\z@ \pretolerance\m@ne \tolerance\@ne
\noindent\nobreak % \nobreak because leftskip adds breakpoint
\unhbox\z@\unskip\@@par % gives number of "extra segments"
\@tempcnta\mz@numl \advance\@tempcnta-\prevgraf
\advance\@tempcnta\@ne % number of segs in 1st line plus 1
\edef\@tempa{\the\@tempcnta\space}% 3) Collect "other segments"
\@whilenum \@tempcnta>\@ne\do{% build \parshape lines
\edef\@tempa{\@tempa \z@\z@}%
\advance\@tempcnta\m@ne
}%
\parshape \@tempa \z@\maxdimen
#1\@@par
\unskip\unkern\unpenalty \unskip\unkern\unpenalty
\global\setbox\mz@remains\lastbox
\fi
\fi
\fi
}% end vbox "2)"
\endgroup
\ifvoid\mz@firstbox #1% Error case: just output the text
\else
\noindent
\unhbox\mz@firstbox\unskip\unskip\unpenalty\break
\unhbox\mz@remains\unskip\unskip\unpenalty \spacefactor\mz@spf
\fi
}
\newbox\mz@firstbox
\newbox\mz@remains
\providecommand\FirstLineFont{\scshape}
% In the future, I might allow some non-text material by using \vsplit
% as a fallback method of grabbing lines, and I might allow more or
% unusual text in the `remainders' by skipping the step of setting two
% lines (instead setting one first line plus many tiny lines all together).
% The following macro would then handle those cases as an error recovery
% mechanism. Right now it just gives an error message and dumps out
% the text.
\def\mz@handlebad{\mz@error}
\def\mz@error#1{%
\PackageError{magaz}{Bad text for \string\FirstLine\space ending\on@line}{}%
\global\setbox\mz@remains\box\mz@firstbox % void first box
}
\endinput
Test file integrity: ASCII 32-57, 58-126: !"#$%&'()*+,-./0123456789
:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
|
