Module:Taxonbar/whitelist: Difference between revisions

Module documentation[view] [edit] [history] [purge]

About

This module returns strict, lax, or all acceptable instance of (P31)s as a Lua table for use in a module such as Module:Taxonbar.

For use in documentation, see {{Taxonbar/whitelist}}.

Usage

local whitelists = require( 'Module:Taxonbar/whitelist' ).whitelist

Arg	Lua	Output
strict	local myWhitelist = whitelists{ args = { 'strict' } }	taxon (Q16521) monotypic taxon (Q310890) monotypic fossil taxon (Q47487597) ichnotaxon (Q2568288) fossil taxon (Q23038290) ootaxon (Q59278506) extinct taxon (Q98961713) paraphyletic group (Q58051350)
lax	local myWhitelist = whitelists{ args = { 'lax' } }	hybrid (Q42621) incertae sedis (Q235536) clade (Q713623) serotype (Q848328) Candidatus (Q857968) unavailable combination (Q17487588)
all	local myWhitelist = whitelists{ args = { 'all' } }	taxon (Q16521) monotypic taxon (Q310890) monotypic fossil taxon (Q47487597) ichnotaxon (Q2568288) fossil taxon (Q23038290) ootaxon (Q59278506) extinct taxon (Q98961713) paraphyletic group (Q58051350) hybrid (Q42621) incertae sedis (Q235536) clade (Q713623) serotype (Q848328) Candidatus (Q857968) unavailable combination (Q17487588)

See also

• Module:Taxonbar/blacklist
• Category:Taxobox articles missing a taxonbar (56)
• Category:Taxobox articles possibly missing a taxonbar (38)
• Category:Taxonbars on possible non-taxon pages (400)

The above documentation is transcluded from Module:Taxonbar/whitelist/doc. (edit | history)
Editors can experiment in this module's sandbox (edit | diff) and testcases (create) pages.
Subpages of this module.

local p = {}

-- returns any combination of strict/lax/all acceptable instance-of's,
-- either for use inside [[Module:Taxonbar]] or another module,
-- or for use in documentation as an ordered list
function p.whitelist( frame )
	local listType = frame.args[1]
	local documentation = frame.args[2]
	local outList = {}
	local acceptableInstanceOf_Strict = { --table order == display order
		'Q16521',		--taxon
		'Q310890',		--monotypic taxon
		'Q47487597',	--monotypic fossil taxon
		'Q2568288',		--ichnotaxon
		'Q23038290',	--fossil taxon
		'Q59278506',	--ootaxon
		'Q98961713',	--extinct taxon
		'Q58051350',	--paraphyletic group (subclass of taxon)
	}
	local acceptableInstanceOf_Lax = { --table order == display order
		'Q42621',		--hybrid
		'Q235536',		--incertae sedis
		'Q713623',		--clade
		'Q848328',		--serotype
		'Q857968',		--candidatus
		'Q17487588',	--unavailable combination
	}
	
	if listType == 'strict'  then outList = acceptableInstanceOf_Strict
	elseif listType == 'lax' then outList = acceptableInstanceOf_Lax
	elseif listType == 'all' then --concatenate strict + lax IIF requested
		local acceptableInstanceOf_All = {}
		local i = 0
		for _, v in pairs( acceptableInstanceOf_Strict ) do
			i = i + 1
			acceptableInstanceOf_All[i] = v
		end
		for _, v in pairs( acceptableInstanceOf_Lax ) do
			i = i + 1
			acceptableInstanceOf_All[i] = v
		end
		outList = acceptableInstanceOf_All
	end
	
	if (documentation == nil) or --module only
	   (documentation and documentation == '') then
		local out = {} --output Q's as keys for easier searching within Module:Taxonbar
		for k, v in pairs( outList ) do
			out[v] = k
		end
		return out
		
	else --documentation only
		local out = ''
		for _, q in pairs( outList ) do
			local Q = frame:expandTemplate{ title = 'Q', args = { q } }
			out = out..'# '..Q..'\n'
		end
		return out
	end
	
end

return p