Module:Infobox/Fonctions/Géolocalisation

local coord = require "Module:Coordinates" local wikidatamod = require "Module:Interface Wikidata".fromLua local countrymodule = require "Module:Country data" local tools = require "Module:Wikidata/Outils" local p = {}

local p = {}

local function formatCountry(country) if not country then return nil end local val, success = countrymodule.standarddisplay(country) -- val = nil si country n'est pas reconnu return val end

function p.wikidataCountry(item, label, flagdate, size) -- ne donne que la valeur, pas la ligne entière return wikidatamod.formatAndCat{ entity = item, property = 'P17', conjtype = '
', displayformat = function(snak) if tools.isValue(snak) then local id = tools.getId(snak) return formatCountry(id) or wikidatamod.formatEntity(id) end end } end

function p.country(country, label, flagdate, size) -- à faire : gestion des dates, mapping Wikidata/modèles, peut-être mettre une partie de la fonction dans un module séparé return { type = 'mixed', label = 'Pays', value = function() return formatCountry(localdata['pays']) or localdata['country'] end, wikidata = function() return p.wikidataCountry(item) end } end

local function coordcore(moduleparams, localdata, item) -- vérifie qu'il faut afcficher les coordonnées if localdata["géolocalisation"] == 'pas pertinent' or localdata['géolocalisation'] == 'non' and not (localdata['coordonnées'] == 'oui') then return nil end local function getfirstval(vals) -- permet de donner un ordre de priorité aux paramètres à utiliser for i, j in pairs(vals) do if type(j) ~= 'nil' then return j end end end

local function toboolean(val) -- transforme les textes en true / false if val == '-' or val == 'non' then return false end return val end -- récupération des paramètres d'affichage local globe = getfirstval{localdata['globe'], moduleparams['globe']} local displayinline = toboolean(getfirstval{localdata['coords en ligne'], moduleparams.displayinline, true}) local displaytitle = toboolean(getfirstval{localdata['coords en titre'], moduleparams.displaytitle, localdata['infoboxrank'] == 'main'}) local wikidata = toboolean(getfirstval{localdata['wikidata'], true}) local displayformat = getfirstval{localdata['format coordonnées'], moduleparams.displayformat} local wikidataquery = moduleparams.wikidataquery or {property = 'P625'} if not wikidataquery.entity then wikidataquery.entity = item end local maxdistance = moduleparams.maxdistance

-- displayplace format utilisé par Module:Coordinates, devrait être simplifié local displayplace = if displayinline then displayplace = displayplace .. 'inline' end if displaytitle then displayplace = displayplace .. 'title,' end if wikidata == true then wikidata = 'true' end -- local latitude = localdata['latitude'] local longitude = localdata['longitude'] local parameterlist = { latitude = latitude, longitude = longitude, displayformat = displayformat, display= displayplace, globe = globe, wikidata = wikidata, wikidataquery = wikidataquery, maxdistance = maxdistance, } local val = coord._coord(parameterlist) if (not val) and moduleparams.fallbackquery then -- si pas de valeur, essayer la query de sustitution parameterlist.wikidataquery = moduleparams.fallbackquery parameterlist.wikidataquery.entity = item val = coord._coord(parameterlist) end if val and latitude and longitude and localdata['référence géolocalisation'] then val = val .. ' ' .. localdata['référence géolocalisation'] end if val and not localdata['latitude'] then val = wikidatamod.addLinkback(val, item, wikidataquery.property) end if displayinline == false then return -- type: external text pour ne pas avoir de ligne vide en infobox { type = 'external text', sortkey = sortkey,

		value = val
		}
	else 
		return val
	end

end

function p.coordinates(moduleparams) -- initialise les paramètres avec les valeurs du module d'infobox (moduleparams) if not moduleparams then moduleparams = {} end return { type = 'mixed', label = 'Coordonnées', maintenancecat = function(localdata, item) local relevant = localdata['coordonnées'] or localdata['géolocalisation'] --désactivation des catégories de maintenance if (relevant == '-') or (relevant == 'non') or (relevant == 'non pertinent') or (relevant == 'pas pertinent') then -- un peu bordélique, "-" devrait suffire return nil end return moduleparams.maintenancecat or 'Page géolocalisable sans coordonnées paramétrées' end, sortkey = sortkey,

		value = function(localdata, item) return coordcore(moduleparams, localdata, item) end
		}	

end

function p.geoloc(moduleparams) return { type = 'map', latitude = 'latitude', longitude = 'longitude', wikidata = function(item, query) if not query then query = {property = 'P625'} end query.item = query.entity or item return wikidatamod.getClaims(query) end, maps = 'géolocalisation', -- paramètre pour la liste des cartes à utiliser params = {guessmaps = guessmaps} -- = quelles cartes utiliser en l'absence de données fournies dans |gélocalisation

    }

end return p