Module:Infobox cabinet members

Documentation for this module may be created at Module:Infobox cabinet members/doc

require('Module:No globals')
local getArgs = require('Module:Arguments').getArgs

local p = {}
function p.infobox(frame, args)
	if not args then
		args = getArgs(frame)
	end
	mw.logObject(args)
	local root = mw.html.create()
	local columns = '4'

	root = root
		:tag('table')
		:addClass('infobox')
		:css('width', 'auto')
		:css('text-align', 'left')
		:css('line-height', '1.2em')
		:css('margin-left', '1em')
		:css('margin-right', '0em')
		:css('float', 'right')
		:css('clear', 'right')

	root
		:tag('tr'):tag('td')
			:attr('colspan', columns)
			:css('text-align', 'center')
			:wikitext(args['topimage'])
		:tag('tr'):tag('td')
			:attr('colspan', columns)
			:css('text-align', 'center')
			:wikitext(args['topcaption'])
		:tag('tr'):tag('th')
			:attr('colspan', columns)
			:css('line-height','1.5em')
			:css('font-size','110%')
			:css('background','#DCDCDC')
			:css('text-align', 'center')
			:wikitext(args['above'])
--TODO: Use infobox image!
		:tag('tr'):tag('td')
			:attr('colspan', columns)
			:css('text-align', 'center')
			:wikitext(args['image'])
		:tag('tr'):tag('td')
			:attr('colspan', columns)
			:css('text-align', 'center')
			:wikitext(args['caption'])
		:tag('tr')
			:tag('th')
				:wikitext('Office')
			:tag('th')
				:wikitext('Name')
			:tag('th')
				:wikitext('Party')
			:tag('th')
				:wikitext('Term')
		:tag('tr')
			:tag('td')
				:attr('colspan', columns)
				:css('background', '#000')
		
		local officeNums = {}
		local subRows = {}
		
		for k,v in pairs(args) do
			k = tostring(k)
			local num = k:match('^office(%d+)$') 
			if num then 
				table.insert(officeNums, tonumber(num))
				if subRows[tonumber(num)] == nil then subRows[tonumber(num)] = {} end
			end
			local n,l = k:match('^name(%d)+([a-z])$')
			if n and args['office' .. n] then
				n = tonumber(n)
				if subRows[n] == nil then subRows[n] = {} end
				table.insert(subRows[n], l)
			end
		end
		table.sort(officeNums)
		mw.logObject(officeNums)
		
		for i, num in ipairs(officeNums) do 
			if num > 1 then
				root:tag('tr')
					:tag('td')
						:attr('colspan',columns)
						:css('background','#D1D1D1')
			end
			local r = table.sort(subRows[num] or {})
			local row = root:tag('tr')
			row:tag('td')
				:attr('rowspan', r and (#r > 1) and #r or nil)
				:wikitext(args['office' .. num])
			for j, l in ipairs(r) do
				row:tag('th')
					:css('font-weight', 'bold')
					:wikitext(args['name'..num..l])
				:tag('td')
					:wikitext(args['party'..num..l])
				:tag('td')
					:wikitext(args['term'..num..l])
			end
		end

	return tostring(root)
end
return p