Module:Infobox/Fonctions/Géolocalisation

local coord = require "Module:Coordinates" local wd = require "Module:Interface Wikidata".fromLua local countrymodule = require "Module:Country data" local p = {}

function p.country() 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 if success then return val end end

return { type = 'mixed', label = 'Pays', value = function() return formatCountry(localdata['pays']) or localdata['pays'] end, wikidata = {property = 'P17', conjtype = 'new line', displayformat = function(snak) local id = wd.getid(snak) return formatCountry(id) or wd.formatSnak(snak) end} } end

function p.coordvalue(moduleparams) -- valeurs des coordonnées, sans mise en infoboîte if not moduleparams then moduleparams = {} end

local function toboolean(val) -- transforme un "-" en false au moment voulu if val == '-' or val == 'non' then return false end return true end

-- paramètres Wikidata local wikidata = tostring(toboolean(localdata['wikidata'] or true)) -- doit être string dans Module:Coordinates local maxdistance = moduleparams.maxdistance local wikidataquery = moduleparams.wikidataquery or {property = 'P625'} if not wikidataquery.entity then wikidataquery.entity = item end

-- paramètres d'affichage local displayformat = localdata['format coordonnées'], moduleparams.displayformat

local displayplace = local displayinline = toboolean(localdata['coords en ligne'] or moduleparams.displayinline or true) local displaytitle = toboolean(localdata['coords en titre'] or moduleparams.displaytitle or localdata['infoboxrank'] == 'main') -- par défautt : on met dans les coordonnées de l'infobox principale en titre if displayinline then displayplace = displayplace .. 'inline' end if displaytitle then displayplace = displayplace .. 'title,' end

-- données sur géograhiques local globe = localdata['globe'] or moduleparams['globe'] or 'earth' 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 = wd.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) if not moduleparams then moduleparams = {} end local relevant = localdata['coordonnées'] or localdata['géolocalisation'] -- paramètre coordonnées a la priorité sur "géolocalisation" (=carte) if relevant == '-' or relevant == 'non' then return nil end -- initialise les paramètres avec les valeurs du module d'infobox (moduleparams) return { type = 'mixed', label = 'Coordonnées', maintenancecat = moduleparams.maintenancecat or 'Page géolocalisable sans coordonnées paramétrées', sortkey = sortkey,

		value = function(localdata, item) return p.coordvalue(moduleparams) end
	}	

end

function p.geoloc(params)

if not params then params = {} end if (localdata['géolocalisation'] == '-') or (localdata['géolocalisation'] == 'pas pertinent') then return nil end

return { type = 'map', latitude = 'latitude', longitude = 'longitude', wikidata = {property = 'P625'}, entity = item, maps = 'géolocalisation', -- paramètre pour la liste des cartes à utiliser pointtype = params.pointtype, maptype = params.maptype, params = {guessmaps = guessmaps} -- = quelles cartes utiliser en l'absence de données fournies dans |gélocalisation

    }

end

return p