Re: 枠の外に通しのノンブルを付けたい

名前: MRM
日時: 2002-07-27 21:34:13
IPアドレス: 203.205.0.*

>>9697

たびたび返事を書いてくださいまして皆様ありがとうございます．

角藤さんも>>9697で教えてくださいましたし，
いつもお世話になっている奥村さんの本にも「@を含む命令にアクセスしたいときは…」と
書いてあるのでもちろん囲んではいるんですが，うまくいかなくて…．

一応，プリアンブルに追加した内容を貼らせて頂きます．おかしなことやっているのを
発見されたらご指摘して頂けるとありがたいです．

\makeatletter
%%% 水平移動量の計算
\setbox\z@\hbox{\hskip5mm\@bannerfont\the\@bannertoken}
\dimen@\wd\z@ \advance\dimen@5mm
\edef\@put@totalpage@hshift{\the\dimen@}
\def\@put@totalpage{%
   \rlap{%
      \vbox to\z@{\vss
         \hbox to\z@{%
            \dimen@\@saved@oddsidemargin
            \if@twoside \ifodd\c@page\else
               \dimen@\@saved@evensidemargin
            \fi\fi
            \hskip-\dimen@
            \hbox to\paperwidth{%%% (*)表示形式を変えるときはこの付近をいじる
               \hskip\@put@totalpage@hshift
               \normalfont\ttfamily\#\number\@totalpage
               \hfil}%
            \hss}%
         %%% 垂直移動量の計算
         \dimen@\headheight
         \advance\dimen@\topmargin \advance\dimen@ 1in
         \advance\dimen@ 3mm \advance\dimen@4\p@
         \vskip\dimen@}}}
\newcount\@totalpage
\let\@primitive@shipout\shipout
\def\shipout{%
   \global\advance\@totalpage\@ne
   \@primitive@shipout}
%%% 左右の余白量の保存
\dimen@\oddsidemargin \advance\dimen@ 1in
\edef\@saved@oddsidemargin{\the\dimen@}
\dimen@\evensidemargin \advance\dimen@ 1in
\edef\@saved@evensidemargin{\the\dimen@}
%%% 各ページスタイルの再定義
\def\ps@plain{%
  \let\@mkboth\@gobbletwo
  \let\@oddfoot\@empty
  \let\@evenfoot\@empty
  \def\@evenhead{\@put@totalpage\hss
    \hbox to \fullwidth{\textbf{\thepage}\hfil}}%
  \def\@oddhead{\@put@totalpage%
    \hbox to \fullwidth{\hfil\textbf{\thepage}}\hss}}
\def\ps@headings{%
  \let\@oddfoot\@empty
  \let\@evenfoot\@empty
  \def\@evenhead{\@put@totalpage\hss
    \underline{\hbox to \fullwidth{\autoxspacing
        \textbf{\thepage}\hfil\leftmark}}}%
  \def\@oddhead{\@put@totalpage\underline{\hbox to \fullwidth{\autoxspacing
        {\rightmark}\hfil\textbf{\thepage}}}\hss}%
  \let\@mkboth\markboth
  \def\chaptermark##1{\markboth{%
    \ifnum \c@secnumdepth >\m@ne
      \if@mainmatter
        \@chapapp\thechapter\@chappos\hskip1zw
      \fi
    \fi
    ##1}{}}%
  \def\sectionmark##1{\markright{%
    \ifnum \c@secnumdepth >\z@ \thesection \hskip1zw\fi
    ##1}}}%
\def\ps@myheadings{%
  \let\@oddfoot\@empty\let\@evenfoot\@empty
  \def\@evenhead{\@put@totalpage\thepage\hfil\leftmark}%
  \def\@oddhead{{\@put@totalpage\rightmark}\hfil\thepage}%
  \let\@mkboth\@gobbletwo
  \let\chaptermark\@gobble
  \let\sectionmark\@gobble
}
\def\ps@empty{%
  \let\@mkboth\@gobbletwo
  \let\@oddhead\@put@totalpage\@empty
  \let\@oddfoot\@empty
  \let\@evenhead\@put@totalpage\@empty
  \let\@evenfoot\@empty}
\makeatother

この書き込みへの返事：