Jump to content

Module:Science redirect: Difference between revisions

From Wikipedia, the free encyclopedia
Content deleted Content added
Sync from sandbox
 
More configuration to Module:Science redirect/conf
Line 1: Line 1:
local conf = require( "Module:Science redirect/conf" )

local p = {}
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)
function p.R(frame)
local template = mw.ustring.gsub(frame.args[1], ' ', '_')
local template = mw.ustring.gsub(frame.args[1], ' ', '_')
if conf[template] then
if conf.templates[template] then
return p._main(frame, conf[template].name, conf[template].from, conf[template].to, conf[template].category, conf[template].info, conf[template].removeA)
return p._main(frame, conf.templates[template].name, conf.templates[template].from, conf.templates[template].to, conf.templates[template].category, conf.templates[template].info, conf.templates[template].removeA)
elseif template then
elseif template then
return '<span class="error">The template '..template..'is not valid.</span>\n'
return '<span class="error">The template '..template..'is not valid.</span>\n'
Line 44: Line 13:
end
end
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)
function p._main(frame, name, from, to, category, info, removeA)
Line 66: Line 22:
--Check for valid category
--Check for valid category
if cats[cat] then singleNoun, pluralNoun = cats[cat][1], cats[cat][2] else
if conf.cats[cat] then singleNoun, pluralNoun = conf.cats[cat][1], conf.cats[cat][2] else
singleNoun, pluralNoun = 'an organism'
singleNoun, pluralNoun = 'an organism'
unknown = true
unknown = true

Revision as of 03:14, 1 June 2017

local conf = require( "Module:Science redirect/conf" )

local p = {}

function p.R(frame)
	local template = mw.ustring.gsub(frame.args[1], ' ', '_')
	if conf.templates[template] then
		return p._main(frame, conf.templates[template].name, conf.templates[template].from, conf.templates[template].to, conf.templates[template].category, conf.templates[template].info, conf.templates[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

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 conf.cats[cat] then singleNoun, pluralNoun = conf.cats[cat][1], conf.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