local p = {}
local infobox = require("Module:Infobox")
local infoboxImage = require("Module:InfoboxImage")
local arguments = require("Module:Arguments")
local error = require("Module:Error")
local colors = {
animalia = "ebebd2",
archaea = "c3f5fa",
archaeplastida = "b4fab4",
bacteria = "dcebf5",
eukaryota = "f5d7ff",
fungi = "91fafa",
ichnotaxa = "e6ded6",
["incertae sedis"] = "faf0e6",
SAR = "c8fa50",
ootaxa = "fafadc",
virus = "fafabe",
}
local colorAlts = {
nanoarchaeota = "archaea",
nanarchaeota = "archaea",
korarchaeota = "archaea",
thaumarchaeota = "archaea",
crenarchaeota = "archaea",
euryarchaeota = "archaea",
plantae = "archaeplastida",
viridiplantae = "archaeplastida",
excavata = "eukaryota",
amoebozoa = "eukaryota",
Opisthokonta = "eukaryota",
chromalveolata = "SAR",
viroids = "viruses",
}
local function getColor(args)
if args.regnum then
local f = mw.ustring.gsub(mw.ustring.lower(args.regnum), "[\]\[]", "") -- catches potential [[ ]] around the input parameter
return colors[colorAlts[f] or f]
end
end
local classification = {
{ arg_name = "unranked_superdomain", label = "(unranked)" },
{ arg_name = "superdomain", label = "Superdomain" },
{ arg_name = "domain", label = "Domain" },
{ arg_name = "superregnum", label = "Superkingdom" },
{ arg_name = "unranked_regnum", label = "(unranked)" },
{ arg_name = "regnum", label = "Kingdom" },
{ arg_name = "subregnum", label = "Subkingdom" },
{ arg_name = "superdivisio", label = "Superdivision" },
{ arg_name = "superphylum", label = "Superphylum" },
{ arg_name = "unranked_divisio", label = "(unranked)" },
{ arg_name = "divisio", label = "Division" },
{ arg_name = "unranked_phylum", label = "(unranked)" },
{ arg_name = "phylum", label = "Phylum" },
{ arg_name = "subdivisio", label = "Subdivision" },
{ arg_name = "subphylum", label = "Subphylum" },
{ arg_name = "infraphylum", label = "Infraphylum" },
{ arg_name = "microphylum", label = "Microphylum" },
{ arg_name = "nanophylum", label = "Nanophylum" },
{ arg_name = "superclassis", label = "Superclass" },
{ arg_name = "unranked_classis", label = "(unranked)" },
{ arg_name = "classis", label = "Class" },
{ arg_name = "unranked_subclassis", label = "(unranked)" },
{ arg_name = "subclassis", label = "Subclass" },
{ arg_name = "unranked_infraclassis", label = "(unranked)" },
{ arg_name = "magnordo", label = "Magnorder" },
{ arg_name = "superordo", label = "Superorder" },
{ arg_name = "unranked_ordo", label = "(unranked)" },
{ arg_name = "ordo", label = "Order" },
{ arg_name = "subordo", label = "Suborder" },
{ arg_name = "infraordo", label = "Infraorder" },
{ arg_name = "parvordo", label = "Parvorder" },
{ arg_name = "zoodivisio", label = "Division" },
{ arg_name = "zoosectio", label = "Section" },
{ arg_name = "zoosubsectio", label = "Subsection" },
{ arg_name = "unranked_superfamilia", label = "Superfamily" },
{ arg_name = "familia", label = "Family" },
{ arg_name = "subfamilia", label = "Subfamily" },
{ arg_name = "supertribus", label = "Supertribe" },
{ arg_name = "unranked_tribus", label = "(unranked)" },
{ arg_name = "tribus", label = "Tribe" },
{ arg_name = "subtribus", label = "Subtribe" },
{ arg_name = "alliance", label = "''Alliance''" },
{ arg_name = "unranked_genus", label = "(unranked)" },
{ arg_name = "genus", label = "Genus" },
{ arg_name = "subgenus", label = "Subgenus" },
{ arg_name = "sectio", label = "Section" },
{ arg_name = "subsectio", label = "Subsection" },
{ arg_name = "series", label = "Series" },
{ arg_name = "subseries", label = "Subseries" },
{ arg_name = "species_group", label = "''Species group''" },
{ arg_name = "species_subgroup", label = "''Species subgroup''" },
{ arg_name = "species_complex", label = "''Species complex''" },
{ arg_name = "species", label = "Species" },
{ arg_name = "subspecies", label = "Subspecies" },
{ arg_name = "variety", label = "Variety" },
{ arg_name = "forma", label = "Form" },
}
function p.main(frame)
local args = arguments.getArgs(frame)
return p._main(args)
end
local conservation_data = {
["secure"] = ""
}
local function authority_help(args, type)
if args[type] and not args[type .. "_authority"] then
return args[type]
end
if args[type] and args[type .. "_authority"] then
return args[type] .. " (" .. args[type .. "_authority"] .. ")"
end
end
function p._main(args)
local passing = {}
passing.above = args.name or mw.title.getCurrentTitle()
if args.fossil_range then
passing.subheader = "Temporal range: " .. args.fossil_range
end
local color = getColor(args)
if color then
passing.abovestyle = "background-color: #" .. color
passing.subheaderstyle = "background-color: #" .. color
passing.headerstyle = "background-color: #" .. color
end
if args.image then
passing.image = infoboxImage.InfoboxImage({["args"] = {["image"] = args.image, ["upright"] = args.upright or args.image_upright, ["alt"] = args.alt or args.image_alt}})
passing.caption = args.caption or args.image_caption
end
if args.image2 then
passing.image2 = infoboxImage.InfoboxImage({["args"] = {["image"] = args.image2, ["upright"] = args.upright2 or args.image2_upright, ["alt"] = args.alt2 or args.image2_alt}})
passing.caption2 = args.caption2 or args.image2_caption
end
if args.status and args.status_system then
passing.header1 = "[[Conservation status]]"
passing.data2 = "status image goes here"
passing.data3 = args.status .. " (" .. args.status_system .. ")"
end
if args.status and not args.status_system then
error.error({"Infobox:Taxobox: using \"status\" without \"status_system\""})
end
passing.header4 = "[[Scientific classification]]"
local i = 5
for _, t in ipairs(classification) do
local k = t.arg_name
local v = t.label
if args[k] then
passing["label" .. i] = v
passing["data" .. i] = authority_help(args, k)
i = i + 1
end
end
return infobox.infobox(passing)
end
return p
