Re: 見出しと段落の間のスペース

名前: misc
日時: 2004-03-13 15:36:59
IPアドレス: 210.230.18.*

>>27129
# \@startsection の第 5 引数（の自然長）を正でない値にすると
# 見出しに続くテキストが見出しに追い込まれてしまうので，
ここでは \section/\subsection に何かかぶせればいいでしょう．
例えば，次のようなところでしょうか．

\documentclass{article}
% \section/\subsection の定義における \@startsection の
% 第 5 引数の自然長は正の値である（i.e. 見出しの終端で改行し，
% 後続のテキストを追い込まない）ものと仮定．
\makeatletter
\let\orgsection\section
\def\section{\@ifstar\sectionstar{\@dblarg\sectionnormal}}
\def\sectionstar#1{\orgsection*{#1}\nobreak\vskip-\parskip}
\def\sectionnormal[#1]#2{\orgsection[{#1}]{#2}\nobreak\vskip-\parskip}
\let\orgsubsection\subsection
\def\subsection{\@ifstar\subsectionstar{\@dblarg\subsectionnormal}}
\def\subsectionstar#1{\orgsubsection*{#1}\addvspace{-\parskip}}
\def\subsectionnormal[#1]#2{\orgsubsection[{#1}]{#2}\addvspace{-\parskip}}
\makeatother

\parskip 12pt

\begin{document}

\def\text{%
   This is a~meaningless sample text.
   This is a~meaningless sample text.
   This is a~meaningless sample text.
   This is a~meaningless sample text.
   This is a~meaningless sample text.\par}

\section{Sample section}
\subsection{Sample subsection}
\text\text\text

\subsection{Sample subsection}
\text\text\text

\section{Sample subsection}
\text\text\text
\end{document}

この書き込みへの返事：