Module:Multiple image

2014-04-24T23:32:10Z

198.102.153.1: test

-- 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('[[file:' .. image .. '|' .. tostring(width) .. 'px' .. linkstr .. altstr .. ']]')
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(w1, w2)
local w = 0
if isnotempty(w1) then
w = tonumber(w1)
elseif isnotempty(w2) then
w = tonumber(w2)
else
w = 200
end
return w
end

local function renderMultipleImages(frame)
local args = frame:getParent().args
local width = args['width'] or ''
local dir = args['direction'] or ''
local align = args['align'] or ''
local captionalign = args['caption_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])
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)*150 + 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
if( align == 'center' or align == 'centre' ) then
root:addClass('center')
end
if( args['margin_top'] ) then
root:css('margin-top', args['margin_top'])
end
if( args['margin_bottom'] ) then
root:css('margin-bottom', args['margin_bottom'])
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], captionalign))
end
-- add the footer
if( isnotempty(footer) ) then
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

The Official Website for Mark Eitzel & American Music Club - User contributions [en]

Module:Multiple image