Module:Location map

Documentation for this module may be created at Module:Location map/doc

local p = {}

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

local mapData = mw.loadData('Module:Location map/data')

local function round(n, digits)
	local mult = math.pow(10, digits)
	return math.floor(n * mult + 0.5) / mult
end

local function getMapParams(map, frame)
	if mapData[map] then
		return function(name, params)
			if mapData[map][name] == nil then
				return ''
			elseif params then
				return mw.message.newRawMessage(mapData[map][name], unpack(params)):plain()
			else
				return mapData[map][name]
			end
		end
	else
		local cache = {}
		return function(name, params)
			if params then
				return frame:expandTemplate{title = 'Location map ' .. map, args = { name, unpack(params) }}
			else
				if cache[name] == nil then
					cache[name] = frame:expandTemplate{title = 'Location map ' .. map, args = { name }}
				end
				return cache[name]
			end
		end
	end
end

local function decdeg(degrees, minutes, seconds, hemisphere, digits, decimal)
	if degrees == nil then
		return tonumber(decimal)
	end
	decimal = (degrees or 0) + (minutes or 0)/60 + (seconds or 0)/3600
	if hemisphere == 'W' or hemisphere == 'w' or hemisphere == 'S' or  hemisphere == 's' then
		decimal = -decimal
	end
	if digits == nil then
		digits = 7
	end
	return round(decimal, digits)
end

function p.tilde(frame) -- {{location map~}}
	local args = getArgs(frame)
	local retval = '<div style="position: absolute; top: '
	local map = getMapParams(args[1], frame)
	if map('y') ~= '' then
		retval = retval .. frame:callParserFunction('#expr', map('y', { decdeg(args.lat_deg, args.lat_min, args.lat_sec, args.lat_dir, nil, args.lat), decdeg(args.lon_deg, args.lon_min, args.lon_sec, args.lon_dir, nil, args.long) }))
	else
		retval = retval .. round(100 * (map('top') - decdeg(args.lat_deg, args.lat_min, args.lat_sec, args.lat_dir, nil, args.lat) ) / (map('top') - map('bottom')), 1)
	end
	retval = retval .. '%; left: '
	local x
	if map('x') ~= '' then
		x = frame:callParserFunction('#expr', map('x', { decdeg(args.lat_deg, args.lat_min, args.lat_sec, args.lat_dir, nil, args.lat), decdeg(args.lon_deg, args.lon_min, args.lon_sec, args.lon_dir, nil, args.long) }))
	else
		local crosses180_correction = map('crosses180') ~= '' and args.lon_dir == 'W' and (-36000/(map('left') - map('right'))) or 0
		x = round(crosses180_correction + 100 * (decdeg(args.lon_deg, args.lon_min, args.lon_sec, args.lon_dir, nil, args.long) - map('left')) / (map('right') - map('left')), 1)
	end
	retval = retval .. x .. '%; height: 0; width: 0; margin: 0; padding: 0;"><div style="position: relative; text-align: center; '
	local marksize = tonumber(args.marksize) or tonumber(map('marksize')) or 8
	retval = retval .. 'left: -' .. round(marksize / 2, 0) .. 'px; top: -' .. round(marksize / 2, 0) .. 'px; width: ' .. marksize .. 'px; font-size: ' .. marksize .. 'px; line-height:0;'
	retval = retval .. '" title="' .. (args[2] or '') .. '">'
	local mark = args.mark or map('mark')
	if mark == '' then mark = 'Red pog.svg' end
	retval = retval .. '[[File:' .. mark .. '|' .. marksize .. 'x' .. marksize .. 'px|' .. (args.label or mw.title.getCurrentTitle().text) .. '|link=' .. (args.link or '') .. '|alt=' .. (args.alt or '') .. ']]'
	retval = retval .. '</div>'
	if args.position ~= 'none' then
		retval = retval .. '<div style="font-size: ' .. (args.label_size or 90) .. '%; line-height: 110%; position: relative; top: -1.5em; width: ' .. (args.label_width or 6) .. 'em; '
		if args.position == 'left' then
			retval = retval .. 'left: -6.5em; text-align: right;'
		elseif args.position == 'right' then
			retval = retval .. 'left: 0.5em; text-align: left;'
		elseif args.position == 'top' then
			retval = retval .. 'top:-2.65em; left:-3em; text-align: center;'
		elseif args.position == 'bottom' then
			retval = retval .. 'top:-0.15em; left: -3em; text-align: center;'
		elseif tonumber(x) > 70 then
			retval = retval .. 'left: -6.5em; text-align: right;'
		else
			retval = retval .. 'left: 0.5em; text-align: left;'
		end
		retval = retval .. '"><span style="padding: 1px; '
		if args.background then
			retval = retval .. 'background-color: ' .. args.background .. ';'
		end
		retval = retval .. '">' .. (args.label or '') .. '</span></div>'
	end
	retval = retval .. '</div>'
	
	return retval
end

return p