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"'
	if args[2] then
		retval = retval .. ' title="' .. args[2] .. '"'
	end
	retval = retval .. '>'
	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 '')
	if args.alt then
		retval = retval .. '|alt=' .. args.alt
	end
	retval = retval .. ']]'
	retval = retval .. '</div>'
	if args.label and 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 .. '</span></div>'
	end
	retval = retval .. '</div>'
	
	return retval
end

return p