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
124
125
126
127
128
129
130
131
132
133
134
135
|
% magaz.sty Ver 0.3 22-Nov-2011 "Magazine style"
% Copyright 1999-2011, Donald Arseneau, asnd@triumf.ca, Vancouver, Canada
% This software may be freely used, transmitted, reproduced, or modified
% provided that the copyright notice and this permission is retained.
%
% This version is just a single tool from a larger body of tools I am
% unlikely to implement. I wrote this in 1999 in response to a request
% on comp.text.tex.
%
% Features:
% 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 (like fwlw)
% No wrapfig spanning columns
% No wrapfig placed at fixed location on page
% NO! Piecing together fragments of gallies to fit page (maybe flowfram)
%
% 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}[2011/11/22 v0.3]
\newcommand\FirstLine[1]{%
\relax\if@inlabel\noindent\fi % produce a pending list item first
\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@\linewidth \z@\maxdimen
\doublehyphendemerits\z@ \finalhyphendemerits\z@
\sloppy \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 % Grab that line
\global\setbox\mz@firstbox\hbox{\unhbox\z@\unskip}%
%{\message{Entire text fits: }\showhyphens{\unhcopy\mz@firstbox}}%
\global\setbox\mz@remains\hbox{}%
\else % 2 lines: text fills first line with some left over
\setbox\z@\lastbox % remainders to \z@
\ifvoid\z@ % could not grab last line
\mz@handlebad{#1}%
\else
\unskip\unkern\unpenalty \unskip\unkern\unpenalty
\global\setbox\mz@firstbox\lastbox % grab first line
%{\message{First line is: }\showhyphens{\unhcopy\mz@firstbox\unskip\unskip}}%
%{\message{Remaining segments are: }\showhyphens{\unhcopy\z@\unskip\unskip}}%
% 2a) break up "other segments":
\hsize\z@ \leftskip\z@skip \rightskip\z@skip \parfillskip\fill
\parshape\z@ \pretolerance\m@ne \tolerance\@ne
{\everypar{}\noindent}% mid-par so no \everypar or \parindent
\nobreak % \nobreak because leftskip adds breakpoint
\unhbox\z@\unskip\@@par % gives number of "extra segments"
%\message{There are \number\mz@numl\space segments in total and \the\prevgraf\space "remaining segments". }%
\@tempcnta\mz@numl \advance\@tempcnta-\prevgraf
%\message{Number of segs in 1st line: \the\@tempcnta. }%
\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
}%
%\message{Parshape: \@tempa \z@\maxdimen}%
\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
{\everypar{}\noindent}\nobreak % everypar was captured in firstbox
\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 with a secondary
% algorithm 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{|}~
|
