summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/shipunov/tex/biolist.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/shipunov/tex/biolist.sty')
-rw-r--r--macros/latex/contrib/shipunov/tex/biolist.sty51
1 files changed, 51 insertions, 0 deletions
diff --git a/macros/latex/contrib/shipunov/tex/biolist.sty b/macros/latex/contrib/shipunov/tex/biolist.sty
new file mode 100644
index 0000000000..d673ab173f
--- /dev/null
+++ b/macros/latex/contrib/shipunov/tex/biolist.sty
@@ -0,0 +1,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}