Mòdul:Mapa de localizacion

La documentacion d'utilizacion d'aquel modul se pòt crear a Mòdul:Mapa de localizacion/ús

-- Version 12/2021: --
-- With icons of different width/height: Correct adjustment of the position of the label.
-- Error messages refer to longitude and latitude: the ability to translate them into languages other than English.
-- New features: 
-- * Label centered on a coordinate (and therefore without the mark), when position='center'. 
-- * Rotated label centered on a coordinate (and therefore without the mark), when label_rotate=degree. 
-- * When mark_bottom has a value then the bottom of the mark points to coordenates.
--     This is useful for some icons, such as this [[File:Bigcity red.png]]. 
-- * With wd_coord the coordinates are read from wikidata  

require('Module:No globals')
	
local p = {}

local getArgs = require('Module:Arguments').getArgs
local WD = require('Module:Wikidadas')

local function round(n, decimals)
	local pow = 10^(decimals or 0)
	return math.floor(n * pow + 0.5) / pow
end

function p.getMapParams(map, frame)
	if not map then
		error("S'ha d'especificar el nom de la definició del mapa a utilitzar ", 2)
	end
	local fn = 'Mòdul:Mapa de localizacion/donada/' .. map
	local moduletitle = mw.title.new(fn)
	if not moduletitle then
		error(string.format('%q no és un nom vàlid per a una definició de mapa', map), 2)
	elseif moduletitle.exists then
		local mapData = mw.loadData(fn)
		return function(name, params)
			if name == nil then
				return fn
			elseif mapData[name] == nil then
				return ''
			elseif params then
				return mw.message.newRawMessage(tostring(mapData[name]), unpack(params)):plain()
			else
				return mapData[name]
			end
		end
	else
		error("No s'ha pogut trobar la definició del mapa especificat, ja que no es troba "..'"'.. fn .. '". Comproveu que el nom estigui escrit idènticament (majúscules, minúscules, diacrítics) al nom del mòdul existent. Altrament, penseu si en podeu fer una còpia a la Viquipèdia en català del corresponent mòdul de la Viquipèdia en anglès (si existeix), posant el nom en català', 2)
	end
end

function p.data(frame, args, map)
	if not args then
		args = getArgs(frame, {frameOnly = true})
	end
	if not map then
		map = p.getMapParams(args[1], frame)
	end
	local params = {}
	for k,v in ipairs(args) do
		if k > 2 then
			params[k-2] = v
		end
	end
	return map(args[2], #params ~= 0 and params)
end

local hemisphereMultipliers = {
    --longitude = { W = -1, w = -1, E = 1, e = 1 }, 
	longitude = { W = -1, w = -1, E = 1, e = 1, O = -1, o = -1 }, --Catalan version
	latitude = { S = -1, s = -1, N = 1, n = 1 } 
}
local DN = { --NEW for correct translation
	longitude = 'longitud',
	latitude = 'latitud'
}
local function decdeg(degrees, minutes, seconds, hemisphere, decimal, direction)
	if decimal then
		if degrees then
			error('No es poden proporcionar graus decimals i GMS per la ' .. DN[direction], 2)
		elseif minutes then
			error('Només es poden proporcionar minuts amb graus GMS per la ' .. DN[direction], 2)
		elseif seconds then
			error('Només es poden proporcionar segons amb graus GMS per la ' .. DN[direction], 2)
		elseif hemisphere then
			error('Només es pot proporcionar un hemisferi amb graus GMS per la ' .. DN[direction], 2)
		end
		local retval = tonumber(decimal)
		if retval then
			return retval
		end
		error('El valor "' .. decimal .. '"  per la ' .. DN[direction] .. ' no és vàlid', 2)
	elseif seconds and not minutes then
		error("S'han proveït segons per la " .. DN[direction] .. ' sense que també es proporcionin minuts', 2)
	elseif not degrees then
		if minutes then
			error("S'han proveït minuts per la "  .. DN[direction] .. ' sense que també es proporcionin graus', 2)
		elseif hemisphere then
			error("S'ha proveït un hemisferi per la " .. DN[direction] .. ' sense que també es proporcionin graus', 2)
		end
		return nil
	end
	decimal = tonumber(degrees)
	if not decimal then
		error('El valor de graus "' .. degrees .. '" proveït per la ' .. DN[direction] .. ' no és vàlid', 2)
	elseif minutes and not tonumber(minutes) then
		error('El valor de minuts "' .. minutes .. '" proveït per la ' .. DN[direction] .. ' no és vàlid', 2)
	elseif seconds and not tonumber(seconds) then
		error('El valor de segons "' .. seconds .. '" proveït per la ' .. DN[direction] .. ' no és vàlid', 2)
	end
	decimal = decimal + (minutes or 0)/60 + (seconds or 0)/3600
	if hemisphere then
		local multiplier = hemisphereMultipliers[direction][hemisphere]
		if not multiplier then
			error("L'hemisferi "..'"' .. hemisphere .. '" proveït per la ' .. DN[direction] .. ' no és vàlid', 2)
		end
		decimal = decimal * multiplier
	end
	return decimal
end

-- Finds a parameter in a transclusion of {{Coord}}.
local function coord2text(para, coord) -- this should be changed for languages which do not use Arabic numerals or the degree sign
	local lat, long = mw.ustring.match(coord,'<span class="p%-latitude latitude">([^<]+)</span><span class="p%-longitude longitude">([^<]+)</span>')
	if lat then
		return tonumber(para == 'longitude' and long or lat)
	else
		lat, long = mw.ustring.match(coord, '<span class="latitude">([^<]+)</span>[, ]<span class="longitude">([^<]+)</span>')
		if tonumber(lat) then
			return tonumber(para == 'longitude' and long or lat)
		end
	end
	local result = mw.text.split(mw.ustring.match(coord,'%-?[%.%d]+°[NS] %-?[%.%d]+°[EW]') or '', '[ °]')
	if para == 'longitude' then result = {result[3], result[4]} end
	if tonumber(result[1]) and result[2] then
		return tonumber(result[1]) * hemisphereMultipliers[para][result[2]]
	elseif para == 'longitude' then
		result = mw.text.split(long or '', '[°]')
		if result[2] == 'O' then result[2] = 'W' end
	else
		result = mw.text.split(lat or '', '[°]')
	end
	if result[1] and result[2] then
		return tonumber(result[1]) * hemisphereMultipliers[para][result[2]]
	else
		mw.log('Valor de coordenades mal format')
		mw.logObject(para, 'para')
		mw.logObject(coord, 'coord')
		return error('Valor de coordenades mal format', 2)
	end
end

-- effectively make removeBlanks false for caption and maplink, and true for everything else
-- if useWikidata is present but blank, convert it to false instead of nil
-- p.top, p.bottom, and their callers need to use this
function p.valueFunc(key, value)
	if value then
		value = mw.text.trim(value)
	end
	if value ~= '' or key == 'caption' or key == 'maplink' then
		return value
	elseif key == 'useWikidata' then
		return false
	end
end

local function getContainerImage(args, map)
	if args.AlternativeMap then
		return args.AlternativeMap
	elseif args.relief and map('image1') ~= '' then
		return map('image1')
	else
		return map('image')
	end
end

function p.top(frame, args, map)
	if not args then
		args = getArgs(frame, {frameOnly = true, valueFunc = p.valueFunc})
	end
	if not map then
		map = p.getMapParams(args[1], frame)
	end
	local width
	local default_as_number = tonumber(mw.ustring.match(tostring(args.default_width),"%d*"))
	if not args.width then
		width = round((default_as_number or 240) * (tonumber(map('defaultscale')) or 1))
	elseif mw.ustring.sub(args.width, -2) == 'px' then
		width = mw.ustring.sub(args.width, 1, -3)
	else
		width = args.width
	end
	local width_as_number = tonumber(mw.ustring.match(tostring(width),"%d*")) or 0;
    if width_as_number == 0 then
    	-- check to see if width is junk. If it is, then use default calculation
    	width = round((default_as_number or 240) * (tonumber(map('defaultscale')) or 1))
    	width_as_number = tonumber(mw.ustring.match(tostring(width),"%d*")) or 0;
    end	
    if args.max_width ~= "" and args.max_width ~= nil then
        -- check to see if width bigger than max_width
        local max_as_number = tonumber(mw.ustring.match(args.max_width,"%d*")) or 0;
        if width_as_number>max_as_number and max_as_number>0 then
            width = args.max_width;
        end
    end
	local retval = frame:extensionTag{name = 'templatestyles', args = {src = 'Mòdul:Mapa de localizacion/styles.css'}}
	if args.float == 'center' then
		retval = retval .. '<div class="center">'
	end
	if args.caption and args.caption ~= '' and args.border ~= 'infobox' then
		retval = retval .. '<div class="locmap noviewer thumb '
		if args.float == '"left"' or args.float == 'left' then
			retval = retval .. 'tleft'
		elseif args.float == '"center"' or args.float == 'center' or args.float == '"none"' or args.float == 'none' then
			retval = retval .. 'tnone'
		else
			retval = retval .. 'tright'
		end
		retval = retval .. '"><div class="thumbinner" style="width:' .. (width + 2) .. 'px'
		if args.border == 'none' then
			retval = retval .. ';border:none'
		elseif args.border then
			retval = retval .. ';border-color:' .. args.border
		end
		retval = retval .. '"><div style="position:relative;width:' .. width .. 'px' .. (args.border ~= 'none' and ';border:1px solid lightgray">' or '">')
	else
		retval = retval .. '<div class="locmap" style="width:' .. width .. 'px;'
		if args.float == '"left"' or args.float == 'left' then
			retval = retval .. 'float:left;clear:left'
		elseif args.float == '"center"' or args.float == 'center' then
			retval = retval .. 'float:none;clear:both;margin-left:auto;margin-right:auto'
		elseif args.float == '"none"' or args.float == 'none' then
			retval = retval .. 'float:none;clear:none'
		else
			retval = retval .. 'float:right;clear:right'
		end
		retval = retval .. '"><div style="width:' .. width .. 'px;padding:0"><div style="position:relative;width:' .. width .. 'px">'
	end
	local image = getContainerImage(args, map)
	local currentTitle = mw.title.getCurrentTitle()
	retval = string.format(
		'%s[[File:%s|%spx|%s%s]]',
		retval,
		image,
		width,
		args.alt or ((args.label or currentTitle.text) .. ' està situat en ' .. map('name')),
		args.maplink and ('|link=' .. args.maplink) or ''
	)
	if args.caption and args.caption ~= '' then
		if (currentTitle.namespace == 0) and mw.ustring.find(args.caption, '##') then
			retval = retval .. '[[Categoria:Pàgines que utilitzen un mapa amb un signe de doble coixinet al títol]]'
		end
	end
	if args.overlay_image then
		return retval .. '<div style="position:absolute;top:0;left:0">[[File:' .. args.overlay_image .. '|' .. width .. 'px]]</div>'
	else
		return retval
	end
end

function p.bottom(frame, args, map)
	if not args then
		args = getArgs(frame, {frameOnly = true, valueFunc = p.valueFunc})
	end
	if not map then
		map = p.getMapParams(args[1], frame)
	end
	local retval = '</div>'
	local currentTitle = mw.title.getCurrentTitle()
	if not args.caption or args.border == 'infobox' then
		if args.border then
			retval = retval .. '<div style="padding-top:0.2em">'
		else
			retval = retval .. '<div style="font-size:91%;padding-top:3px">'
		end
		retval = retval
		.. (args.caption or (args.label or currentTitle.text) .. ' (' .. map('name') .. ')')
		.. '</div>'
	elseif args.caption ~= ''  then
		-- This is not the pipe trick. We're creating a link with no text on purpose, so that CSS can give us a nice image
		retval = retval .. '<div class="thumbcaption"><div class="magnify">[[:File:' .. getContainerImage(args, map) .. '| ]]</div>' .. args.caption .. '</div>'
	end

	if args.switcherLabel then
		retval = retval .. '<span class="switcher-label" style="display:none">' .. args.switcherLabel .. '</span>'
	elseif args.autoSwitcherLabel then
		retval = retval .. '<span class="switcher-label" style="display:none">Mostra el mapa de ' .. map('name') .. '</span>'
	end
	
	retval = retval .. '</div></div>'
	if args.caption_undefined then
		mw.log("S'ha eliminat el paràmetre caption_undefined utilitzat.")
		local parent = frame:getParent()
		if parent then
			mw.log('El pare és ' .. parent:getTitle())
		end
		mw.logObject(args, 'args')
		if currentTitle.namespace == 0 then
		    retval = retval .. '[[Categoria:Mapes amb paràmetres eliminats|caption_undefined]]'
		end
	end
	if map('skew') ~= '' or map('lat_skew') ~= '' or map('crosses180') ~= '' or map('type') ~= '' then
		mw.log("S'ha eliminat el paràmetre utilitzat a la definició del mapa " .. map())
		if currentTitle.namespace == 0 then
		    local key = (map('skew') ~= '' and 'skew' or '') ..
					(map('lat_skew') ~= '' and 'lat_skew' or '') ..
					(map('crosses180') ~= '' and 'crosses180' or '') ..
					(map('type') ~= '' and 'type' or '')
		    retval = retval .. '[[Categoria:Mapes amb paràmetres eliminats|' .. key .. ' ]]'
		end
	end
	if string.find(map('name'), '|', 1, true) then
		mw.log('Barra vertical utilitzada en el nom de la definició del mapa ' .. map())
		if currentTitle.namespace == 0 then
		   retval = retval .. '[[Categoria:Mapes amb un nom que conté una barra vertical]]'
		end
	end
	if args.float == 'center' then
		retval = retval .. '</div>'
	end
	return retval
end

local function markOuterDiv(x, y, imageDiv, labelDiv)
	return mw.html.create('div')
		:addClass('od')
		:cssText('top:' .. round(y, 3) .. '%;left:' .. round(x, 3) .. '%')
		:node(imageDiv)
		:node(labelDiv)
end

local function markImageDiv(mark, mark_width, mark_height, mark_bottom, label, link, alt, title)
	local top
	if mark_bottom then
		top = mark_height
	else
		top = round(mark_height/2)
	end	
	local builder = mw.html.create('div')
		:addClass('id')
		:cssText('left:-' .. round(mark_width / 2) .. 'px;top:-' ..top.. 'px')
		:attr('title', title)
	if mark_width ~= 0 then
		builder:wikitext(string.format(
			'[[File:%s|%dx%dpx|%s|link=%s%s]]',
			mark,
			mark_width,
			mark_height,
			label,
			link,
			alt and ('|alt=' .. alt) or ''
		))
	end
	return builder
end

local function markLabelDiv(frame, label, label_size, label_width, label_rotate, position, background, x, mark_width, mark_height, mark_bottom)
	if tonumber(label_size) == 0 then
		return mw.html.create('div'):addClass('l0'):wikitext(label)
	end
	local builder = mw.html.create('div')
		:cssText('font-size:' .. label_size .. '%;width:' .. label_width .. 'em')
	local distance	
	if (position == 'top') or (position == 'bottom') then
		if mark_bottom then
			if position == 'top' then
				distance = mark_height + 1
			else
				distance = 1
			end	
		else	
			distance = round((mark_height/2) + 1)
		end	
	elseif position ~= 'center' then	
		distance = round((mark_width/2) + 1)
	end	
	if position == 'center' then -- specified center (only label!!)
		builder:addClass('pv'):cssText('bottom:-0.5em;left:' .. (-label_width / 2) .. 'em')
		--builder:addClass('pv'):cssText('bottom:'..2*(label_size/100)..'px;left:' .. (-label_width / 2) .. 'em')
	elseif position == 'top' then -- specified top
		builder:addClass('pv'):cssText('bottom:' .. distance .. 'px;left:' .. (-label_width / 2) .. 'em')
	elseif position == 'bottom' then -- specified bottom
		builder:addClass('pv'):cssText('top:' .. distance .. 'px;left:' .. (-label_width / 2) .. 'em')
	elseif position == 'left' or (tonumber(x) > 70 and position ~= 'right') then -- specified left or autodetected to left
		builder:addClass('pl'):cssText('right:' .. distance .. 'px')
	else -- specified right or autodetected to right
		builder:addClass('pr'):cssText('left:' .. distance .. 'px')
	end
	builder = builder:tag('div')
		:wikitext(label)
	if label_rotate ~= 0 then
		builder:attr ('style', frame:expandTemplate {title='Transform-rotate', args={label_rotate}})
	end	
	if background then
		builder:cssText('background-color:' .. background)
	end
	return builder:done()
end

local function getX(longitude, left, right)
	local width = (right - left) % 360
	if width == 0 then
		width = 360
	end
	local distanceFromLeft = (longitude - left) % 360
	-- the distance needed past the map to the right equals distanceFromLeft - width. the distance needed past the map to the left equals 360 - distanceFromLeft. to minimize page stretching, go whichever way is shorter
	if distanceFromLeft - width / 2 >= 180 then
		distanceFromLeft = distanceFromLeft - 360
	end
	return 100 * distanceFromLeft / width
end

local function getY(latitude, top, bottom)
	return 100 * (top - latitude) / (top - bottom)
end

function p.mark(frame, args, map)
	if not args then
		args = getArgs(frame, {wrappers = 'Template:Location map~'})
	end
	local mapnames = {}
	if not map then
		if args[1] then
			map = {}
			for mapname in mw.text.gsplit(args[1], '#', true) do
				map[#map + 1] = p.getMapParams(mw.ustring.gsub(mapname, '^%s*(.-)%s*$', '%1'), frame)
				mapnames[#mapnames + 1] = mapname
			end
			if #map == 1 then map = map[1] end
		else
			map = p.getMapParams('Lista', frame)
			args[1] = 'Lista'
		end
	end
	if type(map) == 'table' then
		local outputs = {}
		local oldargs = args[1]
		for k,v in ipairs(map) do
			args[1] = mapnames[k]
			outputs[k] = tostring(p.mark(frame, args, v))
		end
		args[1] = oldargs
		return table.concat(outputs, '#PlaceList#') .. '#PlaceList#'
	end
	local x, y, longitude, latitude
	longitude = decdeg(args.lon_deg, args.lon_min, args.lon_sec, args.lon_dir, args.long, 'longitude')
	latitude = decdeg(args.lat_deg, args.lat_min, args.lat_sec, args.lat_dir, args.lat, 'latitude')
	if args.excludefrom then
		-- If this mark is to be excluded from certain maps entirely (useful in the context of multiple maps)
		for exclusionmap in mw.text.gsplit(args.excludefrom, '#', true) do
			-- Check if this map is excluded. If so, return an empty string.
			if args[1] == exclusionmap then
				return ''
			end
		end
			
	end
	local builder = mw.html.create()
	local currentTitle = mw.title.getCurrentTitle()
	if args.wd_coord then
		longitude = WD.claim{item=args.wd_coord, property='P625', formatting='longitude', list=false, editicon=false} 
		latitude = WD.claim{item=args.wd_coord, property='P625', formatting='latitude', list=false, editicon=false}
	elseif args.coordinates then
--		Temporarily removed to facilitate infobox conversion. See [[Wikipedia:Coordinates in infoboxes]]

--		if longitude or latitude then
--			error('Les coordenades del [[Mòdul:Coordinates]] i les coordenades individuals no es poden proporcionar alhora')
--		end
		longitude = coord2text('longitude', args.coordinates)
		latitude = coord2text('latitude', args.coordinates)
	elseif not longitude and not latitude and args.useWikidata then
		-- If they didn't provide either coordinate, try Wikidata. If they provided one but not the other, don't.
		local entity = mw.wikibase.getEntity()
		if entity and entity.claims and entity.claims.P625 and entity.claims.P625[1].mainsnak.snaktype == 'value' then
			local value = entity.claims.P625[1].mainsnak.datavalue.value
			longitude, latitude = value.longitude, value.latitude
		end
		if args.link and (currentTitle.namespace == 0) then
			builder:wikitext('[[Categoria:Mapes amb marcadors enllaçats amb coordenades de Wikidata]]')	
		end
	end
	if not longitude then
		error("No s'ha proporcionat cap valor per a la longitud")
	elseif not latitude then
		error("No s'ha proporcionat cap valor per a la latitud")
	end
	if currentTitle.namespace > 0 then
		if (not args.lon_deg) ~= (not args.lat_deg) then
			builder:wikitext('[[Categoria:Mapes amb diferents precisions de longitud i latitud|Degrees]]')
		elseif (not args.lon_min) ~= (not args.lat_min) then
			builder:wikitext('[[Categoria:Mapes amb diferents precisions de longitud i latitud|Minutes]]')
		elseif (not args.lon_sec) ~= (not args.lat_sec) then
			builder:wikitext('[[Categoria:Mapes amb diferents precisions de longitud i latitud|Seconds]]')
		elseif (not args.lon_dir) ~= (not args.lat_dir) then
			builder:wikitext('[[Categoria:Mapes amb diferents precisions de longitud i latitud|Hemisphere]]')
		elseif (not args.long) ~= (not args.lat) then
			builder:wikitext('[[Categoria:Mapes amb diferents precisions de longitud i latitud|Decimal]]')
		end
	end
	if ((tonumber(args.lat_deg) or 0) < 0) and ((tonumber(args.lat_min) or 0) ~= 0 or (tonumber(args.lat_sec) or 0) ~= 0 or (args.lat_dir and args.lat_dir ~='')) then
		builder:wikitext('[[Categoria:Mapes amb graus, minuts o segons negatius]]')
	end
	if ((tonumber(args.lon_deg) or 0) < 0) and ((tonumber(args.lon_min) or 0) ~= 0 or (tonumber(args.lon_sec) or 0) ~= 0 or (args.lon_dir and args.lon_dir ~= '')) then
		builder:wikitext('[[Categoria:Mapes amb graus, minuts o segons negatius]]')
	end
	if (((tonumber(args.lat_min) or 0) < 0) or ((tonumber(args.lat_sec) or 0) < 0)) then
		builder:wikitext('[[Categoria:Mapes amb graus, minuts o segons negatius]]')
	end
	if (((tonumber(args.lon_min) or 0) < 0) or ((tonumber(args.lon_sec) or 0) < 0)) then
		builder:wikitext('[[Categoria:Mapes amb graus, minuts o segons negatius]]')
	end
	if args.skew or args.lon_shift or args.markhigh then
		mw.log("S'ha eliminat el paràmetre utilitzat en la invocació.")
		local parent = frame:getParent()
		if parent then
			mw.log('El pare és ' .. parent:getTitle())
		end
		mw.logObject(args, 'args')
		if currentTitle.namespace == 0 then
			local key = (args.skew and 'skew' or '') ..
						(args.lon_shift and 'lon_shift' or '') ..
						(args.markhigh and 'markhigh' or '')
			builder:wikitext('[[Categoria:Mapes amb paràmetres eliminats|' .. key ..' ]]')
		end
	end
	if map('x') ~= '' then
		x = tonumber(mw.ext.ParserFunctions.expr(map('x', { latitude, longitude })))
	else
		x = tonumber(getX(longitude, map('left'), map('right')))
	end
	if map('y') ~= '' then
		y = tonumber(mw.ext.ParserFunctions.expr(map('y', { latitude, longitude })))
	else
		y = tonumber(getY(latitude, map('top'), map('bottom')))
	end
	if (x < 0 or x > 100 or y < 0 or y > 100) and not args.outside then
		mw.log('Marca col·locada fora dels límits del mapa sense establir una bandera exterior. x = ' .. x .. ', y = ' .. y)
		local parent = frame:getParent()
		if parent then
			mw.log('Parent is ' .. parent:getTitle())
		end
		mw.logObject(args, 'args')
		if currentTitle.namespace == 0 then
			local key = currentTitle.prefixedText
			builder:wikitext('[[Categoria:Mapes amb marques fora del mapa i paràmetres exteriors no establerts|' .. key .. ' ]]')
		end
	end
	local mark = args.mark or map('mark')
	if mark == '' then
		mark = 'Red pog.svg'
	end
	local marksize
	local mark_bottom = args.mark_bottom
	if args.label_rotate then
		args.position = 'center'
	end	
	if args.position == 'center' then
		marksize = 0
	else
		local default_size
		if mark_bottom then
			default_size = 24
		else
			default_size = 8
		end	
		marksize = tonumber(args.marksize) or tonumber(map('marksize')) or default_size
	end 
	local mark_width
	local mark_height
	if marksize == 0 then
		mark_width = 0
		mark_height = 0
	else	
		local title_obj = mw.title.makeTitle('File', mark)
		local width = title_obj.file.width
		local height = title_obj.file.height
		if width == height  then
			mark_width = marksize
			mark_height = marksize
		elseif width > height then
			mark_width = marksize
			mark_height = round (marksize * (height/width))
		else	
			mark_width = round (marksize * (width/height))
			mark_height = marksize
		end
	end	
	local imageDiv = markImageDiv(mark, mark_width, mark_height, mark_bottom, args.label or mw.title.getCurrentTitle().text, args.link or '', args.alt, args[2])
	local labelDiv
	if args.label and args.position ~= 'none' then
		labelDiv = markLabelDiv(frame, args.label, args.label_size or 91, args.label_width or 6, args.label_rotate or 0, args.position, args.background, 
			x, mark_width, mark_height, mark_bottom)
	end
	return builder:node(markOuterDiv(x, y, imageDiv, labelDiv))
end

local function switcherSeparate(s)
	if s == nil then return {} end
	local retval = {}
	for i in string.gmatch(s .. '#', '([^#]*)#') do
		i = mw.text.trim(i)
		retval[#retval + 1] = (i ~= '' and i)
	end
	return retval
end

function p.main(frame, args, map)
	local caption_list = {}
	if not args then
		args = getArgs(frame, {wrappers = 'Template:Mapa de localizacion', valueFunc = p.valueFunc})
	end
	if args.useWikidata == nil then
		args.useWikidata = true
	end
	if not map then
		if args[1] then
			map = {}
			for mapname in string.gmatch(args[1], '[^#]+') do
				map[#map + 1] = p.getMapParams(mw.ustring.gsub(mapname, '^%s*(.-)%s*$', '%1'), frame)
			end
			if args['caption'] then
				if args['caption'] == "" then
					while #caption_list < #map do
						caption_list[#caption_list + 1] = args['caption']
					end
				else
					for caption in mw.text.gsplit(args['caption'], '##', true) do
						caption_list[#caption_list + 1] = caption
					end
				end
			end
			if #map == 1 then map = map[1] end
		else
			map = p.getMapParams('Lista', frame)
		end
	end
	if type(map) == 'table' then
		local altmaps = switcherSeparate(args.AlternativeMap)
		if #altmaps > #map then
			error(string.format("S'han proporcionat %d AlternativeMaps, però només es van proporcionar %d mapes", #altmaps, #map))
		end
		local overlays = switcherSeparate(args.overlay_image)
		if #overlays > #map then
			error(string.format("S'han proporcionat %d overlay_images, però només es van proporcionar %d mapes", #overlays, #map))
		end
		if #caption_list > #map then
			error(string.format("S'han proporcionat %d captions, però només es van proporcionar %d mapes", #caption_list, #map))
		end
		local outputs = {}
		args.autoSwitcherLabel = true
		for k,v in ipairs(map) do
			args.AlternativeMap = altmaps[k]
			args.overlay_image = overlays[k]
			args.caption = caption_list[k]
			outputs[k] = p.main(frame, args, v)
		end
		return '<div class="switcher-container">' .. table.concat(outputs) .. '</div>'
	else
		return p.top(frame, args, map) .. tostring( p.mark(frame, args, map) ) .. p.bottom(frame, args, map)
	end
end

return p