Module:Science redirect

local p = {}

local conf = {
	from_alternative_scientific_name = {
		name     = 'From alternative scientific name of $1',
		from     = 'an alternative scientific name of $1 (or group of $2)',
		to       = 'the accepted scientific name',
		category = 'from alternative scientific names',
	}, to_scientific_name = {
		name     = 'To the scientific name of $1',
		from     = 'a [[Common name|vernacular ("common") name]]',
		to       = 'the [[biological nomenclature|scientific name]] of $1 (or group of $2)',
		category = 'to scientific names',
	}, from_scientific_name = {
		name     = 'From a scientific name of $1',
		from     = 'a [[biological nomenclature|scientific name]] of $1 (or group of $2)',
		to       = 'a [[Common name|vernacular ("common") name]]',
		category = 'from scientific names',
	}, to_monotypic_taxon = {
		name     = 'To a monotypic taxon',
		from     = 'the only lower-ranking member of a monotypic $1 taxon',
		to       = 'its monotypic taxon',
		category = 'to monotypic taxa',
		info     = "In a biology-related article, when for example a genus has only one species, the [[binomial name]] may be a redirect to the genus.\n** Use {{[[:Template:R from monotypic taxon|R from monotypic taxon]]}} when making a redirect ''from'' a monotypic taxon ''to'' its only member, for example, from a family name to its sole genus.",
		removeA  = true,
	}, from_monotypic_taxon = {
		name     = 'From a monotypic taxon',
		from     = 'a monotypic $1 taxon',
		to       = 'its only lower-ranking member',
		category = 'from monotypic taxa',
		info     = "In a biology-related article, when for example a family has only one genus, the family may be a redirect to the genus.\n** Use {{[[:Template:R to monotypic taxon|R to monotypic taxon]]}} when making a redirect ''to'' a monotypic taxon ''from'' its only member, for example, from a species to the genus of which it is the only member.",
		removeA  = true,
	}, 
}

function p.R(frame)
	local template = mw.ustring.gsub(frame.args[1], ' ', '_')
	if conf[template] then
		return p._main(frame, conf[template].name, conf[template].from, conf[template].to, conf[template].category, conf[template].info, conf[template].removeA)
	elseif template then
		return '<span class="error">The template '..template..'is not valid.</span>\n'
	else
		return '<span class="error">No template specified</span>\n'
	end
end

local cats = { -- list entries minus any trailing 's'
	plant      = {'a plant', 'plants'},
	fish       = {'a fish', 'fish'},
	fishe      = {'a fish', 'fish'},
	fungu      = {'a fungus', 'fungi'},
	fungi      = {'a fungus', 'fungi'},
	spider     = {'a spider', 'spiders'},
	crustacean = {'a crustacean', 'crustaceans'},
	reptile    = {'a reptile', 'reptiles'},
	insect     = {'an insect', 'insects'},
	none       = {'an organism'},
}

function p._main(frame, name, from, to, category, info, removeA)
	--initialize variables
	local args = frame:getParent().args
	local singleNoun, pluralNoun = '', ''
	local cat = mw.ustring.match(mw.ustring.lower(args[1] or 'none'), '^(.-)s?$')
	local unknown = false;
	
	--Check for valid category
	if cats[cat] then singleNoun, pluralNoun = cats[cat][1], cats[cat][2] else
		singleNoun, pluralNoun = 'an organism'
		unknown = true
	end
	
	--strip article from singleNoun if removeA is true
	if removeA == true then
		if singleNoun == 'an organism' then singleNoun = '' else singleNoun = (mw.ustring.match(singleNoun, '^an? (.*)$') or singleNoun)	end
	end
	
	--support alternative indications for printworthy
	if args[2] == 'unprintworthy' or args['unprintworthy'] == 'true' then args['printworthy'] = 'no' end
	
	--build template arguments
	local main_category = 'Redirects '..category
	if pluralNoun then main_category = main_category..' of '..pluralNoun end
	local outArgs = {
		name = mw.ustring.gsub(name, '$1', singleNoun),
		from = mw.ustring.gsub(mw.ustring.gsub(from, '$1', singleNoun), '$2', (pluralNoun or 'organisms')),
		to = mw.ustring.gsub(mw.ustring.gsub(to, '$1', singleNoun), '$2', (pluralNoun or 'organisms')),
		['main category'] = main_category,
		printworthy = (args['printworthy'] or 'yes'),
		info = info,
	}
	
	--build output string
	local outStr = ''
	if frame.args['debug'] == 'true' then
		outStr = '{{Redirect template\n\n'
		for k,v in pairs( outArgs ) do
			outStr = outStr..'| '..k..' = '..v..'\n\n'
		end
		outStr = outStr..'}}'
	else
		outStr = frame:expandTemplate{ title = 'Redirect template', args = outArgs }
	end
	if unknown == true then outStr = outStr..'[[Category:Redirects '..category..' using unknown values for parameter 1]]' end
	
	return outStr
end

return p
Module:Science redirect

Usage

Adding or modifying supported templates

Tracking categories

Science redirects ( 13 )

Invalid parameters
