Re: 「コラム」などへの参照、目次出力

名前: 永田善久
日時: 2003-01-25 18:28:55
IPアドレス: 133.100.243.*

>>15496

未だ達人の方々からの回答が得られないようですので，自らの非力は承知の上で，
以下のような「ascmac.sty に含まれる itembox 環境を拝借した」モノを
考えてみました。一つのご参考までに。

コラム部分は

\begin{column}[r]{コラム}

\end{column}

と，環境指定してやってください。left, center, right のオプションは
itembox の場合と全く同じです。

---------------
\documentclass[a4paper]{jsbook}
\usepackage{ascmac}

\makeatletter
\newcounter{column}
\def\column{\@ifnextchar[{\@column}{\@column[c]}}
\def\@column[#1]#2{%
 \refstepcounter{column}% 
  \@savetbaselineshift\tbaselineshift\tbaselineshift\z@
  \par\vspace{.3\baselineskip}%
\setbox\@iboxstr=\hbox{#2~\thecolumn}\@itemh\ht\@iboxstr\advance\@itemh\dp\@iboxstr
  \vspace{.5\@itemh}\bgroup\@scw\linewidth
  \advance\@scw-20pt\@iboxpos={#1}%
  \setbox\scb@x=\hbox\bgroup\begin{minipage}{\@scw}%
  \tbaselineshift\@savetbaselineshift% (KN:1998/02/27)
  \vspace*{.5\@itemh}
\addcontentsline{loc}{column}{#2~\thecolumn}}%
\newcommand\listofcolumns{%
    \if@twocolumn
      \@restonecoltrue\onecolumn
    \else
      \@restonecolfalse
    \fi
    \chapter*{\listcolumnname}%
      \@mkboth{\MakeUppercase\listcolumnname}%
              {\MakeUppercase\listfigurename}%
    \@starttoc{loc}%
    \if@restonecol\twocolumn\fi
    }
\newcommand*\l@column{\@dottedtocline{1}{1.5em}{2.3em}}
\newcommand{\listcolumnname}{コラム目次}
\def\endcolumn{\end{minipage}\egroup%
  \setbox\scscb@x=\hbox to\linewidth{\hfil\vbox{\offinterlineskip%
  \thicklines\setlength{\unitlength}{1pt}%
  \hbox to\@scw{\if l\the\@iboxpos\else\@hleader\fi
    \space\vbox to.8pt{\vss\hbox{\box\@iboxstr}\vss}%
    \space\if r\the\@iboxpos\else \@hleader\fi}\kern9.6pt
  \@hobox{tl}{tr}{20}\kern-10pt\box\scb@x\@hobox{bl}{br}{20}%
  \kern-.8pt\hrule height.8pt}\hfil}\dimen0=\ht\scscb@x%
  \noindent\hbox to\linewidth{\hbox to.6pt{\vbox to\dimen0{\@vrf@{10pt}{.8pt}}%
  \hss}\box\scscb@x\hbox to.6pt{\hss\vbox to\dimen0{\@vrf@{10pt}{.9pt}}}%
  \hss}\egroup}
\makeatother

\begin{document}
\tableofcontents
\listofcolumns
\chapter{あいうえお}
\section{あああ}
あああああ。コラム\ref{lum}は\pageref{lum}ページ参照。

\begin{column}[l]{コラム}\label{ko}
コココココ。
\end{column}

\section{いいい}
いいいいい。

\begin{column}[c]{コラム}\label{lum}
ラララララ。コラム\ref{ne}は\pageref{ne}ページ参照。
\end{column}

\section{ううう}
ううううう。コラム\ref{ko}は\pageref{ko}ページ参照。

\begin{column}[r]{コラム}\label{ne}
ネネネネネ。
\end{column}
\end{document}

この書き込みへの返事：