Module:Unsubst-infobox

local p = {}

local specialParams = {
	['$P'] = 'parameters',
	['$E'] = 'extra parameters',
	['$S1'] = 'parameter set 1',
	['$S2'] = 'parameter set 2',
	['$S3'] = 'parameter set 3', -- This should be the smallest set of 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 not frame.args['$P'] then
		error( '{{#invoke:Unsubst-infobox|}} requires parameter $P (parameter list)' )
	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 from special parameters
		local params = mw.text.split( frame.args['$P'], '%s*,%s*' )
		local sets, extra = {{}, {}, {}}, {}
		for k, v in ipairs( {frame.args['$S1'], frame.args['$S2'], frame.args['$S3']} ) do
			if v then
				local tmp = mw.text.split( v, '%s*,%s*' )
				for _, x in ipairs( tmp ) do sets[k][x] = true end
			end
		end
		if frame.args['$E'] then
			local tmp = mw.text.split( frame.args['$E'], '%s*,%s*' )
			for k, v in ipairs( tmp ) do extra[v] = true end
		end
		local aliases = {}
		if frame.args['$A'] then
			local list = mw.text.split( frame.args['$A'], '%s*,%s*' )
			args.years = table.concat( list, ' ' )
			for k, v in ipairs( list ) do
				local tmp = mw.text.split( v, '%s*>%s*' )
				aliases[tmp[1]] = aliases[tmp[2]]
			end
		end
		
		-- Pull information from parameter aliases
		for k, v in pairs( args ) do
			if aliases[k] and ((not args[aliases[k]]) or args[aliases[k]] == '') then args[aliases[k]] = v end
		end
		
		-- Replace parameter list with short version if full version not necessary
		local tmp = {}
		for k, v in ipairs( sets ) do
			if v ~= {} then 
				for x, _ in pairs( args ) do
					if not v[x] then
						tmp[k] = true
						break
					end
				end
			else
				tmp[k] = true
			end
			if not tmp[k] then params = v end
		end
		
		-- Indent parameters correctly
		local maxlength = 0
		for k, v in ipairs( params ) do
			local tmp = mw.ustring.len( v )
			if tmp > maxlength then maxlength = tmp end
		end
		
		for k, v in ipairs( params ) do
			if not extra[v] or (args[v] and args[v] ~= '') then
				ret = ret .. '\n| ' .. v .. string.rep(' ', (maxlength - mw.ustring.len( v ))) .. ' = ' .. (args[v] or '')
			end
		end
	
		ret = ret .. '\n}}'
		
		ret = mw.ustring.gsub(ret, '%s+\n', '\n')
		
		return ret
	else
		-- Not substing
		-- Just return the "body"
		return frame.args['$B']
	end
end

return p
Module:Unsubst-infobox

Usage

Parameter list
