Modul:Taxobox
Die Dokumentation für dieses Modul kann unter Modul:Taxobox/Doku erstellt werden
local p={}
function wikidataAuthor()
entity = mw.wikibase.getEntity()
if not entity or not entity.claims then return end
local property = entity.claims[ 'p405' ]
if not property then return end--no such property for this item
authorsNames = {}
for i,author in pairs( property ) do
local propValue = author.mainsnak and author.mainsnak.datavalue
local linkTarget = mw.wikibase.sitelink( "Q" .. propValue.value['numeric-id'] )
local linkTitle = mw.wikibase.label( "Q" ..propValue.value['numeric-id'] )
local name = mw.ustring.gsub( linkTitle or linkTarget , '.+ (.*)', "%1")
local link = (linkTarget and '[['..linkTarget..'|'..name..']]') or name
table.insert(authorsNames, link)
end
return table.concat( authorsNames, ", ")
end
function p.header( kingdom, title )
if not p.color then
local colors = {
[ "Bacteria" ] = "#D3D3D3",
[ "Archea" ] = "#ECD2D2",
[ "Animalia"]="#D3D3A4",
[ "Animal"]="#D3D3A4",
[ "Metazoa"]="#D3D3A4",
[ "Fungi"]="lightblue",
[ "Eukaryota"]="#E0D2B0",
[ "Eukarya"]="#E0D2B0",
[ "Plantae" ] = "lightgreen"
}
local colorKingdom = colors[kingdom]
if not colorKingdom and kingdom then --pattern search - usefull for links...
for k,v in pairs( colors ) do
if string.find( kingdom,k ) then
colorKingdom = v
break
end
end
end
p.color = colorKingdom or "#CE9EF2"
end
return "! colspan=\"2\" style=\"text-align: center; background-color: " .. p.color .. ";\" | " .. title
end
function translateFromLatin( latin )
local latinDict = {
['virus_group'] = 'Group',
['superregnum'] = 'Superkingdom',
['divisio'] = 'Division',
['zoodivisio'] = 'Division',
['regnum'] = 'Kingdom',
['subregnum'] = 'Subkingdom',
['zoosectio'] = 'Section',
['zoosubsectio'] = 'Subsection',
['superclassis'] = 'Superclass',
['subclassis'] = 'Subclass',
['infraclassis'] = 'Infraclass',
['classis'] = 'Class',
['magnordo'] = 'Magnorder',
['superordo'] = 'Superorder',
['grandordo'] = 'Grandorder',
['ordo'] = 'Order',
['subordo'] = 'Suborder',
['infraordo'] = 'Infraorder',
['infraordo'] = 'Microrder',
['parvordo'] = 'Parvorder',
['superfamilia'] = 'Superfamily',
['familia'] = 'Family',
['subfamilia'] = 'Subfamily',
['supertribus'] = 'Supertribe',
['tribus'] = 'Tribe',
['subtribus'] = 'Subtribe',
['infratribus'] = 'Infratribe',
['species_group'] = 'Species group',
['species_subgroup'] = 'Species subgroup',
['species_complex'] = 'Species complex',
['cladus'] = 'Clade',
['ichnostem-group'] = 'Ichnostem-Group',
['ichnosuperclassis'] = 'Ichnosuperclass',
['ichnoclassis'] = 'Ichnoclass',
['ichnosubclassis'] = 'Ichnosubclass',
['ichnoinfraclassis'] = 'Ichnoinfraclass',
['ichnodivisio'] = 'Ichnodivision',
['ichnosubdivisio'] = 'Ichnosubdivision',
['ichnoinfradivisio'] = 'Ichnoinfradivision',
['ichnomagnordo'] = 'Ichnomagnorder',
['ichnosuperordo'] = 'Ichnosuperorder',
['ichnograndordo'] = 'Ichnograndorder',
['ichnomicrordo'] = 'Ichnomicrorder',
['ichnoordo'] = 'Ichnoorder',
['ichnosubordo'] = 'Ichnosuborder',
['ichnoinfraordo'] = 'Ichnoinfraorder',
['ichnoparvordo'] = 'Ichnoparvorder',
['ichnosuperfamilia'] = 'Ichnosuperfamily',
['ichnofamilia'] = 'Ichnofamily',
['ichnosubfamilia'] = 'Ichnosubfamily',
['ooclassis'] = 'Ooclass',
['oosubclassis'] = 'Oosubclass',
['oosupercohort'] = 'Oosupercohort',
['oocohort'] = 'Oocohort',
['oomagnordo'] = 'Oomagnorder',
['oosuperordo'] = 'Oosuperorder',
['oordo'] = 'Oorder',
['morphotype'] = 'Morphotype',
['oofamilia'] = 'Oofamily',
['oogenus'] = 'Oogenus',
['oosubgenus'] = 'Oogenus',
['oospecies'] = 'Oospecies',
['oosubspecies'] = 'Oosubspecies',
['sectio'] = 'Section',
['subsectio'] = 'Subsection',
['superdivisio'] = 'Superdivision'
}
latin = string.gsub( latin, '(.*) .*', '%1' ) --only the first word
local lang = mw.language.getContentLanguage()
return latinDict[ latin ] or lang:ucfirst( latin )
end
function p.taxbox( frame )
local realParams={}
local wikidataProp = require("Module:PropertyLink")
local classificationParam = {
"unranked_superdomain",
"superdomain",
"unranked_domain",
"domain",
"unranked_superregnum",
"superregnum",
"unranked_regnum",
"regnum",
"unranked_subregnum",
"subregnum",
"unranked_superdivisio",
"superdivisio",
"unranked_superphylum",
"superphylum",
"unranked_divisio",
"divisio",
"unranked_phylum",
"phylum",
"unranked_subdivisio",
"subdivisio",
"unranked_subphylum",
"subphylum",
"unranked_infraphylum",
"infraphylum",
"unranked_microphylum",
"microphylum",
"unranked_nanophylum",
"nanophylum",
"unranked_superclassis",
"superclassis",
"unranked_classis",
"classis",
"unranked_subclassis",
"subclassis",
"unranked_infraclassis",
"infraclassis",
"unranked_magnordo",
"magnordo",
"unranked_superordo",
"superordo",
"unranked_ordo",
"ordo",
"unranked_subordo",
"subordo",
"unranked_infraordo",
"infraordo",
"unranked_parvordo",
"parvordo",
"unranked_zoodivisio",
"zoodivisio",
"unranked_zoosectio",
"zoosectio",
"unranked_zoosubsectio",
"zoosubsectio",
"unranked_superfamilia",
"superfamilia",
"unranked_familia",
"familia",
"unranked_subfamilia",
"subfamilia",
"unranked_supertribus",
"supertribus",
"unranked_tribus",
"tribus",
"unranked_subtribus",
"subtribus",
"unranked_alliance",
"alliance",
"unranked_genus",
"genus",
"unranked_subgenus",
"subgenus",
"unranked_sectio",
"sectio",
"unranked_subsectio",
"subsectio",
"unranked_series",
"series",
"unranked_subseries",
"subseries",
"unranked_species_group",
"species_group",
"unranked_species_subgroup",
"species_subgroup",
"unranked_species_complex",
"species_complex",
"unranked_species",
"species",
"unranked_subspecies",
"subspecies"
}
local wikidataTaxonProperties = {
[ "regnum"] = 'p75',
[ "phylum"] = 'p76',
[ "classis"] = 'p77',
[ "ordo"] = 'p70',
[ "familia"] = 'p71',
[ "genus"] = 'p74',
[ "species"] = 'p89',
[ "binomial"] = 'p225',
[ "binomial_authority"] = 'p405',
[ "status"] = 'p141',
[ "range_map"] = 'p181'
}
local classifiedUnderParams = {
"Phyla",
"Classes",
"Subclasses",
"Orders",
"Families",
"Genera",
}
local currTitle = tostring( mw.title.getCurrentTitle() )
local title = currTitle
local headerKingdom = wikidataProp.getProperty( wikidataTaxonProperties[ "regnum" ] )
local mainHeader = p.header( headerKingdom, title )
local wikidataEntity = mw.wikibase.getEntity()
local wikidataEdit = '[[File:Gnome-edit-clear.svg|20px|edit|link=' ..((wikidataEntity and 'd:' .. wikidataEntity.id) or '//www.wikidata.org/wiki/Special:NewItem?label='..mw.uri.encode( currTitle )) .. ']]'
local imageArea = wikidataProp.getImageLink()
imageArea = imageArea and string.format([[
|-
| colspan="2" style="text-align: center; font-size: 88%%" | %s
]], imageArea )
local distributionMap = wikidataProp.getImageLink( wikidataTaxonProperties["range_map"] )
distributionMap = distributionMap and string.format([[
|-
%s
|-
| colspan="2" | %s
]],p.header( headerKingdom,'[[Species distribution|Distribution]]'), distributionMap )
local synoyms = ''
synoyms = synoyms and string.format([[
|-
%s
|-
colspan="2" style="font-size:90%;" | %s
]],p.header( headerKingdom,'Synonyms'), synoyms )
local iucnStatus = ''
statusFile = {
['Least Concern'] = 'LC',
['Near Threatened'] = 'NT',
['endangered species'] = 'EN',
['vulnerable species'] = 'VU',
['Critically Endangered'] = 'CR',
['extinct in the wild'] = 'EW',
['Extinct'] = 'EX',
['Data Deficient'] = 'DD'
}
statusDescription = {
['EX'] = '[[Extinction|Extinct]]',
['EW'] = '[[Extinct in the Wild]]',
['CR'] = '[[Critically endangered species|Critically Endangered]]',
['EN'] = '[[Endangered species|Endangered]]',
['VU'] = '[[Vulnerable species|Vulnerable]]',
['LC'] = '[[Least Concern]]',
['CD'] ='[[Conservation Dependent]]',
['NT'] = '[[Near Threatened]]'
}
wikidataStatus=wikidataProp.getLabel( wikidataTaxonProperties[ "status"] )
iucnStatus = (iucnStatus and string.upper(iucnStatus)) or (wikidataStatus and statusFile [wikidataStatus])
if iucnStatus then
iucnStatus = '[[file:Status iucn2.3 ' .. iucnStatus ..'.svg|frameless|link=|alt=]]'..'<br>'..statusDescription[iucnStatus]
end
iucnStatus = iucnStatus and string.format([[
|-
%s
|-
| colspan="2" style="text-align:center;" | %s
]],p.header( headerKingdom,'[[Conservation status]]'), iucnStatus )
local classifictionSection = ''
local taxonRank
local usesWikidataParam = false
local underGenus = false
for i,j in ipairs( classificationParam ) do
--_authority
local taxonVal = ''
if not taxonVal then
taxonVal = ( wikidataTaxonProperties[j] and wikidataProp.getProperty( wikidataTaxonProperties[j] ) )
if taxonVal then
usesWikidataParam = true
end
end
if taxonVal then
if j=='genus' then
underGenus = true
end
local taxonHeader = translateFromLatin(j)
taxonRank = j
--italics for genus, species
taxonVal = ((not string.find(taxonVal,"''")) and underGenus and "''"..taxonVal.."''" ) or taxonVal
--to do maybe translate latin to english if we want to add latin parameters
classifictionSection = classifictionSection..'\n|-\n|'..taxonHeader..': ||'..((currTitle==taxonVal and "'''"..taxonVal.."'''") or taxonVal)
end
end
local classificationSectionHeader = (usesWikidataParam and '[[Biological classification|Scientific classification]]'..'<span class="editsection">'..wikidataEdit..'</span>' ) or '[[Biological classification|Scientific classification]]'
classifictionSection = ('|-\n' .. p.header( headerKingdom, classificationSectionHeader ).. classifictionSection)
local underClassification
local taxonomicName = wikidataProp.getProperty( wikidataTaxonProperties[ "binomial" ])
if taxonomicName then
local taxonomicDisplay = (( taxonRank=="Species" or taxonRank=="Genus") and "''"..taxonomicName.."''" ) or taxonomicName
local taxonom = wikidataAuthor()
taxonomicName = '|-\n'..p.header( headerKingdom,"[[Binomial nomenclature|Binomial name]]")..'\n|-\n| colspan="2" style="text-align: center;" | '..taxonomicDisplay
if taxonom then
taxonom = '<br /><small>'..taxonom..'</small>'
taxonomicName = taxonomicName..taxonom
end
end
local taxonSections = { imageArea or "" ,iucnStatus or "", classifictionSection or "", underClassification or "", taxonomicName or "", distributionMap or "", synoyms or "" }
local realSections = {}
for i,j in ipairs( taxonSections ) do
if string.len( j )>0 then table.insert( realSections,j ) end
end
taxonSections = table.concat( realSections, "\n")
result = string.format([[
{| class="infobox biota" style="text-align: left; width: 200px; font-size: 100%%"
|-
%s
%s
|}
]], mainHeader,taxonSections )
return result
end
return p