summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/shipunov/tex/biolist.sty
blob: d673ab173fe09bccb0ecd4e5e7dd27b90192cf6c (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
39
40
41
42
43
44
45
46
47
48
49
50
51
% Author: Alexey Shipunov, dactylorhiza@gmail.com

\ProvidesPackage{biolist}%
        [2008/02/06 v0.1 Typesetting species lists for floras (and faunas)]

\newcounter{SEMEYSTVO}[subsection]
\newcounter{VID}[subsection]
\newcounter{SEMVID}[SEMEYSTVO]
\newcount\DOUBLE
\DOUBLE=1

% Species names
\def\VDVID{\ifnum\DOUBLE=0
	\arabic{VID}.%
        \else
        \arabic{SEMVID}(\arabic{VID}).%
        \fi}

\def\VID{\@ifnextchar*\VID@@{\VID@}}
% \VID
\def\VID@#1 #2 #3{\addtocounter{VID}{1}\addtocounter{SEMVID}{1}%
        \hangindent=3.5em\noindent%
        \makebox[3.3em][r]{\VDVID}\hskip.2em%
\textit{#1 #2} #3}
% \VID* for cultivated species
% objazatelen probel posle komandy!
\def\VID@@* #1 #2 #3{\hangindent=3.5em\noindent%
        \makebox[3.3em][r]{$*$\hskip.2em}\hskip.2em%
\textit{#1 #2} #3}

% Comment for species. No paragraph before!
\def\VKOMM#1\par{\par\nopagebreak%
        \parindent=3.5em\hangindent=\parindent%
        \samepage%
	{\footnotesize#1\par}}
\let\VK\VKOMM

% Names for families (or other higher rank taxa)
\def\SEM{\@ifstar{\SEM@@}{\SEM@}}
% \SEM
\def\SEM@#1{\medskip
        \stepcounter{SEMEYSTVO}
        \parindent=2em\hangindent=2em
        {\bfseries\Roman{SEMEYSTVO}. }%
\textbf{#1}\nopagebreak%
\smallskip}
% \SEM* for families consist enrirely of cultivated species
\def\SEM@@#1{\medskip
        \parindent=2em\hangindent=2em
        \textbf{$*$ #1}\nopagebreak%
\smallskip}