Module:Location map

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

local p = {}

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

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

local function decdeg(degrees, minutes, seconds, hemisphere, digits, decimal)
	if decimal ~= 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_template = 'Location map ' .. args[1]
	local map_y = frame:expandTemplate{title = map_template, args = { 'y' }}
	if map_y and map_y ~= '' then
		retval = retval .. frame:callParserFunction('#expr', frame:expandTemplate{title = map_template, args = { '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
		local map_top = frame:expandTemplate{title = map_template, args = { 'top' }}
		local map_bottom = frame:expandTemplate{title = map_template, args = { 'bottom' }}
		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 map_x = frame:expandTemplate{title = map_template, args = { 'x' }}
	local x
	if map_x and map_x ~= '' then
		x = frame:callParserFunction('#expr', frame:expandTemplate{title = map_template, args = { '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 map_crosses180 = frame:expandTemplate{title = map_template, args = { 'crosses180' }}
		local map_left = frame:expandTemplate{title = map_template, args = { 'left' }}
		local map_right = frame:expandTemplate{title = map_template, args = { 'right' }}
		local crosses180_correction = map_crosses180 and 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(frame:expandTemplate{title = map_template, args = { '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 frame:expandTemplate{title = map_template, args = { '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