Module:TaxonList: Difference between revisions

Revision as of 15:15, 11 November 2017

Latest revision as of 03:51, 10 June 2025

(16 intermediate revisions by 4 users not shown)

Line 1:

--[[

This module provides the core functionality to a set of templates used to

display a list of taxon namesname/authority pairs, optionallywith italicizedthe and/ortaxon wikilinked.names optionally

italicized, wikilinked and/or emboldened. Such lists are usually part of

taxoboxes.

]]

-- use a function from Module:TaxonItalics to italicize a taxon name

local TaxonItalics = require("Module:TaxonItalics")

local IfPreview = require([[Module:If preview]])

local p = {}

Line 8 ⟶ 14:

--[[=========================================================================

Utility function to strip off any initial † present to mark the taxon as

extinct. The † must not be italicized, emboldened, or included in the wikilinked text, so

wikilinked text, so needs to be added back afterwards.

† is assumed to be present as one of:

* the unicode character †

Line 28 ⟶ 34:

dagger = '†'

else

-- did the taxon name originally have {{extinct}} before it?

if string.sub(taxonName,1,5) == '<span' then

taxonName =if (string.gsubsub(taxonName,1,5) == '^.*</span>abbr') and mw.ustring.find(taxonName, '†', 1) then

taxonName = string.gsub(taxonName, '^.*</abbr>', '', 1)

dagger = '†'

end

Line 35 ⟶ 42:

end

return taxonName, dagger

end

--[[=========================================================================

Utility function to do the following:

1. Strip off any initial † present to mark the taxon as extinct. We outsource

to p.stripDagger() for this.

2. Strip off any double quotation marks present to mark the taxon as invalid.

The double-quotation marks, too, should not be formatted.

3. Strip off any Candidatus or Ca. to mark the taxon as Candidatus.

The function returns four values:

* the taxon name with all of the three modifiers removed

* either '†' if it was present or the empty string if not

* either a single dquote if it was present in a pair or the empty string if not

* either italicized "Candidatus " or "Ca. " if it was present or the empty string if not

The function can error in case of an unpaired quotation mark. In that case, a

IfPreview._warning() is mixed into the first return.

=============================================================================]]

function p.parseName(taxonName)

taxonName local name, dagger = p.stripDagger(taxonName)

local dquote = ''

if string.sub(taxonNamename,1,51) == '<span"' then

name = string.sub(name,2)

daggerdquote = '"'

if string.sub(name,#name) == '"' then

name = string.sub(name,1,#name-1)

else

name = '|' .. IfPreview._warning({'"' .. name .. ' has an unpaired double quote.'})

end

end

local candidatus = ''

if string.sub(name,1,11) == 'Candidatus ' then

name = string.sub(name,12)

candidatus = "''Candidatus'' "

elseif string.sub(name,1,4) == 'Ca. ' then

name = string.sub(name,5)

candidatus = "''Ca.'' "

end

return name, dagger, dquote, candidatus

end

Line 44 ⟶ 96:

|italic = yes - to italicize the taxon name

|linked = yes - to wikilink the taxon name

|bold = yes - to emboldent the taxon name

|incomplete = yes - to output "(incomplete)" at the end of the list

}}

The template that transcludes the invoking template must supply an indefinite
even number of arguments in the format

the format |Name1|Author1 |Name2|Author2| ... |NameN|AuthorN

=============================================================================]]

function p.main(frame)

Line 54 ⟶ 108:

local linked = frame.args['linked'] == 'yes'

if bold then linked = false end -- must not have bold and wikilinked

local abbreviated = frame.args['abbreviated'] == 'yes'

local incomplete = frame.args['incomplete'] == 'yes'

local taxonArgs = frame:getParent().args

Line 60 ⟶ 115:

local taxonName

local dagger

local dquote

local first = true -- is this the first of a taxon name, author pair?

local candidatus

local first = true -- is this the first of a taxon name, /author pair?

for param, value in pairs(taxonArgs) do

if tonumber(param) then

if first then

taxonName = mw.text.trim(value)

-- if necessary separate any initial † from the taxon namemodifier

taxonName, dagger, dquote, candidatus = p.parseName(taxonName)

if linked orand not (italic and candidatus == '') then

taxonName, dagger = p.stripDagger(taxonName)

else

dagger = ''

end

if linked then

taxonName = '[[' .. taxonName .. ']]'

end

if italic and candidatus == '' then

taxonName = '<i>' TaxonItalics.. italicizeTaxonName(taxonName, ..linked, '</i>'abbreviated)

end

taxonName = candidatus .. taxonName

if bold then

taxonName = '<b>' .. taxonName .. '</b>'

end

result = result .. '<li>' .. dagger .. dquote .. taxonName .. dquote

else

result = result .. ' <small>' .. value .. '</small></li>'

Line 90 ⟶ 144:

result = result .. '<small>(incomplete list)</small>'

end

return '<ul styleclass="plainlisttaxonlist">' .. result .. '</ul>'

end