doc-src/TutorialI/extra.sty
author wenzelm
Sun, 23 Jul 2000 12:06:46 +0200
changeset 9413 ba209591a8d4
parent 8743 3253c6046d57
child 9675 0fe0dce56bd8
permissions -rw-r--r--
assimilated;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8743
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
     1
% extra.sty : Isabelle Manual extra macros for non-Springer version
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
     2
%
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
     3
\typeout{Document Style extra. Released 17 February 1994}
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
     4
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
     5
%%Euro-style date: 20 September 1955
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
     6
\def\today{\number\day\space\ifcase\month\or
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
     7
January\or February\or March\or April\or May\or June\or
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
     8
July\or August\or September\or October\or November\or December\fi
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
     9
\space\number\year}
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    10
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    11
%%Borrowed from alltt.sty, but leaves % as the comment character
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    12
\def\docspecials{\do\ \do\$\do\&%
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    13
  \do\#\do\^\do\^^K\do\_\do\^^A\do\~}
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    14
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    15
%%%Put first chapter on odd page, with arabic numbering; like \cleardoublepage
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    16
\newcommand\clearfirst{\clearpage\ifodd\c@page\else
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    17
    \hbox{}\newpage\if@twocolumn\hbox{}\newpage\fi\fi
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    18
    \pagenumbering{arabic}}
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    19
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    20
%%%Ruled chapter headings 
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    21
\def\@rulehead#1{\hrule height1pt \vskip 14pt \Huge \bf 
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    22
   #1 \vskip 14pt\hrule height1pt}
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    23
\def\@makechapterhead#1{ { \parindent 0pt 
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    24
 \ifnum\c@secnumdepth >\m@ne \raggedleft\large\bf\@chapapp{} \thechapter \par 
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    25
 \vskip 20pt \fi \raggedright \@rulehead{#1} \par \nobreak \vskip 40pt } }
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    26
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    27
\def\@makeschapterhead#1{ { \parindent 0pt \raggedright 
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    28
 \@rulehead{#1} \par \nobreak \vskip 40pt } }
3253c6046d57 I wonder if that's all?
nipkow
parents:
diff changeset
    29