Module:Citation/CS1 - Revision history

NeonWabbit: Reverted edits by NeonWabbit (talk) to last revision by SuitCase

2024-11-12T14:57:57Z

Reverted edits by NeonWabbit (talk) to last revision by SuitCase

← Older revision		Revision as of 14:57, 12 November 2024
Line 393:		Line 393:

	local function external_link (URL, label, source, access)		local function external_link (URL, label, source, access)
	local ~~customFormatter~~ = ~~require(~~'~~Module:Citation/CS1/BCB_chapter~~')		local err_msg = '';
	local ~~transformedLabel = customFormatter.formatChapterReference(URL)~~		local domain;
	~~if transformedLabel then~~		local path;
	~~label = transformedLabel -- Use the transformed label if available~~		local base_url;
	~~end~~

	~~local err_msg~~ = '';		if not utilities.is_set (label) then
	~~local~~ domain;		label = URL;
	~~local~~ path;		if utilities.is_set (source) then
	~~local base_url~~;		utilities.set_message ('err_bare_url_missing_title', {utilities.wrap_style ('parameter', source)});
			else
			error (cfg.messages["bare_url_no_origin"]); -- programmer error; valid parameter name does not have matching meta-parameter
			end
			end
			if not check_url (URL) then
			utilities.set_message ('err_bad_url', {utilities.wrap_style ('parameter', source)});
			end

			domain, path = URL:match ('^([/%.%-%+:%a%d]+)([/%?#].*)$'); -- split the URL into scheme plus domain and path
			if path then -- if there is a path portion
			path = path:gsub ('[%[%]]', {['['] = '%5b', [']'] = '%5d'}); -- replace '[' and ']' with their percent-encoded values
			URL = table.concat ({domain, path}); -- and reassemble
			end

	~~if not utilities.is_set(label) then~~		base_url = table.concat ({ "[", URL, " ", safe_for_url (label), "]" }); -- assemble a wiki-markup URL
	~~label~~ = ~~URL~~
	~~if utilities~~.~~is_set(source) then~~
	~~utilities.set_message~~(~~'err_bare_url_missing_title',~~ {~~utilities.wrap_style('parameter', source)})~~
	~~else~~
	~~error(cfg.messages~~["~~bare_url_no_origin"]) -- programmer error; valid parameter name does not have matching meta-parameter~~
	~~end~~
	~~end~~
	~~if not check_url(~~URL~~) then~~
	~~utilities.set_message('err_bad_url'~~, ~~{utilities.wrap_style('parameter', source)})~~
	~~end~~

	~~domain~~, ~~path = URL:match~~(~~'^([/%.%-%+:%a%d]+)([/%?#].*)$'~~) ~~-- split the URL into scheme plus domain and path~~
	~~if path then -- if there is a path portion~~
	~~path = path:gsub ('[%[%]]'~~, ~~{['['~~] ~~= '%5b', [']'] = '%5d'~~}) -- ~~replace '[' and ']' with their percent~~-~~encoded values~~
	URL ~~= table.concat({domain, path}) -- and reassemble~~
	~~end~~

	base_url = ~~table~~.~~concat~~({"[", ~~URL~~, ~~" ", safe_for_url(label), "]"~~}) -- ~~assemble a wiki-markup URL~~		if utilities.is_set (access) then -- access level (subscription, registration, limited)
			base_url = utilities.substitute (cfg.presentation['ext-link-access-signal'], {cfg.presentation[access].class, cfg.presentation[access].title, base_url}); -- add the appropriate icon
			end

	~~if utilities.is_set(access) then -- access level (subscription, registration, limited)~~		return base_url;
	~~base_url = utilities.substitute(cfg.presentation['ext-link-access-signal'], {cfg.presentation[access].class, cfg.presentation[access].title, base_url}) -- add the appropriate icon~~
	~~end~~

	return base_url
	end		end

NeonWabbit at 14:20, 12 November 2024

2024-11-12T14:20:55Z

← Older revision		Revision as of 14:20, 12 November 2024
Line 392:		Line 392:
	]]		]]

	local function external_link(URL, label, source, access)		local function external_link (URL, label, source, access)
	local customFormatter = require('Module:Citation/CS1/BCB_chapter')		local customFormatter = require('Module:Citation/CS1/BCB_chapter')
	local transformedLabel = customFormatter.formatChapterReference(URL)		local transformedLabel = customFormatter.formatChapterReference(URL)
			if transformedLabel then
	~~-- If the URL was transformed and label is missing, use the transformed label as the default title~~		label = transformedLabel -- Use the transformed label if available
	if transformedLabel ~~~= URL and not utilities.is_set(label)~~ then
	label = transformedLabel
	~~elseif transformedLabel ~= URL then~~
	-- ~~If the label exists, but a transformation occurred, use~~ the transformed label
	~~label = transformedLabel~~
	end		end

	~~-- Existing code follows...~~
	local err_msg = '';		local err_msg = '';
	local domain;		local domain;

NeonWabbit at 13:49, 12 November 2024

2024-11-12T13:49:02Z

← Older revision		Revision as of 13:49, 12 November 2024
Line 392:		Line 392:
	]]		]]

	local function external_link (URL, label, source, access)		local function external_link(URL, label, source, access)
	local customFormatter = require('Module:Citation/CS1/BCB_chapter')		local customFormatter = require('Module:Citation/CS1/BCB_chapter')
	local transformedLabel = customFormatter.formatChapterReference(URL)		local transformedLabel = customFormatter.formatChapterReference(URL)
	if transformedLabel ~= URL then
	-- If the ~~URL was transformed~~, use the ~~custom~~ label		-- If the URL was transformed and label is missing, use the transformed label as the default title
	~~mw.log("Transformed URL: " .. URL .. " to " .. transformedLabel)~~		if transformedLabel ~= URL and not utilities.is_set(label) then
			label = transformedLabel
			elseif transformedLabel ~= URL then
			-- If the label exists, but a transformation occurred, use the transformed label
	label = transformedLabel		label = transformedLabel
	end		end
Line 407:		Line 410:
	local base_url;		local base_url;

	if not utilities.is_set (label) then		if not utilities.is_set(label) then
	label = URL;		label = URL
	if utilities.is_set (source) then		if utilities.is_set(source) then
	utilities.set_message ('err_bare_url_missing_title', {utilities.wrap_style ('parameter', source)});		utilities.set_message('err_bare_url_missing_title', {utilities.wrap_style('parameter', source)})
	else		else
	error (cfg.messages["bare_url_no_origin"]); -- programmer error; valid parameter name does not have matching meta-parameter		error(cfg.messages["bare_url_no_origin"]) -- programmer error; valid parameter name does not have matching meta-parameter
	end		end
	end		end
	if not check_url (URL) then		if not check_url(URL) then
	utilities.set_message ('err_bad_url', {utilities.wrap_style ('parameter', source)});		utilities.set_message('err_bad_url', {utilities.wrap_style('parameter', source)})
	end		end

	domain, path = URL:match ('^([/%.%-%+:%a%d]+)([/%?#].*)$'); -- split the URL into scheme plus domain and path		domain, path = URL:match('^([/%.%-%+:%a%d]+)([/%?#].*)$') -- split the URL into scheme plus domain and path
	if path then -- if there is a path portion		if path then -- if there is a path portion
	path = path:gsub ('[%[%]]', {['['] = '%5b', [']'] = '%5d'}); -- replace '[' and ']' with their percent-encoded values		path = path:gsub ('[%[%]]', {['['] = '%5b', [']'] = '%5d'}) -- replace '[' and ']' with their percent-encoded values
	URL = table.concat ({domain, path}); -- and reassemble		URL = table.concat({domain, path}) -- and reassemble
	end		end

	base_url = table.concat ({ "[", URL, " ", safe_for_url (label), "]" }); -- assemble a wiki-markup URL		base_url = table.concat({"[", URL, " ", safe_for_url(label), "]"}) -- assemble a wiki-markup URL

	if utilities.is_set (access) then -- access level (subscription, registration, limited)		if utilities.is_set(access) then -- access level (subscription, registration, limited)
	base_url = utilities.substitute (cfg.presentation['ext-link-access-signal'], {cfg.presentation[access].class, cfg.presentation[access].title, base_url}); -- add the appropriate icon		base_url = utilities.substitute(cfg.presentation['ext-link-access-signal'], {cfg.presentation[access].class, cfg.presentation[access].title, base_url}) -- add the appropriate icon
	end		end

	return base_url;		return base_url
	end		end

NeonWabbit at 13:41, 12 November 2024

2024-11-12T13:41:07Z

← Older revision		Revision as of 13:41, 12 November 2024
Line 397:		Line 397:
	if transformedLabel ~= URL then		if transformedLabel ~= URL then
	-- If the URL was transformed, use the custom label		-- If the URL was transformed, use the custom label
			mw.log("Transformed URL: " .. URL .. " to " .. transformedLabel)
	label = transformedLabel		label = transformedLabel
	end		end
	~~local err_msg = '';~~
	~~local domain;~~
	~~local path;~~
	~~local base_url;~~

	~~if not utilities.is_set (label) then~~		-- Existing code follows...
	~~label = URL;~~		local err_msg = '';
	~~if utilities~~.~~is_set (source) then~~		local domain;
	~~utilities~~.~~set_message ('err_bare_url_missing_title', {utilities~~.~~wrap_style ('parameter', source)});~~		local path;
	~~else~~		local base_url;
	~~error (cfg.messages["bare_url_no_origin"]); -- programmer error; valid parameter name does not have matching meta-parameter~~
	~~end~~
	~~end~~
	~~if not check_url (URL) then~~
	~~utilities.set_message (~~'~~err_bad_url~~'~~, {utilities.wrap_style ('parameter', source)})~~;
	~~end~~

	domain~~, path = URL:match ('^([/%.%-%+:%a%d]+)([/%?#].*)$')~~; ~~-- split the URL into scheme plus domain and path~~
	~~if path then -- if there is a path portion~~
	path ~~= path:gsub ('[%[%]]', {['['] = '%5b', [']'] = '%5d'})~~; ~~-- replace '[' and ']' with their percent-encoded values~~
	~~URL = table.concat ({domain, path})~~; ~~-- and reassemble~~
	~~end~~

	~~base_url~~ = ~~table~~.~~concat~~ ({ "[", ~~URL~~, ~~" "~~, ~~safe_for_url~~ (~~label~~), "]" }); -- ~~assemble a wiki~~-~~markup~~ URL		if not utilities.is_set (label) then
			label = URL;
			if utilities.is_set (source) then
			utilities.set_message ('err_bare_url_missing_title', {utilities.wrap_style ('parameter', source)});
			else
			error (cfg.messages["bare_url_no_origin"]); -- programmer error; valid parameter name does not have matching meta-parameter
			end
			end
			if not check_url (URL) then
			utilities.set_message ('err_bad_url', {utilities.wrap_style ('parameter', source)});
			end

			domain, path = URL:match ('^([/%.%-%+:%a%d]+)([/%?#].*)$'); -- split the URL into scheme plus domain and path
			if path then -- if there is a path portion
			path = path:gsub ('[%[%]]', {['['] = '%5b', [']'] = '%5d'}); -- replace '[' and ']' with their percent-encoded values
			URL = table.concat ({domain, path}); -- and reassemble
			end

	if utilities.is_set (access) then -- access level (subscription, registration, limited)		base_url = table.concat ({ "[", URL, " ", safe_for_url (label), "]" }); -- assemble a wiki-markup URL
	base_url = utilities.substitute (cfg.presentation['ext-link-access-signal'], {cfg.presentation[access].class, cfg.presentation[access].title, base_url}); -- add the appropriate icon
	end		if utilities.is_set (access) then -- access level (subscription, registration, limited)
			base_url = utilities.substitute (cfg.presentation['ext-link-access-signal'], {cfg.presentation[access].class, cfg.presentation[access].title, base_url}); -- add the appropriate icon
			end

	return base_url;		return base_url;
	end		end

NeonWabbit at 13:32, 12 November 2024

2024-11-12T13:32:58Z

← Older revision		Revision as of 13:32, 12 November 2024
Line 393:		Line 393:

	local function external_link (URL, label, source, access)		local function external_link (URL, label, source, access)
			local customFormatter = require('Module:Citation/CS1/BCB_chapter')
			local transformedLabel = customFormatter.formatChapterReference(URL)
			if transformedLabel ~= URL then
			-- If the URL was transformed, use the custom label
			label = transformedLabel
			end
	local err_msg = '';		local err_msg = '';
	local domain;		local domain;

SuitCase: Reverted edit by SuitCase (talk) to last revision by NeonWabbit

2024-11-12T04:49:57Z

Reverted edit by SuitCase (talk) to last revision by NeonWabbit

@@ Line 164: / Line 164: @@
 end
 --[[--------------------------< I S _ U R L >------------------------------------------------------------------
@@ Line 4,416: / Line 4,390: @@
 	local pframe = frame:getParent()
 	local styles;

SuitCase: Added a thing that makes bcb page refs look nice

2024-11-12T04:48:46Z

Added a thing that makes bcb page refs look nice

@@ Line 164: / Line 164: @@
 end
 --[[--------------------------< I S _ U R L >------------------------------------------------------------------
@@ Line 4,390: / Line 4,416: @@
 	local pframe = frame:getParent()
 	local styles;

NeonWabbit: Created page with "require ('strict'); ----------------------------< F O R W A R D D E C L A R A T I O N S >-------------------------------------- each of these counts against the Lua upvalue limit local validation; -- functions in Module:Citation/CS1/Date_validation local utilities; -- functions in Module:Citation/CS1/Utilities local z = {}; -- table of tables in Module:Citation/CS1/Utilities local identifiers; -- f..."

2024-05-30T02:27:02Z

Created page with "require ('strict'); --[[--------------------------< F O R W A R D D E C L A R A T I O N S >-------------------------------------- each of these counts against the Lua upvalue limit ]] local validation; -- functions in Module:Citation/CS1/Date_validation local utilities; -- functions in Module:Citation/CS1/Utilities local z = {}; -- table of tables in Module:Citation/CS1/Utilities local identifiers; -- f..."

Show changes