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}}
|
