Module:Aligned table
-- This module implements {{aligned table}}
 local p = {}
 
 local function isnotempty(s)
 	return s and s:match( '^%s*(.-)%s*$' ) ~= ''
 end
 
 function p.table(frame)
 	local args = (frame.args[3] ~= nil) and frame.args or frame:getParent().args
 	local entries = {}
 	local colclass = {}
 	local colstyle = {}
 	local cols = tonumber(args['cols']) or 2
 
 	-- create the root table
 	local root = mw.html.create('table')
 
 	-- add table style for fullwidth
 	if isnotempty(args['fullwidth']) then
 		root
 			:css('width', '100%')
 			:css('border-collapse', 'collapse')
 			:css('border-spacing', '0px 0px')
 			:css('border', 'none')
 	end
 
 	-- add table classes
 	if isnotempty(args['class']) then
 		root:addClass(args['class'])
 	end
 
 	-- add table style
 	if isnotempty(args['style']) then
 		root:cssText(args['style'])
 	end
 
 	-- build arrays with the column styles and classes
 	if isnotempty(args['leftright']) then
 		colstyle[1] = 'text-align:left;'
 		colstyle[2] = 'text-align:right;'
 	end
 	for i = 1,cols do
 		colclass[ i ] = colclass[ i ] or ''
 		colstyle[ i ] = colstyle[ i ] or ''
 		if isnotempty(args['colstyle']) then
 			colstyle[ i ] = args['colstyle'] .. ';' .. colstyle[ i ]
 		end
 		if isnotempty(args['colalign' .. tostring(i)]) then
 			colstyle[ i ] = 'text-align:' .. args['colalign' .. tostring(i)] .. ';' .. colstyle[ i ]
 		elseif isnotempty(args['col' .. tostring(i) .. 'align']) then
 			colstyle[ i ] = 'text-align:' .. args['col' .. tostring(i) .. 'align'] .. ';' .. colstyle[ i ]
 		elseif isnotempty(args['align' .. tostring(i)]) then
 			colstyle[ i ] = 'text-align:' .. args['align' .. tostring(i)] .. ';' .. colstyle[ i ]
 		end
 		if isnotempty(args['colnowrap' .. tostring(i)]) then
 			colstyle[ i ] = 'white-space:nowrap;' .. colstyle[ i ]
 		elseif isnotempty(args['col' .. tostring(i) .. 'nowrap']) then
 			colstyle[ i ] = 'white-space:nowrap;' .. colstyle[ i ]
 		elseif isnotempty(args['nowrap' .. tostring(i)]) then
 			colstyle[ i ] = 'white-space:nowrap;' .. colstyle[ i ]
 		end
 		if isnotempty(args['colwidth' .. tostring(i)]) then
 			colstyle[ i ] = 'width:' .. args['colwidth' .. tostring(i)] .. ';' .. colstyle[ i ]
 		elseif isnotempty(args['col' .. tostring(i) .. 'width']) then
 			colstyle[ i ] = 'width:' .. args['col' .. tostring(i) .. 'width'] .. ';' .. colstyle[ i ]
 		elseif isnotempty(args['colwidth']) then
 			colstyle[ i ] = 'width:' .. args['colwidth'] .. ';' .. colstyle[ i ]
 		end
 		if isnotempty(args['colstyle' .. tostring(i)]) then
 			colstyle[ i ] = colstyle[ i ] .. args['colstyle' .. tostring(i)]
 		elseif isnotempty(args['col' .. tostring(i) .. 'style']) then
 			colstyle[ i ] = colstyle[ i ] .. args['col' .. tostring(i) .. 'style']
 		elseif isnotempty(args['style' .. tostring(i)]) then
 			colstyle[ i ] = colstyle[ i ] .. args['style' .. tostring(i)]
 		end
 		if isnotempty(args['colclass' .. tostring(i)]) then
 			colclass[ i ] =  args['colclass' .. tostring(i)]
 		elseif isnotempty(args['col' .. tostring(i) .. 'class']) then
 			colclass[ i ] =  args['col' .. tostring(i) .. 'class']
 		elseif isnotempty(args['class' .. tostring(i)]) then
 			colclass[ i ] =  args['class' .. tostring(i)]
 		end
 	end
 	-- compute the maximum cell index
 	local cellcount = 0
 	for k, v in pairs( args ) do
 		if type( k ) == 'number' then
 			cellcount = math.max(cellcount, k)
 		end
 	end
 	-- compute the number of rows
 	local rows = math.ceil(cellcount / cols)
 
 	-- build the table content
 	if isnotempty(args['title']) then
 		local caption = root:tag('caption')
 		caption:cssText(args['titlestyle'])
 		caption:wikitext(args['title'])
 	end
 	if isnotempty(args['above']) then
 		local row = root:tag('tr')
 		local cell = row:tag('th')
 		cell:attr('colspan', cols)
 		cell:cssText(args['abovestyle'])
 		cell:wikitext(args['above'])
 	end
 	for j=1,rows do
 		-- start a new row
 		local row = root:tag('tr')
 		row:css('vertical-align', 'top')
 		-- loop over the cells in each row
 		for i=1,cols do
 			local cell
 			if isnotempty(args['row' .. tostring(j) .. 'header']) then
 				cell = row:tag('th')
 			else
 				cell = row:tag('td')
 			end
 			if args['class' .. tostring(j) .. '.' .. tostring(i)] then
 				cell:addClass(args['class' .. tostring(j) .. '.' .. tostring(i)])
 			else
 				if args['rowclass' .. tostring(j)] then
 					cell:addClass(args['rowclass' .. tostring(j)])
 				elseif args['row' .. tostring(j) .. 'class'] then
 					cell:addClass(args['row' .. tostring(j) .. 'class'])
 				end
 				if colclass[i] ~= '' then
 					cell:addClass(colclass[i])
 				end
 			end
 			if args['style' .. tostring(j) .. '.' .. tostring(i)] then
 				cell:cssText(args['style' .. tostring(j) .. '.' .. tostring(i)])
 			else
 				if args['rowstyle' .. tostring(j)] then
 					cell:cssText(args['rowstyle' .. tostring(j)])
 				elseif args['row' .. tostring(j) .. 'style'] then
 					cell:cssText(args['row' .. tostring(j) .. 'style'])
 				end
 				if isnotempty(colstyle[i]) then
 					cell:cssText(colstyle[i])
 				end
 			end
 			cell:wikitext(args[cols*(j - 1) + i] or '')
 		end
 	end
 	-- return the root table
 	return tostring(root)
 end