Module:Footnotes/anchor id list - Revision history

imported>Hike395: fix errors when using Visual Editor

2025-01-14T02:04:50Z

fix errors when using Visual Editor

← Older revision		Revision as of 02:04, 14 January 2025
Line 92:		Line 92:
	['Citation-attribution'] = true,		['Citation-attribution'] = true,
	}		}
			local global_article_content = nil
	local Article_content;

		⚫	local global_anchor_id_list = nil -- exported tables
			local global_template_list = nil
			local global_article_whitelist = nil

⚫	local ~~anchor_id_list~~ = ~~{};~~ -- exported tables
⚫	local template_list = {};
⚫	local article_whitelist = {};
	local template_list_done = false


Line 108:		Line 108:

	local function article_content_get ()		local function article_content_get ()
			if global_article_content then return global_article_content end
	if not Article_content then
	~~Article_content~~ = mw.title.getCurrentTitle():getContent() or ''; -- get the content of the article or ''; new pages edited w/ve do not have 'content' until saved; ve does not preview; phab:T221625		local article_content = mw.title.getCurrentTitle():getContent() or ''; -- get the content of the article or ''; new pages edited w/ve do not have 'content' until saved; ve does not preview; phab:T221625
	for _, tag in ipairs (patterns_tags) do		for _, tag in ipairs (patterns_tags) do
	~~Article_content~~ = ~~Article_content~~:gsub (tag, ''); -- remove certain html-like tags and their content		article_content = article_content:gsub (tag, ''); -- remove certain html-like tags and their content
	end
	end		end
			global_article_content = article_content
			return article_content
	end		end

Line 697:		Line 698:
	]]		]]

	local function template_list_add (template)		local function template_list_add (template, template_list)
	local template = template:match ('{{%s*(.-)[\|}]'); -- keep the case of the template - this is different from template_name_get()		local template = template:match ('{{%s*(.-)[\|}]'); -- keep the case of the template - this is different from template_name_get()
	if template and not template:match ('^#') then -- found a template or magic word; ignore magic words		if template and not template:match ('^#') then -- found a template or magic word; ignore magic words
Line 723:		Line 724:

	local function anchor_id_list_make ()		local function anchor_id_list_make ()
		⚫	local anchor_id_list = {}
⚫	article_content_get (); -- attempt to get this article's content
		⚫	local template_list = {}
		⚫	local article_whitelist = {}
		⚫	local article_content = article_content_get (); -- attempt to get this article's content

	if '' == ~~Article_content~~ then -- when there is no article content		if article_content == '' then -- when there is no article content
	return ''; -- no point in continuing		return ''; -- no point in continuing
	end		end
Line 734:		Line 738:

	local find_pattern = '%f[{]{{[^{]';		local find_pattern = '%f[{]{{[^{]';
	local tstart, tend = ~~Article_content~~:find (find_pattern); -- find the first template; do not find template variables: {{{template var\|}}}		local tstart, tend = article_content:find (find_pattern); -- find the first template; do not find template variables: {{{template var\|}}}

	while tstart do		while tstart do
	template = ~~Article_content~~:match ('%b{}', tstart); -- get the whole template		template = article_content:match ('%b{}', tstart); -- get the whole template
	if not template then		if not template then
	break; -- template is nil for some reason (last template missing closing }} for example) so declare ourselves done		break; -- template is nil for some reason (last template missing closing }} for example) so declare ourselves done
Line 743:		Line 747:

	template_name = template_name_get (template); -- get first char uppercase trimmed template name; ignore subpages ~/new, ~/sandbox		template_name = template_name_get (template); -- get first char uppercase trimmed template name; ignore subpages ~/new, ~/sandbox
	template_list_add (template); -- add this template's name to the list		template_list_add (template, template_list); -- add this template's name to the list

	if data.known_templates_cs12 [template_name] then		if data.known_templates_cs12 [template_name] then
Line 819:		Line 823:
	end		end

	tstart, tend = ~~Article_content~~:find (find_pattern, tend); -- search for another template; begin at end of last search		tstart, tend = article_content:find (find_pattern, tend); -- search for another template; begin at end of last search
	end		end
	template_list_done = true

	mw.logObject (anchor_id_list, 'anchor_id_list');		mw.logObject (anchor_id_list, 'anchor_id_list');
Line 827:		Line 830:
	mw.logObject (article_whitelist, 'article_whitelist');		mw.logObject (article_whitelist, 'article_whitelist');


⚫	~~return~~ anchor_id_list;
			global_anchor_id_list = anchor_id_list
			global_template_list = template_list
			global_article_whitelist = article_whitelist
	end		end

Line 839:		Line 845:

	local function citeref_patterns_make()		local function citeref_patterns_make()
	if not ~~template_list_done~~ then ~~error("Template list not yet created")~~ end		if not global_template_list then return end
	local citeref_patterns = {}		local citeref_patterns = {}
	local template_patterns = whitelist.wrapper_template_patterns		local template_patterns = whitelist.wrapper_template_patterns
	for _, p in ipairs(template_patterns) do		for _, p in ipairs(template_patterns) do
	for _, t in ipairs(p[1]) do -- loop through list of template wrappers		for _, t in ipairs(p[1]) do -- loop through list of template wrappers
	if ~~template_list~~[t] then -- if wrapper is found in article, record corresponding patterns		if global_template_list[t] then -- if wrapper is found in article, record corresponding patterns
	for _, pat in ipairs(p[2]) do		for _, pat in ipairs(p[2]) do
	table.insert(citeref_patterns, pat)		table.insert(citeref_patterns, pat)
Line 860:		Line 866:
	]]		]]

			-- First create global_anchor_id_list, global_template_list, global_article_whitelist
			anchor_id_list_make()

			-- Then stuff them (and derived tables) into return table
	return {		return {
	anchor_id_list = ~~anchor_id_list_make()~~, -- table of anchor ids available in this article		anchor_id_list = global_anchor_id_list or {}, -- table of anchor ids available in this article
	article_whitelist = ~~article_whitelist~~, -- table of anchor ids with false-positive error message to be suppressed		article_whitelist = global_article_whitelist or {}, -- table of anchor ids with false-positive error message to be suppressed
	template_list = ~~template_list~~, -- table of templates used in this article		template_list = global_template_list or {}, -- table of templates used in this article
	citeref_patterns = citeref_patterns_make() -- table of Lua patterns to search for citeref from wrappers		citeref_patterns = citeref_patterns_make() or {} -- table of Lua patterns to search for citeref from wrappers
	}		}

imported>Hike395: fix fascicle logic

2024-12-03T05:17:10Z

fix fascicle logic

← Older revision		Revision as of 05:17, 3 December 2024
Line 501:		Line 501:
	template_params_get (template, params); -- build a table of template parameters and their values		template_params_get (template, params); -- build a table of template parameters and their values

	if whitelist.wrapper_templates[template_name]~~[1] then -- is this wrapper a simple-default wrapper?~~		local wrap_data = whitelist.wrapper_templates[template_name]

	name_default = whitelist.wrapper_templates[template_name][1]; -- get the default names
			if wrap_data[1] then -- is this wrapper a simple-default wrapper?
	date_default = whitelist.wrapper_templates[template_name][2]; -- get the default date
			name_default = wrap_data[1]; -- get the default names
			date_default = wrap_data[2]; -- get the default date
	else		else
	vol = params['volume'] or 'default';		vol = params['volume'] or 'default';
	local fascicle = params['fascicle'] -- some templates use "fascicle" to mean "subvolume"		local fascicle = params['fascicle'] -- some templates use "fascicle" to mean "subvolume"
			if fascicle then
	~~vol~~ = ~~fascicle~~ ~~and~~ vol..'/'..fascicle or ~~vol~~ -- if fascicle is used, ~~set volume~~ = vol/fascicle		local subvol = vol..'/'..fascicle -- if fascicle is used, subvolume = "vol/fascicle"
⚫	if not ~~whitelist.wrapper_templates[template_name]~~[vol] then -- make sure this volume exists
			if wrap_data[subvol] then -- if subvolume exists, use it, otherwise fall back to volume
			vol = subvol
			end
			end
		⚫	if not wrap_data[vol] then -- make sure this volume exists
	vol = 'default'; -- doesn't exist, use default volume		vol = 'default'; -- doesn't exist, use default volume
	end		end
	name_default = ~~whitelist.wrapper_templates[template_name]~~[vol][1]; -- get the default names		name_default = wrap_data[vol][1]; -- get the default names
	date_default = ~~whitelist.wrapper_templates[template_name]~~[vol][2]; -- get the default date		date_default = wrap_data[vol][2]; -- get the default date
	end		end

Line 544:		Line 551:
	return anchor_id; -- anchor_id text; nil else		return anchor_id; -- anchor_id text; nil else
	end		end

imported>Hike395: correctly handle volume/fascicle for Encyclopedia Iranica

2024-12-03T02:44:26Z

correctly handle volume/fascicle for Encyclopedia Iranica

← Older revision		Revision as of 02:44, 3 December 2024
Line 506:		Line 506:
	else		else
	vol = params['volume'] or 'default';		vol = params['volume'] or 'default';
			local fascicle = params['fascicle'] -- some templates use "fascicle" to mean "subvolume"
			vol = fascicle and vol..'/'..fascicle or vol -- if fascicle is used, set volume = vol/fascicle
	if not whitelist.wrapper_templates[template_name][vol] then -- make sure this volume exists		if not whitelist.wrapper_templates[template_name][vol] then -- make sure this volume exists
	vol = 'default'; -- doesn't exist, use default volume		vol = 'default'; -- doesn't exist, use default volume

imported>Hike395: restore comment

2024-12-02T06:54:13Z

restore comment

← Older revision		Revision as of 06:54, 2 December 2024
Line 457:		Line 457:

	inspect externally visible \|ref= to decide what to do:		inspect externally visible \|ref= to decide what to do:
			\|ref= - empty or missing: get names and date from whitelist defaults; override defaults from externally visible template parameters
			\|ref=harv - same as empty or missing
	\|ref={{SfnRef\|name\|name\|name\|name\|year}} - assemble an anchor id from {{sfnref}} positional parameters		\|ref={{SfnRef\|name\|name\|name\|name\|year}} - assemble an anchor id from {{sfnref}} positional parameters
	\|ref={{Harvid\|name\|name\|name\|name\|year}} - assemble an anchor id from {{harvid}} positional parameters		\|ref={{Harvid\|name\|name\|name\|name\|year}} - assemble an anchor id from {{harvid}} positional parameters
	\|ref=none - skip; do nothing because an anchor id intentionally suppressed; TODO: keep with a type code of '0'?		\|ref=none - skip; do nothing because an anchor id intentionally suppressed; TODO: keep with a type code of '0'?
	\|ref=<text> - save param value because may match an anchor id override value in {{harv}} template \|ref= parameter or {{harvc}} \|id= parameter		\|ref=<text> - save param value because may match an anchor id override value in {{harv}} template \|ref= parameter or {{harvc}} \|id= parameter

	otherwise assume that wrapper template generates correct target for default ref
	]]		]]

imported>Hike395: restore anchor_id_make_wrapper

2024-12-02T00:26:12Z

restore anchor_id_make_wrapper

@@ Line 498: / Line 498: @@
 	template_params_get (template, params);										-- build a table of template parameters and their values
 	if 'harv' == ref  or not ref then											-- |ref=harv specified or |ref= missing or empty
 	elseif ref:match ('%b{}') then												-- ref holds a template
@@ Line 514: / Line 540: @@
 	return anchor_id;															-- anchor_id text; nil else
 end

imported>Hike395: 1) rely on whitelist and patterns to catch wrapper template "no target" errors, 2) pre-compute patterns based on template used on page

2024-12-01T22:33:39Z

1) rely on whitelist and patterns to catch wrapper template "no target" errors, 2) pre-compute patterns based on template used on page

@@ Line 97: / Line 97: @@
 local template_list = {};
 local article_whitelist = {};
@@ Line 456: / Line 457: @@
 inspect externally visible |ref= to decide what to do:
 	|ref={{SfnRef|name|name|name|name|year}}	- assemble an anchor id from {{sfnref}} positional parameters
 	|ref={{Harvid|name|name|name|name|year}}	- assemble an anchor id from {{harvid}} positional parameters
 	|ref=none									- skip; do nothing because an anchor id intentionally suppressed; TODO: keep with a type code of '0'?
 	|ref=<text>									- save param value because may match an anchor id override value in {{harv}} template |ref= parameter or {{harvc}} |id= parameter
 ]]
@@ Line 499: / Line 498: @@
 	template_params_get (template, params);										-- build a table of template parameters and their values
 	if 'harv' == ref  or not ref then											-- |ref=harv specified or |ref= missing or empty
 	elseif ref:match ('%b{}') then												-- ref holds a template
@@ Line 541: / Line 514: @@
 	return anchor_id;															-- anchor_id text; nil else
 end
@@ Line 798: / Line 773: @@
 				end
 			end
-		elseif template_name and whitelist.wrapper_templates[template_name] then
+	    elseif template_name and whitelist.wrapper_templates[template_name] then
 			anchor_id = anchor_id_make_wrapper (template);						-- extract an anchor id from this template if possible
 			list_add (anchor_id, anchor_id_list, true);
 		elseif template_name and template_name:match ('^Cit[ea]') then			-- not known, not known wrapper; last gasp, try as cs1-like
 			anchor_id = anchor_id_make_cs12 (template);							-- extract an anchor id from this template if possible
@@ Line 810: / Line 786: @@
 		tstart, tend = Article_content:find (find_pattern, tend);				-- search for another template; begin at end of last search
 	end
 mw.logObject (anchor_id_list, 'anchor_id_list');
@@ Line 816: / Line 793: @@
 	return anchor_id_list;
 end
@@ Line 826: / Line 829: @@
 	article_whitelist = article_whitelist,										-- table of anchor ids with false-positive error message to be suppressed
 	template_list = template_list,												-- table of templates used in this article
+	}

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

2024-07-17T17:25:58Z

-cite LSA support; template deleted;

← Older revision		Revision as of 17:25, 17 July 2024
Line 589:		Line 589:

	template_params_get (template, params); -- build a table of template parameters and their values		template_params_get (template, params); -- build a table of template parameters and their values

	if not ref then -- \|ref= not set, might be cite LSA which doesn't support \|ref=
	if 'cite lsa' == template_name then
	return 'CITEREF' .. (params.last or '') .. (params.year or ''); -- cite LSA always creates an anchor id using only \|last= and \|year= (no aliases)
	end
	end

	if 'harv' == ref or not ref then -- \|ref=harv specified or \|ref= missing or empty		if 'harv' == ref or not ref then -- \|ref=harv specified or \|ref= missing or empty

imported>Trappist the monk at 18:24, 8 August 2023

2023-08-08T18:24:26Z

← Older revision		Revision as of 18:24, 8 August 2023
Line 73:		Line 73:
	}		}
	local patterns_date = { -- normal lua patterns		local patterns_date = { -- normal lua patterns
	'(%d%d%d%d–%d%d%d%d%l?)$', -- YYYY–YYYY four-digit year range at end (Season YYYY–YYYY); with or without dab		-- '(%d%d%d%d–%d%d%d%d%l?)$', -- YYYY–YYYY four-digit year range at end (Season YYYY–YYYY); with or without dab
			'(%d%d%d%d)%D+(%d%d%d%d%l?)$', -- any range with four-digit years; with or without dab; not two captures
	'^(%d%d%d%d–%d%d%l?)$', -- YYYY–YY two-digit year range; with or without dab		'^(%d%d%d%d–%d%d%l?)$', -- YYYY–YY two-digit year range; with or without dab
	'^(c%. %d%d%d%d?%l?)$', -- three- or four-digit circa year; with or without dab		'^(c%. %d%d%d%d?%l?)$', -- three- or four-digit circa year; with or without dab
Line 157:		Line 158:

	local function date_get (template, aliases)		local function date_get (template, aliases)
	local date;
	local rvalue;		local rvalue;

Line 186:		Line 186:
	if rvalue then		if rvalue then
	for _, pattern in ipairs (patterns_date) do -- spin through the recognized date formats		for _, pattern in ipairs (patterns_date) do -- spin through the recognized date formats
	date = rvalue:match (pattern); -- attempt to extract year portion according to the pattern		-- date = rvalue:match (pattern); -- attempt to extract year portion according to the pattern
			local date, date2 = rvalue:match (pattern); -- attempt to extract year portion according to the pattern; <date2> gets second year in any range
	if date then		if date then
			if date2 then -- when a second year
			date = table.concat ({date, '–', date2}); -- build a date range
			end
	return date; -- matched so return;		return date; -- matched so return;
	end		end

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

2022-10-22T14:43:49Z

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

← Older revision		Revision as of 14:43, 22 October 2022
Line 1:		Line 1:
	require('~~Module:No globals~~');		require('strict');
	local data = mw.loadData ('Module:Footnotes/anchor id list/data');		local data = mw.loadData ('Module:Footnotes/anchor id list/data');
	local whitelist = mw.loadData ('Module:Footnotes/whitelist');		local whitelist = mw.loadData ('Module:Footnotes/whitelist');

imported>Trappist the monk at 18:02, 20 December 2021

2021-12-20T18:02:30Z

← Older revision		Revision as of 18:02, 20 December 2021
Line 401:		Line 401:
	template = template_strip (template); -- because template markup can confuse code that builds params_t{} and because templates in name parameters are not allowed		template = template_strip (template); -- because template markup can confuse code that builds params_t{} and because templates in name parameters are not allowed

	local temp_t = mw.text.split (template, '%s*\|%s'); --split on the pipe		local temp_t = mw.text.split (template, '%s\|%s'); --split on the pipe
	for _, param in ipairs (temp_t) do		for _, param in ipairs (temp_t) do
	if param:find ('=', 1, true) then -- a named parameter?		if param:find ('=', 1, true) then -- a named parameter?