doc-src/extra.sty
changeset 292 cc69ef31cfc3
child 455 466dd59b3645
equal deleted inserted replaced
291:a615050a7494 292:cc69ef31cfc3
       
     1 % extra.sty : Isabelle Manual extra macros for non-Springer version
       
     2 %
       
     3 \typeout{Document Style extra. Released 17 February 1994}
       
     4 
       
     5 %%Euro-style date: 20 September 1955
       
     6 \def\today{\number\day\space\ifcase\month\or
       
     7 January\or February\or March\or April\or May\or June\or
       
     8 July\or August\or September\or October\or November\or December\fi
       
     9 \space\number\year}
       
    10 
       
    11 \input{alltt.sty}
       
    12 %Indented, boxed alltt environment; uses \small\tt font
       
    13 %\leftmargini is LaTeX's first-level indentation for items (2.5em)
       
    14 %@endparenv is LaTeX's trick for preventing indentation of next paragraph
       
    15 \newenvironment{ttbox}{\par\nobreak\vskip-2pt
       
    16            \vbox\bgroup\footnotesize\begin{alltt} \leftskip\leftmargini}%
       
    17         {\end{alltt}\egroup\vskip-7pt\@endparenv}
       
    18 \newcommand\ttbreak{\end{ttbox}\vskip-10pt\begin{ttbox}}
       
    19 
       
    20 %%%Put first chapter on odd page, with arabic numbering; like \cleardoublepage
       
    21 \newcommand\clearfirst{\clearpage\ifodd\c@page\else
       
    22     \hbox{}\newpage\if@twocolumn\hbox{}\newpage\fi\fi
       
    23     \pagenumbering{arabic}}
       
    24 
       
    25 %%%Ruled chapter headings 
       
    26 \def\@rulehead#1{\hrule height1pt \vskip 14pt \Huge \bf 
       
    27    #1 \vskip 14pt\hrule height1pt}
       
    28 \def\@makechapterhead#1{ { \parindent 0pt 
       
    29  \ifnum\c@secnumdepth >\m@ne \raggedleft\large\bf\@chapapp{} \thechapter \par 
       
    30  \vskip 20pt \fi \raggedright \@rulehead{#1} \par \nobreak \vskip 40pt } }
       
    31 
       
    32 \def\@makeschapterhead#1{ { \parindent 0pt \raggedright 
       
    33  \@rulehead{#1} \par \nobreak \vskip 40pt } }
       
    34