dotfiles/texmf/tex/latex/frank_tex/titlesec.sty

1337 lines
36 KiB
Text
Raw Normal View History

2014-03-24 20:38:31 +00:00
% +--------------------------------------------------+
% | Typeset titlesec.tex to get the documentation. |
% +--------------------------------------------------+
%
% Copyright (c) 1998-2011 by Javier Bezos.
% All Rights Reserved.
%
% This file is part of the titlesec distribution release 2.10.0
% -----------------------------------------------------------
%
% It may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3
% of this license or (at your option) any later version.
% The latest version of this license is in
% http://www.latex-project.org/lppl.txt
% and version 1.3 or later is part of all distributions of LaTeX
% version 2003/12/01 or later.
%
% This work has the LPPL maintenance status "maintained".
%
% The Current Maintainer of this work is Javier Bezos.
%
% Notes
% ~~~~~
%
% The following tags are used:
% ttl@ : the generic tag used through the style
% ttlh@ : a shape definition
% ttlf@ : a macro containing the title format
% ttls@ : id. the title space
% ttlp@ : page key related macros
% ttll@ : level number
%
% The ttlf@ and ttls@ contains data in the form {..}{..}.
% Perhaps in future releases they should be converted
% to a prop-like list, similar to that proposed by the
% latex team.
%
% Admittedly, the current implementation seems too
% complicated, but that's necessary in order to provide
% certain compatibility with the sections as defined by the
% used class. Other packages opt for providing the sections
% as defined by standard classes ignoring the class; for
% instance sectsty which does a simple task in a simple and
% nice way. However, that was not my goal.
%
% Release
% ~~~~~~~
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{titlesec}[2011/12/15 v2.10.0 Sectioning titles]
% Initialization
% ~~~~~~~~~~~~~~
\newif\ifttl@ps
\ttl@psfalse
% The \ttl@label switch is used when printing the label in titles.
% A numberless variant makes it to true.
% There is a \ttl@toclabel as well, which is true iff the
% title is numbered; used in toc entries (except default part
% and chapter) and marks (only in titlesec pagestyles).
\newif\ifttl@label
\newif\ifttl@toclabel
\newbox\ttl@box
% A provision for the report style:
\@ifundefined{if@mainmatter}
{\let\if@mainmatter\iftrue}{}
\@ifundefined{if@openright}
{\let\if@openright\iftrue}{}
% and the ams styles as well
\@ifundefined{@chapapp}
{\let\@chapapp\chaptername}{}
\def\ttl@trylist{\ttl@try{}}
\def\ttl@getkeys#1#2{%
\if\expandafter @\@gobble#1@\@empty
\edef\ttl@b{\expandafter\@gobble\string#1}%
\let\ttl@a\ttl@b
\else
\makeatletter
\edef\ttl@d{%
\noexpand\input{ttlkeys.def}%
\catcode`\noexpand\@=\the\catcode`\@}%
\ttl@d
\ttl@getkeys{#1}{#2}%
\fi}
% A more meaningful error for \@notdefinable
\expandafter\AtEndOfPackage\expandafter{\expandafter
\gdef\expandafter\@notdefinable\expandafter{\@notdefinable}}
\def\@notdefinable{%
\PackageError{titlesec}%
{Incompatible package}%
{Titlesec cannot continue defining its own macros
because\MessageBreak
\@backslashchar\reserved@a\space is already used by other package,
the class\MessageBreak
or the document.}}
% +-----------------+
% | C L A S S E S |
% +-----------------+
\def\ttl@useclass#1#2{%
\@ifstar
{\ttl@labelfalse#1{#2}[]}%
{\ttl@labeltrue\@dblarg{#1{#2}}}}
\def\ttl@straightclass{\ttl@useclass\ttl@straight@i}
\def\ttl@partclass{\ttl@useclass\ttl@part@i}
\def\ttl@topclass{\ttl@useclass\ttl@top@i}
\def\ttl@pageclass{\ttl@useclass\ttl@page@i}
% Here \scantokens is used to make sure the unescaped name
% has `letters' and no `others'. Mainly for hyperref, so there
% should be no problems.
\newcommand\titleclass[1]{%
\edef\ttl@a{\expandafter\@gobble\string#1}%
\ifx\scantokens\@undefined\else
\scantokens\expandafter{\expandafter
\def\expandafter\ttl@a\expandafter{\ttl@a}}%
\fi
\@ifnextchar[{\@tempswatrue\ttl@class@i{#1}}%
{\@tempswafalse\ttl@class@ii{#1}}}
\def\ttl@class@i#1[#2]{%
\@namedef{ttll@\ttl@a}{#2}%
\expandafter\providecommand\csname\ttl@a title\endcsname{}%%%%
\@ifundefined{ttl@toplevel}{}%
{\expandafter\let\csname ttlss@\ttl@a\expandafter\endcsname
\csname ttlss@\ttl@toplevel\endcsname}%
\edef\ttl@toplevel{\ttl@a}%
\ttl@class@ii{#1}}
\def\ttl@class@ii#1#2{%
\@ifundefined{ttl@#2class}%
{\PackageError{titlesec}{Unknown sectioning class}%
{Valid names are top, page and straight}}%
{\expandafter\let\csname ttl@compat\ttl@a\endcsname\relax
\@ifundefined{\ttl@a mark}%
{\@namedef{\ttl@a mark}{\@gobble}}%
{}%
\edef#1{%
\expandafter\noexpand\csname ttl@#2class\endcsname{\ttl@a}}}%
\if@tempswa
\expandafter\@gobble
\else
\expandafter\@firstofone
\fi
{\@ifnextchar[%
{\ttl@class@iii}%
{\@ifundefined{ttll@\ttl@a}%
{\PackageError{titlesec}{Unknown sectioning level}%
{\string\titleclass\space with no optional arguments\MessageBreak
only changes the class of an *existing* level}}}}}
\def\ttl@class@iii[#1]{%
\edef\ttl@b{\expandafter\@gobble\string#1}%
\expandafter\let\csname ttlss@\ttl@a\expandafter\endcsname
\csname ttlss@\ttl@b\endcsname
\expandafter\edef\csname ttlss@\ttl@b\endcsname{\ttl@a}%
\let\ttl@a\ttl@toplevel
\count@\csname ttll@\ttl@toplevel\endcsname
\ttl@class@iv}
\def\ttl@class@iv{%
\@ifundefined{ttlss@\ttl@a}{}%
{\advance\count@\@ne
\edef\ttl@a{\csname ttlss@\ttl@a\endcsname}%
\expandafter\edef\csname ttll@\ttl@a\endcsname{\the\count@}%
\ttl@class@iv}}
% Typesetting Classes: General tools
% ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
% The following command handles the *n spacing
% Some tricks are necessary to multiply a
% skip by a non integer number
\newskip\beforetitleunit
\beforetitleunit=1ex\@plus.3ex\@minus.06ex
\newskip\aftertitleunit
\aftertitleunit=1ex\@plus.1ex
\newdimen\ttl@plus
\newdimen\ttl@minus
\def\ttl@assign#1{%
\@ifstar
{\ttl@assign@i{#1}}%
{\ttl@assign@d{#1}}}
\def\ttl@assign@i#1#2\relax#3{%
\ttl@plus\z@
\ttl@minus\z@
\afterassignment\ttl@assign@ii
\dimen@\the#3, % <- space
#1 = #2\dimen@
plus #2\ttl@plus
minus #2\ttl@minus}
\def\ttl@assign@ii#1 {% <- space
\if#1,\else\afterassignment\ttl@assign@ii\fi
\csname ttl@\string#1\endcsname}
\def\ttl@assign@d#1#2\relax#3{\setlength#1{#2}}
% To be used with \v/vspace to make them calc-savvy
\def\ttl@calc#1#2{%
{\setlength\@tempskipa{#2}%
#1\@tempskipa}}
\def\ttl@calcneg#1#2{%
{\setlength\@tempskipa{#2}%
#1{-\@tempskipa}}}
% Gets from ttls@ and passes the spacing parameters:
\def\ttl@startargs#1#2{% Get the first arguments, with the spacing
\@ifundefined{ttlp@#2}%
{\let\ttl@key@page\@empty}%
{\ttlp@fetch{#2}}%
\begingroup
\def\ttl@b{ttls@#2}%
\edef\ttl@key@numberless{\ifttl@label//\else/*\fi}%
\def\ttl@a##1{\csname ttl@key@##1\endcsname}% Used as elt in try
\ttl@trylist
\xdef\ttl@b{\ttl@c}%
\endgroup
\ifx\ttl@b\@empty
\PackageError{titlesec}{Format/spacing not found}%
{I was unable to find the format corresponding to #2.\MessageBreak
Maybe you haven't set it with \string\titleformat\space and
\string\titlespacing}
\fi
\expandafter#1\ttl@b{#2}}
% Used in ttl@select
\def\ttl@savefn#1[#2]#3{%
\ifcase#1%
\footnotemark[#2]%
\gdef\ttl@fn{\footnotetext[#2]{#3}}%
\else
\footnotemark
\gdef\ttl@fn{\footnotetext{#3}}%
\fi}
\def\ttl@nest@error{%
\PackageError{titlesec}{Nested titles}{Titles must not be nested}}
\def\ttl@hmode@error{%
\PackageError{titlesec}{Entered in horizontal mode}
{The <format> argument cannot contain horizontal material\MessageBreak
such as text, \string\noindent, \string\makebox, etc.}}
% \ttl@select not only selects the right version to be
% used. It also take steps to ensure that a mark
% is not lost inside a box by saving it into \ttl@mk,
% which in turn is used by the sect and chap commands.
\newif\ifttl@explicit
\def\ttl@gmk#1{\gdef\ttl@mk{#1}}
\def\ttl@select#1#2#3#4{%
\ttl@Hy@saveanchor
\global\let\ttl@mk\@empty % global because of rigidchapters
\global\let\ttl@fn\@empty
\begingroup
\everypar{\setbox\z@\lastbox\strut}% or \hskip-\parindent?
\let\ttl@straight@i\ttl@nest@error
\let\ttl@top@i \ttl@nest@error
\let\ttl@part@i \ttl@nest@error
\let\ttl@page@i \ttl@nest@error
\let\ttl@newpage\newpage
\def\newpage{\ttl@savewrite\ttl@newpage}%
\def\markboth##1##2{\protect\ttl@gmk{\protect\markboth{##1}{##2}}}%
\def\markright##1{\protect\ttl@gmk{\protect\markright{##1}}}%
\def\@mkboth##1##2{\protect\ttl@gmk{\protect\@mkboth{##1}{##2}}}%
\def\footnote{\@ifnextchar[%
{\ttl@savefn\z@}{\ttl@savefn\@ne[]}}%
\edef\ttl@key@numberless{\ifttl@label//\else/*\fi}%
\def\ttl@b{ttlf@#1}%
\def\ttl@a##1{\csname ttl@key@##1\endcsname}% Used as elt in try
\ttl@trylist
\ifttl@explicit
\def\ttl@passexplicit{\ttl@case{#4}}%
\ttl@c{#4}{#2}{#3}{}% ttl@c is returned by ttl@try with ttlf@...
\else
\let\ttl@passexplicit\ttl@case
\ttl@c{#2}{#3}{#4}% ttl@c is returned by ttl@try with ttlf@...
\fi
\endgroup}
\let\ttl@savewrite\@empty
\def\ttl@finmarks{%
\ttl@savewrite
\ttl@mk % Contains a possible mark, returned by \ttl@select
\ttl@fn} % And a footnote
\def\ttl@try#1{%
\edef\ttl@c{#1}% #1 is a list in the form \ttl@a{key}\ttl@a{key}
\@ifundefined{\ttl@b\ttl@c}{}{%
\edef\ttl@c{\expandafter\noexpand\csname\ttl@b\ttl@c\endcsname}%
\def\ttl@a##1{\csname ttl@extra@##1\endcsname}%
#1%
\let\ttl@try\@gobble}} % locally modified to `break' testings
% \ttl@write writes marks and toc. tocdepth is taken
% care of when the toc is typesetted and not here.
% Used always through ttl@savewrite
\def\ttl@write#1#2{%
\ttl@blinemarks
\csname#1mark\endcsname{#2}%
\def\ttl@a{\protect\numberline{\@nameuse{the#1}}}%
\@nameuse{ttl@toc#1}% eg, \ttl@tocpart modifies \ttl@a
\ttl@addcontentsline{#1}{#2}% Depends on toctitles
\ttl@elinemarks
\global\ttl@toclabelfalse}
\newif\ifttl@premark % to be used in ttlps.def
\ttl@premarkfalse
\def\ttl@premark#1#2{%
\protected@xdef\ttl@prevmarks{\ttl@marks}%
\ttl@blinemarks
\csname#1mark\endcsname{#2}%
\ttl@elinemarks
\gdef\ttl@prevmarks{\ttl@marks}}
% Must be preceded by a default \ttl@savewrite, which is used
% in starred variants--\@empty in top and straight classes.
% In straight class, it is preceded by the setting of
% prev marks to provide a "fixed" top mark. Otherwise,
% the default prev mark (= curr mark) is used (restored
% after ttl@labelling in straight). This is the command
% to be hacked if you want to change the behaviour of
% starred variants.
\def\ttl@labelling#1#2{%
\let\ttl@Hy@saveanchor\@empty
\ifttl@label % First: if star
\def\ttl@savewrite{\ttl@write{#1}{#2}}%
\@nameuse{ttl@#1label}% eg, sets if mainmatter in chapter.
\ifttl@label % Second, eg, if not main matter
\ifnum\@nameuse{ttll@#1}>\c@secnumdepth\relax
\ttl@labelfalse % Third: if too deep
\else
\ttl@Hy@refstepcounter{#1}%
\@nameuse{ttl@#1out}%
\fi
\fi
\fi
\let\ifttl@toclabel\ifttl@label
\ifx\ttl@savewrite\@empty\else % If marks
\ifttl@ps
\ifttl@premark
\global\ttl@premarkfalse
\else % if no \pretitlemark
\ttl@premark{#1}{#2}%
\fi
\fi
\ifttl@label\else\ttl@Hy@steplink{#1}\fi
\fi}
% Executed by ttl@labelling if the name of section is chapter:
\def\ttl@chapterlabel{\if@mainmatter\else\ttl@labelfalse\fi}
% Executed by ttl@labelling if chapter has a number. Note
% you can define messages for other sectioning levels (eg,
% \ttl@sectionout).
\def\ttl@chapterout{\typeout{\chaptertitlename\space\thechapter.}}
% Straight class
% ~~~~~~~~~~~~~
% Default for nobottomtitles. Changed by nobottomtitles*
\def\ttl@addstretch{\advance\@tempskipa-\pagestretch}
% 1:name 2:level 3:indent 4:before 5:after 6:afind [7]:cap 8:title
% The second argument of ttl@sect is the level, which
% is empty if the star version is used. In this case
% neither the toc nor the marks are written.
\def\ttl@straight@i#1[#2]#3{%
\def\@currentlabelname{#2}% for nameref
\gdef\ttl@savemark{\csname#1mark\endcsname{#3}}%
\let\ttl@savewrite\@empty
\def\ttl@savetitle{#3}%
\gdef\thetitle{\csname the#1\endcsname}%
\if@noskipsec \leavevmode \fi
\par
\ttl@labelling{#1}{#2}%
\ttl@startargs\ttl@straight@ii{#1}{#3}}
% 1:left 2:right 3:before 4:after 5:afterindent 6:name 7:title
\def\ttl@straight@ii#1#2#3#4#5#6#7{%
\ttl@assign\@tempskipa#3\relax\beforetitleunit
\@ifundefined{ttl@ps@#6}{}%
{\PackageWarning{titlesec}{Page style in straight class ignored}}%
\if@nobreak
\ttl@titlespace{\@tempskipa}%
\else
\@ifundefined{#6break}%
{\addpenalty{\@secpenalty}}%
{\csname#6break\endcsname}%
\addvspace{\@tempskipa}%
\ifdim\bottomtitlespace<\z@
\else
\begingroup
\@tempskipb\pagegoal
\@tempskipa\pagegoal
\ttl@addstretch % \relax if nobottomtitle*
\advance\@tempskipa-\bottomtitlespace\relax % not a register
\pagegoal\@tempskipa
\def\@textbottom{\vskip\z@\@plus.0001fil}%
\penalty9999
\pagegoal\@tempskipb
\endgroup
\fi
\fi
\@afterindenttrue
\ifcase#5 \@afterindentfalse\fi
\ttl@assign\@tempskipb#4\relax\aftertitleunit
\ttl@select{#6}{#1}{#2}{#7}%
\ttl@finmarks
\@ifundefined{ttlp@#6}{}{\ttlp@write{#6}}%
\if@noskipsec
\global\@nobreakfalse
\everypar{%
\if@noskipsec
\global\@noskipsecfalse
\clubpenalty\@M
\hskip-\parindent
\begingroup
\@svsechd\unskip{\hspace{\@tempskipb}}%
\endgroup
\else
\clubpenalty\@clubpenalty\everypar{}%
\fi}%
\else
\par\nobreak
\vspace{\@tempskipb}%
\@afterheading
\fi
\ignorespaces}
% Part class
% ~~~~~~~~~~
\providecommand\partmark[1]{\markboth{}{}}
\def\ttl@part@i#1[#2]#3{%
\gdef\ttl@savemark{\csname#1mark\endcsname{#3}}%
\def\ttl@savewrite{\ttl@write{#1}{#3}}% A default value. Not #2!
\def\ttl@savetitle{#3}%
\ttl@labelling{#1}{#2}%
\ttl@startargs\ttl@part@ii{#1}{#3}}
\def\ttl@part@ii#1#2#3#4#5#6#7{%
\ttl@assign\@tempskipa#3\relax\beforetitleunit
\vspace*{\@tempskipa}%
\@ifundefined{ttl@ps@#6}{}%
{\PackageWarning{titlesec}{Page style in part class ignored}}%
\global\@afterindenttrue
\ifcase#5 \global\@afterindentfalse \fi
\ttl@assign\@tempskipb#4\relax\aftertitleunit
\ttl@select{#6}{#1}{#2}{#7}%
\ttl@finmarks
\@ifundefined{ttlp@#6}{}{\ttlp@write{#6}}%
\par\nobreak
\vspace{\@tempskipb}%
\@afterheading}
% Page class
% ~~~~~~~~~~
\def\ttl@page@i#1[#2]#3{%
\gdef\ttl@savemark{\csname#1mark\endcsname{#3}}%
\def\ttl@savewrite{\ttl@write{#1}{#3}}% A default value. Not #2!
\def\ttl@savetitle{#3}%
\ttl@labelling{#1}{#2}%
\ttl@startargs\ttl@page@ii{#1}{#3}}
\def\ttl@page@ii#1#2#3#4#5#6#7{%
\ttl@assign\@tempskipa#3\relax\beforetitleunit
\if@openright
\cleardoublepage
\else
\clearpage
\fi
\@ifundefined{ttl@ps@#6}%
{\thispagestyle{plain}}%
{\thispagestyle{\@nameuse{ttl@ps@#6}}}%
\if@twocolumn
\onecolumn
\@tempswatrue
\else
\@tempswafalse
\fi
\vspace*{\@tempskipa}%
\@afterindenttrue
\ifcase#5 \@afterindentfalse\fi
\ttl@assign\@tempskipb#4\relax\aftertitleunit
\ttl@select{#6}{#1}{#2}{#7}%
\ttl@finmarks
\@ifundefined{ttlp@#6}{}{\ttlp@write{#6}}%
\vspace{\@tempskipb}%
\newpage
\if@twoside
\if@openright
\null
\@ifundefined{ttl@ps@#6}%
{\thispagestyle{empty}}%
{\thispagestyle{\@nameuse{ttl@ps@#6}}}%
\newpage
\fi
\fi
\if@tempswa
\twocolumn
\fi
\ignorespaces}
% Top class and some makechapterhead stuff
% ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%
% \ttl@mkchap is the new make(s)chapterhead.
\def\ttl@mkchap#1#2#3#4#5#6#7{%
\gdef\ttl@savemark{\csname#6mark\endcsname{#7}}%
\let\ttl@savewrite\@empty
\let\ttl@Hy@saveanchor\@empty
\@ifundefined{ttl@ps@#6}{}%
{\thispagestyle{\@nameuse{ttl@ps@#6}}}%
\let\ifttl@toclabel\ifttl@label
\ttl@mkchap@i{#1}{#2}{#3}{#4}{#5}{#6}{#7}}
% But \ttl@mkchap@i is used by both makechapterhead and
% the top class.
\def\ttl@mkchap@i#1#2#3#4#5#6#7{%
\ttl@assign\@tempskipa#3\relax\beforetitleunit
\vspace*{\@tempskipa}%
\global\@afterindenttrue
\ifcase#5 \global\@afterindentfalse\fi
\ttl@assign\@tempskipb#4\relax\aftertitleunit
\ttl@topmode{\@tempskipb}{%
\ttl@select{#6}{#1}{#2}{#7}}%
\ttl@finmarks % Outside the box!
\@ifundefined{ttlp@#6}{}{\ttlp@write{#6}}}
\def\ttl@top@i#1[#2]#3{%
\gdef\ttl@savemark{\csname#1mark\endcsname{#3}}%
\let\ttl@savewrite\@empty
\def\ttl@savetitle{#3}%
\ttl@labelling{#1}{#2}%
\ttl@startargs\ttl@top@ii{#1}{#3}}
\def\ttl@top@ii#1#2#3#4#5#6#7{%
\@ifundefined{#6break}%
{\if@openright
\cleardoublepage
\else
\clearpage
\fi}%
{\csname#6break\endcsname}%
\@ifundefined{ttl@ps@#6}%
{\thispagestyle{plain}}%
{\thispagestyle{\@nameuse{ttl@ps@#6}}}%
\global\@topnum\z@
\@ifundefined{#6tolists}%
{\addtocontents{lof}{\protect\ttl@tocsep}%
\addtocontents{lot}{\protect\ttl@tocsep}}
{\@nameuse{#6tolists}}%
\if@twocolumn
\@topnewpage[\ttl@mkchap@i{#1}{#2}{#3}{#4}{#5}{#6}{#7}]%
\else
\ttl@mkchap@i{#1}{#2}{#3}{#4}{#5}{#6}{#7}%
\@afterheading
\fi
\ignorespaces}
% \def\ttl@noskipsectrue{%
% \if@noskipsec
% \PackageError{titlesec}{Invalid shape for top class}%
% {The selected shape only makes sense when merged into\MessageBreak
% a paragraph. That is impossible in the top class}%
% \else
\newcommand\chaptertitlename{\@chapapp}
\def\ttl@tocsep{\addvspace{10\p@}}
% +-----------------+
% | S H A P E S |
% +-----------------+
%
% % Reformatting Titles: Interface
% ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
% The surrounding space is stored in a macro
% named \ttls@<section> whose content is
% {left}{right}{before}{after}{afterindent}.
% But if there is the page key, the name is
% \ttls@<section>/<page>
\newcommand\titlespacing{%
\@ifstar{\ttl@spacing@i{\z@}}{\ttl@spacing@i{\@ne}}}
\def\ttl@spacing@i#1#2#3#4#5{%
\ttl@getkeys{#2}{titlesec}%
\@ifnextchar[{%
\ttl@spacing@ii{#1}{#3}{#4}{#5}%
}{%
\ttl@spacing@ii{#1}{#3}{#4}{#5}[\z@]}}
\def\ttl@spacing@ii#1#2#3#4[#5]{%
\expandafter\def\csname ttls@\ttl@a\endcsname
{{#2}{#5}{#3}{#4}{#1}}}
% The section name is built in \ttl@a.
% The format is stored in a macro named \ttlf@<section>,
% or \ttlf@<section>/<page> if there is the page spec,
% or \ttlf@.../* if numberless is true
% whose content is
% \ttl@<shape>{format}{label}{sep}{before}{after}
\newtoks\ttl@toksa
\newcommand\titleformat{%
\@ifstar{\ttl@format@s}%
{\ttl@format@i}}
\def\ttl@format@s#1#2{%
\edef\ttl@a{\expandafter\@gobble\string#1}%
\@ifundefined{ttlf@\ttl@a}%
{\PackageError{titlesec}{Not allowed in `easy' settings}
{The sectiong command you are trying to redefine\MessageBreak
is not handled by the starred variant (eg, \string\part)}}{}
\expandafter\expandafter\expandafter
\ttl@format@si\csname ttlf@\ttl@a \endcsname
{#2}}
\def\ttl@format@si#1#2#3#4#5#6#7{%
\@namedef{ttlf@\ttl@a}{#1{#7}{#3}{#4}{#5}{#6}}}
\def\ttl@format@i#1{%
\@ifnextchar[{\ttl@format@ii{#1}}{\ttl@format@ii{#1}[hang]}}
\def\ttl@format@ii#1[#2]#3#4#5#6{%
\ttl@getkeys{#1}{titlesec}%
\ttl@toksa{{#3}{#4}{#5}{#6}}% Save arguments
\@ifnextchar[{%
\ttl@format@iii{#2}%
}{%
\ttl@format@iii{#2}[]}}
% First, we get the shape -- if not defined it loads
% the corresponding file.
\def\ttl@format@iii#1[#2]{%
\@ifundefined{ttlh@#1}{%
\begingroup
\makeatletter
\InputIfFileExists{#1.tss}{}{%
\PackageError{titlesec}{Unknown shape}%
{Shapes are defined in files with extension tss\MessageBreak
Either you have misspelled the shape\MessageBreak
or there is no a #1.tss file}}%
\endgroup}{}%
\@temptokena{#2}%
\ifttl@explicit
\edef\ttl@b{%
\def\expandafter\noexpand\csname ttlf@\ttl@a\endcsname####1%
{\expandafter\noexpand\csname ttlh@#1\endcsname
\the\ttl@toksa{\the\@temptokena}}}%
\else
\edef\ttl@b{%
\def\expandafter\noexpand\csname ttlf@\ttl@a\endcsname
{\expandafter\noexpand\csname ttlh@#1\endcsname
\the\ttl@toksa{\the\@temptokena}}}%
\fi
\ttl@b
\csname ttl@compat\ttl@a\endcsname}
% Styles
% ~~~~~~
% 1:global 2:label 3:sep 4:style 5:after 6:left 7:right 8:title
% \ttl@<shape> and \ttlh@<shape> take the following eight
% arguments:
% {format}{label}{sep}{before}{after}{left}{right}{title}
% where before and after refer to the format.
% With the option explicit, #4 contains the title and #8 is
% empty.
\def\ttlh@display#1#2#3#4#5#6#7#8{%
\gdef\ttl@makeline##1{\ttl@calc\hspace{#6}##1\ttl@calc\hspace{#7}}%
\setlength\leftskip{#6}%
\setlength\rightskip{#7}%
\interlinepenalty\@M
\ttl@changecentercr
\ttl@beginlongest
#1\ifhmode\ttl@hmode@error\fi
\ttl@glcmds
\parindent\z@
\ifttl@label
{#2\strut\@@par}\nobreak\ttl@calc\vspace{#3}%
\fi
#4{#8}%
\kern\z@\strut\@@par
\nobreak\ttl@midlongest#5\@@par
\ttl@endlongest}
\def\ttlh@hang#1#2#3#4#5#6#7#8{%
\gdef\ttl@makeline##1{\ttl@calc\hspace{#6}##1\ttl@calc\hspace{#7}}%
\setlength\leftskip{#6}%
\setlength\rightskip{#7}%
\interlinepenalty\@M
\ttl@changecentercr
\ttl@beginlongest
#1{\ifhmode\ttl@hmode@error\fi
\ttl@glcmds
\parindent\z@
\leavevmode
\begingroup
\ifttl@label
\sbox\z@{#2\strut\ttl@calc\hspace{#3}}%
\advance\leftskip\wd\z@
\llap{\box\z@}%
\fi
#4{#8}%
\kern\z@\strut\@@par
\endgroup
\nobreak\ttl@midlongest#5\@@par}%
\ttl@endlongest}
\def\ttlh@runin#1#2#3#4#5#6#7#8{%
\global\@noskipsectrue
\gdef\ttl@makeline##1{##1}%
\ttl@changecentercr
#1{\ifhmode\ttl@hmode@error\fi
\global\sbox\ttl@box{%
\ttl@calc\hspace{#6}%
\ifttl@label{\strut#2}\ttl@calc\hspace{#3}\fi
#4{#8}#5\unskip}}%
\gdef\@svsechd{\unhbox\ttl@box}}
% +-----------------+
% | T O O L S |
% +-----------------+
%
% calcwidth
% ~~~~~~~~~
% Implemented after code from soul (but much modified...)
\newdimen\titlewidth
\newdimen\titlewidthlast
\newdimen\titlewidthfirst
\let\ttl@glcmds\relax
\let\ttl@beginlongest\@empty
\let\ttl@midlongest\@empty
\let\ttl@endlongest\@empty
\let\iftitlemeasuring\@secondoftwo
\def\ttl@xbeginlongest#1\ttl@endlongest{%
\titlewidth\z@
\titlewidthlast\z@
\let\iftitlemeasuring\@firstoftwo
\setbox\ttl@box\vbox{%
\def\ttl@glcmds{%
\def\\{\@ifstar{\@ifnextchar[{\ttl@bs}{\newline}}%
{\@ifnextchar[{\ttl@bs}{\newline}}}%
\def\ttl@bs[####1]{\newline}%
\let\@centercr\\%
\def\ttl@midlongest####1\@@par{}% Very dirty...
\advance\rightskip 1\leftskip plus 1fil
\leftskip=\z@}%
#1}%
\let\iftitlemeasuring\@secondoftwo
\ttl@boxprocess
#1}
\def\ttl@boxprocess{%
\setbox\ttl@box=\vbox{%
\unvcopy\ttl@box
\unskip\unpenalty
\global\setbox\@ne=\lastbox}%
\ifvoid\@ne
\else
\setbox\tw@=\hbox{\hskip-\leftskip\unhbox\@ne\hskip-\rightskip}%
\titlewidthfirst\wd\tw@
\ifdim\titlewidth<\titlewidthfirst
\titlewidth\titlewidthfirst
\fi
\ifdim\titlewidthlast=\z@
\titlewidthlast\titlewidthfirst
\fi
\expandafter\ttl@boxprocess
\fi}
% Rules
% ~~~~~
\providecommand\titleline{%
\@ifstar{\ttl@line@i{\hb@xt@\titlewidth}}%
{\ttl@line@i{}}}
\def\ttl@line@i#1{%
\@ifnextchar[{\ttl@line{#1}}{\ttl@line{#1}[s]}}
\def\ttl@line#1[#2]#3{%
\vskip\topskip
\hrule \@height \z@
\nobreak
\vskip-\topskip
\begingroup
\parindent\z@
\everypar{}%
\leftskip\z@
\rightskip\z@ % #1 is either \hb@xt@\titlewidth or empty:
\@makebox[\hsize][#2]{\ttl@makeline{#1{#3}}}%
\par
\endgroup
\hrule height \z@
\nobreak}
\providecommand\titlerule{\@ifstar{\ttl@row}{\ttl@rule}}
\let\ttl@leaders\xleaders % For titletoc compatibility
\def\ttl@row{\@ifnextchar[{\ttl@row@i}{\ttl@row@i[\wd\z@]}}
\def\ttl@row@i[#1]#2{%
\ifvmode\expandafter\titleline\fi
{\sbox\z@{#2}%
\ttl@calcneg\hspace{#1}%
\hskip\wd\z@
\ttl@leaders\hb@xt@#1{\hss\box\z@}%
\hfill\kern\z@}}
\def\ttl@rule{\@ifnextchar[{\ttl@rule@i}{\ttl@rule@i[.4\p@]}}
\def\ttl@rule@i[#1]{%
\ifvmode\expandafter\titleline\fi
{\leaders\hrule height #1\hfill\kern\z@}}
% Par shapes and space
% ~~~~~~~~~~~~~~~~~~~~
\providecommand\filright{%
\gdef\ttl@filleft##1{\hskip##1}%
\gdef\ttl@filright##1{\hfill}%
\let\\\@centercr
\advance\rightskip\z@ \@plus 1fil\relax}
\providecommand\filleft{%
\gdef\ttl@filleft##1{\hfill}%
\gdef\ttl@filright##1{\hskip##1}%
\let\\\@centercr
\advance\leftskip\z@ \@plus 1fil
\parfillskip\z@}
\providecommand\filcenter{\filleft\filright
\gdef\ttl@filleft##1{\hfill}}
\providecommand\fillast{%
\gdef\ttl@filleft##1{\hfill}%
\gdef\ttl@filright##1{\hfill}%
\let\\\@centercr
\filleft\advance\rightskip\z@ \@plus -1fil
\parfillskip\z@ \@plus 2fil\relax}
\newcommand\filinner{%
\if@twoside
\ifodd\count\z@\filleft\else\filright\fi
\else
\filleft
\fi}
\newcommand\filouter{%
\if@twoside
\ifodd\count\z@\filright\else\filleft\fi
\else
\filright
\fi}
\newcommand\wordsep{\fontdimen\tw@\font \@plus
\fontdimen\thr@@\font \@minus \fontdimen4\font}
% +-----------------+
% | O P T I O N S |
% +-----------------+
\DeclareOption{pagestyles}{\let\sectiontitle\@empty}
\DeclareOption{extramarks}{\let\ttl@fetchmark\@empty}
\DeclareOption{floatps}{%
\ifx\sectiontitle\@empty
\let\ttl@replace\space
\else
\PackageWarning{titlesec}{Ignoring `floatps' without
`pagestyles'. This option is now deprecated.}%
\fi}
\DeclareOption{psfloats}{%
\ifx\sectiontitle\@empty
\let\ttl@replace\@empty
\else
\PackageWarning{titlesec}{Ignoring `psfloats' without
`pagestyles'}%
\fi}
\DeclareOption{loadonly}{\let\ttl@extract\@empty}
\DeclareOption{outermarks}{%
\def\ttl@titlemarks{\outertitlemarks}}
\DeclareOption{topmarks}{
\def\ttl@titlemarks{\toptitlemarks}}
\DeclareOption{botmarks}{%
\def\ttl@titlemarks{\bottitlemarks}}
\DeclareOption{innermarks}{%
\def\ttl@titlemarks{\innertitlemarks}}
\DeclareOption{footmarks}{} % Backward compat
\DeclareOption{explicit}{\ttl@explicittrue}
\DeclareOption{clearempty}{%
\def\cleardoublepage{%
\clearpage{\ps@empty\if@twoside\ifodd\c@page\else
\hbox{}\newpage\if@twocolumn\hbox{}\newpage\fi\fi\fi}}}
\DeclareOption{rigidchapters}{%
\def\ttl@topmode#1#2{\vbox to #1{#2\vfil}}%
\def\ttl@chapafter{.26\textheight}}
\DeclareOption{rubberchapters}{%
\def\ttl@topmode#1#2{{#2}\ttl@calc\vspace{#1}}%
\def\ttl@chapafter{40\p@}}
\DeclareOption{bottomtitles}{%
\def\bottomtitlespace{-1\p@}}
\DeclareOption{nobottomtitles}{%
\def\bottomtitlespace{.2\textheight}}
\DeclareOption{nobottomtitles*}{%
\let\ttl@addstretch\relax
\def\bottomtitlespace{.2\textheight}}
\DeclareOption{calcwidth}{%
\let\ttl@beginlongest\ttl@xbeginlongest}
\DeclareOption{aftersep}{%
\let\ttl@titlespace\@gobble}
\DeclareOption{largestsep}{%
\let\ttl@titlespace\addvspace}
\DeclareOption{oldparttoc}{%
\def\ttl@tocpart{\def\ttl@a{\thepart\hspace{1em}}}}
\DeclareOption{newparttoc}{%
\let\ttl@tocpart\relax}
\DeclareOption{rm}{%
\protected@xdef\ttl@fonts{\ttl@fonts\protect\rmfamily}}
\DeclareOption{sf}{%
\protected@xdef\ttl@fonts{\ttl@fonts\protect\sffamily}}
\DeclareOption{tt}{%
\protected@xdef\ttl@fonts{\ttl@fonts\protect\ttfamily}}
\DeclareOption{md}{%
\protected@xdef\ttl@fonts{\ttl@fonts\protect\mdseries}}
\DeclareOption{bf}{%
\protected@xdef\ttl@fonts{\ttl@fonts\protect\bfseries}}
\DeclareOption{up}{%
\protected@xdef\ttl@fonts{\ttl@fonts\protect\upshape}}
\DeclareOption{it}{%
\protected@xdef\ttl@fonts{\ttl@fonts\protect\itshape}}
\DeclareOption{sl}{%
\protected@xdef\ttl@fonts{\ttl@fonts\protect\slshape}}
\DeclareOption{sc}{%
\protected@xdef\ttl@fonts{\ttl@fonts\protect\scshape}}
\DeclareOption{big}{%
\gdef\ttl@sizes#1{\ifcase#1\relax\Huge\or\Large\or\large
\or\normalsize\or\or\or\huge\fi}}
\DeclareOption{medium}{%
\gdef\ttl@sizes#1{\ifcase#1\relax\huge\or\Large\or\large
\or\normalsize\or\or\or\LARGE\fi}}
\DeclareOption{small}{%
\gdef\ttl@sizes#1{\ifcase#1\relax\LARGE\or\large
\or\normalsize\or\normalsize\or\or\or\Large\fi}}
\DeclareOption{tiny}{%
\gdef\ttl@sizes#1{\ifcase#1\relax\large\or\normalsize\or
\normalsize\or\normalsize\or\or\or\normalsize\fi}}
\DeclareOption{raggedleft}{%
\gdef\ttl@fil{\filleft}}
\DeclareOption{center}{%
\gdef\ttl@fil{\filcenter}}
\DeclareOption{raggedright}{%
\gdef\ttl@fil{\filright}}
\DeclareOption{uppercase}{%
\gdef\ttl@case{\MakeUppercase}}
\DeclareOption{compact}{%
\gdef\ttl@space{1}%
\gdef\ttl@chapafter{30\p@}}
% Deprecated. To be remmoved in a major upgrade (3.0)
\DeclareOption{indentfirst}{%
\gdef\@afterindentfalse{\let\if@afterindent\iftrue}%
\@afterindenttrue
\def\titlespacing{%
\@ifstar{\ttl@spacing@i{\@ne}}{\ttl@spacing@i{\@ne}}}}
\DeclareOption{nonindentfirst}{%
\def\titlespacing{%
\@ifstar{\ttl@spacing@i{\z@}}{\ttl@spacing@i{\z@}}}}
% New names
\DeclareOption{indentafter}{%
\gdef\@afterindentfalse{\let\if@afterindent\iftrue}%
\@afterindenttrue
\def\titlespacing{%
\@ifstar{\ttl@spacing@i{\@ne}}{\ttl@spacing@i{\@ne}}}}
\DeclareOption{noindentafter}{%
\def\titlespacing{%
\@ifstar{\ttl@spacing@i{\z@}}{\ttl@spacing@i{\z@}}}}
% newlinetospace
\let\ttl@blinemarks\relax
\let\ttl@elinemarks\relax
\DeclareRobustCommand\ttl@linetosp{%
\@ifstar{\ttl@linetosp@i}{\ttl@linetosp@i}}%
\def\ttl@linetosp@i{%
\ifdim\lastskip>\z@\else\space\fi
\ignorespaces}
\DeclareOption{newlinetospace}{%
\def\ttl@blinemarks{%
\let\ttl@e\\%
\def\\{\ttl@linetosp}}%
\def\ttl@elinemarks{\let\\\ttl@e}}%
% toctitles
\def\ttl@addcontentsline#1#2{%
\addcontentsline{toc}{#1}{\ifttl@toclabel\ttl@a\fi#2}%
\nobreak}
\DeclareOption{toctitles}{%
\def\ttl@addcontentsline#1#2{%
\addcontentsline{toc}{#1}{\ifttl@toclabel\ttl@a\fi\ttl@savetitle}%
\nobreak}}
% pageatnewline
\def\ttl@changecentercr{%
\let\ttl@centercr\@centercr
\def\@centercr{\@ifstar{\ttl@centercr*}{\ttl@centercr*}}}
\DeclareOption{pageatnewline}{\let\ttl@changecentercr\relax}
\def\ttl@fonts{}
\ExecuteOptions{rubberchapters,bottomtitles,aftersep,oldparttoc,%
innermarks}
\ProcessOptions
% +-----------------+
% | H Y P E R R E F |
% +-----------------+
%
% These two commands are provided by hyperref. But if they
% are not defined at \begin{document} hyperref has not been
% loaded or it is an old version.
\AtBeginDocument{%
\ifx\ttl@Hy@steplink\@undefined
\let\ttl@Hy@steplink\@gobble
\let\ttl@Hy@refstepcounter\refstepcounter
\fi}
% +-----------------+
% | PAGE STYLES |
% +-----------------+
%
% This is generic:
\newcommand\assignpagestyle[2]{%
\@namedef{ttl@ps@\expandafter\@gobble\string#1}{#2}}
% Old pagestyles
% ~~~~~~~~~~~~~~
\providecommand\newpagestyle{%
\let\ttl@compatps\@empty % marks the ``old interface''
\makeatletter
\edef\ttl@d{%
\noexpand\input{ttlps.def}%
\catcode`\noexpand\@=\the\catcode`\@}%
\ttl@d
\newpagestyle}
\providecommand\renewpagestyle{%
\let\ttl@compatps\@empty % marks the ``old interface''
\makeatletter
\edef\ttl@d{%
\noexpand\input{ttlps.def}%
\catcode`\noexpand\@=\the\catcode`\@}%
\ttl@d
\renewpagestyle}
\providecommand\widenhead{%
\let\ttl@compatps\@empty % marks the ``old interface''
\makeatletter
\edef\ttl@d{%
\noexpand\input{ttlps.def}%
\catcode`\noexpand\@=\the\catcode`\@}%
\ttl@d
\widenhead}
% New pagestyles
% ~~~~~~~~~~~~~~
\@ifundefined{sectiontitle}{}{\input{ttlps.def}}
% +-----------------+
% | C O M P A T |
% +-----------------+
% Easy setup, i.e., that of package options, is
% taken care of, if necessary.
\renewcommand\secdef[2]{%
\@ifstar
{\ttl@labelfalse
#2}
{\ttl@labeltrue
\ifx#1\@chapter
\if@mainmatter\else\ttl@labelfalse\fi
\ifnum\ttll@chapter>\c@secnumdepth\ttl@labelfalse\fi
\else\ifx#1\@part
\ifnum\ttll@part>\c@secnumdepth\ttl@labelfalse\fi
\fi\fi
\let\ifttl@toclabel\ifttl@label
\@dblarg{#1}}}
\@ifundefined{ttl@extract}{}{\endinput}
\newcommand\titlelabel[1]{%
\def\@seccntformat##1{#1}}
\expandafter\ifx\csname chapter\endcsname\relax
\def\ttl@compatpart{\titleclass{\part}{part}\relax}
\else
\def\ttl@compatchapter{%
\def\@makechapterhead{%
\ttl@labeltrue
\if@mainmatter\else\ttl@labelfalse\fi
\ifnum\ttll@chapter>\c@secnumdepth\ttl@labelfalse\fi
\ttl@startargs\ttl@mkchap{chapter}}%
\def\@makeschapterhead{%
\ttl@labelfalse
\if@mainmatter\else\ttl@labelfalse\fi
\ifnum\ttll@chapter>\c@secnumdepth\ttl@labelfalse\fi
\ttl@startargs\ttl@mkchap{chapter}}}
\def\ttl@compatpart{\titleclass{\part}{page}\relax}
\fi
\def\ttl@@extract#1\@startsection#2#3#4#5#6#7#8{%
\@tempskipa=#5
\@tempskipb=#6
\ifdim\@tempskipa<\z@
\toks@{\titlespacing*#8{#4}}%
\@tempskipa-\@tempskipa
\else
\toks@{\titlespacing#8{#4}}%
\fi
\@ifundefined{ttl@space}{}{%
\ttl@assign\@tempskipa*\ttl@space\relax\beforetitleunit}%
\ifdim\@tempskipb<\z@
\if@tempswa
\titleformat#8[runin]%
{\ttl@fonts\ttl@sizes{#3}}{\@seccntformat{#2}}%
{\z@}\ttl@passexplicit
\else
\titleformat#8[runin]%
{#7}{\@seccntformat{#2}}%
{\z@}\ttl@passexplicit
\fi
\@tempskipb-\@tempskipb
\else
\if@tempswa
\titleformat#8%
{\ttl@fil\ttl@fonts\ttl@sizes{#3}}{\@seccntformat{#2}}%
{\z@}\ttl@passexplicit
\else
\titleformat#8%
{#7}{\@seccntformat{#2}}%
{\z@}\ttl@passexplicit
\fi
\@ifundefined{ttl@space}{}{%
\ttl@assign\@tempskipb*\ttl@space\relax\aftertitleunit}%
\fi
\edef\ttl@a{\the\toks@{\the\@tempskipa}{\the\@tempskipb}}
\ttl@a}
\def\ttl@extract#1{%
\expandafter\in@\expandafter\@startsection\expandafter{#1}%
\ifin@
\expandafter\ttl@@extract#1#1%
\else
\PackageWarningNoLine{titlesec}%
{Non standard sectioning command detected\MessageBreak
Using default spacing and no format}
\titlespacing*#1{\z@}{*3}{*2}%
\fi}
\@tempswafalse
\ifx\ttl@fonts\@empty
\def\ttl@fonts{\bfseries}
\else
\@tempswatrue
\fi
\expandafter\ifx\csname ttl@sizes\endcsname\relax
\gdef\ttl@sizes#1{\ifcase#1\relax\Huge\or\Large\or\large
\or\normalsize\or\or\or\huge\fi}
\else
\@tempswatrue
\fi
\expandafter\ifx\csname ttl@fil\endcsname\relax
\let\ttl@fil\@empty
\else
\@tempswatrue
\fi
\expandafter\ifx\csname ttl@case\endcsname\relax
\let\ttl@case\@firstofone
\else
\@tempswatrue
\fi
\if@tempswa
\expandafter\ifx\csname chapter\endcsname\relax\else
\titleformat\chapter[display]%
{\@ifundefined{ttl@fil}{\raggedright}{\ttl@fil}\ttl@fonts\ttl@sizes6}
{\@chapapp\space\thechapter}{.8\baselineskip}{\ttl@sizes\z@\ttl@passexplicit}
\fi
\fi
\ttl@extract\section
\ttl@extract\subsection
\ttl@extract\subsubsection
\ttl@extract\paragraph
\ttl@extract\subparagraph
\let\ttl@extract\@undefined
\let\ttl@@extract\@undefined
\def\ttl@toplevel{part}
\expandafter\ifx\csname chapter\endcsname\relax
\@namedef{ttll@part}{0}
\titleclass{\section}{straight}[\part]
\titlespacing*{\part}
{\z@}
{4ex}
{3ex}
\else
\let\ttl@save@mkchap\@makechapterhead
\let\ttl@save@mkschap\@makeschapterhead
\def\@makechapterhead#1{%
\gdef\ttl@savemark{\chaptermark{#1}}%
\ttl@save@mkchap{#1}%
\@ifundefined{ttl@ps@chapter}{}%
{\thispagestyle{\@nameuse{ttl@ps@chapter}}}}
\def\@makeschapterhead#1{%
\gdef\ttl@savemark{\chaptermark{#1}}%
\ttl@save@mkschap{#1}%
\@ifundefined{ttl@ps@chapter}{}%
{\thispagestyle{\@nameuse{ttl@ps@chapter}}}}
\@namedef{ttll@part}{-1}
\@namedef{ttlss@part}{chapter}
\@namedef{ttll@chapter}{0}
\titleclass{\section}{straight}[\chapter]
% The following is unoperant, unless when \chapter / \part
% format is redefined
\titlespacing*{\part}
{\z@}
{\z@\@plus1fil}
{\z@\@plus1fil}
\titlespacing*\chapter
{\z@}%
{50\p@}%
{\ttl@chapafter}%
\fi
\titleclass{\subsection} {straight}[\section]
\titleclass{\subsubsection}{straight}[\subsection]
\titleclass{\paragraph} {straight}[\subsubsection]
\titleclass{\subparagraph} {straight}[\paragraph]
\endinput