Module:Mountains Prism/sandbox - Revision history

RedWolf: formatting

2025-04-18T21:56:29Z

formatting

← Previous revision		Revision as of 21:56, 18 April 2025
Line 361:		Line 361:
	end		end

	-- Get location coordinates from Wikidata		-- * Get location coordinates from Wikidata *
	local function getCoords(frame, eid)		local function getCoords(frame, eid)
	local wdCoords = getWDLinked(frame, eid, WD_PROPERTIES.coords)		local wdCoords = getWDLinked(frame, eid, WD_PROPERTIES.coords)
Line 367:		Line 367:
	end		end

	-- Call Module:Titled_coords to get titled coordinates		-- * Call Module:Titled_coords to get titled coordinates *
	local function getTitledCoords(frame, eid, title)		local function getTitledCoords(frame, eid, title)
	local raw_coords = getWDRaw(frame, eid, WD_PROPERTIES.coords)		local raw_coords = getWDRaw(frame, eid, WD_PROPERTIES.coords)
Line 380:		Line 380:
	end		end

	-- Get FA year from Wikidata		-- * Get FA year from Wikidata *
	local function getFirstAscent(frame, eid)		local function getFirstAscent(frame, eid)
	if frame.preprocess == nil then return FA_ERROR end		if frame.preprocess == nil then return FA_ERROR end

RedWolf: title fix

2025-04-18T21:34:55Z

title fix

← Previous revision		Revision as of 21:34, 18 April 2025
Line 693:		Line 693:
	mtn.coords = getCoords(frame, eid)		mtn.coords = getCoords(frame, eid)
	elseif options.showTCoord then		elseif options.showTCoord then
	mtn.coords = getTitledCoords(frame, eid, mtn.~~title~~)		mtn.coords = getTitledCoords(frame, eid, mtn.name)
	end		end

RedWolf: removed obsolete code

2025-04-18T21:33:11Z

removed obsolete code

← Previous revision		Revision as of 21:33, 18 April 2025
Line 284:		Line 284:

	return page		return page
	end

	-- Extract the page title from a Wiki link
	local function getPageTitle(name)
	local title

	local parts = split(name,"\|")
	if parts[2] then
	title = stripBrackets(parts[2])
	else
	title = stripBrackets(parts[1])
	end
	debug("name="..name..";title="..title)
	return title
	end		end

Line 382:		Line 368:

	-- Call Module:Titled_coords to get titled coordinates		-- Call Module:Titled_coords to get titled coordinates
	local function getTitledCoords(frame, eid, ~~page~~)		local function getTitledCoords(frame, eid, title)
	local title = getPageTitle(page)
	local raw_coords = getWDRaw(frame, eid, WD_PROPERTIES.coords)		local raw_coords = getWDRaw(frame, eid, WD_PROPERTIES.coords)
	local fmt_coords = Titled_coords.build(raw_coords, title, "")		local fmt_coords = Titled_coords.build(raw_coords, title, "")
Line 708:		Line 693:
	mtn.coords = getCoords(frame, eid)		mtn.coords = getCoords(frame, eid)
	elseif options.showTCoord then		elseif options.showTCoord then
	mtn.coords = getTitledCoords(frame, eid, mtn.~~name~~)		mtn.coords = getTitledCoords(frame, eid, mtn.title)
	end		end

Line 931:		Line 916:
	mw.log(stripBrackets("def"))		mw.log(stripBrackets("def"))
	mw.log(stripBrackets("[[Mount Victoria (Bow Range)\|Mount Victoria]]"))		mw.log(stripBrackets("[[Mount Victoria (Bow Range)\|Mount Victoria]]"))
	mw.log("title=" .. getPageTitle("[[Mount Victoria (Bow Range)\|Mount Victoria]]"))
	end		end

RedWolf: use @qid: for specifying a qid

2025-04-18T21:26:41Z

use @qid: for specifying a qid

← Previous revision		Revision as of 21:26, 18 April 2025
Line 251:		Line 251:

	-- Extract a qid (optional) --		-- Extract a qid (optional) --
	local n = string.find(wiki_link, "\|qid=")		local n = string.find(wiki_link, "@qid:")
	if n then		if n then
	mtn.qid = string.sub(wiki_link, n+5)		mtn.qid = string.sub(wiki_link, n+5)
Line 960:		Line 960:
	frame.args[2] = "debug,fa,tcoords,custom2:Easiest route"		frame.args[2] = "debug,fa,tcoords,custom2:Easiest route"

	frame.args[3] = "2736"..FS.."[[Angle Peak (British Columbia)\|Angle Peak]]\|qid=Q22418313"..FS..""		frame.args[3] = "2736"..FS.."[[Angle Peak (British Columbia)\|Angle Peak]]@qid:Q22418313"..FS..""
	frame.args[4] = "2656"..FS.."[[Byward Peak]]\|qid=Q22369121"..FS.."test"		frame.args[4] = "2656"..FS.."[[Byward Peak]]@qid:Q22369121"..FS.."test"
	Options.test = true		Options.test = true
	return p.list(frame)		return p.list(frame)

RedWolf: v1.3: Support qid after page name for items that exist on Wikidata but not on Wikipedia

2025-04-18T21:00:53Z

v1.3: Support qid after page name for items that exist on Wikidata but not on Wikipedia

Show changes

RedWolf: Don't display entity id not found for non-existent wiki pages, some bug fixes

2025-04-08T21:46:48Z

Don't display entity id not found for non-existent wiki pages, some bug fixes

Show changes

RedWolf: Fixed prominence conversion when units are the same

2025-03-19T21:20:29Z

Fixed prominence conversion when units are the same

← Previous revision		Revision as of 21:20, 19 March 2025
Line 210:		Line 210:

	local function getProminenceCells(frame, unit, prominence, prom_unit)		local function getProminenceCells(frame, unit, prominence, prom_unit)
	local prom_cells		local prom_cells, to_unit

	if prominence ~= nil and prominence ~= WD_NOT_FOUND and prominence ~= "" then		if prominence ~= nil and prominence ~= WD_NOT_FOUND and prominence ~= "" then
	local flip = prom_unit ~= unit		local flip = prom_unit ~= unit
	debug("unit="..unit..";prom_unit="..prom_unit..";flip="..tostring(flip))		debug("unit="..unit..";prom_unit="..prom_unit..";flip="..tostring(flip))
			if not flip then
⚫	prom_cells = getConvertCells(frame, prominence, prom_unit, ~~unit~~, flip)
			if unit == UNITS.FOOT then to_unit = UNITS.METRE else to_unit = UNITS.FOOT end
			else
			to_unit = unit
			end
		⚫	prom_cells = getConvertCells(frame, prominence, prom_unit, to_unit, flip)
	else		else
	prom_cells = " \|\| "		prom_cells = " \|\| "
Line 410:		Line 415:

	-- get prominence from Wikidata		-- get prominence from Wikidata
	local function ~~getProminence~~(frame, eid)		local function getProminenceWD(frame, eid)
	local prom = getWD(frame, eid, WD_PROPERTIES.prominence, nil)		local prom = getWD(frame, eid, WD_PROPERTIES.prominence, nil)
	return extractRaw(prom)		return extractRaw(prom)
Line 438:		Line 443:
	local elev_wd_v = elevation_wd		local elev_wd_v = elevation_wd
	if elev_wd_v == WD_NOT_FOUND then elev_wd_v = WD_NF_TEXT end		if elev_wd_v == WD_NOT_FOUND then elev_wd_v = WD_NF_TEXT end
	local msg = 'Local/WD elevations ~~mismatch~~: "' .. mtn.elevation .. '"/"' .. elev_wd_v .. '"'		local msg = 'Local/WD elevations: "' .. mtn.elevation .. '"/"' .. elev_wd_v .. '"'
	mtn.custom = mtn.custom .. infoStyle(msg)		mtn.custom = mtn.custom .. infoStyle(msg)
	end		end
Line 635:		Line 640:

	if options.showProm then		if options.showProm then
	mtn.prominence, mtn.prom_unit = ~~getProminence~~(frame, eid)		mtn.prominence, mtn.prom_unit = getProminenceWD(frame, eid)
	if mtn.prominence ~= WD_NOT_FOUND then		if mtn.prominence ~= WD_NOT_FOUND then
	debug("WD prominence=" .. mtn.prominence .. " unit=" .. mtn.prom_unit)		debug("WD prominence=" .. mtn.prominence .. " unit=" .. mtn.prom_unit)
Line 895:		Line 900:

	frame.args[3] = "12726"..FS.."[[Mount Crillon]]"		frame.args[3] = "12726"..FS.."[[Mount Crillon]]"
	frame.args[4] = " ~~8200~~"..FS.."[[Mount ~~Abbe~~]]"		frame.args[4] = "10728"..FS.."[[Mount La Perouse]]"
	frame.args[5] = " ~~6780~~"..FS.."[[Mount ~~Cooper (Alaska)\|Mount Cooper~~]]"		-- frame.args[4] = " 8200"..FS.."[[Mount Abbe]]"
			-- frame.args[5] = " 6780"..FS.."[[Mount Cooper (Alaska)\|Mount Cooper]]"

	Options.test = true		Options.test = true

RedWolf: fixed color style

2025-03-19T21:01:36Z

fixed color style

← Previous revision		Revision as of 21:01, 19 March 2025
Line 103:		Line 103:

	local function colorize(text, color)		local function colorize(text, color)
	return '<span style=color:' .. color .. '">' .. text .. "</span>"		return '<span style="color:' .. color .. '">' .. text .. "</span>"
	end		end

RedWolf: Convert WD elevation to output unit if not the same unit

2025-03-19T20:56:00Z

Convert WD elevation to output unit if not the same unit

← Previous revision		Revision as of 20:56, 19 March 2025
Line 6:		Line 6:
	]]		]]
	local p = {}		local p = {}
	--~~local wd =~~ require('Module:Wd')		--require('Module:Wd')
	local Titled_coords = require('Module:Titled_coords')		local Titled_coords = require('Module:Titled_coords')
	local newBuffer = require('Module:OutputBuffer')		local newBuffer = require('Module:OutputBuffer')
Line 82:		Line 82:
	local TD = '\|'		local TD = '\|'
	local WD_NOT_FOUND = -1 -- Not found on Wikidata		local WD_NOT_FOUND = -1 -- Not found on Wikidata
			local WD_NF_TEXT = "Not Found"

	local Errors, Dbgout		local Errors, Dbgout
Line 162:		Line 163:
	end ]]		end ]]
	return -1		return -1
			end

			local function convert(frame, value, unit)
			debug("Converting "..value..unit)
			local result = frame:expandTemplate{title='convert', args= { value, unit, disp='out', abbr='values', comma='off'}}
			debugv("result", result)
			return result
	end		end

Line 352:		Line 360:
	end		end

	local function ~~getElevation~~(frame, eid)		local function getElevationWD(frame, eid)
	local value = getWD(frame, eid, WD_PROPERTIES.elevation, nil)		local value = getWD(frame, eid, WD_PROPERTIES.elevation, nil)
	return extractRaw(value)		return extractRaw(value)
Line 364:		Line 372:
	debugv("FA value", value)		debugv("FA value", value)
	if value == "" then		if value == "" then
	debugv("FA ~~not found~~ on Wikidata for eid", eid)		debugv("No FA on Wikidata for eid", eid)
	return FA_UNKNOWN		return FA_UNKNOWN
	end		end
Line 411:		Line 419:
	local function getRange(frame, eid)		local function getRange(frame, eid)
	return getWDLinked(frame, eid, WD_PROPERTIES.mtn_range)		return getWDLinked(frame, eid, WD_PROPERTIES.mtn_range)
			end

			-- Check elevations from input and Wikidata. If not equal, add an info
			-- message to the custom field. Note that this check is only done if
			-- there is a custom field in the output.
			local function checkElevations(frame, mtn, unit)
			local elevation_wd = mtn.elevation_wd

			-- If output unit not the unit from WD, convert WD value to output unit
			if unit ~= mtn.elev_wd_unit and elevation_wd ~= WD_NOT_FOUND then
			elevation_wd = convert(frame, elevation_wd, mtn.elev_wd_unit)
			end

			if elevation_wd ~= 0 and mtn.elevation ~= elevation_wd then
			if string.len(mtn.custom) ~= 0 then
			mtn.custom = mtn.custom .. "<br/>"
			end
			local elev_wd_v = elevation_wd
			if elev_wd_v == WD_NOT_FOUND then elev_wd_v = WD_NF_TEXT end
		⚫	local msg = 'Local/WD elevations mismatch: "' .. mtn.elevation .. '"/"' .. elev_wd_v .. '"'
			mtn.custom = mtn.custom .. infoStyle(msg)
			end
	end		end

Line 557:		Line 587:
	local mtn = Mountain		local mtn = Mountain

	elev = parts[1] -- ~~"m"~~ or ~~"ft"~~		elev = parts[1] -- either in metres or feet
	name = parts[2] -- wiki-linked name		name = parts[2] -- wiki-linked name
	if name then		if name then
Line 570:		Line 600:
	mtn.page = page		mtn.page = page
	mtn.eid = nil		mtn.eid = nil
	mtn.elevation = elev;		mtn.elevation = string.gsub(elev, " ", ""); -- strip spaces
	mtn.elevation_wd = 0		mtn.elevation_wd = 0
	mtn.prominence = nil		mtn.prominence = nil
Line 582:		Line 612:
	debugv("custom", custom)		debugv("custom", custom)
	else		else
	custom = ~~NBSP~~		custom = ""
	end		end
	mtn.custom = custom		mtn.custom = custom
Line 597:		Line 627:
	mtn.eid = eid		mtn.eid = eid

	mtn.elevation_wd, mtn.elev_wd_unit = ~~getElevation~~(frame, eid)		mtn.elevation_wd, mtn.elev_wd_unit = getElevationWD(frame, eid)
	if mtn.elevation_wd ~= WD_NOT_FOUND then		if mtn.elevation_wd ~= WD_NOT_FOUND then
	debug("WD elevation=" .. mtn.elevation_wd .. " unit=" .. mtn.elev_wd_unit)		debug("WD elevation=" .. mtn.elevation_wd .. " unit=" .. mtn.elev_wd_unit)
Line 730:		Line 760:

	debug("elev=" .. mtn.elevation ..";elev_wd="..mtn.elevation_wd)		debug("elev=" .. mtn.elevation ..";elev_wd="..mtn.elevation_wd)
	if (options.showCustom1 or options.showCustom2~~) and mtn.elevation_wd ~= 0 and mtn.elevation ~= mtn.elevation_wd~~ then		if options.showCustom1 or options.showCustom2 then
			checkElevations(frame, mtn, unit)
⚫	local mm = ~~"<br/><span style=\"color:green\">~~Local/WD elevations mismatch: " ~~.. "\""~~ .. mtn.elevation .. ~~"\""..~~ "/\"" .. ~~mtn.elevation_wd~~.. "~~\"</span>"~~
	mtn.custom = mtn.custom .. mm		if mtn.custom == "" then mtn.custom = NBSP end
	end		end

Line 865:		Line 895:

	frame.args[3] = "12726"..FS.."[[Mount Crillon]]"		frame.args[3] = "12726"..FS.."[[Mount Crillon]]"
	frame.args[4] = "8200"..FS.."[[Mount Abbe]]"		frame.args[4] = " 8200"..FS.."[[Mount Abbe]]"
	frame.args[5] = "6780"..FS.."[[Mount Cooper (Alaska)\|Mount Cooper]]"		frame.args[5] = " 6780"..FS.."[[Mount Cooper (Alaska)\|Mount Cooper]]"

	Options.test = true		Options.test = true

RedWolf: fixed elevation/prominence not found on Wikidata issues

2025-03-19T19:35:02Z

fixed elevation/prominence not found on Wikidata issues

Show changes