git.chise.org Git - elisp/gnus.git-/blob - texi/pagestyle.sty

   1 \def\verbatim@font{\fontencoding{OT1}\fontfamily{pcr}\fontsize{10pt}{10}\selectfont}
   2
   3 \catcode `\÷ = \active
   4 \def ÷{\penalty10000\hskip0.001pt-\penalty\hyphenpenalty\hskip0.001pt\relax}
   5
   6 \def \newpagestyle#1#2#3{\@namedef{ps@#1}{\def\@oddhead{#2}\def\@oddfoot{#3}%
   7         \let\@evenhead\@oddhead \let\@evenfoot\@oddfoot}}
   8 \def \newdoublepagestyle#1#2#3#4#5{\@namedef{ps@#1}{\def\@evenhead{#2}%
   9         \def\@oddhead{#3}%
  10         \def\@evenfoot{#4}%
  11         \def\@oddfoot{#5}}}
  12
  13 \newlength{\headtextwidth}
  14 \setlength{\headtextwidth}{\textwidth}
  15 \addtolength{\headtextwidth}{2cm}
  16 \newlength{\headetextwidth}
  17 \setlength{\headetextwidth}{\headtextwidth}
  18 \addtolength{\headetextwidth}{-0.5cm}
  19 \newlength{\headotextwidth}
  20 \setlength{\headotextwidth}{\headtextwidth}
  21 \addtolength{\headotextwidth}{-0.35cm}
  22
  23 \def\outputpage{%
  24   \let \protect \noexpand
  25   \shipout \vbox{%
  26     \set@typeset@protect
  27     \aftergroup\set@typeset@protect
  28     \@shipoutsetup
  29     \@begindvi
  30     \vskip \topmargin
  31     \moveright\@themargin \vbox {%
  32       \setbox\@tempboxa \vbox to\headheight{%
  33         \vfil
  34         \color@hbox
  35           \normalcolor
  36           \hb@xt@ \headtextwidth {%
  37             \let \label \@gobble
  38             \let \index \@gobble
  39             \let \glossary \@gobble %% 21 Jun 91
  40             \@thehead
  41             }%
  42         \color@endbox
  43         }%                        %% 22 Feb 87
  44       \ifodd\c@page
  45          \dp\@tempboxa \z@
  46          \box\@tempboxa \mbox{} \\
  47          \ifx \@oddhead\@empty\else
  48    %      \rule{\headotextwidth}{0.5pt}
  49          \fi
  50       \else
  51          \hskip -2.2cm
  52          \dp\@tempboxa \z@
  53          \box\@tempboxa \mbox{}
  54         \\\mbox{}
  55          \vskip 2pt
  56          \hskip -2.0cm
  57          \ifx \@oddhead\@empty\else
  58     %     \rule{\headetextwidth}{0.5pt}
  59          \fi
  60       \fi
  61       \vskip \headsep
  62       \box\@outputbox
  63       \baselineskip \footskip
  64       \color@hbox
  65         \normalcolor
  66         \hb@xt@\textwidth{%
  67           \let \label \@gobble
  68           \let \index \@gobble      %% 22 Feb 87
  69           \let \glossary \@gobble   %% 21 Jun 91
  70           \@thefoot
  71           }%
  72       \color@endbox
  73       }%
  74     }%
  75   \global \@colht \textheight
  76   \stepcounter{page}%
  77   \let\firstmark\botmark
  78 }
  79
  80 \def\@makechapterhead#1{\gnuspagechapter{#1}}
  81
  82 \setcounter{tocdepth}{3}
  83 \setcounter{secnumdepth}{3}
  84
  85 \def\verbatim@font{\fontfamily{bcr}\fontsize{10pt}{10}\selectfont}