From d3aa47859914a5c630962d33a81b2e8fb4ce6e24 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:54:55 +0000 Subject: epigraph git-svn-id: svn://tug.org/texlive/trunk@867 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/epigraph/epigraph.sty | 118 ++++++++++++++++++++++ 1 file changed, 118 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/epigraph/epigraph.sty (limited to 'Master/texmf-dist/tex/latex/epigraph') diff --git a/Master/texmf-dist/tex/latex/epigraph/epigraph.sty b/Master/texmf-dist/tex/latex/epigraph/epigraph.sty new file mode 100644 index 00000000000..4ce2b0c7f85 --- /dev/null +++ b/Master/texmf-dist/tex/latex/epigraph/epigraph.sty @@ -0,0 +1,118 @@ +%% +%% This is file `epigraph.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% epigraph.dtx (with options: `usc') +%% +%% Author: Peter Wilson (CUA and NIST) +%% now at: peter.r.wilson@boeing.com +%% +%% Copyright 1998 Peter R. Wilson +%% +%% This program is provided under the terms of the +%% LaTeX Project Public License distributed from CTAN +%% archives in directory macros/latex/base/lppl.txt. +%% +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{epigraph}[2002/10/22 v1.5a typesetting epigraphs] +\newlength{\beforeepigraphskip} + \setlength{\beforeepigraphskip}{.5\baselineskip} +\newlength{\afterepigraphskip} + \setlength{\afterepigraphskip}{.5\baselineskip} +\newlength{\epigraphwidth} + \setlength{\epigraphwidth}{.4\textwidth} +\newlength{\epigraphrule} + \setlength{\epigraphrule}{.4\p@} +\newcommand{\epigraphsize}{\small} +\newcommand{\epigraphflush}{flushright} +\newcommand{\textflush}{flushleft} +\newcommand{\sourceflush}{flushright} + +\AtBeginDocument{% + \@ifundefined{flushleftright}{% + \newenvironment{flushleftright}{% + \PackageError{epigraph}% + {The flushleftright environment has been removed.\MessageBreak + Use the flushepinormal environment instead}{\@ehc}}{}}% + {\PackageWarningNoLine{epigraph}% + {flushleftright has been previously defined.\MessageBreak + Use flushepinormal for epigraphs instead}}} + +\newenvironment{flushepinormal}{}{} + +\newcommand{\@epirule}{\rule[.5ex]{\epigraphwidth}{\epigraphrule}} +\newcommand{\@epitext}[1]{% + \begin{minipage}{\epigraphwidth}\begin{\textflush} #1\\ + \ifdim\epigraphrule>\z@ \@epirule \else \vspace*{1ex} \fi + \end{\textflush}\end{minipage}} +\newcommand{\@episource}[1]{% + \begin{minipage}{\epigraphwidth}\begin{\sourceflush} #1\end{\sourceflush} + \end{minipage}} +\newcommand{\epigraph}[2]{\vspace{\beforeepigraphskip} + {\epigraphsize\begin{\epigraphflush}\begin{minipage}{\epigraphwidth} + \@epitext{#1}\\ \@episource{#2} + \end{minipage}\end{\epigraphflush} + \vspace{\afterepigraphskip}}} +\newcommand{\qitem}[2]{{\raggedright\item \begin{minipage}{\epigraphwidth} + \@epitext{#1}\\ \@episource{#2} + \end{minipage}}} +\newcommand{\qitemlabel}[1]{\hfill} +\newenvironment{epigraphs}{% + \vspace{\beforeepigraphskip}\begin{\epigraphflush} + \epigraphsize + \begin{minipage}{\epigraphwidth} + \list{}% + {\itemindent\z@ \labelwidth\z@ \labelsep\z@ + \leftmargin\z@ \rightmargin\z@ + \let\makelabel\qitemlabel}}% + {\endlist\end{minipage}\end{\epigraphflush} + \vspace{\afterepigraphskip}} +\providecommand{\cleartoevenpage}[1][\@empty]{% + \clearpage% + \ifodd\c@page\hbox{}#1\clearpage\fi} +\newcommand{\dropchapter}[1]{% + \let\@epichapapp\@chapapp + \renewcommand{\@chapapp}{\vspace*{#1}\@epichapapp}} +\newcommand{\undodrop}{\let\@chapapp\@epichapapp} +\newif\if@epirhs \@epirhstrue +\newif\if@epicenter \@epicentertrue +\newcommand{\@epipos}{ + \long\def\@ept{flushleft} + \ifx\epigraphflush\@ept + \@epirhsfalse \@epicenterfalse + \else + \long\def\@ept{center} + \ifx\epigraphflush\@ept + \@epirhsfalse \@epicentertrue + \else + \@epirhstrue \@epicenterfalse + \fi + \fi} +\newcommand{\epigraphhead}[2][95]{% + \def\@epitemp{\begin{minipage}{\epigraphwidth}#2\end{minipage}} + \def\ps@epigraph{\let\@mkboth\@gobbletwo + \@epipos + \if@epirhs + \def\@oddhead{\hfil\begin{picture}(0,0) + \put(0,-#1){\makebox(0,0)[r]{\@epitemp}} + \end{picture}} + \else + \if@epicenter + \def\@oddhead{\hfil\begin{picture}(0,0) + \put(0,-#1){\makebox(0,0)[b]{\@epitemp}} + \end{picture}\hfil} + \else + \def\@oddhead{\begin{picture}(0,0) + \put(0,-#1){\makebox(0,0)[l]{\@epitemp}} + \end{picture}\hfil} + \fi + \fi + \let\@evenhead\@oddhead + \def\@oddfoot{\reset@font\hfil\thepage\hfil} + \let\@evenfoot\@oddfoot} + \thispagestyle{epigraph}} +\endinput +%% +%% End of file `epigraph.sty'. -- cgit v1.2.3