(* Index file, compact listing *)
maintainIndexC := (
Print["Creating compact listing ..."];
font =12;
margin =1;
sfont := Switch[font, 14, "small", 12, "x-small", _, ToString[font]];
text = {
"
Flora of Qatar - list of plants
Home Page > Picture Archives > " <>
" > Compact list" <>
" | Alphabetical list" <>
" | List by family
Flora of Qatar
",
head = "| Name | Family | Synonyms | Common names |
|---|
";
head0 := "| " <> class <> " |
";
total := "
| " <> ToString[nplant] <> If[nplant == 1, " species", " species"] <> " |
" <> ToString[nfamily] <> If[nfamily == 1, " family", " families"] <> " |
|
|
";
(* --- Listing starts *)
family0 = "";
g0 = -1;
nfamily = nplant = 0;
Table[{
{g, family, genus, plant} = line;
name = plantname[plant];
name0 = shortenname[name];
syns = plantsynonyms[plant];
names = plantnames[plant];
cnames = Complement[names, {name0}, syns, SameTest -> ((ToLowerCase[#1] === ToLowerCase[#2]) &)];
planta = StringReplace[plant, " " -> "_"];
plantal = ToLowerCase[planta];
datasql = plantdatasql[plant];
npic = Length[datasql];
namep = " plantal <> ".htm\" title=\"" <> ToString[npic] <> " picture" <> If[npic == 0, "", "s"] <> "\">" <> name0 <> "";
msyn = 10;
synsp = If[Length[syns] <= msyn,
StringJoin[Riffle[syns, ", "]],
StringJoin[Riffle[Take[syns, msyn], ", "]] <> " ..."];
mnam = 15;
namesp = If[Length[cnames] <= mnam,
StringJoin[Riffle[cnames, ", "]],
StringJoin[Riffle[Take[cnames, mnam], ", "]] <> " ..."];
class = Switch[g, 0, "Gymnosperms", 1, "Dicotyledons", 2, "Monocotyledons", _, (Print["Error: g undefined: ", g]; "UNDEFINED g")];
If[g != g0,
out = Switch[g, 0, {head0, head},
1, {total, head0, head},
2, {total, head0, head},
_, (Print["Error: g undefined: ", g]; "Undefined g")];
nfamily = nplant = 0;
g0 = g;
out,
{}],
nplant++;
familyp = "";
If[family =!= family0,
familyp = " ToLowerCase[family] <> ".htm\">" <> family <> "";
family0 = family;
nfamily++;
];
color = If[OddQ[nfamily], "#FFFFFF", "#F0F0F0"];
" color <> "\">
| " <> namep <> " |
" <> familyp <> " |
" <> synsp <> " |
" <> namesp <> " |
"}, {line, listsort}],
total,
"
",
(* Listing ends --- *)
(* Footer *)
"Links
Outside links
How the web page was created
- A list of plants with their common names was written using online sources and books.
- Web pages were written by a program consisting of several scripts.
- Full names, synonyms, and classification of plants were found online from catalogueoflife.org and theplantlist.org
using a script.
- Pictures of plants were selected from a database
using a script.
- This web page was written
using a script.
Acknowledgements
QNHG (Qatar Natural History Group) and associated people,
for a possibility to participate in their field excursions and to learn about local nature.