Wikimore

Lua

Code Discussion Edit History Links Link count Subpages:Documentation Tests Results Sandbox Live code All modules

This module is rated as ready for general use. It has reached a mature form and is thought to be bug-free and ready for use wherever appropriate. To reduce server load and bad output, it should be improved by sandbox testing rather than repeated trial-and-error editing.

There exist (or don't exist) categories in a category system difficult to overview, starting with either

Flags
Seals
Symbols
Coats of arms
(expandable to more topics)

followed by either 'of' or 'from' and continued with different text, as e.g. ' the community Xxxxx'.

The module is invoked by the template {{Cat see if}} intended to be transcluded from any one of these 8 categories;
it checks which one of these bundle exist and creates a {{Cat see also}} to the other categories, i.e. a maximum of 7.
The selection can be restricted to a maximum of the other 4 or 3 existing categories by a selector, which can be

o or of restricting to 'of'-categories
f or from restricting to 'from'-categories
* restricting to categories (of/from) as the invoking category.

Because of the performance of (max. 7) existence checks the template is considered "expensive".

ExampleExample

A transclusion of the template {{Cat see if}} within a category e.g. Seals of the Bahamas will check the existence of

when the selector is o: {{ Cat see if | o }} or, in that case, *: {{ Cat see if | * }}

'Flags of the Bahamas'
'Symbols of the Bahamas'
'Coats of arms of the Bahamas'

when the selector is f: {{ Cat see if | f }}

'Flags from the Bahamas'
'Seals from the Bahamas'
'Symbols from the Bahamas'
'Coats of arms from the Bahamas'

and both groups when no selector is set: {{ Cat see if }}.

Code

local p = {}

-- function catseeif
function p.main (frame)
	local pprm = mw.getCurrentFrame(): getParent().args;
	local slct = mw.ustring.sub (pprm[1] or '', 1, 1 );	-- 'o' if only 'of', 'f' when only 'from'
	local titl = mw.title.getCurrentTitle();
	local nspc = titl.nsText;		-- category
	local part = {};
	local outt = {};
	local alts = {};
	alts[1] = 'Seals';
	alts[2] = 'Flags';
	alts[3] = 'Symbols';
	alts[4] = 'Coats of arms';

	part = mw.text.split( titl.text, ' of ', true)
	if	part[1] == 'Coats' then 
		part[2] = part[3]
		part[1] = alts[4]
	end
	if part[1] ~= nil and part[2] ~= nil then
		if slct == '*' then slct = 'o' end
		for i = 1, 4 do
			if alts[i] ~= part[1] then
				local namt = alts[i]..' of '..part[2]
				if slct ~= 'f' then 	-- not only 'from' ?
					local test = mw.title.new( namt, nspc )
					if test.exists then table.insert( outt, namt );  end
				end
			end
			local namt = alts[i]..' from '..part[2]
			if slct ~= 'o' then 	-- not only 'of' ?
				local test = mw.title.new( namt, nspc )	
				if test.exists then table.insert( outt, namt );  end
			end
		end
	end
--
	part = mw.text.split( titl.text, ' from ', true)
	if part[1] ~= nil and part[2] ~= nil then
		if slct == '*' then slct = 'f' end
		for i = 1, 4 do
			if alts[i] ~= part[1] then
				local namt = alts[i]..' from '..part[2]
				if slct ~= 'o' then 	-- not only 'of' ?
					local test = mw.title.new( namt, nspc )
					if test.exists then table.insert( outt, namt );  end
				end
			end
			local namt = alts[i]..' of '..part[2]
			if slct ~= 'f' then 	-- not only 'from' ?
				local test = mw.title.new( namt, nspc )
				if test.exists then table.insert( outt, namt );  end
			end
		end
	end
	if outt[1] ~= nil then
		table.insert( outt, "📎" );
		return mw.getCurrentFrame():expandTemplate{ title = 'Cat see also', args = outt };
	end
end


return p;

Wikimore

Module:Cat see if

ExampleExample

Code