Module:Footnotes/anchor id list/data - Revision history

imported>Trappist the monk: -cite LSA support; template deleted;

2024-07-17T17:28:51Z

-cite LSA support; template deleted;

imported>WOSlinker: use require('strict') instead of require('Module:No globals')

2022-10-22T09:20:53Z

use require('strict') instead of require('Module:No globals')

← Older revision		Revision as of 09:20, 22 October 2022
Line 2:		Line 2:
	-- for this application make lists from the redirect lists and force all template names first character uppercase		-- for this application make lists from the redirect lists and force all template names first character uppercase

	require('~~Module:No globals~~');		require('strict');

	--[[--------------------------< C S 1 _ T E M P L A T E _ P A T T E R N S >------------------------------------		--[[--------------------------< C S 1 _ T E M P L A T E _ P A T T E R N S >------------------------------------

imported>Trappist the monk at 17:06, 23 May 2020

2020-05-23T17:06:22Z

Show changes

imported>Trappist the monk at 23:01, 22 May 2020

2020-05-22T23:01:23Z

← Older revision		Revision as of 23:01, 22 May 2020
Line 231:		Line 231:

	local function add_stripped (list, name)		local function add_stripped (list, name)
	name = name:lower(); -- because Footnotes/anchor id list template_name_get() returns lowercase; TODO: is this the right thing to do?		-- name = name:lower(); -- because Footnotes/anchor id list template_name_get() returns lowercase; TODO: is this the right thing to do?
	if not list[name] then		if not list[name] then
	list[name] = true;		list[name] = true;

imported>MusikBot II: Protected "Module:Footnotes/anchor id list/data": High-risk template or module (more info) ([Edit=Require template editor access] (indefinite) [Move=Require template editor access] (indefinite))

2020-05-22T18:00:04Z

Protected "Module:Footnotes/anchor id list/data": High-risk template or module (more info) ([Edit=Require template editor access] (indefinite) [Move=Require template editor access] (indefinite))

← Older revision	Revision as of 18:00, 22 May 2020
(No difference)

imported>Trappist the monk at 17:40, 21 May 2020

2020-05-21T17:40:50Z

← Older revision		Revision as of 17:40, 21 May 2020
Line 2:		Line 2:
	-- for this application just make lists from the redirect lists and force all template names lower case?		-- for this application just make lists from the redirect lists and force all template names lower case?
	-- yes lowercase because Footnotes/anchor id list template_name_get() returns lowercase		-- yes lowercase because Footnotes/anchor id list template_name_get() returns lowercase
			--
			-- TODO: but is that really the right thing to do?


	--[[--------------------------< C S 1 _ T E M P L A T E _ P A T T E R N S >------------------------------------		--[[--------------------------< C S 1 _ T E M P L A T E _ P A T T E R N S >------------------------------------
Line 205:		Line 208:


	--[[--------------------------< C S 1 2 _ S T R I P P E D ~~_ L I~~ S T >------------------------------------------		--[[--------------------------< K N O W N _ T E M P L A T E S >------------------------------------------------

	~~This~~ ~~table~~ is created from ~~cs1_template_patterns~~ ~~and~~ ~~cs2_template_patterns~~. To make ~~this~~ ~~table~~, entries in		These tables are created from the *_template_patterns tables. To make these tables, entries in the source tables
	~~the source tables~~ are evaluated to replace lua patterns with the appropriate characters ~~and~~ create names for		are evaluated to replace lua patterns with the appropriate characters to create names for the output tables.
	this list. This list is used to identify cs1\|2 templates when counting and listing cs1-like templates.

	For example:		For example:
Line 221:		Line 223:
	]]		]]

	local known_templates_cs12 = {};		local known_templates_cs12 = {}; -- the exported tables
	local known_templates_vcite = {};		local known_templates_vcite = {};
	local known_templates_harvc = {};		local known_templates_harvc = {};
Line 229:		Line 231:

	local function add_stripped (list, name)		local function add_stripped (list, name)
	name = name:lower(); -- because Footnotes/anchor id list template_name_get() returns lowercase		name = name:lower(); -- because Footnotes/anchor id list template_name_get() returns lowercase; TODO: is this the right thing to do?
	if not list[name] then		if not list[name] then
	list[name] = true;		list[name] = true;
Line 287:		Line 289:
	end		end

		⚫	for _, t in ipairs ({

	~~for _, list in ipairs (~~{cs1_template_patterns, ~~cs2_template_patterns~~, ~~cs1_like_template_patterns}) do~~		{cs1_template_patterns, known_templates_cs12},
			{cs2_template_patterns, known_templates_cs12},
⚫	for _, ~~pattern~~ in ipairs (~~list) do~~
	~~pattern_convert (pattern~~, known_templates_cs12)		{cs1_like_template_patterns, known_templates_cs12},
		⚫	{vcite_template_patterns, known_templates_vcite},
⚫	end
		⚫	{harvc_template_patterns, known_templates_harvc},
	end
		⚫	{wikicite_template_patterns, known_templates_wikicite},

		⚫	{anchor_template_patterns, known_templates_anchor},
	for _, pattern in ipairs (vcite_template_patterns) do
		⚫	{sfn_whitelist_patterns, known_templates_sfn_whitelist},
⚫	~~pattern_convert (pattern~~, known_templates_vcite)
			}) do
	end
			for _, pattern in ipairs (t[1]) do -- for each patern in *_template_patterns

			pattern_convert (pattern, t[2]) -- conver and store in known_templates_*
	for _, pattern in ipairs (harvc_template_patterns) do
		⚫	end
⚫	~~pattern_convert (pattern~~, known_templates_harvc)
	end

	for _, pattern in ipairs (wikicite_template_patterns) do
⚫	~~pattern_convert (pattern~~, known_templates_wikicite)
	end

	for _, pattern in ipairs (anchor_template_patterns) do
⚫	~~pattern_convert (pattern~~, known_templates_anchor)
	end

	for _, pattern in ipairs (sfn_whitelist_patterns) do
⚫	~~pattern_convert (pattern~~, known_templates_sfn_whitelist)
	end		end

imported>Trappist the monk at 16:44, 21 May 2020

2020-05-21T16:44:39Z

Show changes

imported>Trappist the monk at 14:47, 21 May 2020

2020-05-21T14:47:10Z

← Older revision		Revision as of 14:47, 21 May 2020
Line 318:		Line 318:
	for _, pattern in ipairs (sfn_whitelist_patterns) do		for _, pattern in ipairs (sfn_whitelist_patterns) do
	local name = pattern:gsub ('^%[(%a)%a%]', '%1'); -- leading character (usually uppercase)		local name = pattern:gsub ('^%[(%a)%a%]', '%1'); -- leading character (usually uppercase)
	pattern_convert (~~sfn_whitelist_patterns~~, name);		pattern_convert (known_templates_sfn_whitelist, name);
	name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)		name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)
	pattern_convert (~~sfn_whitelist_patterns~~, name);		pattern_convert (known_templates_sfn_whitelist, name);
	end		end

imported>Trappist the monk at 12:41, 21 May 2020

2020-05-21T12:41:03Z

← Older revision		Revision as of 12:41, 21 May 2020
Line 186:		Line 186:

	local anchor_template_patterns = {		local anchor_template_patterns = {
	'[Aa]nchors?',		'[Aa]nchors?', -- anchor is canonical form
	'[Aa]nchor for redirect',		'[Aa]nchor for redirect',
	'[Aa]nchro',		'[Aa]nchro',
	'[Aa]ncor',		'[Aa]ncor',
			}


			--[[--------------------------< S F N _ W H I T E L I S T _ P A T T E R N S >----------------------------------

			These are patterns for the anchor template and its redirects.

			]]

			local sfn_whitelist_patterns = {
			'[Ss]fn whitelist', -- canonical
			'[Hh]arv whitelist',
	}		}

Line 214:		Line 226:
	local known_templates_wikicite = {};		local known_templates_wikicite = {};
	local known_templates_anchor = {};		local known_templates_anchor = {};
			local known_templates_sfn_whitelist = {};

	local function add_stripped (list, name)		local function add_stripped (list, name)
Line 301:		Line 314:
	name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)		name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)
	pattern_convert (known_templates_anchor, name);		pattern_convert (known_templates_anchor, name);
			end

			for _, pattern in ipairs (sfn_whitelist_patterns) do
			local name = pattern:gsub ('^%[(%a)%a%]', '%1'); -- leading character (usually uppercase)
			pattern_convert (sfn_whitelist_patterns, name);
			name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)
			pattern_convert (sfn_whitelist_patterns, name);
	end		end

Line 314:		Line 334:
	known_templates_vcite = known_templates_vcite,		known_templates_vcite = known_templates_vcite,
	known_templates_wikicite = known_templates_wikicite,		known_templates_wikicite = known_templates_wikicite,
			known_templates_sfn_whitelist = known_templates_sfn_whitelist,
	}		}

imported>Trappist the monk at 21:49, 20 May 2020

2020-05-20T21:49:16Z

← Older revision		Revision as of 17:28, 17 July 2024
Line 79:		Line 79:
	'[Cc]ite [Pp]ress release', -- press release is the canonical form		'[Cc]ite [Pp]ress release', -- press release is the canonical form
	'[Cc]ite media release', '[Cc]ite news release', '[Cc]ite pr',		'[Cc]ite media release', '[Cc]ite news release', '[Cc]ite pr',
	'[Cc]ite press', '[Cc]ite press release\.', '[Cc]ite press[%-]?release',		'[Cc]ite press', '[Cc]ite press release%.', '[Cc]ite press[%-]?release',

	'[Cc]ite report', -- canonical		'[Cc]ite report', -- canonical
Line 99:		Line 99:
	'[Cc]ite [Ww]eb', -- web is the canonical form		'[Cc]ite [Ww]eb', -- web is the canonical form
	'[Cc] web', '[Cc]it web', '[Cc]ite blog', '[Cc]ite URL', '[Cc]ite url',		'[Cc] web', '[Cc]it web', '[Cc]ite blog', '[Cc]ite URL', '[Cc]ite url',
	'[Cc]ite w', '[Cc]ite wb', '[Cc]ite we', '[Cc]ite web\.',		'[Cc]ite w', '[Cc]ite wb', '[Cc]ite we', '[Cc]ite web%.',
	'[Cc]ite webpage', '[Cc]ite website', '[Cc]ite website article',		'[Cc]ite webpage', '[Cc]ite website', '[Cc]ite website article',
	'[Cc]ite%-?web', '[Cc]itweb', '[Cc]w', '[Rr]ef web', '[Ww]eb citation',		'[Cc]ite%-?web', '[Cc]itweb', '[Cc]w', '[Rr]ef web', '[Ww]eb citation',
Line 165:		Line 165:

	local cs1_like_template_patterns = {		local cs1_like_template_patterns = {
	'[Cc]ite LSA', -- canonical
	}		}

← Older revision		Revision as of 21:49, 20 May 2020
Line 176:		Line 176:
	local wikicite_template_patterns = {		local wikicite_template_patterns = {
	'[Ww]ikicite', -- canonical		'[Ww]ikicite', -- canonical
			}


			--[[--------------------------< A N C H O R _ T E M P L A T E _ P A T T E R N S >------------------------------

			These are patterns for the anchor template and its redirects.

			]]

			local anchor_template_patterns = {
			'[Aa]nchors?',
			'[Aa]nchor for redirect',
			'[Aa]nchro',
			'[Aa]ncor',
	}		}

Line 199:		Line 213:
	local known_templates_harvc = {};		local known_templates_harvc = {};
	local known_templates_wikicite = {};		local known_templates_wikicite = {};
			local known_templates_anchor = {};

	local function add_stripped (list, name)		local function add_stripped (list, name)
Line 212:		Line 227:
	local l;		local l;
	lead, c, l, tail = name:match ('(.-)%[(%a)(%a)%](.*)');		lead, c, l, tail = name:match ('(.-)%[(%a)(%a)%](.*)');
	add_stripped (list, lead .. c .. tail); -- uppercase		add_stripped (list, lead .. c .. tail); -- uppercase
	add_stripped (list, lead .. l .. tail); -- lowercase		add_stripped (list, lead .. l .. tail); -- lowercase

	elseif name:match ('^([^%[]+)(%[ %%%-%]%?)(.+)$') then -- [ %-]?		elseif name:match ('^([^%[]+)(%[ %%%-%]%?)(.+)$') then -- [ %-]?
	lead, c, tail = name:match ('^([^%[]+)(%[ %%%-%]%?)(.+)$');		lead, c, tail = name:match ('^([^%[]+)(%[ %%%-%]%?)(.+)$');
	add_stripped (list, lead .. tail); -- neither char		add_stripped (list, lead .. tail); -- neither char
	add_stripped (list, lead .. ' ' .. tail); -- space		add_stripped (list, lead .. ' ' .. tail); -- space
	add_stripped (list, lead .. '-' .. tail); -- hyphen		add_stripped (list, lead .. '-' .. tail); -- hyphen

	elseif name:match ('^([^%[]+)(%[%%%-%]%?)(.+)$') then -- [%-]?		elseif name:match ('^([^%[]+)(%[%%%-%]%?)(.+)$') then -- [%-]?
	lead, c, tail = name:match ('^([^%[]+)(%[%%%-%]%?)(.+)$');		lead, c, tail = name:match ('^([^%[]+)(%[%%%-%]%?)(.+)$');
	add_stripped (list, lead .. tail); -- no hyphen		add_stripped (list, lead .. tail); -- no hyphen
	add_stripped (list, lead .. '-' .. tail); -- hyphen		add_stripped (list, lead .. '-' .. tail); -- hyphen

	elseif name:match ('^([^%[]+)(%[ %%%-%])(.+)$') then -- [ %-]		elseif name:match ('^([^%[]+)(%[ %%%-%])(.+)$') then -- [ %-]
	lead, c, tail = name:match ('^([^%[]+)(%[ %%%-%])(.+)$');		lead, c, tail = name:match ('^([^%[]+)(%[ %%%-%])(.+)$');
	add_stripped (list, lead .. ' ' .. tail); -- space		add_stripped (list, lead .. ' ' .. tail); -- space
	add_stripped (list, lead .. '-' .. tail); -- hyphen		add_stripped (list, lead .. '-' .. tail); -- hyphen

	elseif name:match ('^([^%?]+)(%%%-%?)(.+)$') then -- %-?		elseif name:match ('^([^%?]+)(%%%-%?)(.+)$') then -- %-?
	lead, c, tail = name:match ('^([^%?]+)(%%%-%?)(.+)$');		lead, c, tail = name:match ('^([^%?]+)(%%%-%?)(.+)$');
	add_stripped (list, lead .. tail); -- no hyphen		add_stripped (list, lead .. tail); -- no hyphen
	add_stripped (list, lead .. '-' .. tail); -- hyphen		add_stripped (list, lead .. '-' .. tail); -- hyphen

	elseif name:match ('^(.-)(%%%-)(.+)$') then -- %-		elseif name:match ('^(.-)(%%%-)(.+)$') then -- %-
	lead, c, tail = name:match ('^(.-)(%%%-)(.+)$');		lead, c, tail = name:match ('^(.-)(%%%-)(.+)$');
	add_stripped (list, lead .. '-' .. tail); -- hyphen		add_stripped (list, lead .. '-' .. tail); -- hyphen

	elseif name:match ('^(.-)(.)%?(.*)$') then -- .?		elseif name:match ('^(.-)(.)%?(.*)$') then -- .?
	lead, c, tail = name:match ('^(.-)(.)%?(.*)$');		lead, c, tail = name:match ('^(.-)(.)%?(.*)$');
	add_stripped (list, lead .. tail); -- no character		add_stripped (list, lead .. tail); -- no character
	add_stripped (list, lead .. c .. tail); -- character		add_stripped (list, lead .. c .. tail); -- character

	else		else
	add_stripped (list, name); -- no patterns so save as is		add_stripped (list, name); -- no patterns so save as is
	end		end
	end		end
Line 279:		Line 294:
	name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)		name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)
	pattern_convert (known_templates_wikicite, name);		pattern_convert (known_templates_wikicite, name);
			end

			for _, pattern in ipairs (anchor_template_patterns) do
			local name = pattern:gsub ('^%[(%a)%a%]', '%1'); -- leading character (usually uppercase)
			pattern_convert (known_templates_anchor, name);
			name = pattern:gsub ('^%[%a(%a)%]', '%1'); -- leading character (usually lowercase)
			pattern_convert (known_templates_anchor, name);
	end		end

Line 287:		Line 309:
	return		return
	{		{
			known_templates_anchor = known_templates_anchor,
	known_templates_cs12 = known_templates_cs12,		known_templates_cs12 = known_templates_cs12,
	known_templates_harvc = known_templates_harvc,		known_templates_harvc = known_templates_harvc,