blob: 7f5d03549d1f805a9c3468b2507b96a4d60a6ffd (
plain)
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
|
% chaptoc.sty
% Kapitelstartseite mit Mini-TOC
% Format Mini-TOC
\newcommand{\l@chapentry}[2]
{\renewcommand{\numberline}[1]
{\parbox[r]{2em}{##1}}
#1\\}
% erweitere Mini-TOC bei jeder \section
\renewcommand{\sectionmark}[1]
{\markright{\sffamily\thesection\quad#1}
\myaddtocont{\protect\contentsline{chapentry}%
{\protect\numberline{\thesection}#1}{\thepage}}
}
% Aus LaTeX.ltx mit Aenderungen fuer Mini-TOC
\renewcommand{\@makechapterhead}[1]
{\vspace*{3em}\noindent%
\textsf{\Large\thechapter\quad #1}\\*[2em]
\rule{\textwidth}{0.5pt}
\noindent\@mystarttoc{t\thechapter}\par
\vspace*{3em}}
% Sternform ohne TOC
\renewcommand{\@makeschapterhead}[1]
{\vspace*{3em}\noindent\textsf{\Large#1}\\*[3em]}
% allokiere einen einzigen Ausgabestream
\newwrite\shorttoc
% Uebernahme aus LaTeX.ltx mit Anpassungen ---
% liest Mini-TOC ein und setze Ausgabestream
% auf neue Datei.
\newcommand{\@mystarttoc}[1]
{\begingroup
\makeatletter
\typeout{input jobname.#1}
\@input{\jobname.#1}
\protected@write\@auxout
{\let\label\@gobble \let\index\@gobble
\let\glossary\@gobble}%
{\immediate\openout\shorttoc \jobname.#1\relax}
\global\@nobreakfalse\endgroup}
\newcommand{\myaddtocont}[1]
{\protected@write \@auxout
{\let\label\@gobble \let\index\@gobble
\let\glossary\@gobble}%
{\string\@mywritefile{#1}}}
\newcommand{\@mywritefile}[1]
{\@temptokena{#1}
\immediate\write\shorttoc{\the\@temptokena}}
\AtEndDocument{\protected@write\@auxout
{}{\immediate\closeout\shorttoc}}
|
