Re: subchapterは出せるのでしょうか?

名前: Th\'or
日時: 2005-10-14 01:55:08
IPアドレス: 210.225.229.*

>>38555
jsbook で横着すると以下のような感じになるのでしょうか。体裁ついては
私は分かりませんので調整しておりません。

\documentclass[report,english]{jsbook}
\makeatletter
\if@english
  \if@twocolumn
    \renewcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
      {\z@}{-1zw}% 改行せず 1zw のアキ
      {\normalfont\normalsize\headfont}}%
  \else
    \renewcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
      {0.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}{-1zw}%
      {\normalfont\normalsize\headfont}}%
  \fi
\fi
\def\usesubchapter{%
  \let\orig@section\section
  \let\orig@subsection\subsection
  \let\orig@subsubsection\subsubsection
  \if@twocolumn
    \renewcommand{\section}{%
      \@startsection{section}{1}{\z@}%
      {0.6\Cvs}{0.4\Cvs}%
      {\normalfont\large\headfont\raggedright\presectionname
       \nobreakspace}}%
  \else
    \renewcommand{\section}{%
      \if@slide\clearpage\fi
      \@startsection{section}{1}{\z@}%
      {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
      {.5\Cvs \@plus.3\Cdp}% 後アキ
      {\normalfont\Large\headfont\raggedright\presectionname
      \nobreakspace}}%
  \fi
  \let\subchapter\section
  \let\section\subsection
  \let\subsection\subsubsection
  \let\subsubsection\paragraph
  \renewcommand\presectionname{Subchapter}%  第
  \addtocounter{secnumdepth}{1}%
}
\def\restoresubchapter{%
  \let\subchapter\@empty
  \let\section\orig@section
  \let\subsection\orig@subsection
  \let\subsubsection\orig@subsubsection
  \let\presectionname\@empty
  \addtocounter{secnumdepth}{-1}
}
\makeatother
\begin{document}

\chapter{Hoge}
\section{h}
\subsection{o}
\subsubsection{g}

\usesubchapter
\chapter{Foo}
\subchapter{var}
\section{bar}
\subsection{var}
\subsubsection{bar}

\restoresubchapter
\chapter{Bar}
\section{piyo}
\subsection{tato}
\subsubsection{tate}
\end{document}

この書き込みへの返事：