Module:Image array

-- implements [[template:image array]]

local p = {}

local function isnotempty(s)
	return s and s:match( '^%s*(.-)%s*$' ) ~= ''
end

local function renderArrayCell( img, c, a, l, tc, t, w, h)
	local alt, link, text, border = '', '', t, ''

	if( isnotempty(a) ) then alt = 'alt=' .. a end
	if( isnotempty(l) ) then link = 'link=' .. l end
	if( isnotempty(tc) and not isnotempty(t)) then text = c	end
		
	local cell = mw.html.create('')
	if( img ) then
		cell:tag('div')
			:css('vertical-align', 'middle')
			:css('width', w .. 'px')
			:css('height', h .. 'px')
			:css('margin-left', 'auto')
			:css('margin-right', 'auto')
			:wikitext(mw.ustring.format('[[File:%s|%dx%dpx|%s|%s|%s]]', img, w, h, alt, link, text))
		cell:tag('div')
			:css('vertical-align', 'middle')
			:css('padding', '1px')
			:wikitext(c)
	end
	
	return tostring(cell)
end

local function imagearray( frame )
	local args = frame:getParent().args
	local width = tonumber(args['width'] or '60')
	local height = tonumber(args['height'] or '70')
	local perrow = tonumber(args['perrow'] or '4')
	local bw = tonumber(args['border-width'] or '0')
	local fs = args['font-size'] or '88%'
	local text = args['text'] or ''
	local border = ( bw > 0 ) and tostring(bw) .. 'px #aaa solid' or nil

	-- find all the nonempty image numbers
	local imagenums = {}
	local imagecount = 0
	for k, v in pairs( args ) do
		local i = tonumber(tostring(k):match( '^%s*image([%d]+)%s*$' ) or '0')
		if( i > 0 and isnotempty(v) ) then
			table.insert( imagenums, i )
			imagecount = imagecount + 1
		end
	end
	-- sort the image numbers
	table.sort(imagenums)
	
	-- compute the number of rows
	local rowcount = math.ceil(imagecount / perrow)

	-- start table
	root = mw.html.create('table')
	root
		:css('border-collapse','collapse')
		:css('text-align','center')
		:css('font-size', fs)
		:css('line-height','1.25em')
		:css('margin','auto')
		:css('width', tostring(width*perrow) .. 'px')

	-- loop over the images
	for j = 1, rowcount do
		local row = root:tag('tr')
		row:css('vertical-align', 'top')
		for k = 1, perrow do
			i = imagenums[(j-1)*perrow + k] or 0
			row:tag('td')
				:css('width', width .. 'px')
				:css(border and 'border' or '', border or '')
				:wikitext(renderArrayCell( 
					args['image' .. i], args['caption' .. i] or '', args['alt' .. i] or '', 
					args['link' .. i] or '', args['text'] or '', args['text' .. i] or '', 
					width, height))
		end
	end
    
	-- end table
    return tostring(root)
end
function p.array( frame )
    return imagearray( frame )
end
 
return p