Module:Citation/CS1/Utilities/sandbox - Revision history

MusikBot II: Protected "Module:Citation/CS1/Utilities/sandbox": High-risk template or module: 250 transclusions (more info) ([Edit=Require autoconfirmed or confirmed access] (indefinite))

2025-03-26T18:00:39Z

Protected "Module:Citation/CS1/Utilities/sandbox": High-risk template or module: 250 transclusions (more info) ([Edit=Require autoconfirmed or confirmed access] (indefinite))

← Previous revision	Revision as of 18:00, 26 March 2025
(No difference)

Trappist the monk: reset changes list;

2025-01-04T14:42:14Z

reset changes list;

← Previous revision		Revision as of 14:42, 4 January 2025
Line 1:		Line 1:
	--[[		--[[
	History of changes since last sync: ~~2022~~-01-22		History of changes since last sync: 2024-12-28

	2024-11-15: reworked hyphen_to_dash(); see Help_talk:Citation_Style_1#MOS:RANGE_violation

	]]		]]


	local z = {		local z = {

Trappist the monk at 12:12, 16 November 2024

2024-11-16T12:12:33Z

← Previous revision		Revision as of 12:12, 16 November 2024
Line 1:		Line 1:
	--[[		--[[
	History of changes since last sync: 2022-01-22		History of changes since last sync: 2022-01-22

			2024-11-15: reworked hyphen_to_dash(); see Help_talk:Citation_Style_1#MOS:RANGE_violation

	]]		]]

Trappist the monk at 14:31, 15 November 2024

2024-11-15T14:31:28Z

Trappist the monk at 01:54, 15 November 2024

2024-11-15T01:54:25Z

← Previous revision		Revision as of 01:54, 15 November 2024
Line 140:		Line 140:
	mw.ustring.match (item, '^%d+[%.%-]?%a+%s[%-–—]%s%d+[%.%-]?%a+$') or -- digitletter hyphen digitletter (optional separator between digit and letter)		mw.ustring.match (item, '^%d+[%.%-]?%a+%s[%-–—]%s%d+[%.%-]?%a+$') or -- digitletter hyphen digitletter (optional separator between digit and letter)
	mw.ustring.match (item, '^%d+[%.%-]%d+%s[%-–—]%s%d+[%.%-]%d+$') then -- digit separator digit hyphen digit separator digit		mw.ustring.match (item, '^%d+[%.%-]%d+%s[%-–—]%s%d+[%.%-]%d+$') then -- digit separator digit hyphen digit separator digit
	item = mw.ustring.gsub (item, '(%w[%.%-]?%w+)%s[%-–—]%s(%w[%.%-]?%w+)', '%1 – %2'); -- replace hyphen/dash, with spaced endash		item = mw.ustring.gsub (item, '(%w[%.%-]?%w+)%s[%-–—]%s(%w[%.%-]?%w+)', '<span class="nowrap">%1 –</span> <span class="nowrap">%2</span>'); -- replace hyphen/dash, with spaced endash

	-- elseif mw.ustring.match (item, '^%d+%s[%-–—]%s%d+$') or -- digit hyphen digit		-- elseif mw.ustring.match (item, '^%d+%s[%-–—]%s%d+$') or -- digit hyphen digit

Trappist the monk at 01:32, 15 November 2024

2024-11-15T01:32:25Z

← Previous revision		Revision as of 01:32, 15 November 2024
Line 137:		Line 137:
	item, accept = has_accept_as_written (item); -- remove accept-this-as-written markup when it wraps all of item		item, accept = has_accept_as_written (item); -- remove accept-this-as-written markup when it wraps all of item
	if not accept and mw.ustring.match (item, '^%w[%.%-]?%w+%s[%-–—]%s%w[%.%-]?%w+$') then -- if a hyphenated range or has endash or emdash separators		if not accept and mw.ustring.match (item, '^%w[%.%-]?%w+%s[%-–—]%s%w[%.%-]?%w+$') then -- if a hyphenated range or has endash or emdash separators
	if ~~item:~~match ('^%a+[%.%-]?%d+%s%-%s%a+[%.%-]?%d+$') or -- letterdigit hyphen letterdigit (optional separator between letter and digit)		if mw.ustring.match (item, '^%a+[%.%-]?%d+%s[%-–—]%s%a+[%.%-]?%d+$') or -- letterdigit hyphen letterdigit (optional separator between letter and digit)
	~~item:~~match ('^%d+[%.%-]?%a+%s%-%s%d+[%.%-]?%a+$') or -- digitletter hyphen digitletter (optional separator between digit and letter)		mw.ustring.match (item, '^%d+[%.%-]?%a+%s[%-–—]%s%d+[%.%-]?%a+$') or -- digitletter hyphen digitletter (optional separator between digit and letter)
	~~item:~~match ('^%d+[%.%-]%d+%s%-%s%d+[%.%-]%d+$') or -- digit separator digit hyphen digit separator digit		mw.ustring.match (item, '^%d+[%.%-]%d+%s[%-–—]%s%d+[%.%-]%d+$') then -- digit separator digit hyphen digit separator digit
	item~~:match~~ ('^%d+%s%-%s%d+$') or -- ~~digit~~ hyphen ~~digit~~		item = mw.ustring.gsub (item, '(%w[%.%-]?%w+)%s[%-–—]%s(%w[%.%-]?%w+)', '%1 – %2'); -- replace hyphen/dash, with spaced endash

⚫	~~item:~~match ('^%a+%s%-%s%a+$') then -- letter hyphen letter
	~~item~~ = item~~:gsub~~ ('(%~~w[%.%-]?%w~~+)%s%-%s(%~~w[%.%-]?%w~~+)', ~~'%1–%2');~~ -- ~~replace~~ hyphen~~, remove extraneous space~~ ~~characters~~		-- elseif mw.ustring.match (item, '^%d+%s[%-–—]%s%d+$') or -- digit hyphen digit
		⚫	-- mw.ustring.match (item, '^%a+%s[%-–—]%s%a+$') then -- letter hyphen letter
			-- item = mw.ustring.gsub (item, '(%w+)%s[%-–—]%s(%w+)', '%1–%2'); -- replace hyphen, remove extraneous space characters

	else		else
	item = mw.ustring.gsub (item, '%s[–—]%s', '–'); -- for endash or emdash separated ranges, replace em with en, remove extraneous whitespace		item = mw.ustring.gsub (item, '%s[%-–—]%s', '–'); -- for endash or emdash separated ranges, replace em with en, remove extraneous whitespace
	end		end
	end		end

Trappist the monk: Undid revision 1235156366 by Trappist the monk (talk) wrong module; should be in ~/Identifiers/sandbox;

2024-08-09T22:37:19Z

Undid revision 1235156366 by Trappist the monk (talk) wrong module; should be in ~/Identifiers/sandbox;

← Previous revision		Revision as of 22:37, 9 August 2024
Line 1:		Line 1:
	--[[		--[[
	History of changes since last sync: 2022-01-22		History of changes since last sync: 2022-01-22

	2024-07-17: Add code for sub-registrant DOI level match, add MNRAS; see Help_talk:Citation_Style_1#MNRAS_is_open_access

	]]		]]

Trappist the monk at 23:08, 17 July 2024

2024-07-17T23:08:12Z

← Previous revision		Revision as of 23:08, 17 July 2024
Line 1:		Line 1:
	--[[		--[[
	History of changes since last sync: 2022-01-22		History of changes since last sync: 2022-01-22

			2024-07-17: Add code for sub-registrant DOI level match, add MNRAS; see Help_talk:Citation_Style_1#MNRAS_is_open_access

	]]		]]

Trappist the monk: reset changes list;

2022-01-22T14:25:46Z

reset changes list;

← Previous revision		Revision as of 14:25, 22 January 2022
Line 1:		Line 1:
	--[[		--[[
	History of changes since last sync: ~~2021~~-01-09		History of changes since last sync: 2022-01-22

	2021-05-02: add support to allow editors to see citations that emit properties cats; see Help_talk:Citation_Style_1#highlighting_cs1\|2_citations_that_emit_properties_categories
	2021-07-28: reworked error messaging; see Help_talk:Citation_Style_1#error_messaging
	2021-09-16: moved hyphen_to_dash() main module; see Help_talk:Citation_Style_1#hyphen_to_dash()_moved

	]]		]]

Trappist the monk at 19:56, 28 November 2021

2021-11-28T19:56:38Z

← Previous revision		Revision as of 19:56, 28 November 2021
Line 343:		Line 343:
	if not added_prop_cats [key_modified] then		if not added_prop_cats [key_modified] then
	added_prop_cats [key_modified] = true; -- note that we've added this category		added_prop_cats [key_modified] = true; -- note that we've added this category
	-- key = key:gsub ('(foreign_lang_source_?2?)%a%a%a?[%a%-]*', '%1'); -- strip lang code from keyname
	table.insert (z.prop_cats_t, substitute (cfg.prop_cats [key], arguments)); -- make name then add to table		table.insert (z.prop_cats_t, substitute (cfg.prop_cats [key], arguments)); -- make name then add to table
	table.insert (z.prop_keys_t, 'cs1-prop-' .. key); -- convert key to class for use in the citation's <cite> tag		table.insert (z.prop_keys_t, 'cs1-prop-' .. key); -- convert key to class for use in the citation's <cite> tag
	end		end
	-- if not added_prop_cats [key] then
	-- added_prop_cats [key] = true; -- note that we've added this category
	-- key = key:gsub ('(foreign_lang_source_?2?)%a%a%a?[%a%-]*', '%1'); -- strip lang code from keyname
	-- table.insert (z.prop_cats_t, substitute (cfg.prop_cats [key], arguments)); -- make name then add to table
	-- end
	end		end

← Previous revision		Revision as of 01:54, 15 November 2024
Line 140:		Line 140:
	mw.ustring.match (item, '^%d+[%.%-]?%a+%s[%-–—]%s%d+[%.%-]?%a+$') or -- digitletter hyphen digitletter (optional separator between digit and letter)		mw.ustring.match (item, '^%d+[%.%-]?%a+%s[%-–—]%s%d+[%.%-]?%a+$') or -- digitletter hyphen digitletter (optional separator between digit and letter)
	mw.ustring.match (item, '^%d+[%.%-]%d+%s[%-–—]%s%d+[%.%-]%d+$') then -- digit separator digit hyphen digit separator digit		mw.ustring.match (item, '^%d+[%.%-]%d+%s[%-–—]%s%d+[%.%-]%d+$') then -- digit separator digit hyphen digit separator digit
	item = mw.ustring.gsub (item, '(%w[%.%-]?%w+)%s[%-–—]%s(%w[%.%-]?%w+)', '%1 – %2'); -- replace hyphen/dash, with spaced endash		item = mw.ustring.gsub (item, '(%w[%.%-]?%w+)%s[%-–—]%s(%w[%.%-]?%w+)', '<span class="nowrap">%1 –</span> <span class="nowrap">%2</span>'); -- replace hyphen/dash, with spaced endash

	-- elseif mw.ustring.match (item, '^%d+%s[%-–—]%s%d+$') or -- digit hyphen digit		-- elseif mw.ustring.match (item, '^%d+%s[%-–—]%s%d+$') or -- digit hyphen digit

← Previous revision		Revision as of 01:32, 15 November 2024
Line 137:		Line 137:
	item, accept = has_accept_as_written (item); -- remove accept-this-as-written markup when it wraps all of item		item, accept = has_accept_as_written (item); -- remove accept-this-as-written markup when it wraps all of item
	if not accept and mw.ustring.match (item, '^%w[%.%-]?%w+%s[%-–—]%s%w[%.%-]?%w+$') then -- if a hyphenated range or has endash or emdash separators		if not accept and mw.ustring.match (item, '^%w[%.%-]?%w+%s[%-–—]%s%w[%.%-]?%w+$') then -- if a hyphenated range or has endash or emdash separators
	if ~~item:~~match ('^%a+[%.%-]?%d+%s%-%s%a+[%.%-]?%d+$') or -- letterdigit hyphen letterdigit (optional separator between letter and digit)		if mw.ustring.match (item, '^%a+[%.%-]?%d+%s[%-–—]%s%a+[%.%-]?%d+$') or -- letterdigit hyphen letterdigit (optional separator between letter and digit)
	~~item:~~match ('^%d+[%.%-]?%a+%s%-%s%d+[%.%-]?%a+$') or -- digitletter hyphen digitletter (optional separator between digit and letter)		mw.ustring.match (item, '^%d+[%.%-]?%a+%s[%-–—]%s%d+[%.%-]?%a+$') or -- digitletter hyphen digitletter (optional separator between digit and letter)
	~~item:~~match ('^%d+[%.%-]%d+%s%-%s%d+[%.%-]%d+$') or -- digit separator digit hyphen digit separator digit		mw.ustring.match (item, '^%d+[%.%-]%d+%s[%-–—]%s%d+[%.%-]%d+$') then -- digit separator digit hyphen digit separator digit
	item~~:match~~ ('^%d+%s%-%s%d+$') or -- ~~digit~~ hyphen ~~digit~~		item = mw.ustring.gsub (item, '(%w[%.%-]?%w+)%s[%-–—]%s(%w[%.%-]?%w+)', '%1 – %2'); -- replace hyphen/dash, with spaced endash

⚫	~~item:~~match ('^%a+%s%-%s%a+$') then -- letter hyphen letter
	~~item~~ = item~~:gsub~~ ('(%~~w[%.%-]?%w~~+)%s%-%s(%~~w[%.%-]?%w~~+)', ~~'%1–%2');~~ -- ~~replace~~ hyphen~~, remove extraneous space~~ ~~characters~~		-- elseif mw.ustring.match (item, '^%d+%s[%-–—]%s%d+$') or -- digit hyphen digit
		⚫	-- mw.ustring.match (item, '^%a+%s[%-–—]%s%a+$') then -- letter hyphen letter
			-- item = mw.ustring.gsub (item, '(%w+)%s[%-–—]%s(%w+)', '%1–%2'); -- replace hyphen, remove extraneous space characters

	else		else
	item = mw.ustring.gsub (item, '%s[–—]%s', '–'); -- for endash or emdash separated ranges, replace em with en, remove extraneous whitespace		item = mw.ustring.gsub (item, '%s[%-–—]%s', '–'); -- for endash or emdash separated ranges, replace em with en, remove extraneous whitespace
	end		end
	end		end

← Previous revision		Revision as of 14:31, 15 November 2024
Line 103:		Line 103:
	--[[--------------------------< H Y P H E N _ T O _ D A S H >--------------------------------------------------		--[[--------------------------< H Y P H E N _ T O _ D A S H >--------------------------------------------------

	Converts a hyphen to a ~~dash~~ under certain conditions. The hyphen must separate		Converts a hyphen, endash, emdash to endash under certain conditions. The hyphen/en/em must separate
	like items; unlike items are returned unmodified. These forms are modified:		like items; unlike items are returned unmodified. These forms are modified:
	letter - letter (A - B)		letter - letter (A-B)
	digit - digit (4-5)		digit - digit (4-5)
	digit separator digit - digit separator digit (4.1-4.5 or 4-1-4-5)		digit separator digit - digit separator digit (4.1-4.5 or 4-1-4-5)
	letterdigit - letterdigit (A1-A5) (an optional separator between letter and		letterdigit - letterdigit (A1-A5) (an optional separator between letter and
	digit is supported – a.1-a.5 or a-1-a-5)		digit is supported – a.1-a.5 or a-1-a-5)
	digitletter - digitletter (5a - 5d) (an optional separator between letter and		digitletter - digitletter (5a-5d) (an optional separator between letter and
	digit is supported – 5.a-5.d or 5-a-5-d)		digit is supported – 5.a-5.d or 5-a-5-d)

	any other forms are returned unmodified.		any other forms are returned unmodified.

	str may be a comma- or semicolon-separated list		str may be a comma- or semicolon-separated list of page ranges with/without single pages

	]]		]]
Line 123:		Line 123:
	return str;		return str;
	end		end

⚫	local accept; -- boolean

	str = str:gsub ("(%(%(.-%)%))", function(m) return m:gsub(",", "，"):gsub(";", "；") end) -- replace commas and semicolons in accept-as-written markup with similar unicode characters so they'll be ignored during the split		str = str:gsub ("(%(%(.-%)%))", function(m) return m:gsub(",", "，"):gsub(";", "；") end) -- replace commas and semicolons in accept-as-written markup with similar unicode characters so they'll be ignored during the split
	str = str:gsub ('&[nm]dash;', {['–'] = '–', ['—'] = '—'}); -- replace — and – entities with their characters; semicolon mucks up the text.split		str = str:gsub ('&[nm]dash;', {['–'] = '–', ['—'] = '—'}); -- replace — and – entities with their characters; semicolon mucks up the text.split
	str = str:gsub ('-', '-'); -- replace HTML numeric entity with hyphen character		str = str:gsub ('-', '-'); -- replace HTML numeric entity with hyphen character
	str = str:gsub (' ', ' '); -- replace   entity with generic keyboard space character		str = str:gsub (' ', ' '); -- replace   entity with generic keyboard space character

	local out = {};		local out = {};
	local list = mw.text.split (str, '%s[,;]%s'); -- split str at comma or semicolon separators if there are any		local list = mw.text.split (str, '%s[,;]%s'); -- split str at comma or semicolon separators if there are any

		⚫	local accept; -- boolean

	for _, item in ipairs (list) do -- for each item in the list		for _, item in ipairs (list) do -- for each item in the list
	item, accept = has_accept_as_written (item); -- remove accept-this-as-written markup when it wraps all of item		item, accept = has_accept_as_written (item); -- remove accept-this-as-written markup when it wraps all of item
	if not accept and mw.ustring.match (item, '^%w[%.%-]?%w+%s[%-–—]%s%w[%.%-]?%w+$') then -- if a hyphenated range or has endash or emdash separators		if not accept and mw.ustring.match (item, '^%w[%.%-]?%w+%s[—–-]%s%w[%.%-]?%w+$') then -- if a hyphenated range or has endash or emdash separators
	if mw.ustring.match (item, '^%a+[%.%-]?%d+%s[%-–—]%s%a+[%.%-]?%d+$') or -- letterdigit hyphen letterdigit (optional separator between letter and digit)		if mw.ustring.match (item, '^%a+[%.%-]?%d+%s[—–-]%s%a+[%.%-]?%d+$') or -- letterdigit hyphen letterdigit (optional separator between letter and digit)
	mw.ustring.match (item, '^%d+[%.%-]?%a+%s[%-–—]%s%d+[%.%-]?%a+$') or -- digitletter hyphen digitletter (optional separator between digit and letter)		mw.ustring.match (item, '^%d+[%.%-]?%a+%s[—–-]%s%d+[%.%-]?%a+$') or -- digitletter hyphen digitletter (optional separator between digit and letter)
	mw.ustring.match (item, '^%d+[%.%-]%d+%s[%-–—]%s%d+[%.%-]%d+$') then -- digit separator digit hyphen digit separator digit		mw.ustring.match (item, '^%d+[%.%-]%d+%s[—–-]%s%d+[%.%-]%d+$') then -- digit separator digit hyphen digit separator digit
	item = mw.ustring.gsub (item, '(%w[%.%-]?%w+)%s[%-–—]%s(%w[%.%-]?%w+)', '<span class="nowrap">%1 –</span> <span class="nowrap">%2</span>'); -- replace hyphen/dash, with spaced endash		item = mw.ustring.gsub (item, '(%w[%.%-]?%w+)%s[—–-]%s(%w[%.%-]?%w+)', '<span class="nowrap">%1 –</span> <span class="nowrap">%2</span>'); -- replace hyphen/dash, with spaced endash

	-- elseif mw.ustring.match (item, '^%d+%s[%-–—]%s%d+$') or -- digit hyphen digit		elseif mw.ustring.match (item, '^%d+%s[—–-]%s%d+$') or -- digit hyphen digit
	-- mw.ustring.match (item, '^%a+%s[%-–—]%s%a+$') then -- letter hyphen letter		mw.ustring.match (item, '^%a+%s[—–-]%s%a+$') then -- letter hyphen letter
	-- item = mw.ustring.gsub (item, '(%w+)%s[%-–—]%s(%w+)', '%1–%2'); -- replace hyphen, remove extraneous space characters		item = mw.ustring.gsub (item, '(%w+)%s[—–-]%s(%w+)', '<span class="nowrap">%1–</span>%2'); -- replace hyphen/emdash with endash, remove extraneous space characters

	else		else
	item = mw.ustring.gsub (item, '%s[%-–—]%s', '–'); -- ~~for~~ ~~endash~~ or ~~emdash~~ ~~separated~~ ~~ranges,~~ ~~replace~~ ~~em with en, remove~~ ~~extraneous~~ ~~whitespace~~		-- item = mw.ustring.gsub (item, '%s[—–-]%s', '–'); -- disabled; here when 'unlike' items so return <item> as is
	end		end
	end		end