Module:MiniBio/Bac à sable
Ceci est la version bac à sable de Module:MiniBio.
Cette sous-page permet de tester des modifications du code sans provoquer de perturbations à grande échelle du modèle de base.
[voir] [modifier] [historique] [purger]
Utilisation modifier
Fonction exportable :
categorise()– Retourne les catégories de vie (naissance,décès…) d'une personne (utilisée par le modèle Catégorise Personne).
Autres fonctions :
trim()– Supprime les espaces en début et fin d'une chaîne
Modules externes et autres éléments dont ce module a besoin pour fonctionner :
Module:Outils– gestion paramètres du module.Module:Date– gestion des dates.Module:Date_complexe– gestion avancée des dates.Module:Yesno– transforme un paramètre"oui/non/yes/no/..." en booléenmw.ustring- gestion des chaînes de caractères UTF8mw.text- gestion des chaînes de caractèresmw.wikibase- accès à la Wikidata
Exemples modifier
Cette section est vide, insuffisamment détaillée ou incomplète. Votre aide est la bienvenue ! Comment faire ?
La documentation de ce module est générée par le modèle {{Documentation module}}.
Elle est incluse depuis sa sous-page de documentation. Veuillez placer les catégories sur cette page-là.
Les éditeurs peuvent travailler dans le bac à sable (modifier).
Voir les statistiques d'appel depuis le wikicode sur l'outil wstat et les appels depuis d'autres modules.
local Exports = {} -- Objet à exporter.
-- Cette fonction supprime les espaces au début et à la fin de la chaîne de caractères passée en argument.
-- Ce traitement est fait avec les fonctions UTF8 (pas sûr que ce soit nécessaire pour supprimer des espaces).
function trim(s)
if s == nil then
return nil
else
return mw.ustring.gsub(mw.ustring.gsub(s,"^%s+", ""),"%s+$", "")
end
end
-- Retourne une MiniBio de la personne demandée dans les arguments.
-- Le modèle MiniBio détaille les paramètres qu'il faut transmettre à cette fonction.
function Exports.MiniBio(frame)
local outils=require('Module:Outils')
local date_complexe=require('Module:Date_complexe')
local Date=require('Module:Date') -- Majuscule initiale car le mot date est un mot clef du langage
local yesno = require('Module:Yesno') -- Convertit les valeurs wikidata en true ou false.
local args=outils.extractArgs(frame) -- Retourne les paramètres d'appel du modèle et du module
local res='' -- Chaîne résultat de la fonction
local type_par_defaut='en ligne' -- Type de formatage des informations
local type_carte='carte' -- idem
local id -- Identifiant wikidata de la personne concernée
local entity -- Frame contennant les informations de la personne concernée
local dateNaiss,dateDeces -- Dates de naissance et de décès de la personne concernée
-- Nettoyage des paramètres
args[1]=trim(args[1])
args[2]=trim(args[2])
args['wikidata']=trim(args['wikidata'])
-- Arrêt si l'on n'a pas assez d'informations
if (not args[1] or args[1]=='') and (not args['wikidata'] or args['wikidata']=='') then
return ''
end
-- Nettoyage des paramètres (suite)
args['lang']=trim(args['lang'])
-- Contrôle le paramètre 'type'.
-- Il est convertit en minuscules.
-- S'il est absent ou d'une valeur non prévue, on lui assigne la valeur par défaut
if args['type'] then
args['type']=mw.ustring.lower(trim(args['type']))
if args['type']~=type_par_defaut and args['type']~=type_carte then
args['type']=type_par_defaut
end
else
args['type']=type_par_defaut
end
-- Contrôle le paramètre lien
args['lien']=yesno(trim(args['lien']),true,true) -- true par défaut ou absent
if args['lien']==nil then
args['lien']=true
end
-- Mise en tableau des dates pour une manipulation plus aisée
-- Les dates de naissance auront des indices impairs, les décès seront pairs
local tabDateAlt = {
[1]=args['DNaissAlt1'], [2]=args['DDecesAlt1'],
[3]=args['DNaissAlt2'], [4]=args['DDecesAlt2'],
[5]=args['DNaissAlt3'], [6]=args['DDecesAlt3']
}
-- Contrôle les paramètres autres dates.
-- On va transformer les dates données sous forme naturelle à une table contenant trois éléments :
-- [1] : le jour, [2] : le mois et {3] l'année.
-- On considère que s'il y a moins de trois éléments alors le jour ou/et le mois ont été omis
-- donc la table peut ne pas avoir d'élément [1] voire [2] ; mais elle aura toujours un élément [3].
for i=1,#tabDateAlt do
tabDateAlt[i]=trim(tabDateAlt[i])
if type(tabDateAlt[i])~='string' or tabDateAlt[i]=='' then
tabDateAlt[i]=nil
else
-- On transforme les / en espaces
-- On supprime les espaces superfétatoires
-- On éclate la chaîne (délimitée par des espaces) en un tableau
tabDateAlt[i]=mw.text.split(mw.ustring.gsub(mw.ustring.gsub(tabDateAlt[i],"/", " "),"%s+"," "),' ')
-- Si la mention "av. J.-C." est présente, elle est réaccrochée à l'année
-- Pour cela, on teste que le dernier élément du tableau (s'il contient plus de deux éléments)
-- ne peut pas se convertir en nombre (on ne teste pas type()=='string' car ce sont tous des chaînes de caractères)
-- Dans un premier temps si la chaîne est en plusieurs morceaux. On traite les parties non numériques
while #tabDateAlt[i]>=2 and not tonumber(tabDateAlt[i][#tabDateAlt[i]]) and not tonumber(tabDateAlt[i][#tabDateAlt[i]-1]) do
tabDateAlt[i][#tabDateAlt[i]-1]=tabDateAlt[i][#tabDateAlt[i]-1] .. ' ' .. tabDateAlt[i][#tabDateAlt[i]]
tabDateAlt[i][#tabDateAlt[i]]=nil
end
-- Dernier réaccrochage (à la partie numérique)
if #tabDateAlt[i]>=2 and not tonumber(tabDateAlt[i][#tabDateAlt[i]]) then
tabDateAlt[i][#tabDateAlt[i]-1]=tabDateAlt[i][#tabDateAlt[i]-1] .. ' ' .. tabDateAlt[i][#tabDateAlt[i]]
tabDateAlt[i][#tabDateAlt[i]]=nil
end
-- Si le jour ou/et le mois ne sont pas indiqués, on décale les infos vers les indices supérieurs
if #tabDateAlt[i]>=1 then
while not tabDateAlt[i][3] do
tabDateAlt[i][3]=tabDateAlt[i][2]
tabDateAlt[i][2]=tabDateAlt[i][1]
tabDateAlt[i][1]=nil
end
end
end
end
--Si le paramètre wikidata n'est pas indiqué alors on fera une recherche sur nom de page.
if args['wikidata'] and args['wikidata']~='' then
id=args['wikidata']
else
-- Si l'on a bien un premier paramètre
if args[1] and args[1]~='' then
id=mw.wikibase.getEntityIdForTitle(args[1])
end
end
-- Recherche des informations nécessaires
if id then
entity=mw.wikibase.getEntity(id) -- Opération coûteuse
end
-- Si l'entité nous a été retournée
if entity and entity.claims then
-- On vérifie qu'on a affaire à un être humain
if entity.claims['P31'] and entity.claims['P31'][1].mainsnak.datavalue.value.id=='Q5' then
-- On accède à la date de naissance et on la reformate
if entity.claims['P569'] and entity.claims['P569'][1].mainsnak.datavalue then
dateNaiss=date_complexe.splitDate(entity.claims['P569'][1].mainsnak.datavalue.value.time)
end
-- On accède à la date de décès et on la reformate
if entity.claims['P570'] and entity.claims['P570'][1].mainsnak.datavalue then
dateDeces=date_complexe.splitDate(entity.claims['P570'][1].mainsnak.datavalue.value.time)
end
end
end
-- Mise en place du lien wikidata du type : [[Prénom Nom]]
-- Si l'id wikidata n'a pas été fourni on se rabat sur les noms indiqués dans l'appel
if not args['wikidata'] or not entity then
if args['lien'] then
if args[2] and args[2] ~= '' then
res = '|' .. args[2]
end
res = args[1] .. res
else
if args[2] and args[2] ~= '' then
res = args[2]
else
res = args[1]
end
end
else
-- Si l'id wikidata a été indiqué, on va chercher le titre de la page
local tmp=entity:getLabel()
if args['lien'] then
if args[2] and args[2] ~= '' then
res = '|' .. args[2]
else
if args[1] and tmp ~= args[1] and args[1] ~= '' then
res = '|' .. args[1]
end
end
res = tmp .. res
else
if args[2] and args[2] ~= '' then
res = args[2]
else
if args[1] and args[1] ~= '' then
res = args[1]
else
res = tmp
end
end
end
end
if res ~= '' and args['lien'] then
res = '[[' .. res .. ']]'
end
-- Gestion du lien interwiki
if args['lang'] and entity then
local tmp = entity:getSitelink()
-- Teste si la page existe dans le wiki
if not tmp or tmp == '' then
tmp = entity:getSitelink(args['lang'] .. 'wiki')
-- Teste si la page existe dans le wiki de la langue voulue
if tmp and tmp ~= '' then
res = res .. ' [[w:' .. args['lang'] .. ':' .. tmp
.. '|<span class="indicateur-langue" title="Équivalent de l’article dans une autre langue">(' .. args['lang'] .. ')</span>]]'
end
end
end
if entity then
-- Formatage des résultats par défaut "en ligne"
if args['type']==type_par_defaut then
-- Affichage des dates de vie
if dateNaiss or dateDeces then
res = res .. ' ('
if dateNaiss then
res = res .. Date.modeleDate({[3]=tonumber(dateNaiss.era .. dateNaiss.year),['avJC']=((dateDeces and dateDeces.era=='-') and 'non' or 'oui')})
else
res = res .. '???'
end
if dateDeces then
res = res .. '-' .. Date.modeleDate({[3]=tonumber(dateDeces.era .. dateDeces.year)})
end
res = res .. ')'
end
-- Formatage des dates alternatives
local dateAlt=false
for i=1,#tabDateAlt,2 do
if tabDateAlt[i] and tabDateAlt[i+1] then
-- On ne garde que les années
tabDateAlt[i][1] = nil
tabDateAlt[i][2] = nil
tabDateAlt[i+1][1] = nil
tabDateAlt[i+1][2] = nil
tabDateAlt[i].avJC='non'
res = res .. ' ou (' .. Date.modeleDate(tabDateAlt[i]) .. '-' .. Date.modeleDate(tabDateAlt[i+1]) .. ')'
dateAlt=true
end
end
if dateAlt then
res = res .. ' selon les sources'
end
-- Affichage du lien vers la Wikidata
res = res .. ' [[Fichier:Blue pencil.svg|Modifier Wikidata|link=d:' .. id .. '|10px]]'
end
-- Formatage des résultats "carte"
if args['type']==type_carte then
-- Affichage de l'image
if entity.claims['P18'] and entity.claims['P18'][1].mainsnak.datavalue then
res = res .. '[[Fichier:' .. entity.claims['P18'][1].mainsnak.datavalue.value
.. '|frameless|gauche|alt=' .. args[1] .. '|' .. args[1] .. ']]'
end
-- Affichage de la date de naissance
if dateNaiss then
local tmp={}
if dateNaiss.day~=0 then
tmp[1]=dateNaiss.day
end
if dateNaiss.month~=0 then
tmp[2]=dateNaiss.month
end
tmp[3]=tonumber(dateNaiss.era .. dateNaiss.year)
res = res .. '<br/>Naissance : ' .. Date.modeleDate(tmp)
-- Formatage des dates alternatives
-- Les dates de naissance sont sur les numéros impairs
local dateAlt=false
for i=1,#tabDateAlt,2 do
if tabDateAlt[i] then
res = res .. '<br/>ou ' .. Date.modeleDate(tabDateAlt[i])
dateAlt=true
end
end
if dateAlt then
res = res .. ' selon les sources'
end
end
-- Affichage de la date de décès
if dateDeces then
local tmp={}
if dateDeces.day~=0 then
tmp[1]=dateDeces.day
end
if dateDeces.month~=0 then
tmp[2]=dateDeces.month
end
tmp[3]=tonumber(dateDeces.era .. dateDeces.year)
res = res .. '<br/>Décès : ' .. Date.modeleDate(tmp)
-- Formatage des dates alternatives
-- Les dates de décès sont sur les numéros pairs
local dateAlt=false
for i=2,#tabDateAlt,2 do
if tabDateAlt[i] then
res = res .. '<br/>ou ' .. Date.modeleDate(tabDateAlt[i])
dateAlt=true
end
end
if dateAlt then
res = res .. ' selon les sources'
end
end
-- Formatage de la carte
-- Plus Clearfix CSS
-- Et lien vers la Wikidata
res = '<div style="background:#eaecf0;width:450px;border-radius:5%;padding:15px">' .. res
.. '<div style="clear:both;"></div><small><small>[[d:' .. id .. '|Modifier Wikidata]]</small></small></div>'
end
end
return res
end
-- Retourne les catégories dates de vie d'une personne
-- Naissance en ...
-- Décès en ...
-- Décès à ... ans
-- Mort récente
function Exports.categorise() --
local date_complexe=require('Module:Date_complexe')
local Date=require('Module:Date') -- Majuscule initiale car le mot date est un mot clef du langage
local res='' -- Chaîne résultat de la fonction
local entity=mw.wikibase.getEntity() -- Frame contennant les informations de la personne concernée
local dateNaiss,dateDeces -- Dates de naissance et de décès de la personne concernée
local age -- age de la personne concernée
-- Si l'entité nous a été retournée
if entity and entity.claims then
-- On vérifie qu'on a affaire à un être humain
if entity.claims['P31'] and entity.claims['P31'][1].mainsnak.datavalue.value.id=='Q5' then
-- On accède à la date de naissance et on crée la catégorie "Naissance en..."
if entity.claims['P569'] and entity.claims['P569'][1].mainsnak.datavalue then
dateNaiss=date_complexe.splitDate(entity.claims['P569'][1].mainsnak.datavalue.value.time)
if dateNaiss then
res = res .. '[[Catégorie:Naissance en '
if dateNaiss.month~=0 then
res = res .. Date.determinationMois(dateNaiss.month) .. ' '
end
res = res .. dateNaiss.year
if dateNaiss.era=='-' then
res = res .. ' av. J.-C.'
end
res = res .. ']]'
end
end
-- On accède à la date de décès et on crée la catégorie "Décès en..."
if entity.claims['P570'] and entity.claims['P570'][1].mainsnak.datavalue then
dateDeces=date_complexe.splitDate(entity.claims['P570'][1].mainsnak.datavalue.value.time)
if dateDeces then
res = res .. '[[Catégorie:Décès en '
if dateDeces.month~=0 then
res = res .. Date.determinationMois(dateDeces.month) .. ' '
end
res = res .. dateDeces.year
if dateDeces.era=='-' then
res = res .. ' av. J.-C.'
end
res = res .. ']]'
end
end
-- Si on a la date de décès complète
if dateDeces and dateDeces.day~=0 and dateDeces.month~=0 and dateDeces.year~=0 then
-- Si on a la date de naissance complète
if dateNaiss and dateNaiss.day~=0 and dateNaiss.month~=0 and dateNaiss.year~=0 then
-- Crée la catégorie "Décès à ... ans"
age=Date.age(dateNaiss.era..dateNaiss.year,dateNaiss.month,dateNaiss.day,dateDeces.era..dateDeces.year,dateDeces.month,dateDeces.day)
if age == 0 then
res = res .. '[[Catégorie:Décès avant 1 an]]'
elseif age == 1 then
res = res .. '[[Catégorie:Décès à 1 an]]'
elseif age > 122 then
res = res .. '[[Catégorie:Décès supposé après 122 ans]]'
else
res = res .. '[[Catégorie:Décès à ' .. age .. ' ans]]'
end
end
-- Calcule si l'on affiche [[Catégorie:Mort récente]]
-- On compare si la différence entre la date du jour et la date de décès est de moins de 5 jours
if os.difftime(os.time(),os.time(dateDeces))<=5*86400 then
res = res .. '[[Catégorie:Mort récente]]'
end
end
end
end
return res
end
return Exports