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

De Lagny-sur-Marne Wiki
Aller à : navigation, rechercher
(option "defaultmaps")
 
(55 révisions intermédiaires par 5 utilisateurs non affichées)
Ligne 1 : Ligne 1 :
−
local coord = require('Module:Coordinates')
+
local localdata = require( 'Module:Infobox/Localdata' )
−
local wikidatamod = require('Module:Wikidata')
+
local item = localdata.item
 +
local wd = require "Module:Interface Wikidata".fromLua
 +
-- Modules chargés si necessaire :
 +
-- local countrymodule = require "Module:Country data"
 +
-- local coord = require "Module:Coordinates"
 
local p = {}
 
local p = {}
  
 +
function p.country()
 +
local function formatCountry(country)
 +
if not country then
 +
return nil
 +
end
 +
local countrymodule = require "Module:Country data"
 +
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
  
−
local p = {}
+
function p.coordvalue(moduleparams) -- valeurs des coordonnées, sans mise en infoboîte
−
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é
+
local coord = require "Module:Coordinates"
−
return function(localdata, item)
+
if not moduleparams then
−
if localdata['country'] then -- priorité aux données locales
+
moduleparams = {}
−
country = localdata['country']
 
 
end
 
end
−
if not country then -- si le pays n'est ni sur la page ni dans le module d'infobox, essayer wikidata
+
 
−
country = wikidatamod.formatStatements({item=item, property = 'P17'})
+
local function toboolean(val) -- transforme un "-" en false au moment voulu
−
end
+
if val == '-' or val == 'non' then
−
if not country then
+
return false
−
return nil
+
end
 +
return true
 
end
 
end
−
local countrydata = require('Module:Country data')[mw.ustring.lower(country)] or {}
 
  
−
if countrydata['alias'] then
+
-- paramètres Wikidata
−
country = '[[' .. countrydata['alias'] .. ']]'
+
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
 
end
 +
 +
-- paramètres d'affichage
 +
local displayformat = localdata['format coordonnées'], moduleparams.displayformat
 
 
−
if not label then
+
local displayplace = ''
−
label = 'Pays'
+
local displayinline = toboolean(localdata['coords en ligne'] or moduleparams.displayinline or true)
 +
-- par défaut : on met dans les coordonnées de l'infobox principale en titre
 +
local displaytitle = localdata['coords en titre']
 +
or moduleparams.displaytitle
 +
or (localdata['infoboxrank'] == 'main')
 +
if displayinline and (displayinline ~= '-') then
 +
displayplace = displayplace .. 'inline'
 
end
 
end
−
if not size then
+
if displaytitle and (displaytitle ~= '-')  then
−
size = '22x20'
+
displayplace = displayplace .. 'title,'
 
end
 
end
 
 
−
local flag = countrydata['flag alias']
+
-- données sur géograhiques
−
if flag then
+
local globe = localdata['globe'] or localdata['planète'] or moduleparams['globe'] or 'earth'
−
flag = '<span class="flagicon">[[File:' .. flag .. '|' .. size .. 'px' .. ']]</span>'
+
local latitude = localdata['latitude']
−
else
+
local longitude = localdata['longitude']
−
flag = ''
+
 
 +
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
 
end
−
local val = flag .. ' ' .. country
+
if val and latitude and longitude and localdata['référence géolocalisation'] then
−
return  {
+
val = val .. ' ' .. localdata['référence géolocalisation']
−
type = 'mixed',
+
end
−
label = label,
+
if val and not localdata['latitude'] then
−
value = function() return val end,
+
val = wd.addLinkback(val, item, wikidataquery.property)
−
}
 
 
end
 
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
 
end
  
 
function p.coordinates(moduleparams)
 
function p.coordinates(moduleparams)
 +
if not moduleparams then
 +
moduleparams = {}
 +
end
 +
-- paramètre coordonnées a la priorité sur "géolocalisation" (=carte)
 +
local relevant = localdata['coordonnées'] or localdata['géolocalisation']
 +
if relevant == '-' or relevant == 'non' then
 +
return nil
 +
end
 
-- initialise les paramètres avec les valeurs du module d'infobox (moduleparams)
 
-- initialise les paramètres avec les valeurs du module d'infobox (moduleparams)
−
if not moduleparams then moduleparams = {} end
+
return {
−
local globe = moduleparams.globe
 
−
local displayinline = moduleparams.displayinline
 
−
local displaytitle = moduleparams.displaytitle
 
−
local displayformat = moduleparams.displayformat
 
−
if not displaytitle then displaytitle = 'title' end -- displayinline et displaytitle sont des chaînes à utiliser dans le paramètre "display" de coord
 
−
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' then
 
−
if not (localdata['coordonnées'] == 'oui') then
 
−
return nil
 
−
end end
 
−
 
−
-- si paramètres donnés dans l'article, écrasent les autres
 
−
if localdata['format coordonnées'] then
 
−
displayformat = localdata['format coordonnées']
 
−
end
 
−
if localdata['coords en titre'] == 'oui' then
 
−
local displaytitle = 'title'
 
−
end
 
−
if localdata['coords en titre'] == 'non' or  localdata['coords en titre'] == '-' then
 
−
displaytitle = ''
 
−
end
 
−
if localdata['coords en en ligne'] == 'oui' then
 
−
displayinline = 'inline'
 
−
end
 
−
if localdata['coords en en ligne'] == 'non' or localdata['coords en en ligne'] == '-' then
 
−
displayinline = ''
 
−
end
 
−
local displayplace = displaytitle .. ',' .. displayinline
 
−
local latitude = localdata['latitude']
 
−
local longitude = localdata['longitude']
 
−
if localdata['globe'] then
 
−
globe = localdata['globe']
 
−
end
 
−
local wikidata = localdata['wikidata'] or 'true'
 
−
if displayinline == '' then
 
−
return -- type: external text pour ne pas avoir de ligne vide en infobox
 
−
{
 
−
type = 'external text',
 
−
maintenancecat = 'Page géolocalisable sans coordonnées paramétrées',
 
−
sortkey = sortkey,
 
−
value =
 
−
function(localdata, item)
 
−
return coord._coord({latitude = latitude, longitude = longitude, displayformat = displayformat, display= displayplace, globe = globe, wikidata =wikidata})
 
−
end
 
−
}
 
−
else return
 
−
{
 
 
type = 'mixed',
 
type = 'mixed',
 
label = 'Coordonnées',
 
label = 'Coordonnées',
−
maintenancecat = 'Page géolocalisable sans coordonnées paramétrées',
+
maintenancecat = moduleparams.maintenancecat or 'Page géolocalisable sans coordonnées paramétrées',
−
sortkey = sortkey,
+
sortkey = moduleparams.sortkey,
−
  value =
+
  value = function (localdata) return p.coordvalue(moduleparams) end
−
function(localdata, item)
+
}
−
return coord._coord({latitude = latitude, longitude = longitude, displayformat = displayformat, display= displayplace, globe = globe, wikidata =wikidata})
 
−
end
 
−
}
 
−
end end
 
 
end
 
end
  
−
function p.geoloc(maplist)
+
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  {
 
return  {
 
type = 'map',
 
type = 'map',
 
latitude = 'latitude',
 
latitude = 'latitude',
 
longitude = 'longitude',
 
longitude = 'longitude',
−
wikidata = function(localdata, item) return wikidatamod.getClaims{item = item, property = 'P625'} end,
+
wikidata = {property = 'P625'},
−
maps = function(localdata, item)
+
entity = item,
−
local str
+
maps = function() return localdata['géolocalisation'] or params.defaultmaps end, -- paramètre pour la liste des cartes à utiliser
−
if localdata['géolocalisation'] then
+
staticmaps = 'carte', -- carte en mode image simple
−
str = localdata['géolocalisation']
+
staticmapsWD = {property = "P242", numval = 1}, -- p
−
elseif maplist then
+
pointtype = params.pointtype,
−
str = maplist
+
maptype = params.maptype,
−
end
+
globe = localdata.globe or localdata['planète'] or params.globe,
−
if str then
+
marker = params.marker,
−
return mw.text.split( str, '/', true)
+
default_zoom = params.default_zoom,
−
end
+
params = {guessmaps = params.guessmaps} -- = quelles cartes utiliser en l'absence de données fournies dans |gélocalisation
−
end
+
}
−
    }
 
−
 
 
end
 
end
 +
 +
function p.locationmap(size)
 +
return {
 +
type = 'images',
 +
imageparameters =  {'carte'},
 +
sizeparameter = 'taille carte',
 +
defaultsize = size,
 +
property = 'P242',
 +
numval = 1,
 +
}
 +
end
 +
 
return p
 
return p

Version actuelle datée du 25 mai 2017 à 18:46

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

local localdata = require( 'Module:Infobox/Localdata' )
local item = localdata.item
local wd = require "Module:Interface Wikidata".fromLua
-- Modules chargés si necessaire :
-- local countrymodule = require "Module:Country data"
-- local coord = require "Module:Coordinates"
local p = {}

function p.country()
	local function formatCountry(country)
		if not country then
			return nil
		end
		local countrymodule = require "Module:Country data"
		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
	local coord = require "Module:Coordinates"
	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)
	-- par défaut : on met dans les coordonnées de l'infobox principale en titre
	local displaytitle = localdata['coords en titre']
		or moduleparams.displaytitle
		or (localdata['infoboxrank'] == 'main')
	if displayinline and (displayinline ~= '-') then
		displayplace = displayplace .. 'inline'
	end
	if displaytitle and (displaytitle ~= '-')  then
		displayplace = displayplace .. 'title,'
	end
	
	-- données sur géograhiques
	local globe = localdata['globe'] or localdata['planète'] 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
	-- paramètre coordonnées a la priorité sur "géolocalisation" (=carte)
	local relevant = localdata['coordonnées'] or localdata['géolocalisation'] 
	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 = moduleparams.sortkey,
 		value = function (localdata) 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 = function() return localdata['géolocalisation'] or params.defaultmaps end, -- paramètre pour la liste des cartes à utiliser
		staticmaps = 'carte', -- carte en mode image simple
		staticmapsWD = {property = "P242", numval = 1}, -- p
		pointtype = params.pointtype,
		maptype = params.maptype,
		globe = localdata.globe or localdata['planète'] or params.globe,
		marker = params.marker,
		default_zoom = params.default_zoom,
		params = {guessmaps = params.guessmaps} -- = quelles cartes utiliser en l'absence de données fournies dans |gélocalisation
	}
end

function p.locationmap(size)
	return {
		type = 'images',
		imageparameters =  {'carte'},
		sizeparameter = 'taille carte',
		defaultsize = 	size,
		property = 'P242',
		numval = 1,
	}
end

return p
Récupérée de « https://lagny-sur-marne.wiki/index.php?title=Module:Infobox/Fonctions/Géolocalisation&oldid=19316 »