disser update (23jul07)

git-svn-id: svn://tug.org/texlive/trunk@4658 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 80 insertions, 48 deletions

diff --git a/Master/texmf-dist/source/latex/disser/page.dtx b/Master/texmf-dist/source/latex/disser/page.dtx
index 5002679d69b..c17b6edf331 100644
--- a/Master/texmf-dist/source/latex/disser/page.dtx
+++ b/Master/texmf-dist/source/latex/disser/page.dtx
@@ -3,39 +3,6 @@
 %<*page>
 %    \end{macrocode}
 %
-% \subsection{Параметры страниц}
-%
-% Интервал между колонками текста.
-%    \begin{macrocode}
-\setlength\columnsep{10\p@}
-%    \end{macrocode}
-%
-% Ширина разделителя (линии) между колонками текста (по умолчанию его нет).
-%    \begin{macrocode}
-\setlength\columnseprule{0\p@}
-%    \end{macrocode}
-% Стиль оформления колонтитулов страницы.
-%    \begin{macrocode}
-\pagestyle{plain}
-%    \end{macrocode}
-% Стиль нумерации страниц.
-%    \begin{macrocode}
-\pagenumbering{arabic}
-%    \end{macrocode}
-% Для односторонних документов разрешается делать страницы с разной высотой
-% текста.
-%    \begin{macrocode}
-\if@twoside\else\raggedbottom\fi
-%    \end{macrocode}
-% Для двухколоночных документов:
-% |\flushbottom| запрещает делать страницы с разной высотой текста,
-% |\sloppy| включает менее жесткие ограничения на разрывы строк.
-%    \begin{macrocode}
-\if@twocolumn\twocolumn\sloppy\flushbottom
-\else\onecolumn\fi
-
-%    \end{macrocode}
-%
 % \subsection{Определение стилей страниц}
 %
 % \subsubsection{headings}
@@ -50,34 +17,38 @@
 %   \begin{itemize}
 %   \item Колонтитулы:
 %     \begin{itemize}
-%     \item на нечетных страницах снизу.
+%     \item нижний на четных страницах.
+%    \begin{macrocode}
+    \let\@evenfoot\@empty
+%    \end{macrocode}
+%     \item нижний на нечетных страницах.
 %    \begin{macrocode}
-    \let\@oddfoot\@empty\let\@evenfoot\@empty
+    \let\@oddfoot\@empty
 %    \end{macrocode}
-%     \item на четных страницах сверху.
+%     \item верхний на четных страницах.
 %    \begin{macrocode}
-    \def\@evenhead{\thepage\hfil\slshape\leftmark}%
+    \def\@evenhead{\thepage\hfil\evenheadfont\leftmark}%
 %    \end{macrocode}
-%     \item на нечетных страницах сверху.
+%     \item верхний на нечетных страницах.
 %    \begin{macrocode}
-    \def\@oddhead{{\slshape\rightmark}\hfil\thepage}%
+    \def\@oddhead{{\oddheadfont\rightmark}\hfil\thepage}%
     \let\@mkboth\markboth
 %    \end{macrocode}
 %     \end{itemize}
-%   \item Постоянная часть заголовка главы.
+%   \item Формат заголовков глав в колонтитулах.
 %    \begin{macrocode}
     \def\chaptermark##1{%
-      \markboth{\textsc{%
+      \markboth{{\chaptermarkfont %
       \ifnum \c@secnumdepth >\m@ne
         \@tocseccntformat{chapter} \ %
       \fi
       ##1}}{}%
     }%
 %    \end{macrocode}
-%   \item Постоянная часть заголовка секции.
+%   \item Формат заголовков секций в колонтитулах.
 %    \begin{macrocode}
     \def\sectionmark##1{%
-      \markright{\MakeUppercase{%
+      \markright{{\sectionmarkfont %
       \ifnum \c@secnumdepth >\z@
         \@tocseccntformat{section}%
       \fi
@@ -107,7 +78,7 @@
 %    \item Формат маркера главы.
 %    \begin{macrocode}
     \def\chaptermark##1{%
-    \markright {\textsc{%
+    \markright {{\chaptermarkfont %
     \ifnum\c@secnumdepth >\m@ne
       \@tocseccntformat{chapter} \ %
     \fi
@@ -116,8 +87,7 @@
 %    \item Формат маркера секции.
 %    \begin{macrocode}
     \def\sectionmark##1{%
-      \markright{
-        \MakeUppercase{
+      \markright{{\sectionmarkfont %
           \ifnum \c@secnumdepth >\z@
             \@tocseccntformat{section} \ %
           \fi
@@ -136,11 +106,73 @@
 %    \begin{macrocode}
 \def\ps@myheadings{%
   \let\@oddfoot\@empty\let\@evenfoot\@empty
-  \def\@evenhead{\thepage\hfil\slshape\leftmark}%
-  \def\@oddhead{{\slshape\rightmark}\hfil\thepage}%
+  \def\@evenhead{\thepage\hfil\evenheadfont\leftmark}%
+  \def\@oddhead{{\oddheadfont\rightmark}\hfil\thepage}%
   \let\@mkboth\@gobbletwo
   \let\chaptermark\@gobble
   \let\sectionmark\@gobble
 }
+%    \end{macrocode}
+% \subsection{Параметры страниц}
+%
+% Интервал между колонками текста.
+%    \begin{macrocode}
+\setlength\columnsep{10\p@}
+%    \end{macrocode}
+%
+% Ширина разделителя (линии) между колонками текста (по умолчанию его нет).
+%    \begin{macrocode}
+\setlength\columnseprule{0\p@}
+%    \end{macrocode}
+% Стиль оформления колонтитулов страницы.
+%    \begin{macrocode}
+\pagestyle{plain}
+%    \end{macrocode}
+% Стиль нумерации страниц.
+%    \begin{macrocode}
+\pagenumbering{arabic}
+%    \end{macrocode}
+% Для односторонних документов разрешается делать страницы с разной высотой
+% текста.
+%    \begin{macrocode}
+\if@twoside\else\raggedbottom\fi
+%    \end{macrocode}
+% Для двухколоночных документов:
+% |\flushbottom| запрещает делать страницы с разной высотой текста,
+% |\sloppy| включает менее жесткие ограничения на разрывы строк.
+%    \begin{macrocode}
+\if@twocolumn\twocolumn\sloppy\flushbottom
+\else\onecolumn\fi
+%    \end{macrocode}
+% \DescribeMacro{\evenheadfont}
+% \DescribeMacro{\evenfootfont}
+% \DescribeMacro{\oddheadfont}
+% \DescribeMacro{\oddfootfont}
+% Шрифт колонтитулов.
+% \begin{itemize}
+% \item Верхний, на четных страницах.
+%    \begin{macrocode}
+\newcommand\evenheadfont{\slshape}
+%    \end{macrocode}
+% \item Нижний, на четных страницах.
+%    \begin{macrocode}
+\newcommand\evenfootfont{}
+%    \end{macrocode}
+% \item Верхний, на нечетных страницах.
+%    \begin{macrocode}
+\newcommand\oddheadfont{\slshape}
+%    \end{macrocode}
+% \item Нижний, на нечетных страницах.
+%    \begin{macrocode}
+\newcommand\oddfootfont{}
+%    \end{macrocode}
+% \end{itemize}
+% 
+% \DescribeMacro{\chaptermarkfont}
+% \DescribeMacro{\sectionmarkfont}
+%    \begin{macrocode}
+\newcommand\chaptermarkfont{\slshape}
+\newcommand\sectionmarkfont{\MakeUppercase}
+
 %</page>
 %    \end{macrocode}