Modul:Souřadnice

require 'Modul:No globals'

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

local p = {}

--- Mapování z ID entity na Wikidatech na identifikátor tělesa v GeoHacku.
p.myGlobes = {
	Q2 = "earth",
	Q308 = "mercury",
	Q313 = "venus",
	Q405 = "moon",
	Q111 = "mars",
	Q7547 = "phobos",
	Q7548 = "deimos",
	Q3169 = "ganymede",
	Q3134 = "callisto",
	Q3123 = "io",
	Q3143 = "europa",
	Q15034 = "mimas",
	Q3303 = "enceladus",
	Q15047 = "tethys",
	Q15040 = "dione",
	Q15050 = "rhea",
	Q2565 = "titan",
	Q15037 = "hyperion",
	Q17958 = "iapetus",
	Q17975 = "phoebe",
	Q3352 = "miranda",
	Q3343 = "ariel",
	Q3338 = "umbriel",
	Q3322 = "titania",
	Q3332 = "oberon",
	Q3359 = "triton",
	Q339 = "pluto",
}

local roundingForType = {
	landmark = 2,
	railwaystation = 2,
	pass = 2,
	edu = 2
}

-- dec2dms(0) --> 0°
-- dec2dms(10.5) --> 10°30′
-- dec2dms(0.016667) --> 0°1′
-- dec2dms(0.004166) --> 0°0′15″

function p._dec2dms(value, precision, display)
	value = math.abs(value)
	local sec, secfrac = math.modf(value * 3600 + 0.005)
	local minTotal = math.floor(value * 60 + 0.5)
	if display == "table" then
		precision = 0
	elseif not precision then
		if sec % 60 > 0 then
			precision = 0
		elseif minTotal % 60 > 0 then
			precision = -1
		else
			precision = -2
		end
	end

	if precision == -2 then
		local deg = math.floor(value + 0.5)
		return string.format("%d°", deg)
	elseif precision == -1 then
		local min = minTotal % 60
		local deg = math.floor(minTotal / 60)
		return string.format("%d°%d′", deg, min)
	else
		local mult = 10^precision
		local secTotal = math.floor(value * 3600 * mult + 0.5) / mult
		local min = math.floor(secTotal / 60)
		local sec = secTotal - min * 60
		local deg = math.floor(min / 60)
		min = min % 60
		-- ošetření zaokrouhlovací chyby
		sec = math.floor(sec * mult + 0.1) / mult

		if display ~= "table" then
			local lang = mw.language.getContentLanguage()
			return string.format("%d°%d′%s″", deg, min, lang:formatNum(sec))
		else
			return string.format("%d°%02d′%02d″", deg, min, sec)
		end
	end
end

function p.dec2dms(frame)
	return p._dec2dms(frame.args[1], frame.args[2], nil)
end

function p._renderCoordinates(args, frame)
	local pageTitle = mw.title.getCurrentTitle()
	local lat = tonumber(args[1])
	local lon = tonumber(args[2])
	if not lat or not lon then
		local err = "<span class='error'>Chybná syntaxe souřadnic: <code>" .. mw.text.nowiki(args[1] or "") .. "</code>, <code>" .. mw.text.nowiki(args[2] or "") .. "</code></span>"
		if pageTitle.namespace == 0 then err = err .. "[[Kategorie:Údržba:Články s chybným vložením souřadnic]]" end
		return err
	end
	local display = args.display
	local isMain = display == "top" or display == "infobox"
	local globe = args.globe
	local explicitName = args.name
	local name = explicitName or (isMain and pageTitle.text)
	local typ = args.typ or args.type
	local region = args.region
	local scale = args.scale

	local rounding = typ and roundingForType[typ]
	typ = typ or "landmark"

	local geoParams = { tostring(lat), "N", tostring(lon), "E" }
	if globe then table.insert(geoParams, "globe:" .. globe) end
	if typ then table.insert(geoParams, "type:" .. typ) end
	if region then table.insert(geoParams, "region:" .. region) end
	if scale then table.insert(geoParams, "scale:" .. scale) end

	local urlParams = {
		language = "cs",
		pagename = pageTitle.prefixedText
	}
	if explicitName then urlParams.title = explicitName end

	-- WikiMiniAtlas požaduje parametr "params" úplně na konci (https://github.com/dschwen/wikiminiatlas/issues/35)
	local geohackUrl = "//tools.wmflabs.org/geohack/geohack.php?" .. mw.uri.buildQueryString(urlParams) .. '&params=' .. table.concat(geoParams, "_")

	local latStr = p._dec2dms(lat, rounding, display)
	local lonStr = p._dec2dms(lon, rounding, display)
	local sp = " "
	if display == "table" then
		local latLen = #string.gsub(string.gsub(args[1], '^-', ''), '%..*', '') - #string.gsub(latStr, '°.*', '')
		latStr = string.rep(' ', latLen) .. latStr  -- číslicová mezera
		local lonLen = #string.gsub(string.gsub(args[2], '^-', ''), '%..*', '') - #string.gsub(lonStr, '°.*', '')
		lonStr = string.rep(' ', lonLen) .. lonStr
		sp = " "  -- úzká mezera
	end
	local coordStrTab = {latStr .. sp .. (lat >= 0 and "s." or "j.") .. sp .. "š.",
		lonStr .. sp .. (lon >= 0 and "v." or "z.") .. sp .. "d."}
	for i, str in pairs(coordStrTab) do
		coordStrTab[i] = tostring(mw.html.create('span')
			:attr({style = "white-space:pre"})
			:wikitext(str)
			:done())
	end
	local coordStr = table.concat(coordStrTab, "," .. sp)

	local result = {}

	if pageTitle.namespace == 0 then
		if globe and globe ~= 'earth' and globe ~= 'moon' and lon < 0 then
			-- [[mw:Extension:GeoData#Glossary]]
			-- [[Diskuse k modulu:Souřadnice#Mimozemské objekty]]
			lon = lon + 360
		end
		local coordTagArgs = { isMain and "primary" or "", tostring(lat), tostring(lon) }
		if scale then coordTagArgs["scale"] = scale end
		if globe then coordTagArgs["globe"] = globe end
		if name then coordTagArgs["name"] = name end
		if region then coordTagArgs["region"] = region end
		if typ then coordTagArgs["type"] = typ end
		table.insert(result, frame:callParserFunction("#coordinates", coordTagArgs))
	end

	if isMain then
		table.insert(result, "<span>")
		table.insert(result, frame:extensionTag('indicator', 'Souřadnice: [' .. geohackUrl .. ' ' .. coordStr .. ']', { name = 'coordinates' }))
		table.insert(result, "</span>")
	end

	if display ~= "top" then
		local linkResult = {}
		table.insert(linkResult, "[")
		table.insert(linkResult, geohackUrl)
		table.insert(linkResult, " ")
		if display == "link" and explicitName then
			table.insert(linkResult, explicitName)
		else
			table.insert(linkResult, coordStr)
		end
		table.insert(linkResult, "]")
		local attrs = { class = 'coordinates' }
		if explicitName then
			attrs.id = explicitName -- pozor, je nutné zaručit, že id bude na stránce unikátní
		end
		if display == "table" then
			attrs.class = attrs.class .. ' plainlinks'
		end
		table.insert(result, tostring(mw.html.create('span')
			:attr(attrs)
			:wikitext(table.concat(linkResult))
			:done()))
	end

	return table.concat(result)
end

function p.renderCoordinates(frame)
	local args = getArgs(frame, { removeBlanks = true })
	return p._renderCoordinates(args, frame)
end

return p