Module:Infobox/Fonctions/Géolocalisation : Différence entre versions

De Lagny-sur-Marne Wiki
Aller à : navigation, rechercher
(option de customisation de la requête Wikidata, rationnalisation du code)
Ligne 37 : Ligne 37 :
 
end
 
end
  
local function coordcore(moduleparams)
+
local function coordcore(moduleparams, localdata, item)
local globe = moduleparams.globe
+
-- vérifie qu'il faut afficher les coordonnées
local displayinline = moduleparams.displayinline
 
local displaytitle = moduleparams.displaytitle
 
local displayformat = moduleparams.displayformat
 
if (not displaytitle and not distantitem) then displaytitle = 'title' end -- displayinline et displaytitle sont des chaînes à utiliser dans le paramètre "display" de coord
 
--distantitem veut dire que le sujet de l'infobox ne correspond pas au sujet de l'article
 
if not displayinline then displayinline = 'inline' end
 
 
 
return function(localdata, item)
 
 
-- vérifie qu'il faut afficher les coordonnées
 
 
if localdata["géolocalisation"] == 'pas pertinent' or localdata['géolocalisation'] == 'non' and not (localdata['coordonnées'] == 'oui') then
 
if localdata["géolocalisation"] == 'pas pertinent' or localdata['géolocalisation'] == 'non' and not (localdata['coordonnées'] == 'oui') then
 
return nil
 
return nil
 
end
 
end
+
local function getfirstval(vals) -- permet de donner un ordre de priorité aux paramètres à utiliser
-- si paramètres donnés dans l'article, écrasent les autres
+
for i, j in pairs(vals) do
if localdata['format coordonnées'] then
+
if type(j) ~= 'nil' then return j end
displayformat = localdata['format coordonnées']
+
end
 
end
 
end
 
 
displaytitle = 'title'
+
local function toboolean(val) -- transforme les textes en true / false
if localdata['infoboxrank'] == 'secondary' then
+
if val == '-' or val == 'non' then
displaytitle = ''
+
return false
 +
end
 +
return val
 
end
 
end
if localdata['coords en titre'] == 'oui' then
+
-- récupération des paramètres d'affichage
displaytitle = 'title'
+
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
 
end
if localdata['coords en titre'] == 'non' or  localdata['coords en titre'] == '-' then
+
local maxdistance = moduleparams.maxdistance
displaytitle = ''
+
 
end
+
-- displayplace format utilisé par Module:Coordinates, devrait être simplifié
if localdata['coords en en ligne'] == 'oui' then
+
local displayplace = ''
displayinline = 'inline'
+
if displayinline then
 +
displayplace = displayplace .. 'inline'
 
end
 
end
if localdata['coords en en ligne'] == 'non' or localdata['coords en en ligne'] == '-' then
+
if displaytitle then
displayinline = ''
+
displayplace = displayplace .. 'title,'
 
end
 
end
local displayplace = displaytitle .. ',' .. displayinline
+
if wikidata == true then wikidata = 'true' end
 +
--
 
local latitude = localdata['latitude']
 
local latitude = localdata['latitude']
 
local longitude = localdata['longitude']
 
local longitude = localdata['longitude']
if localdata['globe'] then
+
local val = coord._coord{
globe = localdata['globe']
+
latitude = latitude,
end
+
longitude = longitude,
local wikidata = localdata['wikidata'] or 'true'
+
displayformat = displayformat,
local val = coord._coord({latitude = latitude, longitude = longitude, displayformat = displayformat, display= displayplace, globe = globe, wikidata =wikidata})
+
display= displayplace,
 +
globe = globe,
 +
wikidata = wikidata,
 +
wikidataquery = wikidataquery,
 +
maxdistance = maxdistance,
 +
}
 
if val and latitude and longitude and localdata['référence géolocalisation'] then
 
if val and latitude and longitude and localdata['référence géolocalisation'] then
 
val = val .. ' ' .. localdata['référence géolocalisation']
 
val = val .. ' ' .. localdata['référence géolocalisation']
 
end
 
end
 
if val and not localdata['latitude'] then
 
if val and not localdata['latitude'] then
val = wikidatamod.addLinkback(val, item, 'P625')
+
val = wikidatamod.addLinkback(val, item, wikidataquery.property)
 
end
 
end
if displayinline == '' then
+
if displayinline == false then
 
return -- type: external text pour ne pas avoir de ligne vide en infobox
 
return -- type: external text pour ne pas avoir de ligne vide en infobox
 
{
 
{
Ligne 97 : Ligne 103 :
 
  else  
 
  else  
 
  return val
 
  return val
end
 
 
  end
 
  end
 
end
 
end
 +
 
function p.coordinates(moduleparams)
 
function p.coordinates(moduleparams)
 
-- initialise les paramètres avec les valeurs du module d'infobox (moduleparams)
 
-- initialise les paramètres avec les valeurs du module d'infobox (moduleparams)
Ligne 115 : Ligne 121 :
 
end,
 
end,
 
sortkey = sortkey,
 
sortkey = sortkey,
  value = coordcore(moduleparams)
+
  value = function(localdata, item) return coordcore(moduleparams, localdata, item) end
 
  }
 
  }
 
end
 
end
  
function p.geoloc(maptype, guessmaps)
+
function p.geoloc(maptype, guessmaps, moduleparams)
 
return  {
 
return  {
 
type = 'map',
 
type = 'map',
 
latitude = 'latitude',
 
latitude = 'latitude',
 
longitude = 'longitude',
 
longitude = 'longitude',
wikidata = function(item) return wikidatamod.getClaims{item = item, property = 'P625'} end,
+
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
 
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
 
params = {guessmaps = guessmaps} -- = quelles cartes utiliser en l'absence de données fournies dans |gélocalisation

Version du 9 avril 2015 à 09:50

La documentation pour ce module peut être créée à Module:Infobox/Fonctions/Géolocalisation/doc

local coord = require('Module:Coordinates')
local wikidatamod = require('Module:Wikidata')
local p = {}


local p = {}
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 function(localdata, item)
	if localdata['pays'] then -- priorité aux données locales
		country =  localdata['pays']
	end
	local countrymodule = require('Module:Country data')
	country = countrymodule.standarddisplay(country)
	local wikidatacountry = wikidatamod.formatAndCat{
		item = item,
		property = 'P17',
		displayformat = function(snak)
			local id = 'Q' .. snak.datavalue.value['numeric-id']
			local formattedval, success
			if snak.snaktype == 'value' then
				formattedval, success = countrymodule.standarddisplay(id)
			end
			if success then return
				formattedval
			else
				return wikidatamod.formatSnak(snak)
			end
		end
	}
	return  {
		type = 'mixed',
		label = 'Pays',
		value = function() return country end,
		wikidata = function() return wikidatacountry end
	}
	end
end

local function coordcore(moduleparams, localdata, item)
	-- vérifie qu'il faut afficher 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 val = coord._coord{
		latitude = latitude,
		longitude = longitude,
		displayformat = displayformat,
		display= displayplace,
		globe = globe,
		wikidata = wikidata,
		wikidataquery = wikidataquery,
		maxdistance = maxdistance,
	}
	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(maptype, guessmaps, 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