Module:Titled coords - Revision history

RedWolf: v1.2:Calls Module:Coordinates directly instead of via {{Coord}} (updated from sandbox)

2025-03-06T20:21:29Z

v1.2:Calls Module:Coordinates directly instead of via {{Coord}} (updated from sandbox)

← Previous revision		Revision as of 20:21, 6 March 2025
Line 1:		Line 1:
	-- * Version 1.1 (~~Alpha~~) *		-- * Version 1.2 (Beta) *
	local p = {}		local p = {}

			-- Module entry point
⚫	function p.main(frame)
			function p.build(rawCoords, title, options)
⚫	local raw_coords = frame.args[1]
	local ~~title~~ = ~~frame.args[2] or ""~~		local has_seconds = true
	local ~~options~~ = ~~frame.args[3] or~~ ""		local output = ""

	~~local~~ ~~has_seconds~~ = 1		if not title then title = "" end
			if not options then options = "" end
	local output = "", coords, sidx, eidx
⚫	~~local~~ lat_d, lat_m, lat_s, lat_NS, lon_d, lon_m, lon_s, lon_WE

	-- Display the raw coordinates obtained from {{wikidata}}		-- Display the raw coordinates obtained from {{wikidata}}
	if string.find(options,"raw") ~= nil then		if string.find(options,"raw") ~= nil then
	output = output .. "~~raw_coords~~:" .. ~~raw_coords~~		output = output .. "rawCoords:" .. rawCoords
	end		end

	-- Extract the individual fields from the raw coordinates		-- Extract the individual fields from the raw coordinates
	-- See https://www.lua.org/manual/5.3/manual.html#6.4.1		-- See https://www.lua.org/manual/5.3/manual.html#6.4.1
	sidx, _, lat_d, lat_m, lat_s, lat_NS, lon_d, lon_m, lon_s, lon_WE =		local sidx, _, lat_d, lat_m, lat_s, lat_NS, lon_d, lon_m, lon_s, lon_WE =
	string.find(~~raw_coords~~, "(%d+)/(%d+)/(%d+%.?%d)/(%a)/(%d+)/(%d+)/(%d+%.?%d)/(%a)")		string.find(rawCoords, "(%d+)/(%d+)/(%d+%.?%d)/(%a)/(%d+)/(%d+)/(%d+%.?%d)/(%a)")

	if sidx == nil then -- extract without seconds		if sidx == nil then -- extract without seconds
			local eidx
	sidx, eidx, lat_d, lat_m, lat_NS, lon_d, lon_m, lon_WE =		sidx, eidx, lat_d, lat_m, lat_NS, lon_d, lon_m, lon_WE =
	string.find(~~raw_coords~~, "(%d+)/(%d+)/(%a)/(%d+)/(%d+)/(%a)")		string.find(rawCoords, "(%d+)/(%d+)/(%a)/(%d+)/(%d+)/(%a)")
	if sidx == nil then		if sidx == nil then
	return output .. "<br/>Error: Failed to process ~~raw_coords~~: " .. ~~raw_coords~~		return output .. "<br/>Error: Failed to process rawCoords: " .. rawCoords
	end		end
	if string.find(options,"idx") ~= nil then		if string.find(options,"idx") ~= nil then
Line 31:		Line 31:
	return output		return output
	end		end
	has_seconds = 0		has_seconds = false
	end		end

	if string.find(options,"debug") ~~~= nil~~ then		if string.find(options,"debug") then
	if has_seconds ~~== 1~~ then		if has_seconds then
	output = output .. "<br/>~~raw_coords~~:" .. ~~raw_coords~~ .. "<br/>lat dms = " .. lat_d .. "\|" .. lat_m .. "\|" .. lat_s .. "\|" .. lat_NS ..		output = output .. "<br/>rawCoords:" .. rawCoords .. "<br/>lat dms = " .. lat_d .. "\|" .. lat_m .. "\|" .. lat_s .. "\|" .. lat_NS ..
	"<br/>lon dms = " .. lon_d .. "\|" .. lon_m .. "\|" .. lon_s .. "\|" .. lon_WE		"<br/>lon dms = " .. lon_d .. "\|" .. lon_m .. "\|" .. lon_s .. "\|" .. lon_WE .. "\n"
	else		else
	output = output .. "<br/>~~raw_coords~~:" .. ~~raw_coords~~ .. "<br/>lat dm = " .. lat_d .. "\|" .. lat_m .. "\|" .. lat_NS ..		output = output .. "<br/>rawCoords:" .. rawCoords .. "<br/>lat dm = " .. lat_d .. "\|" .. lat_m .. "\|" .. lat_NS ..
	"<br/>lon dms = " .. lon_d .. "\|" .. lon_m .. "\|" .. lon_WE		"<br/>lon dms = " .. lon_d .. "\|" .. lon_m .. "\|" .. lon_WE .. "\n"
	end		end
	end		end
Line 47:		Line 47:
	local enc_title = title:gsub(" ", "+")		local enc_title = title:gsub(" ", "+")

	-- Call ~~{{coord}}~~ passing individual fields and setting the title		-- Call Coordinates passing individual fields and setting the title
			local coord = require('Module:Coordinates')._coord
	local type_title = "type:mountain&title=" .. enc_title		local type_title = "type:mountain&title=" .. enc_title
			local coordsTxt -- declared here or lua strict complains
	if has_seconds ~~== 1~~ then		if has_seconds then
	coords = frame:expandTemplate{title='coord', args= { lat_d, lat_m, lat_s, lat_NS, lon_d, lon_m, lon_s, lon_WE, type_title}}
		⚫	coordsTxt = coord{lat_d, lat_m, lat_s, lat_NS, lon_d, lon_m, lon_s, lon_WE, type_title}
	else		else
	~~coords~~ = ~~frame:expandTemplate{title='~~coord~~', args=~~ { lat_d, lat_m, lat_NS, lon_d, lon_m, lon_WE, type_title}}		coordsTxt = coord{lat_d, lat_m, lat_NS, lon_d, lon_m, lon_WE, type_title}
	-- Doesn't like me adding these args		-- Doesn't like me adding these args
	--"type:mountain","format=dms","name=" .. name}}		--"type:mountain","format=dms","name=" .. name}}
Line 58:		Line 60:

	if output ~= "" then		if output ~= "" then
	return output .. "<br/>" .. ~~coords~~		return output .. "<br/>" .. coordsTxt
	end		end

	return ~~coords~~		return coordsTxt
			end

			-- Template entry point
		⚫	function p.main(frame)
		⚫	local raw_coords = frame.args[1]
			local title = frame.args[2] or ""
			local options = frame.args[3] or ""

			return p.build(raw_coords, title, options)
	end		end

	return p		return p

			-- LUA debug console tests
			-- print(p.build("50/27/40/N/122/17/42/W","test title",""))
			-- print(p.build("50/27/N/122/17/W","title no seconds",""))

	--[[ Tried to invoke {{wikidata}} directly but not working:		--[[ Tried to invoke {{wikidata}} directly but not working:

RedWolf: fixed pattern matching on seconds to allow tenths and hundreds (copied from /sandbox)

2023-10-28T22:30:14Z

fixed pattern matching on seconds to allow tenths and hundreds (copied from /sandbox)

← Previous revision		Revision as of 22:30, 28 October 2023
Line 1:		Line 1:
			-- * Version 1.1 (Alpha) *
	local p = {}		local p = {}

Line 18:		Line 19:
	-- See https://www.lua.org/manual/5.3/manual.html#6.4.1		-- See https://www.lua.org/manual/5.3/manual.html#6.4.1
	sidx, _, lat_d, lat_m, lat_s, lat_NS, lon_d, lon_m, lon_s, lon_WE =		sidx, _, lat_d, lat_m, lat_s, lat_NS, lon_d, lon_m, lon_s, lon_WE =
	string.find(raw_coords, "(%d+)/(%d+)/(%d+%.?%d?)/(%a)/(%d+)/(%d+)/(%d+%.?%d?)/(%a)")		string.find(raw_coords, "(%d+)/(%d+)/(%d+%.?%d)/(%a)/(%d+)/(%d+)/(%d+%.?%d)/(%a)")

	if sidx == nil then -- extract without seconds		if sidx == nil then -- extract without seconds
Line 24:		Line 25:
	string.find(raw_coords, "(%d+)/(%d+)/(%a)/(%d+)/(%d+)/(%a)")		string.find(raw_coords, "(%d+)/(%d+)/(%a)/(%d+)/(%d+)/(%a)")
	if sidx == nil then		if sidx == nil then
	return output .. "<br/>Error: Failed to process raw_coords"		return output .. "<br/>Error: Failed to process raw_coords: " .. raw_coords
	end		end
	if string.find(options,"idx") ~= nil then		if string.find(options,"idx") ~= nil then

RedWolf: LUA module to generate titled coordinates from WikiData

2023-10-20T20:41:57Z

LUA module to generate titled coordinates from WikiData

New page

local p = {}

function p.main(frame)
local raw_coords = frame.args[1]
local title = frame.args[2] or ""
local options = frame.args[3] or ""

local has_seconds = 1
local output = "", coords, sidx, eidx
local lat_d, lat_m, lat_s, lat_NS, lon_d, lon_m, lon_s, lon_WE

-- ** Display the raw coordinates obtained from {{wikidata}} **
if string.find(options,"raw") ~= nil then
output = output .. "raw_coords:" .. raw_coords
end

-- ** Extract the individual fields from the raw coordinates **
-- ** See https://www.lua.org/manual/5.3/manual.html#6.4.1 **
sidx, _, lat_d, lat_m, lat_s, lat_NS, lon_d, lon_m, lon_s, lon_WE =
string.find(raw_coords, "(%d+)/(%d+)/(%d+%.?%d?)/(%a)/(%d+)/(%d+)/(%d+%.?%d?)/(%a)")

if sidx == nil then -- extract without seconds
sidx, eidx, lat_d, lat_m, lat_NS, lon_d, lon_m, lon_WE =
string.find(raw_coords, "(%d+)/(%d+)/(%a)/(%d+)/(%d+)/(%a)")
if sidx == nil then
return output .. " Error: Failed to process raw_coords"
end
if string.find(options,"idx") ~= nil then
output = output .. " start: " .. sidx .. " end: " .. eidx .. " lat_d: " .. lat_d
return output
end
has_seconds = 0
end

if string.find(options,"debug") ~= nil then
if has_seconds == 1 then
output = output .. " raw_coords:" .. raw_coords .. " lat dms = " .. lat_d .. "|" .. lat_m .. "|" .. lat_s .. "|" .. lat_NS ..
" lon dms = " .. lon_d .. "|" .. lon_m .. "|" .. lon_s .. "|" .. lon_WE
else
output = output .. " raw_coords:" .. raw_coords .. " lat dm = " .. lat_d .. "|" .. lat_m .. "|" .. lat_NS ..
" lon dms = " .. lon_d .. "|" .. lon_m .. "|" .. lon_WE
end
end

-- ** URL encode spaces in the title with + **
local enc_title = title:gsub(" ", "+")

-- ** Call {{coord}} passing individual fields and setting the title **
local type_title = "type:mountain&title=" .. enc_title
if has_seconds == 1 then
coords = frame:expandTemplate{title='coord', args= { lat_d, lat_m, lat_s, lat_NS, lon_d, lon_m, lon_s, lon_WE, type_title}}
else
coords = frame:expandTemplate{title='coord', args= { lat_d, lat_m, lat_NS, lon_d, lon_m, lon_WE, type_title}}
-- ** Doesn't like me adding these args **
--"type:mountain","format=dms","name=" .. name}}
end

if output ~= "" then
return output .. " " .. coords
end

return coords
end

return p

--[[ Tried to invoke {{wikidata}} directly but not working:
local raw_coords = frame:expandTemplate{title='wikidata', args={'property','page=' .. page,'raw','coord'}}
]]