Module:WPSHIPS utilities - Revision history

Frietjes: Special:LintErrors/night-mode-unaware-background-color to match https://en.wikipedia.org/w/index.php?title=Module%3AWPMILHIST_Infobox_style&diff=1232708594&oldid=860617822

2025-01-31T18:40:53Z

Special:LintErrors/night-mode-unaware-background-color to match https://en.wikipedia.org/w/index.php?title=Module%3AWPMILHIST_Infobox_style&diff=1232708594&oldid=860617822

Trappist the monk: +is_empty_ibox_template();

2024-10-22T16:15:20Z

+is_empty_ibox_template();

@@ Line 921: / Line 921: @@
 	return table.concat (lines_t);												-- make a big string of line items and done
 end
@@ Line 934: / Line 955: @@
 local function infobox_ship_career (frame)
 	local args_t = get_args (frame);											-- get a table of all parameters in the template call
 	local html_out_t = {};														-- html table text goes here
 	local error_flag = false;													-- controls emission of maint category when synonymous parameters are both set
@@ Line 984: / Line 1,011: @@
 local function infobox_ship_characteristics (frame)
 	local args_t = get_args (frame);											-- get a table of all parameters in the template call
 	local html_out_t = {};														-- html table text goes here
 	local error_flag = false;													-- controls emission of maint category when synonymous parameters are both set
@@ Line 1,020: / Line 1,053: @@
 local function infobox_ship_class_overview (frame)
 	local args_t = get_args (frame);											-- get a table of all parameters in the template call
 	local html_out_t = {};														-- html table text goes here

Trappist the monk at 13:40, 24 June 2024

2024-06-24T13:40:12Z

← Previous revision		Revision as of 13:40, 24 June 2024
Line 492:		Line 492:
	local target_object = mw.title.new (link).redirectTarget; -- if <link> points to a redirect		local target_object = mw.title.new (link).redirectTarget; -- if <link> points to a redirect
	if target_object then		if target_object then
	link = target_object.~~text~~; -- get the target title to avoid linking through the redirect		link = target_object.fullText; -- get the target title to avoid linking through the redirect
	end		end

Trappist the monk at 00:41, 12 April 2024

2024-04-12T00:41:55Z

← Previous revision		Revision as of 00:41, 12 April 2024
Line 466:		Line 466:
	error_msg = error_msg_make ('invalid_control', template, control, no_cat, true);		error_msg = error_msg_make ('invalid_control', template, control, no_cat, true);
	elseif is_set (control) then		elseif is_set (control) then
	if ('number' ~= type (tonumber (control))) or (1 > tonumber (control) or 6 < tonumber (control)) then -- control must be a ~~number~~ ~~between~~ 1 through 6		if ('number' ~= type (tonumber (control))) or (1 ~= control:len()) or (1 > tonumber (control) or 6 < tonumber (control)) then -- control must be a single-digit number 1 through 6
	error_msg = error_msg_make ('invalid_control', template, control, no_cat, true);		error_msg = error_msg_make ('invalid_control', template, control, no_cat, true);
	end		end

Trappist the monk at 20:04, 8 April 2024

2024-04-08T20:04:03Z

Trappist the monk at 15:10, 7 April 2024

2024-04-07T15:10:36Z

← Previous revision		Revision as of 15:10, 7 April 2024
Line 29:		Line 29:
	]]		]]

	local function error_msg_make (msg_idx, template, detail, no_cat)		local function error_msg_make (msg_idx, template, detail, no_cat, link_template_name)
	local out = {};		local out = {};
	local category;		local category;
Line 35:		Line 35:
	table.insert (out, '<span style=\"font-size: 100%; font-style: normal;\" class=\"error\">Error: '); --TODO: simplify?		table.insert (out, '<span style=\"font-size: 100%; font-style: normal;\" class=\"error\">Error: '); --TODO: simplify?
	if template then		if template then
			if link_template_name then
⚫	table.insert (out, table.concat ({'{{', template, '}} '})); -- TODO: get template names for synonymous parameter errors
			table.insert (out, table.concat ({'{{[[Template:', template, '\|', template, ']]}} '}));
			else
		⚫	table.insert (out, table.concat ({'{{', template, '}} '})); -- TODO: get template names for synonymous parameter errors
			end
	end		end
	table.insert (out, string.format (error_map_t[msg_idx][1], detail)); -- build error message from base + <detail>		table.insert (out, string.format (error_map_t[msg_idx][1], detail)); -- build error message from base + <detail>
Line 454:		Line 458:
	-- dispose of error conditions straight away		-- dispose of error conditions straight away
	if not is_set (name) then -- this is the only required parameter		if not is_set (name) then -- this is the only required parameter
	error_msg = error_msg_make ('missing_name', template, '');		error_msg = error_msg_make ('missing_name', template, '', nil, true);
	elseif not is_set (dab) and ('1' == control or '3' == control or '5' == control) then -- dab required when control value set to expect it		elseif not is_set (dab) and ('1' == control or '3' == control or '5' == control) then -- dab required when control value set to expect it
	error_msg = error_msg_make ('missing_dab', template, '');		error_msg = error_msg_make ('missing_dab', template, '', nil, true);
	elseif not is_set (prefix) and ('5' == control or '6' == control) then -- prefix required when control value set to expect it		elseif not is_set (prefix) and ('5' == control or '6' == control) then -- prefix required when control value set to expect it
	error_msg = error_msg_make ('missing_prefix', template, '');		error_msg = error_msg_make ('missing_prefix', template, '', nil, true);
	elseif '4' == control then -- displaying only the prefix		elseif '4' == control then -- displaying only the prefix
	error_msg = error_msg_make ('invalid_control', template, control);		error_msg = error_msg_make ('invalid_control', template, control, nil, true);
	elseif is_set (control) then		elseif is_set (control) then
	if ('number' ~= type (tonumber (control))) or (1 > tonumber (control) or 6 < tonumber (control)) then -- control must be a number between 1 through 6		if ('number' ~= type (tonumber (control))) or (1 > tonumber (control) or 6 < tonumber (control)) then -- control must be a number between 1 through 6
	error_msg = error_msg_make ('invalid_control', template, control);		error_msg = error_msg_make ('invalid_control', template, control, nil, true);
	end		end
	elseif not is_set (prefix) and unlinked_prefix then -- prefix required when \|up=yes		elseif not is_set (prefix) and unlinked_prefix then -- prefix required when \|up=yes
	error_msg = error_msg_make ('missing_prefix', template, '');		error_msg = error_msg_make ('missing_prefix', template, '', nil, true);
	end		end

Trappist the monk at 18:50, 6 April 2024

2024-04-06T18:50:51Z

Show changes

Trappist the monk at 17:45, 5 April 2024

2024-04-05T17:45:48Z

← Previous revision		Revision as of 17:45, 5 April 2024
Line 436:		Line 436:
	]]		]]

	local function _ship (prefix, name, dab, control, unlinked_prefix, unlinked_whole)		local function _ship (prefix, name, dab, control, unlinked_prefix, unlinked_whole, template)
	local error_msg = '';		local error_msg = '';
	local category = '';		local category = '';
Line 467:		Line 467:
	category = '[[Category:WPSHIPS: template ship parameter errors]]';		category = '[[Category:WPSHIPS: template ship parameter errors]]';
	end		end
			if template then

	return '<span style="~~font-size~~:~~100%" class="error~~">' .. error_msg .. '</span>' .. category; -- return an error message; don't bother with making a link		return '<span style="color:#d33">Error: {{', template, '}}: ' .. error_msg .. '</span>' .. category; -- return an error message with template name; don't bother with making a link
			end
			return '<span style="color:#d33">' .. error_msg .. '</span>' .. category; -- return an error message without template name; don't bother with making a link
	end		end

Line 542:		Line 544:
	This function is the externally accessible entry point for template {{ship}}, {{HMS}}, {{USS}}, etc		This function is the externally accessible entry point for template {{ship}}, {{HMS}}, {{USS}}, etc

	{{#invoke:WPSHIPS_utilities~~/sandbox~~\|ship\|{{{1\|}}}\|{{{2\|}}}\|{{{3\|}}}\|{{{4\|}}}\|wl={{{wl\|}}}\|up={{{up\|}}}}}		{{#invoke:WPSHIPS_utilities\|ship\|{{{1\|}}}\|{{{2\|}}}\|{{{3\|}}}\|{{{4\|}}}\|wl={{{wl\|}}}\|up={{{up\|}}}\|_template=<template name>}}

			Parameters are:
			{{{1\|}}} – prefix (HMS, USS, Japanese submarine, etc)
			{{{2\|}}} – ship's name (required)
			{{{3\|}}} – disambiguator (year, hull or pennant number, etc)
			{{{4\|}}} – format control (1, 2, 3, 5, 6; 4 not allowed)
			\|wl= – when set to 'no', rendering is not wikilinked
			\|up= – when set to 'yes' prefix (if rendered) is not linked
			\|_template= template name for error messages; this way because template name does not always match <prefix>

	]]		]]

	local function ship (frame) -- this version not supported from the template yet		local function ship (frame) -- this version not supported from the template yet
	local args_t = get_args (frame);		local args_t = get_args (frame, {frameOnly = true});

	local prefix = args_t[1] or ''; -- fetch positional parameters into named variables for readability		local prefix = args_t[1] or ''; -- fetch positional parameters into named variables for readability
Line 556:		Line 567:
	local unlinked_whole = 'no' == args_t.wl; -- make boolean: true when \|wl=no		local unlinked_whole = 'no' == args_t.wl; -- make boolean: true when \|wl=no

	return _ship (prefix, name, dab, control, unlinked_prefix, unlinked_whole);		return _ship (prefix, name, dab, control, unlinked_prefix, unlinked_whole, args_t._template);
	end		end

Trappist the monk at 14:37, 1 April 2024

2024-04-01T14:37:05Z

← Previous revision		Revision as of 14:37, 1 April 2024
Line 462:		Line 462:
	error_msg = ' missing prefix';		error_msg = ' missing prefix';
	end		end


	if is_set (error_msg) then		if is_set (error_msg) then
	if 0 == mw.title.getCurrentTitle().namespace then -- only categorize pages in article space		if 0 == mw.title.getCurrentTitle().namespace then -- only categorize pages in article space
Line 475:		Line 475:

	if is_set (prefix) then		if is_set (prefix) then
	link = ~~link ..~~ prefix .. ' ' .. name; -- begin assembling the article name portion of the wikilink		link = prefix .. ' ' .. name; -- begin assembling the article name (link) portion of the wikilink
	else		else
	link = ~~link ..~~ name;		link = name;
	end		end

Line 483:		Line 483:
	link = link .. ' (' .. dab .. ')'; -- wrap dab in parentheses		link = link .. ' (' .. dab .. ')'; -- wrap dab in parentheses
	end		end

	------
	local target_object = mw.title.new (link).redirectTarget;		local target_object = mw.title.new (link).redirectTarget; -- if <link> points to a redirect
	if target_object then		if target_object then
	link = target_object.text; -- avoid the redirect		link = target_object.text; -- get the target title to avoid linking through the redirect
	end		end

	------
	name = "''" .. name .. "''"; -- name is always italicized so do it now		name = "''" .. name .. "''"; -- name is always italicized so do it now

Line 505:		Line 504:

	if not is_set (control) then -- when control not set: prefix, name, and dab		if not is_set (control) then -- when control not set: prefix, name, and dab
		⚫	if is_set (prefix) then
⚫	if unlinked_prefix ~~then~~ -- ~~'unlinked~~ prefix'?
	link = prefix .. ' ' .. link; -- yes, modify link so that prefix is not linked in final render
	link_name = name .. dab;
⚫	~~elseif~~ is_set (prefix) then
	link_name = prefix .. ' ' .. name .. dab;		link_name = prefix .. ' ' .. name .. dab;
	else		else
Line 519:		Line 515:
	link_name = name .. dab;		link_name = name .. dab;
	elseif '5' == control then -- prefix and dab		elseif '5' == control then -- prefix and dab
⚫	if unlinked_prefix then -- ~~'unlinked~~ prefix'?
	link = prefix .. ' ' .. link; -- yes, modify link so that prefix is not linked in final render
	link_name = dab;
	else
	link_name = prefix .. dab;		link_name = prefix .. dab;
⚫	end
	elseif '6' == control then -- prefix and name		elseif '6' == control then -- prefix and name
	if unlinked_prefix then -- 'unlinked prefix'?
	link = prefix .. ' ' .. link; -- yes, modify link so that prefix is not linked in final render
	link_name = name;
	else
	link_name = prefix .. ' ' .. name;		link_name = prefix .. ' ' .. name;
	end
	end		end
		⚫	end

			if '5' ~= control and'6' ~= control and is_set (control) then
		⚫	unlinked_prefix = false; -- no prefix so don't try to unlink it
	end		end

	if unlinked_whole then		if unlinked_whole then
	return link_name;		return link_name; -- no linking desired so done
		⚫	elseif unlinked_prefix and is_set (prefix) then -- when there is a prefix to unlink
			link_name = link_name:gsub ('^.- ', '', 1); -- remove the prefix and nbsp
			return prefix .. ' [[' .. link .. '\|' .. link_name .. ']]'; -- add prefix and nbsp to front and done
	else		else
	return '[[' .. link .. '\|' .. link_name .. ']]';		return '[[' .. link .. '\|' .. link_name .. ']]'; -- construct the wikilink and done
	end		end
	end		end


	--[[--------------------------< S H I P >----------------------------------------------------------------------		--[[--------------------------< S H I P >----------------------------------------------------------------------
Line 548:		Line 542:
	This function is the externally accessible entry point for template {{ship}}, {{HMS}}, {{USS}}, etc		This function is the externally accessible entry point for template {{ship}}, {{HMS}}, {{USS}}, etc

	{{#invoke:WPSHIPS_utilities/sandbox\|ship\|{{{1\|}}}\|{{{2\|}}}\|{{{3\|}}}\|{{{4\|}}}\|~~link~~={{{~~link~~\|}}}\|up={{{up\|}}}}}		{{#invoke:WPSHIPS_utilities/sandbox\|ship\|{{{1\|}}}\|{{{2\|}}}\|{{{3\|}}}\|{{{4\|}}}\|wl={{{wl\|}}}\|up={{{up\|}}}}}

	]]		]]

	local function ship (frame) -- this version not supported from the template yet		local function ship (frame) -- this version not supported from the template yet
	local ~~prefix~~ = ~~mw.text.trim~~ (frame~~.args~~[1] or ''); -- fetch positional parameters into named variables for readability		local args_t = get_args (frame);

			local prefix = args_t[1] or ''; -- fetch positional parameters into named variables for readability
	local name = ~~mw.text.trim (frame.args~~[2] or ''); -- stripped of leading and trailing whitespace		local name = args_t[2] or ''; -- stripped of leading and trailing whitespace
	local dab = ~~mw.text.trim (frame.args~~[3] or ''); -- ~~and~~ ~~and~~ ~~set~~ to ~~empty~~ ~~string~~ ~~(is~~ ~~that~~ ~~needed?)~~		local dab = args_t[3] or ''; -- empty positional parameters are nil so convert nil to empty string
	local control = ~~frame.args~~[4];		local control = args_t[4];
	local unlinked_prefix = 'yes' == ~~frame.args~~.up;		local unlinked_prefix = 'yes' == args_t.up; -- make boolean: true when \|up=yes
	local unlinked_whole = 'no' == ~~frame~~.~~args.link~~;		local unlinked_whole = 'no' == args_t.wl; -- make boolean: true when \|wl=no


	return _ship (prefix, name, dab, control, unlinked_prefix, unlinked_whole);		return _ship (prefix, name, dab, control, unlinked_prefix, unlinked_whole);
	end		end

Trappist the monk at 17:34, 30 March 2024

2024-03-30T17:34:27Z

← Previous revision		Revision as of 17:34, 30 March 2024
Line 472:		Line 472:

	local link_name;		local link_name;
	local link = '[[';		local link = '';

	if is_set (prefix) then		if is_set (prefix) then
Line 483:		Line 483:
	link = link .. ' (' .. dab .. ')'; -- wrap dab in parentheses		link = link .. ' (' .. dab .. ')'; -- wrap dab in parentheses
	end		end
			------

			local target_object = mw.title.new (link).redirectTarget;
			if target_object then
			link = target_object.text; -- avoid the redirect
			end

			------
	name = "''" .. name .. "''"; -- name is always italicized so do it now		name = "''" .. name .. "''"; -- name is always italicized so do it now

Line 532:		Line 538:
	return link_name;		return link_name;
	else		else
	return link .. '\|' .. link_name .. ']]';		return '[[' .. link .. '\|' .. link_name .. ']]';
	end		end
	end		end

← Previous revision		Revision as of 18:40, 31 January 2025
Line 977:		Line 977:

	if args_t['Ship country'] and args_t['Ship flag'] then		if args_t['Ship country'] and args_t['Ship flag'] then
	table.insert (html_out_t, '<tr><th height="30" colspan="2" style="background-color:#B0C4DE;text-align:left;padding-left:2px;vertical-align:middle;font-size:110%;">');		table.insert (html_out_t, '<tr><th height="30" colspan="2" style="background-color:#B0C4DE;color:inherit;text-align:left;padding-left:2px;vertical-align:middle;font-size:110%;">');
	table.insert (html_out_t, _infobox_ship_flag (args_t['Ship flag']));		table.insert (html_out_t, _infobox_ship_flag (args_t['Ship flag']));
	table.insert (html_out_t, '<span style="padding-left:1em">');		table.insert (html_out_t, '<span style="padding-left:1em">');
Line 984:		Line 984:
	table.insert (html_out_t, '</th></tr>\n');		table.insert (html_out_t, '</th></tr>\n');
	elseif args_t['Ship country'] then		elseif args_t['Ship country'] then
	table.insert (html_out_t, '<tr><th height="30" colspan="2" style="background-color:#B0C4DE;text-align:center;vertical-align:middle;font-size:110%;">');		table.insert (html_out_t, '<tr><th height="30" colspan="2" style="background-color:#B0C4DE;color:inherit;text-align:center;vertical-align:middle;font-size:110%;">');
	table.insert (html_out_t, args_t['Ship country']);		table.insert (html_out_t, args_t['Ship country']);
	table.insert (html_out_t, '</th></tr>\n');		table.insert (html_out_t, '</th></tr>\n');
	elseif args_t['Ship flag'] then		elseif args_t['Ship flag'] then
	table.insert (html_out_t, '<tr><th height="30" colspan="2" style="background-color:#B0C4DE;padding-left:2px;">');		table.insert (html_out_t, '<tr><th height="30" colspan="2" style="background-color:#B0C4DE;color:inherit;padding-left:2px;">');
	table.insert (html_out_t, _infobox_ship_flag (args_t['Ship flag']));		table.insert (html_out_t, _infobox_ship_flag (args_t['Ship flag']));
	table.insert (html_out_t, '</th></tr>\n');		table.insert (html_out_t, '</th></tr>\n');

← Previous revision		Revision as of 20:04, 8 April 2024
Line 445:		Line 445:
	]]		]]

	local function _ship (prefix, name, dab, control, unlinked_prefix, unlinked_whole, template)		local function _ship (prefix, name, dab, control, unlinked_prefix, unlinked_whole, template, no_cat)
	local error_msg = '';		local error_msg = '';
	local category = '';		local category = '';
Line 458:		Line 458:
	-- dispose of error conditions straight away		-- dispose of error conditions straight away
	if not is_set (name) then -- this is the only required parameter		if not is_set (name) then -- this is the only required parameter
	error_msg = error_msg_make ('missing_name', template, '', ~~nil~~, true);		error_msg = error_msg_make ('missing_name', template, '', no_cat, true);
	elseif not is_set (dab) and ('1' == control or '3' == control or '5' == control) then -- dab required when control value set to expect it		elseif not is_set (dab) and ('1' == control or '3' == control or '5' == control) then -- dab required when control value set to expect it
	error_msg = error_msg_make ('missing_dab', template, '', ~~nil~~, true);		error_msg = error_msg_make ('missing_dab', template, '', no_cat, true);
	elseif not is_set (prefix) and ('5' == control or '6' == control) then -- prefix required when control value set to expect it		elseif not is_set (prefix) and ('5' == control or '6' == control) then -- prefix required when control value set to expect it
	error_msg = error_msg_make ('missing_prefix', template, '', ~~nil~~, true);		error_msg = error_msg_make ('missing_prefix', template, '', no_cat, true);
	elseif '4' == control then -- displaying only the prefix		elseif '4' == control then -- displaying only the prefix
	error_msg = error_msg_make ('invalid_control', template, control, ~~nil~~, true);		error_msg = error_msg_make ('invalid_control', template, control, no_cat, true);
	elseif is_set (control) then		elseif is_set (control) then
	if ('number' ~= type (tonumber (control))) or (1 > tonumber (control) or 6 < tonumber (control)) then -- control must be a number between 1 through 6		if ('number' ~= type (tonumber (control))) or (1 > tonumber (control) or 6 < tonumber (control)) then -- control must be a number between 1 through 6
	error_msg = error_msg_make ('invalid_control', template, control, ~~nil~~, true);		error_msg = error_msg_make ('invalid_control', template, control, no_cat, true);
	end		end
	elseif not is_set (prefix) and unlinked_prefix then -- prefix required when \|up=yes		elseif not is_set (prefix) and unlinked_prefix then -- prefix required when \|up=yes
	error_msg = error_msg_make ('missing_prefix', template, '', ~~nil~~, true);		error_msg = error_msg_make ('missing_prefix', template, '', no_cat, true);
	end		end

Line 574:		Line 574:
	local unlinked_prefix = 'yes' == args_t.up; -- make boolean: true when \|up=yes		local unlinked_prefix = 'yes' == args_t.up; -- make boolean: true when \|up=yes
	local unlinked_whole = 'no' == args_t.wl; -- make boolean: true when \|wl=no		local unlinked_whole = 'no' == args_t.wl; -- make boolean: true when \|wl=no
			local no_cat = 'yes' == args_t['no-tracking']; -- make boolean: true when \|no-tracking=yes

	return _ship (prefix, name, dab, control, unlinked_prefix, unlinked_whole, 'Ship');		return _ship (prefix, name, dab, control, unlinked_prefix, unlinked_whole, 'Ship', no_cat);
	end		end

Line 610:		Line 611:
	local unlinked_prefix = 'yes' == args_t.up; -- make boolean: true when \|up=yes		local unlinked_prefix = 'yes' == args_t.up; -- make boolean: true when \|up=yes
	local unlinked_whole = 'no' == args_t.wl; -- make boolean: true when \|wl=no		local unlinked_whole = 'no' == args_t.wl; -- make boolean: true when \|wl=no
			local no_cat = 'yes' == args_t['no-tracking']; -- make boolean: true when \|no-tracking=yes

	return _ship (prefix, name, dab, control, unlinked_prefix, unlinked_whole, args_t.template_name or prefix);		return _ship (prefix, name, dab, control, unlinked_prefix, unlinked_whole, args_t.template_name or prefix, no_cat);
	end		end