Jump to content

Module:Unsubst-infobox

Permanently protected module
From Wikipedia, the free encyclopedia
This is an old revision of this page, as edited by Jc86035 (talk | contribs) at 16:01, 13 May 2017 (?). The present address (URL) is a permanent link to this revision, which may differ significantly from the current revision.

local p = {}

local specialParams = {
	['$P'] = 'parameters',
	['$A'] = 'aliases',
	['$B'] = 'template content'
}

p[''] = function ( frame )
	if not frame:getParent() then
		error( '{{#invoke:Unsubst-infobox|}} makes no sense without a parent frame' )
	end
	if not frame.args['$B'] then
		error( '{{#invoke:Unsubst-infobox|}} requires parameter $B (template content)' )
	end
	
	if mw.isSubsting() then
		---- substing
		-- Combine passed args with passed defaults
		local args = {}
		for k, v in pairs( frame.args ) do
			if not specialParams[k] then
				if v == '__DATE__' then
					v = mw.getContentLanguage():formatDate( 'F Y' )
				end
				args[k] = v
			end
		end
		for k, v in pairs( frame:getParent().args ) do
			args[k] = v
		end

		-- Build an equivalent template invocation
		-- First, find the title to use
		local titleobj = mw.title.new(frame:getParent():getTitle())
		local title
		if titleobj.namespace == 10 then -- NS_TEMPLATE
			title = titleobj.text
		elseif titleobj.namespace == 0 then -- NS_MAIN
			title = ':' .. titleobj.text
		else
			title = titleobj.prefixedText
		end

		-- Build the invocation body with numbered args first, then named
		local ret = '{{' .. title
		for k, v in ipairs( args ) do
			if string.find( v, '=', 1, true ) then
				-- likely something like 1=foo=bar, we need to do it as a named arg
				break
			end
			if not aliases[k] then
				ret = ret .. '|' .. v
				args[k] = nil
			end
		end
		
		-- Pull lists of parameters and aliases from special parameters
		local params = mw.text.split( frame.args['$P'], '%s*,%s*' )
		local aliases = {}
		for k, v in ipairs( mw.text.split( frame.args['$A'], '%s*,%s*' ) ) do
			local tmp = mw.text.split( v, '%s*=%s*' )
			aliases[tmp[1]] = aliases[tmp[2]]
		end
		
		-- Indent parameters correctly
		local maxlength = 0
		for k, v in ipairs( params ) do
			if not v or mw.ustring.match( v, '^%s*$') then
				table.remove( params, k)
			else
				local tmp = mw.ustring.len( v )
				if tmp > maxlength then maxlength = tmp end
			end
		end
		
		-- Pull information from parameter aliases
		for k, v in pairs( args ) do
			if aliases[k] and (args[aliases[k]] or args[aliases[k]] == '') then args[aliases[k]] = v end
		end
		
		for k, v in ipairs( params ) do
			ret = ret .. '\n| ' .. v .. string.rep(' ', (maxlength - mw.ustring.len( v ))) .. ' = ' .. args[v]
		end
		
		return ret .. '\n}}'
	else
		-- Not substing
		-- Just return the "body"
		return frame.args['$B']
	end
end

return p