Jump to content

Module:TaxonItalics/sandbox

Add links
From Wikipedia, the free encyclopedia
< Module:TaxonItalics
This is an old revision of this page, as edited by Peter coxhead (talk | contribs) at 21:22, 10 December 2018 (typo). The present address (URL) is a permanent link to this revision, which may differ significantly from the current revision.
--[[=========================================================================
Italicize a taxon name appropriately by invoking italicizeTaxonName.
The algorithm used is:
* If the name has italic markup at the start or the end, do nothing.
* Else
  * Remove (internal) italic markup.
  * If the name is made up of four words and the third word is a
    botanical connecting term, de-italicize the connecting term and add italic
    markup to the outside of the name.
  * Else if the name is made up of three words and the second word is a
    botanical connecting term or a variant of "cf.", de-italicize the
    connecting term and add italic markup to the outside of the name.
  * Else just add italic markup to the outside of the name.
 The module also:
 * Ensures that the hybrid symbol, ×, and parentheses are not italicized
 * Has an option to abbreviate all parts of taxon names other than the last
   to the first letter (e.g. "Pinus sylvestris var. sylvestris" becomes
   "P. s. var. sylvestris").
 * Has an option to wikilink the italicized name to the input name.
=============================================================================]]

local p = {}
-- local functions defined later
local italicizeTaxonName
local doItalicizeIfRequired
local abbreviate
local isItalic
local doItalicizeIfRequired
local doItalicTitleIfRequired

--connecting terms in three part names (e.g. Pinus sylvestris var. sylvestris)
local cTerms3 = {
	--subsp.
    subspecies = "subsp.",
    ["subsp."] = "subsp.",
    subsp = "subsp.",
    ["ssp."] = "subsp.",
    ssp = "subsp.",
    --var.
    varietas = "var.",
    ["var."] = "var.",
    var = "var.",
    --subvar.
    subvarietas = "subvar.",
    ["subvar."] = "subvar.",
    subvar = "subvar.",
    --f.
    forma = "f.",
    ["f."] = "f.",
    f = "f.",
    --subf.
    subforma = "subf.",
    ["subf."] = "subf.",
    subf = "subf."
    }
--connecting terms in two part names (e.g. Pinus sect. Pinus)
local cTerms2 = {
	--subg.
    subgenus = "subg.",
    ["subg."] = "subg.",
    subg = "subg.",
    --sect.
    section = "sect.",
    ["sect."] = "sect.",
    sect = "sect.",
    --subsect.
    subsection = "subsect.",
    ["subsect."] = "subsect.",
    subsect = "subsect.",
    --ser.
    series = "ser.",
    ["ser."] = "ser.",
    ser = "ser.",
    --subser.
    subseries = "subser.",
    ["subser."] = "subser.",
    subser = "subser.",
    --cf.
    cf = "cf.",
    ["cf."] = "cf.",
    ["c.f."] = "cf."
    }

--[[=========================================================================
Main function to italicize a taxon name appropriately.
=============================================================================]]
function p.main(frame)
    local name = frame.args[1] or ''
    local linked = frame.args['linked'] == 'yes'
    local abbreviated = frame.args['abbreviated'] == 'yes'
    return italicizeTaxonName(name, linked, abbreviated)
end

--[[=========================================================================
Utility local function to abbreviate an input string to its first character
followed by ".".
Both "×" and an HTML entity at the start of the string are skipped over in
determining first character, as is an opening parenthesis, which causes a
closing parenthesis to be included.
=============================================================================]]
function abbreviate(str)
	local result = ""
	local hasParentheses = false
	if mw.ustring.len(str) < 2 then
		--single character strings are left unchanged
		result = str
	else
		--skip over an opening parenthesis that could be present at the start of the string
		if mw.ustring.sub(str,1,1) == "(" then
			hasParentheses = true
			result = "(" 
			str = mw.ustring.sub(str,2,mw.ustring.len(str))
		end
		--skip over a hybrid symbol that could be present at the start of the string
		if mw.ustring.sub(str,1,1) == "×" then
			result = "×" 
			str = mw.ustring.sub(str,2,mw.ustring.len(str))
		end
		--skip over an HTML entity that could be present at the start of the string
		if mw.ustring.sub(str,1,1) == "&" then
			local i,dummy = mw.ustring.find(str,";",2,plain)
			result = result .. mw.ustring.sub(str,1,i)
			str = mw.ustring.sub(str,i+1,mw.ustring.len(str))
		end
		--if there's anything left, reduce it to its first character plus ".",
		--adding the closing parenthesis if required
		if str ~= "" then 
			result = result .. mw.ustring.sub(str,1,1) .. "."
			if hasParentheses then result = result .. ")" end
		end
	end
	return result
end

--[[=========================================================================
The local function which does the italicization.
=============================================================================]]
function italicizeTaxonName(name, linked, abbreviated)
    local italMarker = "''"
    -- begin by tidying the input name: trim; replace any use of the HTML
    -- italic tags by Wikimedia markup; replace any alternatives to the hybrid
    -- symbol by the symbol itself; prevent the hybrid symbol being treated as
    -- a 'word' by converting a following space to the HTML entity
    name = string.gsub(mw.text.trim(name), "</?i>", italMarker)
    name = string.gsub(string.gsub(name, "&#215;", "×"), "&times;", "×")
    name = string.gsub(name, "</?span.->", "") -- remove any span markup
    name = string.gsub(name, "× ", "×&#32;")
    -- now italicize and abbreviate if required
    local result = name
    if name ~= '' then
        if string.sub(name,1,2) == "''" or string.sub(name,-2) == "''" then
            -- do nothing if the name already has italic markers at the start or end
        else
            name = string.gsub(name, "''", "") -- first remove any internal italics
            local words = mw.text.split(name, " ", true)
            if #words == 4 and cTerms3[words[3]] then
                -- the third word of a four word name is a connecting term
                -- ensure the connecting term isn't italicized
                words[3] = '<span style="font-style:normal;">' .. cTerms3[words[3]] .. '</span>'
                if abbreviated then
                	words[1] = abbreviate(words[1])
                    words[2] = abbreviate(words[2])
            	end
                result = words[1] .. " " .. words[2] .. " " .. words[3] .. " " .. words[4]
            elseif #words == 3 and cTerms2[words[2]] then
                -- the second word of a three word name is a connecting term
                -- ensure the connecting term isn't italicized
                words[2] = '<span style="font-style:normal;">' .. cTerms2[words[2]] .. '</span>'
                if abbreviated then
                	words[1] = abbreviate(words[1])
                end
                result = words[1] .. " " .. words[2] .. " " .. words[3]
            else
                -- not a name as above; only deal with abbreviation
                if abbreviated then
                	if #words > 1 then
                		result = abbreviate(words[1])
                		for i = 2, #words-1, 1 do
                			result = result .. " " .. abbreviate(words[i])
                		end
                		result = result .. " " .. words[#words]
                	end
                else
                	result = name
                end
            end
            -- deal with any hybrid symbol as it should not be italicized
            result = string.gsub(result, "×", '<span style="font-style:normal;">×</span>')
             -- deal with any parentheses as they should not be italicized
            result = string.gsub(string.gsub(result,"%(",'<span style="font-style:normal;">(</span>'),"%)",'<span style="font-style:normal;">)</span>')
           -- add outside markup
            if linked then
                if result ~= name then
                    result = "[[" .. name .. "|" .. italMarker .. result .. italMarker .. "]]"
                else
                    result = italMarker .. "[[" .. name .. "]]" .. italMarker
                end
            else
                result = italMarker .. result .. italMarker
            end
        end
    end
    return result
end

--[[=========================================================================
Local utility function to determine whether to italicize a taxobox name
or page title.
=============================================================================]]
function isItalic(frame, name, taxonName, rank, virus)
	local res = false
	if name == taxonName then
		local italicRank = frame:expandTemplate{ title = 'Template:Is italic taxon', args = { rank, virus=virus } }
		if italicRank == 'yes' then
			res = true
		end
	else
		rank = string.lower(rank)
		if (rank == 'species' or rank == 'subspecies') and string.match(taxonName, '^'..name) then
			res = true
		end
	end
	return res
end

--[[=========================================================================
Function to italicize a taxobox name. It should be italicized if:
* the rank is one that is italicized, AND
* the taxobox name is the same as the taxon name, OR
* the rank is species or below and the taxobox name is the same as the genus
  name
=============================================================================]]
function p.italicizeIfRequired(frame)
	local taxoboxName = frame.args[1] or ''
	local taxonName = frame.args[2] or ''
	local rank = frame.args[3] or ''
	local virus = frame.args[4] or 'no'
	return doItalicizeIfRequired(frame, taxoboxName, taxonName, rank, virus)
end

--[[=========================================================================
Local utility function to do the italicization of a taxobox name.
=============================================================================]]
function doItalicizeIfRequired(frame, taxoboxName, taxonName, rank, virus)
	local res = taxoboxName
	if isItalic(frame, taxoboxName, taxonName, rank, virus) then
		res = italicizeTaxonName(taxoboxName, false, false)
	end
	return res
end

--[[=========================================================================
Function to determine if a page title should be italicized
=============================================================================]]
function p.isItalicTitle(frame)
	local pageName = frame.args[1] or ''
	local taxonName = frame.args[2] or ''
	local rank = frame.args[3] or ''
	local virus = frame.args[4] or 'no'
	return doIsItalicTitle(frame, pageName, taxonName, rank, virus)
end

--[[=========================================================================
Local utility function that actually determines if the title should be italic.
=============================================================================]]
function doIsItalicTitle(frame, pageName, taxonName, rank, virus)
	local res = ''
	pageName = frame:expandTemplate{ title = 'Template:PAGENAMEBASE', args = { pageName } }
	if isItalic(frame, pageName, taxonName, rank, virus) then
		res = 'yes'
	end
	return res
end

return p
Retrieved from "https://en.wikipedia.org/w/index.php?title=Module:TaxonItalics/sandbox&oldid=873055884"