Module:LCCN - Revision history

Uzume: remove undocumented feature since tracking shows it is also unused; remove now unnecessary tracking too

2024-05-13T03:57:02Z

remove undocumented feature since tracking shows it is also unused; remove now unnecessary tracking too

← Previous revision		Revision as of 03:57, 13 May 2024
Line 50:		Line 50:
	local args = frame:getParent().args		local args = frame:getParent().args
	local id = blank_to_nil(args[1] or args.id)		local id = blank_to_nil(args[1] or args.id)
⚫	local title = blank_to_nil(args[2] or args.title or args.name)
⚫	local left_part, ~~right_part~~, ~~url~~
	if not id then		if not id then
		⚫	error("Template:LCCN: You must provide an ID.")
	url = "https://lccn.loc.gov/Name?" .. mw.title.getCurrentTitle():partialUrl()
	else
⚫	local letter_width = (id:match("^%s*[0-9][0-9]") and id:len() < 10) and 0 or 2

	left_part = id:sub(1, letter_width + 2)
⚫	right_part = expr(padright(id, letter_width + 8, '.00000'):sub(letter_width + 3, letter_width + 8))
⚫	url = "https://www.loc.gov/item/" .. left_part .. padleft(right_part, 6, 0)
	end		end
		⚫	local title = blank_to_nil(args[2] or args.title or args.name)

		⚫	local letter_width = (id:match("^%s*[0-9][0-9]") and id:len() < 10) and 0 or 2
		⚫	local left_part = id:sub(1, letter_width + 2)
		⚫	local right_part = expr(padright(id, letter_width + 8, '.00000'):sub(letter_width + 3, letter_width + 8))
		⚫	local url = "https://www.loc.gov/item/" .. left_part .. padleft(right_part, 6, 0)

	if args.long == "yes" then		if args.long == "yes" then
	if not id then
	mw.title.new(frame:getTitle()):subPageTitle('doc'):getContent() --XXX: quick and dirty transclusion tracking
	end
	return ("Catalog record for [%s %s] at the United States [[LCCN (identifier)\|Library of Congress]]"):format(		return ("Catalog record for [%s %s] at the United States [[LCCN (identifier)\|Library of Congress]]"):format(
	url, title or mw.title.getCurrentTitle().text)		url, title or mw.title.getCurrentTitle().text)
	end

	if not left_part then
⚫	error("Template:LCCN: You must provide an ID.")
	end		end

	return ("[[LCCN (identifier)\|LCCN]] [%s %s-%s]%s"):format(		return ("[[LCCN (identifier)\|LCCN]] [%s %s-%s]%s"):format(
	url, left_part, right_part,		url, left_part, right_part, title and (' – ' .. title) or '')
	title and (' – ' .. title) or '')
	end		end

Uzume: better focus tracking

2024-05-13T03:45:23Z

better focus tracking

← Previous revision		Revision as of 03:45, 13 May 2024
Line 53:		Line 53:
	local left_part, right_part, url		local left_part, right_part, url
	if not id then		if not id then
⚫	mw.title.new(frame:getTitle()):subPageTitle('doc'):getContent() --XXX: quick and dirty transclusion tracking
	url = "https://lccn.loc.gov/Name?" .. mw.title.getCurrentTitle():partialUrl()		url = "https://lccn.loc.gov/Name?" .. mw.title.getCurrentTitle():partialUrl()
	else		else
Line 64:		Line 63:

	if args.long == "yes" then		if args.long == "yes" then
			if not id then
		⚫	mw.title.new(frame:getTitle()):subPageTitle('doc'):getContent() --XXX: quick and dirty transclusion tracking
			end
	return ("Catalog record for [%s %s] at the United States [[LCCN (identifier)\|Library of Congress]]"):format(		return ("Catalog record for [%s %s] at the United States [[LCCN (identifier)\|Library of Congress]]"):format(
	url, title or mw.title.getCurrentTitle().text)		url, title or mw.title.getCurrentTitle().text)

Uzume: switch from "https://lccn.loc.gov/$1" to "https://www.loc.gov/item/$1" links and add tracking when no "id" provided for the strange case where "long=yes" resulting in "https://lccn.loc.gov/Name?$1" links at Special:WhatLinksHere/Module:LCCN/doc

2024-05-12T18:37:33Z

switch from "https://lccn.loc.gov/$1" to "https://www.loc.gov/item/$1" links and add tracking when no "id" provided for the strange case where "long=yes" resulting in "https://lccn.loc.gov/Name?$1" links at Special:WhatLinksHere/Module:LCCN/doc

← Previous revision		Revision as of 18:37, 12 May 2024
Line 52:		Line 52:
	local title = blank_to_nil(args[2] or args.title or args.name)		local title = blank_to_nil(args[2] or args.title or args.name)
	local left_part, right_part, url		local left_part, right_part, url
	if id then		if not id then
			mw.title.new(frame:getTitle()):subPageTitle('doc'):getContent() --XXX: quick and dirty transclusion tracking
		⚫	url = "https://lccn.loc.gov/Name?" .. mw.title.getCurrentTitle():partialUrl()
		⚫	else
	local letter_width = (id:match("^%s*[0-9][0-9]") and id:len() < 10) and 0 or 2		local letter_width = (id:match("^%s*[0-9][0-9]") and id:len() < 10) and 0 or 2

	left_part = id:sub(1, letter_width + 2)		left_part = id:sub(1, letter_width + 2)
	right_part = expr(padright(id, letter_width + 8, '.00000'):sub(letter_width + 3, letter_width + 8))		right_part = expr(padright(id, letter_width + 8, '.00000'):sub(letter_width + 3, letter_width + 8))
	url = "https://~~lccn~~.loc.gov/" .. left_part .. padleft(right_part, 6, 0)		url = "https://www.loc.gov/item/" .. left_part .. padleft(right_part, 6, 0)
⚫	else
⚫	url = "https://lccn.loc.gov/Name?" .. mw.title.getCurrentTitle():partialUrl()
	end		end

Andrei Stroe: Reverted edit by Andrei Stroe (talk) to last version by Legoktm

2024-03-18T13:32:57Z

Reverted edit by Andrei Stroe (talk) to last version by Legoktm

← Previous revision		Revision as of 13:32, 18 March 2024
Line 50:		Line 50:
	local args = frame:getParent().args		local args = frame:getParent().args
	local id = blank_to_nil(args[1] or args.id)		local id = blank_to_nil(args[1] or args.id)
	local title = blank_to_nil(~~args[3] or~~ args[2] or args.title or args.name)		local title = blank_to_nil(args[2] or args.title or args.name)
	local left_part, right_part, url		local left_part, right_part, url
	if id then		if id then

Andrei Stroe at 13:32, 18 March 2024

2024-03-18T13:32:49Z

← Previous revision		Revision as of 13:32, 18 March 2024
Line 50:		Line 50:
	local args = frame:getParent().args		local args = frame:getParent().args
	local id = blank_to_nil(args[1] or args.id)		local id = blank_to_nil(args[1] or args.id)
	local title = blank_to_nil(args[2] or args.title or args.name)		local title = blank_to_nil(args[3] or args[2] or args.title or args.name)
	local left_part, right_part, url		local left_part, right_part, url
	if id then		if id then

Legoktm: Replace Module:No globals with require( "strict" )

2022-10-21T21:10:19Z

Replace Module:No globals with require( "strict" )

← Previous revision		Revision as of 21:10, 21 October 2022
Line 1:		Line 1:
	require~~[[Module:No globals]]~~		require('strict')
	local p = {}		local p = {}

Uzume: strlen == 0 optimization

2022-04-15T03:11:54Z

strlen == 0 optimization

← Previous revision		Revision as of 03:11, 15 April 2022
Line 24:		Line 24:
	return str		return str
	end		end
	~~return~~ ~~pad(tonumber((...))~~ - mw.ustring.len(str)~~, select(2, ...)) .. str~~		local strlen = mw.ustring.len(str)
			if 1 > strlen then
			return pad((...), select(2, ...))
			end
			return pad((tonumber((...)) or 0) - strlen, select(2, ...)) .. str
	end		end

Line 32:		Line 36:
	return str		return str
	end		end
	~~return~~ ~~str~~ ~~.. pad(tonumber((...)) -~~ mw.ustring.len(str~~), select(2, ...)~~)		local strlen = mw.ustring.len(str)
			if 1 > strlen then
			return pad((...), select(2, ...))
			end
			return str .. pad((tonumber((...)) or 0) - strlen , select(2, ...))
	end		end

Uzume: fix for when "tonumber" returns "nil"

2022-04-15T02:39:33Z

fix for when "tonumber" returns "nil"

← Previous revision		Revision as of 02:39, 15 April 2022
Line 7:		Line 7:

	local function pad(padlen, ...)		local function pad(padlen, ...)
	padlen = tonumber(padlen)		padlen = tonumber(padlen) or 0
	if 1 > select('#', ...) then		if 1 > select('#', ...) then
	return ("0"):rep(padlen)		return ("0"):rep(padlen)

Uzume: coerce types for all parameters

2022-04-15T02:30:13Z

coerce types for all parameters

← Previous revision		Revision as of 02:30, 15 April 2022
Line 7:		Line 7:

	local function pad(padlen, ...)		local function pad(padlen, ...)
			padlen = tonumber(padlen)
	if 1 > select('#', ...) then		if 1 > select('#', ...) then
	return ("0"):rep(padlen)		return ("0"):rep(padlen)

Uzume: force str conversion

2022-04-15T02:07:43Z

force str conversion

← Previous revision		Revision as of 02:07, 15 April 2022
Line 19:		Line 19:

	local function padleft(str, ...)		local function padleft(str, ...)
			str = tostring(str)
	if 1 > select('#', ...) then		if 1 > select('#', ...) then
	return str		return str
Line 26:		Line 27:

	local function padright(str, ...)		local function padright(str, ...)
			str = tostring(str)
	if 1 > select('#', ...) then		if 1 > select('#', ...) then
	return str		return str