Module:Multiple image

-- implements template:multiple image local p = {}

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

local function renderImageCell(image, width, link, alt, caption, textalign) local root = mw.html.create('') local altstr = '|alt=' .. (alt or '') local linkstr = link and ('|link=' .. link) or '' local imagediv = root:tag('div') imagediv:addClass('thumbimage') imagediv:wikitext('') if isnotempty(caption) then local captiondiv = root:tag('div') captiondiv:addClass('thumbcaption') captiondiv:css('clear', 'left') if isnotempty(textalign) then captiondiv:css('text-align', textalign) end captiondiv:wikitext(caption) end return tostring(root) end

local function getWidth(w0, w1, w2) local w = 0 if isnotempty(w0) then w = tonumber(w0) elseif isnotempty(w1) then w = tonumber(w1) else w = tonumber(w2) end return w end

local function renderMultipleImages(frame) local args = frame:getParent.args local defaultwidth = '200' local width = args['width'] or '' local dir = args['direction'] or '' local align = args['align'] or '' local textalign = args['text_align'] or args['text-align'] or '' local totalwidth = args['total_width'] or '' local header = args['header'] or args['title'] or '' local footer = args['footer'] or '' local thumbclass = { ["left"] = 'tleft', ["none"] = 'tnone', ["center"] = 'tnone', ["centre"] = 'tnone', ["right"] = 'tright' }

-- find all the nonempty images and corresponding widths -- also compute the sum of widths and maximum width local imagenumbers = {} local widths = {} local imagecount = 0 local widthmax = 0 local widthsum = 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( imagenumbers, i)			imagecount = imagecount + 1 local w = getWidth(width, args['width' .. i], defaultwidth) if (isnotempty( totalwidth ) and dir ~= 'vertical') then -- rescale the width if height has been specified local h = args['height' .. i] or '' if( isnotempty(h) ) then w = math.floor(w/tonumber(h)*100 + 0.5) end end -- compute maximum width and width sum widthmax = math.max(widthmax, w)			widthsum = widthsum + w			-- store the modified width widths[i] = w		end end

-- sort the imagenumbers table.sort(imagenumbers) -- if total_width has been specified, rescale the image widths if( isnotempty(totalwidth) ) then totalwidth = tonumber(totalwidth) if( dir == 'vertical' ) then width = totalwidth - 12 else local tw = totalwidth - 4 * (imagecount - 1) - 12 local ws = 0 for k=1,imagecount do				local i = imagenumbers[k] widths[i] = math.floor((tw/widthsum)*widths[i] + 0.5) ws = ws + widths[i] end widthsum = ws		end end

-- start building the array of images, if there are images if( imagecount > 0 ) then local bodywidth = 0 local bg = args['background color'] or '' -- create the array of images local root = mw.html.create('div') root:addClass('thumb') root:addClass(thumbclass[align] or 'tright') if( dir == 'vertical') then bodywidth = widthmax + 12 else bodywidth = widthsum + 4 * (imagecount - 1) + 12 end --		root:css('width', tostring(bodywidth) .. 'px') if( align == 'center' or align == 'centre' ) then root:css('margin', '0 auto') end if( bg ~= '' ) then root:css('background-color', bg) end local div = root:tag('div') div:addClass('thumbinner') div:css('width', tostring(bodywidth - 8) .. 'px') if( bg ~= '' ) then div:css('background-color', bg) end -- add the header if( isnotempty(header) ) then div:tag('div') :css('clear', 'both') :css('font-weight', 'bold') :css('text-align', args['header_align'] or 'center') :css('background-color', args['header_background'] or 'transparent') :wikitext(header) end -- loop through the images for k=1,imagecount do			imagediv = div:tag('div') if dir ~= 'vertical' then imagediv:css('float', 'left') end imagediv:css('margin', '1px') local i = imagenumbers[k] local img = args['image' .. i]			local w = widths[i] imagediv:css('width', tostring(2 + w) .. 'px') imagediv:wikitext(renderImageCell(img, w, args['link' .. i], args['alt' .. i], args['caption' .. i], textalign)) end -- add the footer if( isnotempty(footer) ) then class="thumbcaption" style="clear: left; text-align: ; background: " div:tag('div') :addClass('thumbcaption') :css('clear', 'left') :css('text-align', args['footer_align'] or 'left') :css('background-color', args['footer_background'] or 'transparent') :wikitext(footer) end return tostring(root) end return '' end

function p.render( frame ) return renderMultipleImages( frame ) end return p