-- implements [[template:multiple bilde]]
local p = {}
local function isnotempty(s)
return s and s:match( '^%s*(.-)%s*$' ) ~= ''
end
local function renderbildeCell(bilde, width, height, link, alt, caption, textalign, istyle)
local root = mw.html.create('')
local altstr = '|alt=' .. (alt or '')
local linkstr = link and ('|link=' .. link) or ''
local widthstr = '|' .. tostring(width) .. 'px'
local bildediv = root:tag('div')
bildediv:addClass('thumbbilde')
bildediv:cssText(istyle)
if( height ) then
bildediv:css('height', tostring(height) .. 'px')
bildediv:css('overflow', 'hidden')
end
bildediv:wikitext('[[fil:' .. bilde .. widthstr .. 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
if isnotempty(w1) then
w = tonumber(w1)
elseif isnotempty(w2) then
w = tonumber(w2)
end
return w or 200
end
local function getPerRow(pstr, ic)
-- split string into array using any non-digit as a dilimiter
local pr = mw.text.split(pstr or '', '[^%d][^%d]*')
-- if split failed, assume a single row
if (#pr < 1) then
pr = {tostring(ic)}
end
-- convert the array of strings to an array of numbers,
-- adding any implied/missing numbers at the end of the array
local r = 1
local thisrow = tonumber(pr[1] or ic) or ic
local prownum = {}
while( ic > 0 ) do
prownum[r] = thisrow
ic = ic - thisrow
r = r + 1
-- use the previous if the next is missing and
-- make sure we don't overstep the number of bildes
thisrow = math.min(tonumber(pr[r] or thisrow) or ic, ic)
end
return prownum
end
local function renderMultiplebildes(frame)
local pargs = frame:getParent().args
local args = frame.args
local width = pargs['width'] or pargs['bredde'] or ''
local dir = pargs['direction'] or pargs['retning'] or ''
local align = pargs['align'] or args['align'] or pargs['justering'] or args['justering'] or ''
local capalign = pargs['caption_align'] or args['caption_align'] or pargs['justering_undertekst'] or args['justering_undertekst'] or ''
local totalwidth = pargs['total_width'] or args['total_width'] or pargs['totalbredde'] or args['totalbredde'] or ''
local imgstyle = pargs['bilde_style'] or args['bilde_style'] or pargs['bildestil'] or args['bildestil']
local header = pargs['header'] or pargs['title'] or pargs['overskrift'] or pargs['tittel'] or ''
local footer = pargs['footer'] or pargs['undertekst'] or ''
local perrow = nil
local thumbclass = {
["left"] = 'tleft',
["venstre"] = 'tleft',
["none"] = 'tnone',
["ingen"] = 'tnone',
["center"] = 'tnone',
["centre"] = 'tnone',
["senter"] = 'tnone',
["right"] = 'tright',
["høyre"] = 'tright'
}
-- find all the nonempty bildes
local bildenumbers = {}
local bildecount = 0
for k, v in pairs( pargs ) do
local i = tonumber(tostring(k):match( '^%s*bilde([%d]+)%s*$' ) or '0')
if( i > 0 and isnotempty(v) ) then
table.insert( bildenumbers, i)
bildecount = bildecount + 1
end
end
-- sort the bildenumbers
table.sort(bildenumbers)
-- create an array with the number of bildes per row
perrow = getPerRow(dir == 'vertikal' and '1' or pargs['perrad'], bildecount)
-- compute the number of rows
local rowcount = #perrow
-- store the bilde widths and compute row widths and maximum row width
local widths = {}
local widthmax = 0
local widthsum = {}
local k = 0
for r=1,rowcount do
widthsum[r] = 0
for c=1,perrow[r] do
k = k + 1
if( k <= bildecount ) then
local i = bildenumbers[k]
widths[k] = getWidth(width, pargs['bredde' .. i])
widthsum[r] = widthsum[r] + widths[k]
end
end
widthmax = math.max(widthmax, widthsum[r])
end
-- if total_width has been specified, rescale the bilde widths
local heights = {}
if( isnotempty(totalwidth) ) then
totalwidth = tonumber(totalwidth)
widthmax = 0
local k = 0
for r=1,rowcount do
local koffset = k
local tw = totalwidth - 4 * (perrow[r] - 1) - 12
local ar = {}
local arsum = 0
for j=1,perrow[r] do
k = k + 1
if( k<= bildecount ) then
local i = bildenumbers[k]
local h = tonumber( pargs['høyde' .. i] or '' ) or 0
if (h > 0) then
ar[j] = widths[k]/h
heights[k] = h
else
ar[j] = widths[k]/100
end
arsum = arsum + ar[j]
end
end
local ht = tw/arsum
local ws = 0
k = koffset
for j=1,perrow[r] do
k = k + 1
if( k<= bildecount ) then
local i = bildenumbers[k]
widths[k] = math.floor(ar[j]*ht + 0.5)
ws = ws + widths[k]
if heights[k] then
heights[k] = math.floor(ht)
end
end
end
widthsum[r] = ws
widthmax = math.max(widthmax, widthsum[r])
end
end
-- start building the array of bildes, if there are bildes
if( bildecount > 0 ) then
-- compute width of outer div
local bodywidth = 0
for r=1,rowcount do
if( widthmax == widthsum[r] ) then
bodywidth = widthmax + 4 * (perrow[r] - 1) + 12
end
end
-- The body has a min-width of 100, which needs to be taken into account on specific widths
bodywidth = math.max( 100, bodywidth - 8);
local bg = pargs['bakgrunnsfarge'] or ''
-- create the array of bildes
local root = mw.html.create('div')
root:addClass('thumb')
root:addClass('tmulti')
root:addClass(thumbclass[align] or 'tright')
if( align == 'center' or align == 'centre' ) then
root:addClass('center')
end
if( pargs['margin_top'] or args['margin_top']) then
root:css('margin-top', pargs['margin_top'] or args['margin_top'])
end
if( pargs['margin_bottom'] or args['margin_bottom']) then
root:css('margin-bottom', pargs['margin_bottom'] or 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) .. 'px')
:css('max-width', tostring(bodywidth) .. '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', pargs['header_align'] or 'center')
:css('background-color',
(pargs['header_background'] ~= '') and pargs['header_background'] or nil)
:wikitext(header)
end
-- loop through the bildes
local k = 0
for r=1,rowcount do
for j=1,perrow[r] do
k = k + 1
if( k <= bildecount ) then
local bildediv = div:tag('div')
bildediv:addClass('tsingle')
if dir ~= 'vertikal' then
bildediv:css('float', 'left')
end
if bg ~= '' then
bildediv:css('background-color', bg);
end
bildediv:css('margin', '1px')
local i = bildenumbers[k]
local img = pargs['bilde' .. i]
local w = widths[k]
bildediv:css('width', tostring(2 + w) .. 'px')
:css('max-width', tostring(2 + w) .. 'px')
bildediv:wikitext(renderbildeCell(img, w, heights[k],
pargs['lenke' .. i], pargs['alt' .. i],
pargs['bildetekst' .. i], capalign, imgstyle))
end
end
-- only float content gives a parent height:0, so add a clearing div
if dir ~= 'vertikal' then
div:tag('div')
:css('clear', 'left')
end
end
-- add the footer
if( isnotempty(footer) ) then
div:tag('div')
:addClass('thumbcaption')
:css('clear', 'left')
:css('text-align', pargs['footer_align'] or args['footer_align'] or 'left')
:css('background-color',
(pargs['footer_background'] ~= '') and pargs['footer_background'] or nil)
:wikitext(footer)
end
return tostring(root)
end
return ''
end
function p.render( frame )
return renderMultiplebildes( frame )
end
return p
