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
