Modulis:Infokaste/Funkcijas/Ģeo

Moduļa dokumentācija[izveidot]

local coord = require "Module:Coordinates/fr"
local wikidatamod = require "Module:Interface Wikidata".fromLua
local countrymodule = require "Module:Valsts dati"
local tools = require "Module:Wikidata/fr/Rīki"
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
	if success then
		return val
	end
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 = '<br />',
		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['pays'] end,
		wikidata = function() return p.wikidataCountry(item) end
	}
end

function p.coordvalue(moduleparams) -- valeurs des coordonnées, sans mise en infoboîte
	if not moduleparams then
		moduleparams = {}
	end
	-- 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)
	if not moduleparams then
		moduleparams = {}
	end
	-- initialise les paramètres avec les valeurs du module d'infobox (moduleparams)
	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 p.coordvalue(moduleparams) end
 		}	
end

function p.geoloc(params)
	if not params then
		params = {}
	end
	return   {
		type = 'map',
		latitude = 'latitude',
		longitude = 'longitude',
		wikidata = {property = 'P625'},
		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