summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/magaz
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-03-11 00:54:31 +0000
committerKarl Berry <karl@freefriends.org>2010-03-11 00:54:31 +0000
commit325f9236c0ce8a9de8a9e186f2643335ba705065 (patch)
treebf6111a92a83e653bfc2e53f07ba7fff0bdefaec /Master/texmf-dist/tex/latex/magaz
parente0c403f3aeb77058bf16d47b313a1ad342883632 (diff)
magaz doc update, own pkg (10mar10)
git-svn-id: svn://tug.org/texlive/trunk@17414 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/magaz')
-rw-r--r--Master/texmf-dist/tex/latex/magaz/magaz.sty123
1 files changed, 123 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/magaz/magaz.sty b/Master/texmf-dist/tex/latex/magaz/magaz.sty
new file mode 100644
index 00000000000..cfed39252ab
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/magaz/magaz.sty
@@ -0,0 +1,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{|}~