cgit.sxemacs.org Git - gnus/blob - texi/pagestyle.sty

   1
   2 \catcode `\÷ = \active
   3 \def ÷{\penalty10000\hskip0.001pt-\penalty\hyphenpenalty\hskip0.001pt\relax}
   4
   5 \def \newpagestyle#1#2#3{\@namedef{ps@#1}{\def\@oddhead{#2}\def\@oddfoot{#3}%
   6         \let\@evenhead\@oddhead \let\@evenfoot\@oddfoot}}
   7 \def \newdoublepagestyle#1#2#3#4#5{\@namedef{ps@#1}{\def\@evenhead{#2}%
   8         \def\@oddhead{#3}%
   9         \def\@evenfoot{#4}%
  10         \def\@oddfoot{#5}}}
  11
  12 \newlength{\headtextwidth}
  13 \setlength{\headtextwidth}{\textwidth}
  14 \addtolength{\headtextwidth}{2cm}
  15 \newlength{\headetextwidth}
  16 \setlength{\headetextwidth}{\headtextwidth}
  17 \addtolength{\headetextwidth}{-0.5cm}
  18 \newlength{\headotextwidth}
  19 \setlength{\headotextwidth}{\headtextwidth}
  20 \addtolength{\headotextwidth}{-0.35cm}
  21
  22 \def\outputpage{%
  23   \let \protect \noexpand
  24   \shipout \vbox{%
  25     \set@typeset@protect
  26     \aftergroup\set@typeset@protect
  27     \@shipoutsetup
  28     \@begindvi
  29     \vskip \topmargin
  30     \moveright\@themargin \vbox {%
  31       \setbox\@tempboxa \vbox to\headheight{%
  32         \vfil
  33         \color@hbox
  34           \normalcolor
  35           \hb@xt@ \headtextwidth {%
  36             \let \label \@gobble
  37             \let \index \@gobble
  38             \let \glossary \@gobble %% 21 Jun 91
  39             \@thehead
  40             }%
  41         \color@endbox
  42         }%                        %% 22 Feb 87
  43       \ifodd\c@page
  44          \dp\@tempboxa \z@
  45          \box\@tempboxa \mbox{} \\
  46          \ifx \@oddhead\@empty\else
  47    %      \rule{\headotextwidth}{0.5pt}
  48          \fi
  49       \else
  50          \hskip -2.2cm
  51          \dp\@tempboxa \z@
  52          \box\@tempboxa \mbox{}
  53         \\\mbox{}
  54          \vskip 2pt
  55          \hskip -2.0cm
  56          \ifx \@oddhead\@empty\else
  57     %     \rule{\headetextwidth}{0.5pt}
  58          \fi