Module:Infobox/Fonctions/Personne
< Module:Infobox | Fonctions
Révision datée du 17 septembre 2015 à 08:27 par Jérémy-Günther-Heinz Jähnick (discussion) (P1559 Nom dans la langue maternelle)
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"
local function wikidatadate(prop) -- fonction à vocation généraliste, à externaliser
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 v and 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')
local deathdate = localdata['décès'] or localdata['date de décès'] or wikidatadate('P570')
-- libellés spéciaux lorsque ceux de Wikconidata ne conviennent pas
local occupations = require "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 vals = {
['Q6581072'] = 'f',
['Q6581097'] = 'm',
default = '?'
}
local gender = wikidata.formatStatements{entity = item, property = 'P21', displayformat = 'raw'}
return vals[gender] or vals.default
end
local gender = 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 speciallabels = genderedlabels
local dateformat = {precision = 'year', linktopic = '-'}
-- qualificatifs à afficher "de", circonscription, diocèse, assemblée délibérante, parti, employeur
local qualifs = {'P642', 'P768', 'P708', 'P194', 'P102', 'P108'}
local stilltrue = not(deathdate)-- si la personne est vivante, on emploie "depuis" plutôt que "à partir de" (mais lorsque c'est fini mais que la date de fin manque, ça devient faux)
for i, statement in pairs(statements) do
local mainstr = wikidata.formatStatement(statement, {speciallabels = speciallabels, showqualifiers = qualifs, stilltrue = stilltrue})
local period = wikidata.statementDate(statement, dateformat )
-- 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
-- prédecesseur et successeur
-- TODO gestion de "novalue" et "somevalue"
local predecessor = wikidata.getFormattedQualifiers(statement, {'P155', 'P1365'})
local successor = wikidata.getFormattedQualifiers(statement, {'P156', 'P1366'})
if predecessor then
local s = 'précédé par ' .. predecessor
if gender == 'f' then
s = 'précédée par ' .. predecessor
end
mainstr = mainstr .. '<small><br /> ' .. s .. '</small>'
end
if successor then
local s = 'suivi par ' .. successor
if gender == 'f' then
s = 'suivie par ' .. successor
end
mainstr = mainstr .. '<small><br /> ' .. s .. '</small>'
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 = item}
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 est née après 1900, sinon c'est souvent impossible à trouver
local defaultimage = 'Defaut 2.svg'
local age = wikidata.stringTable{property = 'P569', entity = item, displayformat = 'raw', excludespecial = true}
if age then
local pattern = "(%W)(%d+)%-(%d+)%-(%d+)"
local era, year = age[1]:match(pattern)
if (era == '-') or (tonumber(year)) < 1900 then
defaultimage = nil
end
end
return general.mainimage('Article à illustrer/Biographie', defaultimage)
end
-- Noms
function p.othernames()
local names = {
{'P1477', 'Nom de naissance', 'Noms de naissance', 'nom de naissance'},
{'P1449', 'Surnom', 'Surnoms', 'surnom'},
{'P1559', 'Nom dans la langue maternelle', 'Noms dans la langue maternelle', 'Nom dans la langue maternelle'},
{'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'},
{nil, 'Autres noms', 'autres noms'}
}
local rows = {type = 'multi', rows = {}}
for i, j in pairs(names) do
local query
if j[1] and not localdata['autres noms'] then -- lorsqu'il y a un paramètre "autres noms", Wikidata est désactivée pour éviter risques de doublon
query = {property = j[1], showqualifiers = {'P1721'}, conjtype = ',<br />'}
end
table.insert(rows.rows, {type = 'row', value = j[4], wikidata = query, label = j[2], plurallabel = j[3]})
end
return rows
end
-- NAISSANCE ET MORT
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 or '', [3] = deathdate or '', 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 or '', [2] = deathdate or '', 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()
-- à améliorer pour tenir compte des dates tout en évitant les doublons pour ceux qui ont Empire allemand + République de Weimar
local function wdDate()
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',
removedupes = true,
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
return {
type = 'row',
label = 'Nationalité',
plurallabel = 'Nationalités',
value = 'nationalité',
wikidata = function() return wdDate() end
}
end
-- Domiciles
function p.places()
return {type = 'multi', rows = {
{
type = 'row',
label = 'Domicile',
plurallabel = 'Domiciles',
value = 'domicile',
wikidata = {property = 'P551', showdate = true, sorttype= 'chronological', precision = 'year'},
},
{
type = 'row',
label = 'Lieu de travail',
plurallabel = 'Lieux de travail',
value = 'lieu de travail',
wikidata = {property = 'P937', sorttype= 'chronological', showdate = true, precision = 'year'},
},
}}
end
-- parcours professionel
function p.education() -- à améliorer
local query = {sorttype= 'chronological', property = 'P69', showdate = true, showqualifiers = 'P512', conjtype = '<br />', linktopic = '-'}
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 = function() return localdata['intitulé employeur'] or 'A travaillé pour' end,
}
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, rank = 'valid', 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
local function awardsList(item)
local majorlist = require "Module:Dictionnaire Wikidata/Distinctions"
local query = {
entity = item, property= 'P166', sorttype= 'chronological',
showqualifiers = 'P642', showdate= true, precision = 'year', textformat = 'minimum', linktopic = '-', conjtype = '<br />',
speciallabels = majorlist
}
local major = {} -- récompenses importantes obtenues
local all = {}
local message = "Liste détaillée"
local claims = wikidata.getClaims(query)
if not claims then
return nil
end
if #claims < 3 then
query.claims = claims
return wikidata.formatAndCat(query), #claims
end
-- formate la liste des statements, en met certaine dans les "major"
for i, j in pairs(claims) do
local id = wikidata.getmainid(j)
local s = wikidata.formatStatement(j, query)
table.insert(all, s)
if majorlist[id] then
table.insert(major, s)
end
end
-- transforme la liste complète en chaîne
query.value = table.concat(all, '<br />')
local str = wikidata.formatAndCat(query) -- la liste complète des récompenses
if (#all - #major < 2) then -- s'il n' a qu'une seule récompense mineure, ça ne sert à rien de la collapser
return str
end
-- transforme la liste des valeurs importantes en chaîne
if (#major > 0) then
query.value = table.concat(major, '<br />')
majorstr = wikidata.formatAndCat(query)
else
message = nil --=> pas de titre pour la liste complète
end
-- met la liste complète dans un menu replié
local obj = mw.html.create('div')
:addClass("toccolours mw-collapsible mw-collapsed")
:wikitext(message)
:css{border = "none"}
:tag('div')
:addClass("mw-collapsible-content")
:css{['line-height'] = '150%'} -- sinon c'est vraiment serré
:wikitext(str)
:done()
:allDone()
str = linguistic.conj({majorstr, tostring(obj)}, '<br />')
return str, #claims
end
return {
type = 'row',
value = {'prix', 'récompenses', 'distinction', 'distinctions'},
label = 'Distinction',
plurallabel = 'Distinctions',
wikidata = function() return awardsList(item) end
}
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
-- Carrière militaire
function p.military()
return {type = 'multi', rows = {
{
type = 'row',
label = 'Arme',
plurallabel = 'Armes',
value = 'arme',
wikidata = {property = 'P241', showdate = true, sorttype= 'chronological', precision = 'year'},
},
{
type = 'row',
label = 'Grade militaire',
plurallabel = 'Grades militaires',
value = 'grade militaire',
wikidata = {property = 'P410', showdate = true, sorttype= 'chronological', precision = 'year'},
},
}}
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, precision = 'year', conjtype = '<br />', showqualifiers = {'P1350', 'P1358'}},
},
{
type = 'row',
label = 'Sponsor',
plurallabel = 'Sponsors',
value = 'sponsor',
wikidata = {property = 'P859', sorttype= 'chronological', showdate = true, precision = 'year'},
},
}}
end
-- Contacts
function p.contacts()
return {type = 'multi', rows = {
{
type = 'row',
label = 'Partenaire',
plurallabel = 'Partenaires',
value = 'partenaire',
wikidata = {property = 'P1327'},
},
{
type = 'row',
label = 'Agent',
label =
function(localdata, item)
if not gender then setgender(localdata, item) end
if gender == 'f' then
return 'Représentée par'
elseif gender == 'm' then
return 'Représenté par'
else
return 'Représenté(e) par'
end
end,
value = 'représenté par',
wikidata = {property = 'P1875'},
},
}}
end
-- Physique
function p.appearance()
return {type = 'multi', rows = {
{
type = 'row',
label = 'Cheveux',
value = 'cheveux',
wikidata = {property = 'P1884'},
},
{
type = 'row',
label = 'Yeux',
value = 'yeux',
wikidata = {property = 'P1340'},
},
}}
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 = '-', stilltrue = (not deathdate)}
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 />', stilltrue = (not deathdate)}
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
