doc-src/extra.sty
changeset 9675 0fe0dce56bd8
parent 596 cffb278ec83e
child 9691 88d8d45a4cc4
equal deleted inserted replaced
9674:f789d2490669 9675:0fe0dce56bd8
     1 % extra.sty : Isabelle Manual extra macros for non-Springer version
     1 % extra.sty : Isabelle Manual extra macros for non-Springer version
     2 %
     2 %
     3 \typeout{Document Style extra. Released 17 February 1994}
     3 \typeout{Document Style extra. Released 17/2/94, version of 22/8/00}
       
     4 
       
     5 \usepackage{ttbox}
       
     6 {\obeylines\gdef\ttbreak
       
     7 {\allowbreak}}
     4 
     8 
     5 %%Euro-style date: 20 September 1955
     9 %%Euro-style date: 20 September 1955
     6 \def\today{\number\day\space\ifcase\month\or
    10 \def\today{\number\day\space\ifcase\month\or
     7 January\or February\or March\or April\or May\or June\or
    11 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
    12 July\or August\or September\or October\or November\or December\fi
     9 \space\number\year}
    13 \space\number\year}
    10 
       
    11 %%Borrowed from alltt.sty, but leaves % as the comment character
       
    12 \def\docspecials{\do\ \do\$\do\&%
       
    13   \do\#\do\^\do\^^K\do\_\do\^^A\do\~}
       
    14 
       
    15 \def\alltt{\trivlist \item[]\if@minipage\else\vskip\parskip\fi
       
    16 \leftskip\@totalleftmargin\rightskip\z@
       
    17 \parindent\z@\parfillskip\@flushglue\parskip\z@
       
    18 \@tempswafalse \def\par{\if@tempswa\hbox{}\fi\@tempswatrue\@@par}
       
    19 \obeylines \tt \catcode``=13 \@noligs \let\do\@makeother \docspecials
       
    20  \frenchspacing\@vobeyspaces}
       
    21 
       
    22 \let\endalltt=\endtrivlist
       
    23 
       
    24 %Indented, boxed alltt environment; uses \small\tt font
       
    25 %\leftmargini is LaTeX's first-level indentation for items (2.5em)
       
    26 %@endparenv is LaTeX's trick for preventing indentation of next paragraph
       
    27 %redefines \{ and \} to be in \tt font
       
    28 \newenvironment{ttbox}{\par\nobreak\vskip-2pt
       
    29            \vbox\bgroup\footnotesize\begin{alltt}\chardef\{=`\{\chardef\}=`\}%
       
    30              \leftskip\leftmargini}%
       
    31         {\end{alltt}\egroup\vskip-7pt\@endparenv}
       
    32 \newcommand\ttbreak{\end{ttbox}\vskip-10pt\begin{ttbox}}
       
    33 
    14 
    34 %%%Put first chapter on odd page, with arabic numbering; like \cleardoublepage
    15 %%%Put first chapter on odd page, with arabic numbering; like \cleardoublepage
    35 \newcommand\clearfirst{\clearpage\ifodd\c@page\else
    16 \newcommand\clearfirst{\clearpage\ifodd\c@page\else
    36     \hbox{}\newpage\if@twocolumn\hbox{}\newpage\fi\fi
    17     \hbox{}\newpage\if@twocolumn\hbox{}\newpage\fi\fi
    37     \pagenumbering{arabic}}
    18     \pagenumbering{arabic}}