Module:Infobox cabinet members

require('strict') local getArgs = require('Module:Arguments').getArgs

local p = {} function p.infobox(frame, args) if not args then args = getArgs(frame) end

local root = mw.html.create local columns = args.party_column and 4 or 3 mw.log(columns) if args.caption then args.caption = ' ' .. tostring(			mw.html.create('span')				:cssText(args.captionstyle)				:wikitext(args.caption)			) end if args.topcaption then args.topcaption = ' ' .. tostring(			mw.html.create('span')				:cssText(args.topcaptionstyle)				:wikitext(args.topcaption)			) end local floatcss = { left = 'margin-left:0; margin-right:1em; float:left; clear:left;', center = 'margin-left:auto; margin-right:auto; float:none; clear:none;', none = 'margin-left:0; margin-right:0; float:none; clear:none;', right = 'margin-left:1em; margin-right:0; float:right; clear:right;' }	root = root :tag('table') :addClass('infobox') :css('width', 'auto') :css('text-align', 'left') :css('line-height', '1.2em') :cssText(args.float and floatcss[(args.float):lower] or floatcss['right'])

if args.topimage then root :tag('tr'):tag('td') :attr('colspan', columns) :css('text-align', 'center') :wikitext(require('Module:InfoboxImage').InfoboxImage{args = {							image = args.topimage,							size = args.topimagesize,							sizedefault = 'frameless',							upright = 1,							alt = args.topimagealt						}} .. (args.topcaption or '')					) end if args.above then root :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) end if args.image then root :tag('tr'):tag('td') :attr('colspan', columns) :css('text-align', 'center') :wikitext(require('Module:InfoboxImage').InfoboxImage{args = {							image = args.image,							size = args.imagesize,							sizedefault = 'frameless',							upright = 1,							alt = args.imagealt						}} .. (args.caption or '')					) end local header = root:tag('tr') header:tag('th') :wikitext(args.office_label or 'Office') header:tag('th') :wikitext(args.name_label or 'Name') if args.party_column then header:tag('th') :wikitext(args.party_label or 'Party') end header:tag('th') :wikitext(args.term_label or 'Term') root:tag('tr') :tag('td') :attr('colspan', columns) :css('background', '#000')

local subRows = {} local keys = {} for k,v in pairs(args) do		k = tostring(k) local num = k:match('^office(%d+)$') if num and args['name' .. num .. 'a'] then num = tonumber(num) if subRows[num] == nil then subRows[num] = {} table.insert(keys, num) end end

local num,l = k:match('^name(%d+)([a-z])$') if num then num = tonumber(num) if subRows[num] == nil then subRows[num] = {} table.insert(keys,num) end subRows[num][l] = l		end end table.sort(keys)

for i, num in ipairs(keys) do 		if i > 1 then root:tag('tr') :tag('td') :attr('colspan',columns) :css('background','#D1D1D1') end local r = {} for j,l in pairs(subRows[num]) do			table.insert(r,l) end table.sort(r) local row = root:tag('tr') local ocell = row:tag('td'):wikitext(args['office' .. num]) local subrow = 0 for j, l in pairs(r) do			subrow = subrow + 1 if subrow > 1 then row:tag('tr') end row:tag('th') :css('font-weight', 'bold') :wikitext(args['name'..num..l]) if args.party_column then row:tag('td') :wikitext(args['party'..num..l]) end row:tag('td') :wikitext(args['term'..num..l]) end ocell:attr('rowspan', (subrow > 1) and subrow or nil) end if args.below then root:tag('tr') :tag('td') :attr('colspan', columns) :css('border-top', '#D1D1D1 2px solid') :wikitext(args.below) end

return tostring(root) end return p