Re: 規則集のスタイル

名前: Diospyros
日時: 2009-01-13 17:37:42
IPアドレス: 121.2.66.*

>>52526

昔作ったもので，スマートではありませんが，参考までに。
長くなるので，サンプルは別に書き込みます。

%
%       law.sty    Japanese Law Style by Diospyros
%
\NeedsTeXFormat{pLaTeX2e}
\ProvidesPackage{law}[2000/07/01]
\RequirePackage{tatesuji}% by Prof. Shinsaku Fujita

%
% 見出し
\def\midashi#1{\par\vskip1zh\par\hbox to \textwidth{%
    \small （#1） \hss}\par\kern-.7zw\par}%
%
% カウンタ設定
%
\newcounter{jouctr}
\newcounter{gouctr}
\newcounter{kouctr}
\def\myusecounter#1{\@nmbrlisttrue\def\@listctr{#1}\setcounter{#1}1}
%
% jou 環境   条
%
\def\jou{\list{第\Tatesuji{jouctr}条\hss}{%
    \usecounter{jouctr}%
    \topsep\z@\parsep\z@
    \labelwidth\z@ \leftmargin1zw \parsep\z@ \itemindent\z@
    \labelsep 1zw \itemsep .5zw}}%
\let\endjou\endlist
%
% kou 環境   項
%
\def\kou{\list{\iftdir\rensuji{\arabic{kouctr}}\else\arabic{kouctr}\fi\hss}{%
    \myusecounter{kouctr}%
    \labelwidth\z@ \leftmargin.15em \parsep\z@\itemindent\z@
    \labelsep 1zw \itemsep .5zw}}%
\let\endkou\endlist
%
%  gou 環境   号
%
\def\gou{\list{\iftdir\Tatesuji{gouctr}\else\Tatesuji{gouctr}\fi\hss}{%
    \usecounter{gouctr}%
    \labelwidth\z@ \leftmargin1zw \parsep\z@
    \labelsep 1zw \itemsep .5zw}}%
\let\endgou\endlist
%
%  \ref の変更
%
\def\ref#1{\expandafter\@setref\csname r@#1\endcsname\@FirstofTwo{#1}}
\long\def\@FirstofTwo#1#2{\tatesuji{#1}}
%
% 第○条の○(手抜き)
%
\def\edajou#1{第\Tatesuji{jouctr}条の\tatesuji{#1}}
%
\endinput

この書き込みへの返事：