Module:Infobox/Fonctions

--[[ Avant de mettre en production une nouvelle version avez-vous :- testé avec la version bac à sable ?- modifié la documentation ?]]-- Fonctions communes à diverses infoboxlocal localdata = require 'Module:Infobox/Localdata'local wikidata = require 'Module:Wikidata'local linguistic = require "Module:Linguistique"local item = localdata.itemlocal p = {}function p.title(icon, style, subtitleparam, subtitlequery, italic)local function hide(param, value)if localdata[param] ~= '-' thenreturn valueendendreturn {type = 'title',value = function() return localdata['nom'] or localdata['association_nom'] or localdata['nom_think'] or localdata['acronymelaboratoire'] or localdata['titre']or wikidata.getLabel(localdata.item) and mw.language.getContentLanguage():ucfirst( wikidata.getLabel(localdata.item) )or mw.title.getCurrentTitle().textend,subtitle = function() if localdata[subtitleparam] ~= '-' then return localdata[subtitleparam] end end,wikidatasubtitle = hide(subtitleparam, subtitlequery),icon = icon,style = style,italic = italic,setdisplaytitle = italic,}endfunction p.standardImage(imageType, imageparameters, property, upright)return {type = 'images',imageparameters =  imageparameters or {imageType},captionparameter = 'légende ' .. imageType,property = property,defaultupright = upright,uprightparameter = 'upright ' .. imageType,sizeparameter = 'taille ' .. imageType,altparameter = 'alternative ' .. imageType,numval = 1,}endfunction p.mainimage(args, defaultimage)if type( args ) ~= 'table' thenargs = { cat = args, defaultimage = defaultimage }endlocal tableReturned = p.standardImage('image', {'image', 'photo', 'Photo'}, {'P18', 'P5252'}, upright or '1')tableReturned.defaultimages = args.defaultimage or defaultimagetableReturned.defaultimagelink = 'Aide:Insérer une image'tableReturned.uprightparameter = 'upright'tableReturned.defaultupright = args.uprighttableReturned.defaultsize = args.sizetableReturned.maintenancecat = args.cat or 'Article à illustrer'tableReturned.captionparameter = {'légende', 'légende image', 'Légende'}tableReturned.altparameter = args.altparameter or 'alternative image'tableReturned.defaultimagealt = args.defaultimagealt    tableReturned.property = niltableReturned.wikidata = args.wikidata or {property = {'P18', 'P5252'}}return tableReturnedendfunction p.interior(upright)    return p.standardImage('intérieur', {'intérieur', 'interior'}, 'P5775', upright or '1')endfunction p.logo(upright)    return p.standardImage('logo', {'logo', 'association_logo'}, 'P154', upright or '0.6')endfunction p.blason(upright)local tableReturned = p.standardImage('blason', {'blason', 'sceau'}, {'P94', 'P158'}, upright or '0.8')tableReturned.captionparameter = {'légende blason', 'légende sceau'}tableReturned.uprightparameter = {'upright blason', 'upright sceau'}tableReturned.sizeparameter = {'taille blason', 'taille sceau'}return tableReturnedend-- Il n'y a aucune preuve que le paramètre id ai une utilité: aucun appel avec ce paramètre et pas de documentation (2022-08-20).function p.flag(upright, id)local tableReturned = p.standardImage('drapeau', {'drapeau'}, 'P41', upright or '1')local drapeau = wikidata.formatStatements{entity = id, property = 'P163', defaultlink = '-'}tableReturned.captionparameter = drapeau or 'légende drapeau'return tableReturnedendfunction p.sign(upright)return p.standardImage('signalisation', {'signalisation'}, 'P14', upright or '0.4')endfunction p.icon(upright)return p.standardImage('icône', {'icône'}, 'P2910', upright or '0.4')endfunction p.bathymetricmap(upright)return p.standardImage('carte bathymétrique', {'carte bathymétrique'}, 'P207', upright or '1')endfunction p.routemap(upright)return {type = 'images',imageparameters =  {'tracé'},--defaultimage = {},--maintenancecat =captionparameter = 'légende tracé',property = 'P15',defaultupright = upright or '1',uprightparameter = 'upright tracé',sizeparameter = 'taille tracé',numval = 1,}end-- Liens externesfunction p.website(localparam) -- texte libre [http://example.org example.org] ou url seule localparam est désigne le paramètre utilisé historiquement dans le modèle pour le site web (legacy)return { type = 'mixed',label = 'Site web', plurallabel = 'Sites web',wikidata = function()local values, num = wikidata.formatAndCat {entity = localdata.item,displayformat = 'weblink',conjtype = '<br />',property = 'P856',isinlang = 'fr',excludespecial = true, -- excludespecial car il peut y avoir marqué "aucune valeur" pour le français, mais y avoir un site en anglaisreturnnumberofvalues = true,}if not values thenvalues, num = wikidata.formatAndCat {entity = localdata.item,displayformat = 'weblink',conjtype = '<br />',property = 'P856',showlang = true,excludespecial = true,returnnumberofvalues = true,}endreturn values, numend,value = function()local siteurl = localdata[localparam] or localdata['site web'] or localdata['site_web'] or localdata['site officiel'] or localdata['site internet'] or localdata['web']local sitename = localdata['nom site']if siteurl thenif siteurl == '-' thenreturn '-'elsereturn require("Module:Weblink").makelink(siteurl, sitename)endendend,}end-- Son, prononciationfunction p.selectSound(prop)-- priorité au françaisif wikidata.getClaims{entity = localdata.item, property = prop, qualifier = {'P407'}, qualifiervalue  = {'Q150'} } thenreturn {property = prop, qualifier = {'P407'}, qualifiervalue  = {'Q150'} }endreturn {property = prop}endfunction p.prononciation()return {type     = 'images',style            = {['padding-top'] = '25px'},defaultcaption   = 'Prononciation',captionparameter = 'légende prononciation',imageparameters  = 'prononciation',defaultsize      = '280',wikidata         = p.selectSound('P443'),numval           = 1,}end-- Fonctions de géolocalisationfunction p.country(default)local coordfunctions = require 'Module:Infobox/Fonctions/Géolocalisation'return coordfunctions.country(default)end--- localisation administrative par Wikidatafunction p.wikidataDivRows(countryid)  -- liste de lignes de divisions administratives basée sur des données de Wikidataif not localdata.item thenreturn nilend-- récupération des valeurslocal list = wikidata.transitiveVals(localdata.item, {property = "P131", atdate = "today", excludespecial = true}, 3, 5, countryid)if not list thenreturn nilend-- création des colonneslocal rows = {}for i, div in pairs(list) doif (div == countryid) thenbreakendlocal rowlabel, rowlabelid, rowlabeltext, rowlabellink, rowvaluerowlabelid = wikidata.formatStatements{entity= div, property = 'P31', numval = 1, displayformat = 'raw', excludespecial = true}rowlabeltext = wikidata.getLabel(rowlabelid)if rowlabeltext thenrowlabeltext = linguistic.ucfirst(linguistic.removecomplement(rowlabeltext))  -- imposé par les libellés pas très logiques sur Wikidata du genre "canton de Suisse" plutôt que "canton"elseelserowlabeltext = ''endif (not rowlabeltext) thenrowlabeltext = 'Division'endif rowlabelid thenrowlabellink = wikidata.siteLink(rowlabelid, {defaultlink = '-', defaultlinkquery= {property = "P2354"}} ) -- si pas de lien, lier vers la page de liste e.g liste des Etats de Californieendif rowlabellink thenrowlabel = "[[" .. rowlabellink .. "|" .. rowlabeltext .. "]]"elserowlabel = rowlabeltextendrowvalue = wikidata.formatEntity(div, {labelformat = function(id) local str = wikidata.getLabel(id) or ""if mw.ustring.match(rowlabel, str) thenstr = linguistic.keepcomplement(str)-- si le nom de la division administrative affiché est présent, ne pas le répéterendreturn strend})local capitalidcapitalid = wikidata.formatStatements{entity= div, property = 'P36', numval = 1, displayformat = 'raw', excludespecial = true}local function capitalstring(div)if wikidata.isInstance('Q35657',div) then return '[[Liste des capitales des États-Unis|capitale]]' endif wikidata.isInstance('Q107390',div) or wikidata.isInstance('Q96196009',div) or wikidata.isInstance('Q34876',div) then return '[[capitale]]' end --État ou provinceif wikidata.isInstance('Q28575',div) then return '[[siège de comté|siège]]' endreturn '[[chef-lieu]]'endif capitalid == localdata.item thenrowvalue = rowvalue .. '<small> (' .. capitalstring(div) .. ')</small>'endtable.insert(rows, 1, {type = "row", label = rowlabel, value = function() return rowvalue end})endreturn rowsendfunction p.geoloc(params)local coordfunctions = require 'Module:Infobox/Fonctions/Géolocalisation'return coordfunctions.geoloc(params)endfunction p.coordinates(params)local coordfunctions = require 'Module:Infobox/Fonctions/Géolocalisation'return coordfunctions.coordinates(params)endfunction p.locationmap(params)local coordfunctions = require 'Module:Infobox/Fonctions/Géolocalisation'return coordfunctions.locationmap(params)endfunction p.detailedmap(params)local coordfunctions = require 'Module:Infobox/Fonctions/Géolocalisation'return coordfunctions.detailedmap(params)endreturn p