Module:Aligned table

-- This module implements 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 local class = args['class'] or '' local style = args['style'] or '' local leftright = args['leftright'] or '' local fullwidth = args['fullwidth'] or '' if leftright ~= '' then colstyle[1] = 'text-align:left;' colstyle[2] = 'text-align:right;' end -- create the root table local root = mw.html.create('table') -- add table style for fullwidth if fullwidth ~= '' then root :css('width', '100%') :css('border-collapse', 'collapse') :css('border-spacing', '0px') :css('border', 'none') end -- add table classes if class ~= '' then root:addClass(class) end -- add table style if style ~= '' then root:cssText(style) end -- build arrays with the column styles and classes for i = 1,cols do		colclass[ i ] = colclass[ i ] or '' colstyle[ i ] = colstyle[ i ] or '' if isnotempty(args['colalign' .. tostring(i)]) then colstyle[ i ] = 'text-align:' .. args['colalign' .. tostring(i)] .. ';' .. 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['nowrap' .. tostring(i)]) then colstyle[ i ] = 'white-space:nowrap;' .. colstyle[ i ] end if isnotempty(args['colstyle' .. tostring(i)]) then colstyle[ i ] = colstyle[ i ] .. args['colstyle' .. tostring(i)] 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['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 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 = row:tag('td') if args['class' .. tostring(j) .. '.' .. tostring(i)] then cell:addClass(args['class' .. tostring(j) .. '.' .. tostring(i)]) elseif args['rowclass' .. tostring(j)] then cell:addClass(args['rowclass' .. tostring(j)]) elseif colclass[i] ~= '' then cell:addClass(colclass[i]) end if args['style' .. tostring(j) .. '.' .. tostring(i)] then cell:cssText(args['style' .. tostring(j) .. '.' .. tostring(i)]) elseif args['rowstyle' .. tostring(j)] then cell:cssText(args['rowstyle' .. tostring(j)]) elseif colstyle[i] ~= '' then cell:cssText(colstyle[i]) end cell:wikitext(args[cols*(j - 1) + i] or '') end end -- return the root table return tostring(root) end

return p