-- A more extensive version is stored and documented at the Swedish Wikipedia site, sv.wikipedia.org/wiki/Modul:Databox
-- It is supposed to work for any language.
local property_blacklist = {
'P360', --is a list of
'P4224', --category contains
'P935', -- Commons gallery
'P1472', -- Commons Creator page
'P1612', -- Commons Institution page
'P373', -- Commons category
'P3722', -- Commons maps category
'P1151', -- topic's main Wikimedia portal
'P1424', -- topic's main template
'P910', -- topic's main category
'P1200', -- bodies of water basin category
'P1792', -- category of associated people
'P1464', -- category for people born here
'P1465', -- category for people who died here
'P1791', -- category of people buried here
'P1740', -- category for films shot at this location
'P2033', -- Category for pictures taken with camera
'P2517', -- category for recipients of this award
'P4195', -- category for employees of the organization
'P1754', -- category related to list
'P301', -- category's main topic
'P971', -- category combines topics
'P3876', -- category for alumni of educational institution
'P1753', -- list related to category
'P3921', -- Wikidata SPARQL query equivalent
'P1204', -- Wikimedia portal's main topic
'P1423', -- template's main topic
'P1709', -- equivalent class
'P3950', -- narrower external class
'P2888', -- exact match
'P1382', -- coincident with
'P527', -- has part
'P2670', -- has parts of the class
'P3113', -- does not have part
'P2737', -- union of
'P2738', -- disjoint union of
'P2445', -- metasubclass of
'P1963', -- properties for this type
'P3176', -- uses property
'P1889', -- different from
'P460', -- said to be the same as
'P2959', -- permanent duplicated item
'P2860', -- cites
'P5125', -- wikimedia outline
'P5008', -- on focus list of Wikimedia project
'P2559', -- Wikidata usage instructions
'P1343', -- described by source
'P972', -- catalogu
'P1282', -- OSM tag or key
'P4839', -- Wolfram Language entity code
'P6104', -- Maintained by Wikiproject
'P5996' -- Category for films in this language
}
function valuesToKeys(array)
local result = {}
for _, v in pairs(array) do
result[v] = true
end
return result
end
local p = {}
function p.databox(frame)
local args = frame:getParent().args
local itemId = nil
if args.item then
itemId = args.item
end
local lang = mw.language.getContentLanguage()
local item = mw.wikibase.getEntity(itemId)
if item == nil then
mw.addWarning("Wikidata item not found")
return ""
end
-- Create infobox table with infoboxperson styling
local databoxRoot = mw.html.create('table')
:addClass('infobox')
:addClass('vcard')
:css({
['border'] = '1px solid #aaa',
['background-color'] = '#f9f9f9',
['color'] = 'black',
['margin-bottom'] = '0.5em',
['margin-left'] = '1em',
['padding'] = '0.2em',
['float'] = 'right',
['clear'] = 'right',
['font-size'] = '88%',
['width'] = '22em',
})
-- Title (using infoboxperson header style)
databoxRoot:tag('tr')
:tag('th')
:attr('colspan', 2)
:wikitext(item:getLabel() or mw.title.getCurrentTitle().text)
:css({
['background-color'] = '#ccd2d9',
['padding'] = '0.4em',
['text-align'] = 'center',
['font-weight'] = 'bold',
})
-- Image (using infoboxperson image style)
local images = item:getBestStatements('P18')
if #images >= 1 then
databoxRoot:tag('tr')
:tag('td')
:attr('colspan', 2)
:wikitext('[[File:' .. images[1].mainsnak.datavalue.value .. '|250px]]')
:css({
['text-align'] = 'center',
['padding'] = '0.5em'
})
-- Caption
local caption = item:getBestStatements('P2096')[1]
if caption then
databoxRoot:tag('tr')
:tag('td')
:attr('colspan', 2)
:wikitext(item:formatStatements('P2096').value)
:css({
['text-align'] = 'center',
['padding'] = '0.2em',
['font-style'] = 'italic',
})
end
end
-- Instance of (using infoboxperson section style)
local instance = item:formatStatements('P31')
if instance then
databoxRoot:tag('tr')
:tag('th')
:attr('colspan', 2)
:wikitext(instance.value)
:css({
['background-color'] = '#ddd',
['padding'] = '0.4em',
['text-align'] = 'center',
['font-weight'] = 'bold',
})
end
-- Properties table (using infoboxperson row styling)
local properties = mw.wikibase.orderProperties(item:getProperties())
local property_blacklist_hash = valuesToKeys(property_blacklist)
property_blacklist_hash['P31'] = true --Special property
local edit_message = mw.message.new('vector-view-edit'):plain()
for _, property in pairs(properties) do
local datatype = item.claims[property][1].mainsnak.datatype
local valueCount = #item:getBestStatements(property)
if datatype ~= 'commonsMedia' and datatype ~= 'external-id' and datatype ~= 'quantity' and
datatype ~= 'wikibase-property' and datatype ~= 'geo-shape' and datatype ~= 'tabular-data' and
not property_blacklist_hash[property] and valueCount > 0 and valueCount <= 5 then
local propertyValue = item:formatStatements(property)
databoxRoot:tag('tr')
:tag('th')
:attr('scope', 'row')
:wikitext(lang:ucfirst(propertyValue.label))
:css({
['background-color'] = '#f1f1f1',
['padding'] = '0.2em',
['text-align'] = 'left',
['font-weight'] = 'bold',
})
:tag('td')
:wikitext(frame:preprocess(propertyValue.value) ..
' [[File:OOjs UI icon edit-ltr.svg|' .. edit_message ..
'|12px|baseline|class=noviewer skin-invert|link=https://www.wikidata.org/wiki/' ..
item.id .. '#' .. property .. ']]')
:css({
['padding'] = '0.2em',
})
end
end
-- Map (using infoboxperson styling)
local coordinates_statements = item:getBestStatements('P625')
if #coordinates_statements >= 1 and coordinates_statements[1].mainsnak.datavalue and
coordinates_statements[1].mainsnak.datavalue.value.globe == 'http://www.wikidata.org/entity/Q2' then
local latitude = coordinates_statements[1].mainsnak.datavalue.value.latitude
local longitude = coordinates_statements[1].mainsnak.datavalue.value.longitude
local geojson = {
type = 'Feature',
geometry = {
type = 'Point',
coordinates = { longitude, latitude }
},
properties = {
title = item:getLabel() or mw.title.getCurrentTitle().text,
['marker-symbol'] = 'marker',
['marker-color'] = '#224422',
}
}
databoxRoot:tag('tr')
:tag('td')
:attr('colspan', 2)
:wikitext(frame:extensionTag('mapframe', mw.text.jsonEncode(geojson), {
height = 200,
width = '100%',
frameless = 'frameless',
align = 'center',
latitude = latitude,
longitude = longitude,
zoom = 12
})
)
end
return tostring(databoxRoot)
end
return p
