Module:Taxonbar/whitelist/sandbox - Revision history

Tom.Reding: cleanup

2023-11-14T16:17:25Z

cleanup

← Previous revision		Revision as of 16:17, 14 November 2023
Line 49:		Line 49:
	for k, v in pairs( outList ) do		for k, v in pairs( outList ) do
	out[v] = k --output Q# as keys for easier searching within Module:Taxonbar		out[v] = k --output Q# as keys for easier searching within Module:Taxonbar
	end
	if (documentation == 'docdoc') then
	end		end
	return out		return out

Tom.Reding: derp

2023-11-14T16:08:44Z

derp

← Previous revision		Revision as of 16:08, 14 November 2023
Line 63:		Line 63:
	['code'] = selfdocout }		['code'] = selfdocout }
	out = frame:expandTemplate{ title = 'Syntaxhighlight', args = args }		out = frame:expandTemplate{ title = 'Syntaxhighlight', args = args }
			return out

	else --normal documentation only		else --normal documentation only

Tom.Reding: Force order

2023-11-14T16:04:16Z

Force order

← Previous revision		Revision as of 16:04, 14 November 2023
Line 44:		Line 44:

	if (documentation == nil) or --module only		if (documentation == nil) or --module only
	(documentation and documentation == '') or		(documentation and documentation == '')
	(documentation == 'docdoc') --self-documentation only
	then		then
	local out = {}		local out = {}
Line 52:		Line 51:
	end		end
	if (documentation == 'docdoc') then		if (documentation == 'docdoc') then
⚫	local selfdocout = 'myVariable = {\n'
⚫	for q, v in pairs( ~~out~~ ) do
⚫	selfdocout = selfdocout..'\t\''..q..'\' = '..v..',\n'
⚫	end
⚫	selfdocout = selfdocout..'}'
⚫	local args = { ['lang'] = 'lua',
⚫	['code'] = selfdocout }
⚫	out = frame:expandTemplate{ title = 'Syntaxhighlight', args = args }
	end		end
	return out		return out

	~~else~~ --documentation only		elseif (documentation == 'docdoc') then --self-documentation only
		⚫	local selfdocout = 'myVariable = {\n'
		⚫	for k, q in pairs( outList ) do
		⚫	selfdocout = selfdocout..'\t\''..q..'\' = '..k..',\n'
		⚫	end
		⚫	selfdocout = selfdocout..'}'
		⚫	local args = { ['lang'] = 'lua',
		⚫	['code'] = selfdocout }
		⚫	out = frame:expandTemplate{ title = 'Syntaxhighlight', args = args }

			else --normal documentation only
	local out = ''		local out = ''
	for _, q in pairs( outList ) do		for _, q in pairs( outList ) do

Tom.Reding: expandTemplate

2023-11-14T15:59:25Z

expandTemplate

← Previous revision		Revision as of 15:59, 14 November 2023
Line 52:		Line 52:
	end		end
	if (documentation == 'docdoc') then		if (documentation == 'docdoc') then
	local selfdocout = '~~<syntaxhighlight~~ ~~lang~~=~~"lua">~~\n'..		local selfdocout = 'myVariable = {\n'
	'myVariable = {\n'
	for q, v in pairs( out ) do		for q, v in pairs( out ) do
	selfdocout = selfdocout..'\t\''..q..'\' = '..v..',\n'		selfdocout = selfdocout..'\t\''..q..'\' = '..v..',\n'
	end		end
	selfdocout = selfdocout..'}\n'..		selfdocout = selfdocout..'}'
			local args = { ['lang'] = 'lua',
	'</syntaxhighlight>'
	~~out~~ = selfdocout		['code'] = selfdocout }
			out = frame:expandTemplate{ title = 'Syntaxhighlight', args = args }
	end		end
	return out		return out

Tom.Reding: +

2023-11-14T15:49:47Z

+<syntaxhighlight lang="lua">

← Previous revision		Revision as of 15:49, 14 November 2023
Line 52:		Line 52:
	end		end
	if (documentation == 'docdoc') then		if (documentation == 'docdoc') then
	local selfdocout = '~~myVariable~~ = {\n'		local selfdocout = '<syntaxhighlight lang="lua">\n'..
			'myVariable = {\n'
	for q, v in pairs( out ) do		for q, v in pairs( out ) do
	selfdocout = selfdocout..'\t\''..q..'\' = '..v..',\n'		selfdocout = selfdocout..'\t\''..q..'\' = '..v..',\n'
	end		end
	selfdocout = selfdocout..'}'		selfdocout = selfdocout..'}\n'..
			'</syntaxhighlight>'
	out = selfdocout		out = selfdocout
	end		end

Tom.Reding: Allow self-documentation via docdoc

2023-11-14T15:45:55Z

Allow self-documentation via docdoc

← Previous revision		Revision as of 15:45, 14 November 2023
Line 44:		Line 44:

	if (documentation == nil) or --module only		if (documentation == nil) or --module only
	(documentation and documentation == '') ~~then~~		(documentation and documentation == '') or
			(documentation == 'docdoc') --self-documentation only
			then
	local out = {}		local out = {}
	for k, v in pairs( outList ) do		for k, v in pairs( outList ) do
	out[v] = k --output Q# as keys for easier searching within Module:Taxonbar		out[v] = k --output Q# as keys for easier searching within Module:Taxonbar
			end
			if (documentation == 'docdoc') then
			local selfdocout = 'myVariable = {\n'
			for q, v in pairs( out ) do
			selfdocout = selfdocout..'\t\''..q..'\' = '..v..',\n'
			end
			selfdocout = selfdocout..'}'
			out = selfdocout
	end		end
	return out		return out

Tom.Reding: Sync

2023-11-14T15:41:02Z

Sync

New page

local p = {}

--returns any combination of strict/lax/all acceptable instance-of's,
--either as a table for use inside [[Module:Taxonbar]] or another module,
--or as an ordered list for use in documentation.
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
else --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 = {}
for k, v in pairs( outList ) do
out[v] = k --output Q# as keys for easier searching within Module:Taxonbar
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
out = mw.ustring.gsub(out, '%s+$', '')
return out
end

end

return p