Aller au contenu

Module:Carte interactive

Cette page fait l’objet d’une mesure de semi-protection étendue.
Une page de Wikipédia, l'encyclopédie libre.
Ceci est une version archivée de cette page, en date du 24 juillet 2018 à 15:33 et modifiée en dernier par The RedBurn (discuter | contributions) (+ or '' pour osm et wikidata (pour éviter une erreur lorsque le paramètre est vide)). Elle peut contenir des erreurs, des inexactitudes ou des contenus vandalisés non présents dans la version actuelle.

 Documentation[créer] [purger]
MIT

Ce module ne possède aucune documentation explicative en sous-page, pas même une description succincte.
Vous pouvez créer cette sous-page afin de documenter ce module adéquatement.

La documentation de ce module est générée par le modèle {{Documentation module}}.
Les éditeurs peuvent travailler dans le bac à sable (modifier).
Voir les statistiques d'appel depuis le wikicode sur l'outil wstat et les appels depuis d'autres modules.

local p = {}
local coord = require( "Module:Coordinates" )

local function normalise(args)
	local lookup_table = {}
	lookup_table['largeur']= 'width'
	lookup_table['hauteur'] = 'height'
	lookup_table['texte'] = 'text'
	lookup_table['legende'] = 'text'
	lookup_table['légende'] = 'text'
	lookup_table['déscription'] = 'description'
	lookup_table['titre'] = 'title'
	lookup_table['sans_cadre'] = 'frameless'
	lookup_table['symbole'] = 'symbol'
	lookup_table['couleur'] = 'color'
	lookup_table['taille'] = 'size'
	lookup_table['epaisseur'] = 'size'
	lookup_table['épaisseur'] = 'size'
	lookup_table['opacite'] = 'opacity'
	lookup_table['opacité'] = 'opacity'
	lookup_table['epaisseur contour'] = 'size'
	lookup_table['épaisseur contour'] = 'size'
	lookup_table['couleur contour'] = 'color'
	lookup_table['opacite contour'] = 'opacity'
	lookup_table['opacité contour'] = 'opacity'
	lookup_table['couleur fond'] = 'fill_color'
	lookup_table['opacite fond'] = 'fill_opacity'
	lookup_table['opacité fond'] = 'fill_opacity'
	lookup_table['geoline'] = 'contour'
	lookup_table['requête'] = 'query'
	lookup_table['requete'] = 'query'
	lookup_table['request'] = 'query'
	lookup_table['langue'] = 'lang'
	
	for k, v in pairs(lookup_table) do
		if args[k] ~= nil then
			args[v] = args[k]
		end
	end
	
	return args
end

function p.marker(frame)
	local args = normalise(frame:getParent().args)
	
	if args[1] == nil and args.latlng == nil then --One coordinate is mandatory
		return
	end
	
	local properties = {}
	properties['marker-color'] = args.color == nil and '#555555' or args.color
	properties['marker-size'] = args.size == nil and 'medium' or args.size
	properties['marker-symbol'] = args.symbol == nil and '' or args.symbol
	properties['title'] = args.title == nil and '' or args.title
	properties['description'] = args.description == nil and '' or args.description
	
	local latlng = mw.text.split( (args[1] == nil and args.latlng or args[1]), ",", true )
	
	if args.randomise ~= nil then
		latlng[1] = latlng[1] + math.random(-tonumber(args.randomise), tonumber(args.randomise))/100000
		latlng[2] = latlng[2] + math.random(-tonumber(args.randomise), tonumber(args.randomise))/100000
	end
	
	local geojson = {
            type = "Feature",
            properties = properties,
            geometry = {
                type = "Point",
                coordinates = {
                	tonumber(latlng[2]), 
                	tonumber(latlng[1]),
                }
            }
        }
    return mw.text.jsonEncode(geojson) .. ','
end

function p.line(frame)
	local args = normalise(frame:getParent().args)
	
	if args[2] == nil then --At least two coordinates are mandatory
		return
	end
	
	local properties = {}
	properties["stroke"] = args.color == nil and '#555555' or args.color
	properties["stroke-width"] = args.size == nil and 2 or tonumber(args.size)
	properties["stroke-opacity"] = args.opacity == nil and 1 or tonumber(args.opacity)
	properties['title'] = args.title == nil and '' or args.title
	properties['description'] = args.description == nil and '' or args.description
	
	local coordinates = {}
	local i = 1
	while args[i] ~= nil do
		local latlng = mw.text.split( args[i], ",", true )
		coordinates[i] = {
        	tonumber(latlng[2]), 
        	tonumber(latlng[1]),
        }
		i = i+1
	end
	
	local geojson = {
            type = "Feature",
            properties = properties,
            geometry = {
                type = "LineString",
                coordinates = coordinates
            }
        }
    return mw.text.jsonEncode(geojson) .. ','
end

function p.polygon(frame)
	local args = normalise(frame:getParent().args)
	
	if args[3] == nil then --At least three coordinates are mandatory
		return
	end
	
	local properties = {}
	properties["stroke"] = args.color == nil and '#555555' or args.color
	properties["stroke-width"] = args.size == nil and 2 or tonumber(args.size)
	properties["stroke-opacity"] = args.opacity == nil and 1 or tonumber(args.opacity)
	properties["fill"] = args.fill_color == nil and '#555555' or args.fill_color
	properties["fill-opacity"] = args.fill_opacity == nil and 0.3 or tonumber(args.fill_opacity)
	properties['title'] = args.title == nil and '' or args.title
	properties['description'] = args.description == nil and '' or args.description
	
	local coordinates = {}
	local i = 1
	while args[i] ~= nil do
		local latlng = mw.text.split( args[i], ",", true )
		coordinates[i] = {
        	tonumber(latlng[2]), 
        	tonumber(latlng[1]),
        }
		i = i+1
	end
	local latlng = mw.text.split( args[1], ",", true )
	coordinates[i] = {
    	tonumber(latlng[2]), 
    	tonumber(latlng[1]),
    }
	
	local geojson = {
            type = "Feature",
            properties = properties,
            geometry = {
                type = "Polygon",
                coordinates = { coordinates }
            }
        }
    return mw.text.jsonEncode(geojson) .. ','
end

function p.query(frame)
	local args = normalise(frame:getParent().args)
	
	local query
	if args[1] ~= nil then
		query = args[1]
	else
		return
	end
	
	local properties = {}
	properties["stroke"] = args.color == nil and '#555555' or args.color
	properties["stroke-width"] = args.size == nil and 2 or tonumber(args.size)
	properties["stroke-opacity"] = args.opacity == nil and 1 or tonumber(args.opacity)
	properties["fill"] = args.fill_color == nil and '#555555' or args.fill_color
	properties["fill-opacity"] = args.fill_opacity == nil and 0.3 or tonumber(args.fill_opacity)
	properties['title'] = args.title == nil and '' or args.title
	properties['description'] = args.description == nil and '' or args.description
	
	local service = "geoshape"
	if args.contour ~= nil then
		service = "geoline"
	end
	
	local geojson = {
		type = "ExternalData",
		service = service,
		query = query,
		properties = properties,
	}
    return mw.text.jsonEncode(geojson) .. ','
end

function p.osm(frame)
	local args = normalise(frame:getParent().args)
	
	local qid
	if args[1] == nil then
		qid = mw.wikibase.getEntityIdForCurrentPage()
	else
		qid = args[1]
	end
	
	local properties = {}
	properties["stroke"] = args.color == nil and '#555555' or args.color
	properties["stroke-width"] = args.size == nil and 2 or tonumber(args.size)
	properties["stroke-opacity"] = args.opacity == nil and 1 or tonumber(args.opacity)
	properties["fill"] = args.fill_color == nil and '#555555' or args.fill_color
	properties["fill-opacity"] = args.fill_opacity == nil and 0.3 or tonumber(args.fill_opacity)
	properties['title'] = args.title == nil and '' or args.title
	properties['description'] = args.description == nil and '' or args.description
	
	local service = "geoshape"
	if args.contour ~= nil then
		service = "geoline"
	end
	
	local geojson = {
		type = "ExternalData",
		service = service,
		ids = qid,
		properties = properties,
	}
    return mw.text.jsonEncode(geojson) .. ','
end

function p.commons(frame)
	local args = normalise(frame:getParent().args)
	
	if args[1] == nil then
		return
	end
	
	local page_name = args[1]
	if mw.ustring.find(page_name, "Data:", 1, true) == 1 then
		page_name = string.sub(page_name, 6)
	end
	if mw.ustring.find(page_name, ".map", -4, true) == nil then
		page_name = page_name .. '.map'
	end
	
	local geojson = {
		type = "ExternalData",
		service = "page",
		title = page_name
	}
    return mw.text.jsonEncode(geojson) .. ','
end

function p.wikidata(frame)
	local args = normalise(frame:getParent().args)
	local qid
	
	local properties = {}
	properties['marker-color'] = args.color == nil and '#555555' or args.color
	properties['marker-size'] = args.size == nil and 'medium' or args.size
	properties['marker-symbol'] = args.symbol == nil and '' or args.symbol
	properties['title'] = args.title == nil and '' or args.title
	properties['description'] = args.description == nil and '' or args.description
	
	if args[1] == nil then
		qid = mw.wikibase.getEntityIdForCurrentPage()
	else
		qid = args[1]
	end
	
	local entity = mw.wikibase.getEntity( qid )
	local value = entity:formatPropertyValues( 'P625', { mw.wikibase.entity.claimRanks.RANK_NORMAL, mw.wikibase.entity.claimRanks.RANK_PREFERRED, mw.wikibase.entity.claimRanks.RANK_TRUTH } ).value
	if value == nil then
		error('La propriété P625 "coordonnées géographiques" n\'est pas renseigné sur Wikidata')
	end
	latlng = mw.text.split( mw.text.decode(value), ", ", true )
	geojson = {
		type = "Feature",
		geometry = {
			type = "Point",
			coordinates = {
				coord._dms2dec(coord._parsedmsstring(latlng[2])), 
				coord._dms2dec(coord._parsedmsstring(latlng[1]))
			}
		},
		properties = properties
	}
	
	return mw.text.jsonEncode(geojson) .. ','
end

function p.tag(frame)
	local args = normalise(frame:getParent().args)
	
	-- Choose the tagname
	local tagname = 'mapframe'
	if args.lien ~= nil then
		tagname = 'maplink'
	end

	-- Manage the basics tag params
	local tagArgs = {
		zoom = args.zoom == nil and args.commons == nil and 14 or tonumber(args.zoom),
		height = args.height == nil and 420 or tonumber(args.height),
		width = args.width == nil and 420 or tonumber(args.width),
		align = args.align == nil and 'right' or args.align,
		text = args.text,
	}
	
	if args[1] ~= nil and (args.latitude ~= nil or args.longitude ~= nil) then
		error('La ou les valeurs de longitude et/ou de latitude ont été fournis via deux syntaxe différentes. Consultez la documentation du [[Modèle:Carte interactive]] pour obtenir une syntaxe correcte')
	elseif args.latitude ~= nil and args.longitude ~= nil then
		tagArgs.latitude = tonumber(args.latitude)
		tagArgs.longitude = tonumber(args.longitude)
	elseif args[1] ~= nil and args[2] ~= nil then
		tagArgs.latitude = tonumber(args[1])
		tagArgs.longitude = tonumber(args[2])
	elseif args.commons == nil then --The only exception allowed to put latitude and longitude away is when using an external map stored on commons
		error('Les paramètres de latitude et/ou de longitude sont absent')
	end
	
	if args.frameless then
		tagArgs.frameless = ''
	end
	
	if args.lang ~= nil then
		tagArgs.lang = args.lang
	end
	
	-- Manage the basics GeoJSON params
	local geojson = {}
	
	if args.commons ~= nil then
		geojson[#geojson+1] = {
			type = "ExternalData",
			service = "page",
			title = args.commons,
		}
	end
	
	if args.marqueur ~= nil then
		geojson[#geojson+1] = {
			type = "Feature",
			geometry = {
				type = "Point",
				coordinates = {
					tagArgs.longitude, 
					tagArgs.latitude
				}
			},
			properties = {
				title = args.title == nil and '' or args.title,
				description = args.description == nil and '' or args.description,
			}
		}
	end
	
	if args.osm ~= nil then
		local qid
		if args.osm == 'oui' or '' then
			qid = mw.wikibase.getEntityIdForCurrentPage()
		else
			qid = args.osm
		end
		
		local service = "geoshape"
		if args.contour ~= nil then
			service = "geoline"
		end
		
		geojson[#geojson+1] = {
			type = "ExternalData",
			service = service,
			ids = qid,
			properties = {
				title = args.title == nil and '' or args.title,
				description = args.description == nil and '' or args.description,
			}
		}
	end
	
	if args.wikidata ~= nil then
		local qid
		if args.wikidata == 'oui' or '' then
			qid = mw.wikibase.getEntityIdForCurrentPage()
		else
			qid = args.wikidata
		end
		local entity = mw.wikibase.getEntity( qid )
		local value = entity:formatPropertyValues( 'P625', { mw.wikibase.entity.claimRanks.RANK_NORMAL, mw.wikibase.entity.claimRanks.RANK_PREFERRED, mw.wikibase.entity.claimRanks.RANK_TRUTH } ).value
		if value == nil then
			error('La propriété P625 "coordonnées géographiques" n\'est pas renseigné sur Wikidata')
		end
		latlng = mw.text.split( mw.text.decode(value), ", ", true )
		geojson[#geojson+1] = {
			type = "Feature",
			geometry = {
				type = "Point",
				coordinates = {
					coord._dms2dec(coord._parsedmsstring(latlng[2])), 
					coord._dms2dec(coord._parsedmsstring(latlng[1]))
				}
			},
			properties = {
				title = args.title == nil and '' or args.title,
				description = args.description == nil and '' or args.description,
			}
		}
	end
	
	if args.query ~= nil then
		local service = "geoshape"
		if args.contour ~= nil then
			service = "geoline"
		end
		
		geojson[#geojson+1] = {
			type = "ExternalData",
			service = service,
			query = args.query,
			properties = {
				title = args.title == nil and '' or args.title,
				description = args.description == nil and '' or args.description,
			}
		}
	end
	
	--Manage external GeoJSON datas included through models
	if args.formes ~= nil then
		geojson[#geojson+1] = {
			type = "FeatureCollection",
			features = mw.text.jsonDecode('['..args.formes..']')
		}
	end
	
	if args.externes ~= nil then
		local externes = mw.text.jsonDecode('['..args.externes..']')
		for k, externe in pairs(externes) do
			geojson[#geojson+1] = externe
		end
	end
	
	return frame:extensionTag(tagname, mw.text.jsonEncode(geojson), tagArgs)
end

return p
Ce document provient de « https://fr.wikipedia.org/w/index.php?title=Module:Carte_interactive&oldid=150644681 ».