Module:Infobox/Fonctions/Personne
< Module:Infobox | Fonctions
Révision datée du 31 août 2015 à 16:36 par Zolo (discussion) (à la ligne entre chaque conjoint (plus gentil, et plus lisible quand il y a des dates) sauf quant pour les empereurs de Chine, sinon c'est trop long. Sexe slt par Wikidata (pas utile pour les données locales))
La documentation pour ce module peut être créée à Module:Infobox/Fonctions/Personne/doc
-- Functions utilisées par les infobox personnes
local p = {}
local wikidata = require "Module:Interface Wikidata".fromLua
local general = require "Module:Infobox/Fonctions"
local datemodule = require "Module:Date"
local linguistic = require "Module:Linguistique"
-- libellés spéciaux lorsque ceux de Wikconidata ne conviennent pas
local occupations = mw.loadData "Module:Dictionnaire Wikidata/Métiers"
local function setgender() -- établit la valeur de la variable "gender" qui sert à adapter la grammaire au sexe de la personne
local validvalues = {
['Q6581072'] = 'f',
['Q6581097'] = 'm',
}
local gender = wikidata.formatStatements{entity = item, property = 'P21', displayformat = 'raw'}
return validvalues[gender]
end
local gender = gender or setgender()
local function setgenderedlabels()
if gender == 'f' then
return occupations.female
elseif gender == 'm' then
return occupations.male
end
end
local genderedlabels = genderedlabels or setgenderedlabels()
local datelinks = { -- lien vers le domaine d'activité approprié
Q483501 = 'en arts plastiques', -- artiste
Q1028181 = 'en arts plastiques', -- peintre
Q1281618 = 'en arts plastiques', -- sculpteur
Q2309784 = 'en cyclisme', -- cycliste
Q16947657 = 'en arts plastiques', -- lithographe
}
-- ========== Fonctions d'aide ====================================
local function getdatetopic() -- obtient le lien le plus approprié pour une date en fonction de la profession
local claims = wikidata.getClaims{entity = item, property = 'P106', excludespecial = true}
if not claims then
return nil
end
for i, j in pairs(claims) do
local v = wikidata.getmainid(j)
if datelinks[v] then
return datelinks[v]
end
end
end
local linktopic = getdatetopic()
local function timeline(statements, prop) -- affiche date : événement (suppose les événements déjà triés)
if not statements then
return nil
end
local rows = {}
local previousstr = '' -- pour fusionner deux lignes sans différences visibles
for i, statement in pairs(statements) do
local mainstr = wikidata.formatStatement(statement, {speciallabels = genderedlabels})
local period = wikidata.statementDate(statement, {precision = 'year', linktopic = '-'})
-- rétrolien à activer si on veut inciter les gens à aller sur Wikidata
--if (not period) and item then
-- period = '[[:d:' .. item.id .. '#' .. (prop or '') .. '|<i>date à ajouter</i>]
--end
-- "de", circonscription, diocèse, assemblée délibérante, parti, employeur
local qualifs = wikidata.getFormattedQualifiers(statement, {'P642', 'P768', 'P708', 'P194', 'P102', 'P108'})
if qualifs then
mainstr = mainstr .. ' (' .. qualifs .. ')'
end
-- prédecesseur et successeur
local predecessor = wikidata.getFormattedQualifiers(statement, {'P155', 'P1365'})
local successor = wikidata.getFormattedQualifiers(statement, {'P156', 'P1366'})
if predecessor then
mainstr = mainstr .. '<small><br /> précédé par ' .. predecessor .. '</small>' -- à féminiser
end
if successor then
mainstr = mainstr .. '<small><br /> suivi par ' .. successor .. '</small>' -- à fémniser
end
-- à la dernière ligne : ajout rétrolien et catégorie de maintenance
if (i == #statements) and prop then
mainstr = wikidata.formatAndCat{value = mainstr, property = prop, entity = entity}
end
local row = {type = 'row', label = period or '', value = function() return mainstr end}
table.insert(rows, row)
end
-- ajout de rétrolien, cat
return rows
end
local function dateandplace(thedate, theplace)
if thedate and theplace then
return thedate .. '<br />' .. theplace
else
return thedate or theplace --retourne tout ce qu'il trouve
end
end
--Titre
function p.title(icon, style)
return general.title(icon, style)
end
--Image
function p.mainimage()
-- demande d'illustration que si la personne a moins de 100 ans, sinon c'est souvent impossible à trouver
local age = wikidata.getClaims{property = 'P569'}
local defaultimage
if age and (age[1].mainsnak.snaktype == 'value') then -- un peu long, devrait être assuré par Module:Wikidata
local pattern = "(%W)(%d+)%-(%d+)%-(%d+)"
local era, year = age[1].mainsnak.datavalue.value.time:match(pattern)
if (era == '+') and (tonumber(year)) > 1900 then
defaultimage = 'Defaut 2.svg'
end
end
return general.mainimage('Article à illustrer/Biographie', defaultimage)
end
-- Noms
function p.othernames()
-- si "autres noms" existe, le renvoie, sinon, fait plusieurs lignes en utilisant diverses propriétés ed Wikidata
if localdata['autres noms'] or localdata['nom de naissance'] then
return {type = 'multi', rows = {
{type = 'row', label = 'Autres noms', value = 'autres noms'},
{type = 'row', label ='Nom de naissance', value = 'nom de naissance'},
}
}
end
local names = {
{'P1477', 'Nom de naissance', 'Noms de naissance', 'nom de naissance'},
{'P1449', 'Surnom', 'Surnoms', 'surnom'},
{'P742', 'Pseudonyme', 'Pseudonymes', 'pseudonyme',},
{'P1782', 'Prénom social', 'Prénoms sociaux', 'prénom social'},
{'P1786', 'Nom posthume', 'Noms posthumes', 'nom posthume'},
{'P1785', 'Nom de temple', 'Noms de temple', 'nom de temple'},
{'P1787', 'Nom de pinceau', 'Noms de pinceau', 'nom de pinceau'},
}
local rows = {type = 'multi', rows = {}}
for i, j in pairs(names) do
local query = {property = j[1], showqualifiers = {'P1721'}, conjtype = ',<br />'}
table.insert(rows.rows, {type = 'row', value = j[4], wikidata = query, label = j[2], plurallabel = j[3]})
end
return rows
end
-- NAISSANCE ET MORT
local function wikidatadate(prop)
local vals = wikidata.getClaims{entity = item, property = prop, excludespecial = true}
if not vals then
return nil
end
local newvals = {}
for i, val in pairs(vals) do
local v = wikidata.statementDate(val, {linktopic = linktopic}) -- essaye les qualifs date de début/fin pour une date plus précise (en attendant un bon fonctionnement du "before/after" intégré)
if not v then
if val.mainsnak.snaktype ~= 'value' then
v = wikidata.formatStatement(val, {linktopic = linktopic})
elseif val.mainsnak.datavalue.value.precision > 7 then
v = wikidata.formatStatement(val, {linktopic = linktopic})
end
end
if val.qualifiers and val.qualifiers.P1480 then
local q = wikidata.getid( val.qualifiers.P1480[1])
if q == 'Q5727902' then
v = 'vers ' .. v
end
end
if v then
table.insert(newvals, v)
end
end
local str = linguistic.conj(newvals, 'or')
if str then
return wikidata.formatAndCat{entity = item, property = prop, value = str}
end
end
local birthdate = localdata['naissance'] or localdata['date de naissance'] or wikidatadate('P569') or ''
local deathdate = localdata['décès'] or localdata['date de décès'] or wikidatadate('P570') or ''
function p.birth() -- date de naissance en première ligne, lieu de naissance en deuxième
return {
type = 'row',
label = 'Naissance',
value =
function()
local thedate = datemodule.dateInfobox{args = {[1] = 'naissance', [2] = birthdate, [3] = deathdate, qualificatif = linktopic}}
local theplace = localdata['lieu de naissance'] or wikidata.formatAndCat({entity =item, property= 'P19', rank = 'best', conjtype= ' ou '})
return dateandplace(thedate, theplace)
end
}
end
function p.death() -- même fonctionnement que la fonction p.birth
return {
type = 'row',
label = 'Décès',
value =
function()
local thedate = datemodule.dateInfobox{args = {[1] = 'décès', [3] = birthdate, [2] = deathdate, qualificatif = linktopic}}
local theplace = localdata['lieu de décès'] or wikidata.formatAndCat({entity = item, property= 'P20', rank = 'best', conjtype= ' ou '})
return dateandplace(thedate, theplace)
end
}
end
function p.floruit()
return {
type = 'row',
label = 'Période d’activité',
value = "Période d'activité",
wikidata = function() return wikidatadate('P1317') end
}
end
function p.nationality() -- Wikidata désactivé avant 1800 (problème de fiabilité des données
return {
type = 'row',
label = 'Nationalité',
plurallabel = 'Nationalités',
value = 'nationalité',
wikidata =
function()
local nation = require "Module:Country data".nationality
local statements = wikidata.getClaims{entity = item, property = 'P27'}
if not statements then
return nil
end
return wikidata.formatAndCat{
property = 'P27',
vals = statements,
showdate = true,
entity = item,
conjtype = 'comma',
linktopic = '-',
displayformat =
function(snak)
local val, success = nation(wikidata.getid(snak), 'f')
if not success then
val = wikidata.formatSnak(snak)
end
return val
end
}, #statements
end
}
end
-- parcours professionel
function p.education() -- à améliorer
local query = {sorttype= 'chronological', property = 'P69', showdate = true, showqualifiers = 'P512', conjtype = '<br />'}
return {
type = 'row',
value = {'éducation', 'formation'},
wikidata = query,
label = 'Formation',
}
end
function p.occupation()
return {
type = 'row',
value = 'activité',
wikidata = {property = 'P106', showdate = true, conjtype = 'comma', speciallabels = genderedlabels, defaultlink = '-'},
label = 'Activité',
plurallabel = 'Activités'
}
end
function p.employer()
return {
type = 'row',
value = 'employeur',
wikidata = {property = 'P108', showdate = true},
label = 'Employeur',
plurallabel = 'Employeurs'
}
end
function p.officialposition()
local title = 'Fonctions'
local singtitle = 'Fonction'
local rows
if localdata['fonction'] then
return {type = 'table', rows = {type = 'row', label = title, value = 'fonction'}}
else
local statements = wikidata.getClaims{property = 'P39', entity = item, sorttype = 'chronological'}
if not statements then
return nil
end
if #statements == 1 then
title = singtitle
end
rows = timeline(statements, 'P39')
end
return
{
type = 'table',
title = title,
rows = rows,
}
end
function p.politicalparty()
return {
type = 'row',
value = 'parti politique',
label = 'Parti politique',
plurallabel = 'Partis politiques',
wikidata = { property = 'P102', sorttype= 'chronological', showdate = true, conjtype = '<br />', excludespecial = true},
}
end
function p.awards() -- à améliorer
return {
type = 'row',
value = {'prix', 'récompenses', 'distinction', 'distinctions'},
wikidata = { property= 'P166', showqualifiers = 'P642', sorttype= 'chronological' , showdate= true, conjtype= '<br />', precision = 'year', textformat = 'minimum', linktopic = '-'},
label = 'Distinction',
plurallabel = 'Distinctions',
}
end
-- Influences
function p.influencedby()
return {
type = 'row',
label =
function(localdata, item)
if not gender then setgender(localdata, item) end
if gender == 'f' then
return 'Influencée par'
elseif gender == 'm' then
return 'Influencé par'
else
return 'Influencé(e) par'
end
end,
value = 'influencé par',
wikidata = {property = 'P737'},
}
end
function p.influenced()
return {
type = 'row',
label = 'A influencé',
value = {'a influencé', 'influence de'},
wikidata = {property = 'P738'},
}
end
-- Sport
function p.sport()
return {type = 'multi', rows = {
{
type = 'row',
label = 'Sport',
plurallabel = 'Sports',
value = 'sport',
wikidata = {property = 'P641', showdate = true},
},
{
type = 'row',
label = 'Équipe',
plurallabel = 'Équipes',
value = 'équipe',
wikidata = {property = 'P54', sorttype= 'chronological', showdate = true, conjtype = '<br />'},
},
{
type = 'row',
label = 'Sponsor',
plurallabel = 'Sponsors',
value = 'sponsor',
wikidata = {property = 'P859', sorttype= 'chronological', showdate = true},
},
{
type = 'row',
label = 'Domicile',
plurallabel = 'Domiciles',
value = 'domicile',
wikidata = {property = 'P551', showdate = true, sorttype= 'chronological'},
},
}}
end
-- Famille
function p.family()
return {type = 'multi', rows = {
{
type = 'row',
label = 'Père',
value = 'père',
property = 'P22',
},
{
type = 'row',
label = 'Mère',
value = 'mère',
property = 'P25',
},
{
type = 'row',
label = 'Frère',
plurallabel = 'Frères',
value = 'Frère',
property = 'P7',
},
{
type = 'row',
label = 'Sœur',
plurallabel = 'Sœurs',
value = 'Sœur',
property = 'P9',
},
{
type = 'row',
label = function()
-- retourne une forme singulière ou plurielle. Pourrait éventuellement adapter féminin masculine, mais demanderait logiquement de vérifier le sexe de chaque valeur
local claims = wikidata.getClaims{property = 'P26', entity = item}
if (not claims) or #claims == 1 then
return "Conjoint"
end
return "Conjoints"
end,
value = 'conjoint',
wikidata = function()
local claims = wikidata.getClaims{entity = item, property = 'P26', sorttype = 'chronological'}
if not claims then
return nil
end
if #claims > 4 then -- quand il y a trop de conjoints, on ne va pas à la ligne à chaque fois
return wikidata.formatStatements{entity = item, property = 'P26', showdate = true, textformat = 'minimum', precision = 'year', linktopic = '-'}
end
-- sinon si (textformat = 'long', showdate = true, precision = 'year', linktopic = '-')
return wikidata.formatStatements{entity = item, property = 'P26', showdate = true, textformat = 'long', precision = 'year', linktopic = '-', conjtype = '<br />'}
end
},
{
type = 'row',
label = 'Enfant',
plurallabel = 'Enfants',
value = 'enfant',
wikidata = {property = 'P40'}
},
}}
end
-- oeuvres
function p.works()
local title = 'Œuvres réputées'
-- on pourrait mettre quelque chose comme "oeuvre principale" lorsque #vals == 1 mais les données de Wikidata sont trop approximatives pour que cela ait du sens
return
{type = 'table', title = title, rows =
{
{
type = 'row',
value = 'œuvres principales',
wikidata = {
property = 'P800',
numval = 5,
excludespecial = true,
displayformat =
function(snak)
return '<i>' .. wikidata.formatEntity(wikidata.getid(snak), {defaultlink = 'image'}) .. '</i>'
end
}
}
}
}
end
-- Signature
function p.signature(default)
return {
type = 'images',
imageparameters = {'signature'},
defaultimage = default,
defaultsize = '150px',
captionparameter = 'légende signature',
defaultcaption = 'signature',
property = 'P109',
numval = 1
}
end
--== Site web
function p.website()
return general.website()
end
return p
