Module:Taxonbar/candidate

About

This template is designed to be called from {{Taxobox/core}} or a related template, and tracks pages which may be candidates for a {{Taxonbar}}.

If no {{Taxonbar}} exists on the transcluded page, the page's Wikidata item is checked against this whitelist of acceptable (P31)s/ (P279)s, and this blacklist of unacceptable properties.

If an acceptable instance/subclass is found, then the page is categorized as:

• Category:Taxobox articles missing a taxonbar (0)

If no acceptables nor unacceptables are found, then it is categorized as:

• Category:Taxobox articles possibly missing a taxonbar (0)

If no acceptables & at least 1 unacceptable is found, then no categorization is performed.

Usage

{{Taxonbar/candidate}}

Associated lists

Whitelist

1. (Q16521)
2. (Q310890)
3. (Q47487597)
4. (Q2568288)
5. (Q23038290)
6. (Q59278506)
7. (Q98961713)
8. (Q58051350)
9. (Q42621)
10. (Q235536)
11. (Q713623)
12. (Q848328)
13. (Q857968)
14. (Q17487588)

Blacklist

1. (Q913170)
2. (Q55983715)
3. (Q937228)
4. (Q14712)
5. (Q163233)
6. (Q747463)

---

local p = {}

function p.check(frame)
	local taxonbarExists = require('Module:Taxonbar/exists').check
	if taxonbarExists(frame) then
		return ''
	else
		local resolveEntity = require( 'Module:ResolveEntityId' )
		local currentTitle = mw.title.getCurrentTitle()
		local currentItem = nil
		local categories = {
			'[[Category:Taxobox articles possibly missing a taxonbar]]' --unset if acceptable or unacceptable found
		}
		
		--preliminary exclusion criteria
		if string.match( currentTitle.text, '^List of ') then
			return ''
		end
		
		--find Wikidata item
		if currentTitle.namespace == 0 then --mainspace
			local currentEntityId = mw.wikibase.getEntityIdForCurrentPage()
			if resolveEntity._id(currentEntityId) then
				currentItem = mw.wikibase.getEntity(currentEntityId)
			else --currentEntityId == nil/unresolvable
				return categories[1]
			end
		else
			return ''
		end
		
		if currentItem then --currentItem should not be nil here, but check just in case
			--determine if {{Taxonbar}} is *definitely* missing, *possibly* missing, or not missing at all
			local whitelist = require( 'Module:Taxonbar/whitelist' ).whitelist
			local blacklist = require( 'Module:Taxonbar/blacklist' ).blacklist
			local acceptableInstanceOf_All = whitelist{ args = { 'all' } }
			local unacceptableInstanceOf = blacklist{ args = {} }
			
			local acceptableCount = 0
			local unacceptableCount = 0
			for _, instanceOfState in pairs ( currentItem:getBestStatements('P31') ) do --instance of
				local instanceOf = instanceOfState.mainsnak.datavalue.value.id
				if acceptableInstanceOf_All[instanceOf] then
					acceptableCount = acceptableCount + 1
				elseif unacceptableInstanceOf[instanceOf] then
					unacceptableCount = unacceptableCount + 1
				end
			end
			for _, subclassOfState in pairs ( currentItem:getBestStatements('P279') ) do --subclass of
				local subclassOf = subclassOfState.mainsnak.datavalue.value.id
				if acceptableInstanceOf_All[subclassOf] then
					acceptableCount = acceptableCount + 1
				elseif unacceptableInstanceOf[subclassOf] then
					unacceptableCount = unacceptableCount + 1
				end
			end
			
			if acceptableCount > 0 then
				categories[1] = ''
				categories[2] = '[[Category:Taxobox articles missing a taxonbar]]'
			elseif unacceptableCount > 0 then
				categories[1] = ''
				categories[2] = ''
			end
			
			return table.concat(categories)
			
		else
			return ''
		end
	end
end

return p