summaryrefslogtreecommitdiff
path: root/info/examples/ltt/verscnt.sty
blob: fb8aa0e130c7e3f715298b1cbc9a0f5d7ed870fd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
%  verscnt.sty
%  \begin{versenumber}[Start]
%    \item Vers <Start> ...
%    \item Vers <Start>+1 ...
%    \item Vers <Start>+2 ...
%  \end{versenumber}
%  Start kann entfallen, Zaehlung dann fortlaufend
\RequirePackage{calc}

% entweder (Nummer) oder (Kapitel--Nummer)
\@ifundefined{chapter}
 {\newcounter{verscnt}
  \renewcommand{\theverscnt}
    {(\arabic{verscnt})}}
 {\newcounter{verscnt}[chapter]
  \renewcommand{\theverscnt}
    {(\thechapter--\arabic{verscnt})}}
\setcounter{verscnt}{0}

% damit Zaehler nicht mit 0 initialisiert wird
\newcommand{\myusecounter}[1]
 {\@nmbrlisttrue\def\@listctr{#1}}

% Verse mit \item einleiten
% optional: Start-Versnummer-1
\newenvironment{versenumber}[1][\value{verscnt}]
 {\begin{list}
   {\theverscnt}
   {\myusecounter{verscnt}
    \setcounter{verscnt}{#1}
    \@ifundefined{chapter}
      {\settowidth{\labelwidth}{(999)}}
      {\settowidth{\labelwidth}{(99--999)}}
    \setlength{\labelsep}{1ex}
    \setlength{\itemindent}{\labelwidth+\labelsep}
   }
 }
 {\end{list}}