Template:Multiple image

From Iwe

(Difference between revisions)
(Replaced content with '{{#invoke:Multiple image|render}}<noinclude>{{documentation}}</noinclude>')
Line 1: Line 1:
-
{{#invoke:Multiple image|render}}<noinclude>{{documentation}}</noinclude>
+
-- implements [[template:multiple image]]
 +
local p = {}
 +
 
 +
local autoscaledimages
 +
local nonautoscaledimages
 +
 
 +
local function isnotempty(s)
 +
return s and s:match( '^%s*(.-)%s*$' ) ~= ''
 +
end
 +
 
 +
local function removepx(s)
 +
return tostring(s or ''):match('^(.*)[Pp][Xx]%s*$') or s
 +
end
 +
 
 +
local function getdimensions(s, w, h)
 +
if tonumber(w) and tonumber(h) then
 +
nonautoscaledimages = true
 +
return tonumber(w), tonumber(h)
 +
end
 +
local file = s and mw.title.new('File:' .. mw.uri.decode(mw.ustring.gsub(s,'%|.*$',''), 'WIKI'))
 +
file = file and file.file or {width = 0, height = 0}
 +
w = tonumber(file.width) or 0
 +
h = tonumber(file.height) or 0
 +
autoscaledimages = true
 +
return w, h
 +
end
 +
 
 +
local function renderImageCell(image, width, height, link, alt, thumbtime, 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 thumbtimestr = ''
 +
 
 +
if widthstr == '|-nanpx' then
 +
widthstr = ''
 +
end
 +
if isnotempty( thumbtime ) then
 +
thumbtimestr = '|thumbtime=' .. thumbtime
 +
end
 +
 
 +
local imagediv = root:tag('div')
 +
imagediv:addClass('thumbimage')
 +
imagediv:cssText(istyle)
 +
if( height ) then
 +
imagediv:css('height', tostring(height) .. 'px')
 +
imagediv:css('overflow', 'hidden')
 +
end
 +
imagediv:wikitext('[[file:' .. image .. widthstr .. linkstr .. altstr .. thumbtimestr .. ']]')
 +
if isnotempty(caption) then
 +
local captiondiv = root:tag('div')
 +
captiondiv:addClass('thumbcaption')
 +
if isnotempty(textalign) then
 +
captiondiv:addClass('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 images
 +
thisrow = math.min(tonumber(pr[r] or thisrow) or ic, ic)
 +
end
 +
return prownum
 +
end
 +
 
 +
local function renderMultipleImages(frame)
 +
local pargs = frame:getParent().args
 +
local args = frame.args
 +
local width = removepx(pargs['width'] or '')
 +
local dir = pargs['direction'] or ''
 +
local border = pargs['border'] or args['border'] or ''
 +
local align = pargs['align'] or args['align'] or (border == 'infobox' and 'center' or '')
 +
local capalign = pargs['caption_align'] or args['caption_align'] or ''
 +
local totalwidth = removepx(pargs['total_width'] or args['total_width'] or '')
 +
local imgstyle = pargs['image_style'] or args['image_style']
 +
local header = pargs['header'] or pargs['title'] or ''
 +
local footer = pargs['footer'] or ''
 +
local imagegap = tonumber(pargs['image_gap'] or '1') or 1
 +
local perrow = nil
 +
local thumbclass = {
 +
["left"] = 'tleft',
 +
["none"] = 'tnone',
 +
["center"] = 'tnone',
 +
["centre"] = 'tnone',
 +
["right"] = 'tright'
 +
}
 +
 
 +
-- find all the nonempty images
 +
local imagenumbers = {}
 +
local imagecount = 0
 +
for k, v in pairs( pargs ) 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
 +
end
 +
end
 +
 
 +
-- sort the imagenumbers
 +
table.sort(imagenumbers)
 +
 
 +
-- create an array with the number of images per row
 +
perrow = getPerRow(dir == 'vertical' and '1' or pargs['perrow'], imagecount)
 +
 
 +
-- compute the number of rows
 +
local rowcount = #perrow
 +
 
 +
-- store the image widths and compute row widths and maximum row width
 +
local heights = {}
 +
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 <= imagecount ) then
 +
local i = imagenumbers[k]
 +
if( isnotempty(totalwidth) ) then
 +
widths[k], heights[k] = getdimensions(pargs['image' .. i], pargs['width' .. i], pargs['height' .. i])
 +
else
 +
widths[k] = getWidth(width, pargs['width' .. i])
 +
end
 +
widthsum[r] = widthsum[r] + widths[k]
 +
end
 +
end
 +
widthmax = math.max(widthmax, widthsum[r])
 +
end
 +
 
 +
-- make sure the gap is non-negative
 +
if imagegap < 0 then imagegap = 0 end
 +
 
 +
-- if total_width has been specified, rescale the image widths
 +
if( isnotempty(totalwidth) ) then
 +
totalwidth = tonumber(totalwidth)
 +
widthmax = 0
 +
local k = 0
 +
for r=1,rowcount do
 +
local koffset = k
 +
local tw = totalwidth - (3 + imagegap) * (perrow[r] - 1) - 12
 +
local ar = {}
 +
local arsum = 0
 +
for j=1,perrow[r] do
 +
k = k + 1
 +
if( k<= imagecount ) then
 +
local i = imagenumbers[k]
 +
local h = heights[k] 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<= imagecount ) then
 +
local i = imagenumbers[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 images, if there are images
 +
if( imagecount > 0 ) then
 +
-- compute width of outer div
 +
local bodywidth = 0
 +
for r=1,rowcount do
 +
if( widthmax == widthsum[r] ) then
 +
bodywidth = widthmax + (3 + imagegap) * (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['background color'] or ''
 +
-- create the array of images
 +
local root = mw.html.create('div')
 +
root:addClass('thumb')
 +
root:addClass('tmulti')
 +
-- root:addClass('tmulti-sandbox')
 +
root:addClass(thumbclass[align] or 'tright')
 +
 
 +
if( align == 'center' or align == 'centre' ) then
 +
root:addClass('center')
 +
end
 +
if( bg ~= '' ) then
 +
root:css('background-color', bg)
 +
end
 +
 
 +
local div = root:tag('div')
 +
div:addClass('thumbinner multiimageinner')
 +
div:css('width', tostring(bodywidth) .. 'px')
 +
:css('max-width', tostring(bodywidth) .. 'px')
 +
if( bg ~= '' ) then
 +
div:css('background-color', bg)
 +
end
 +
if( border == 'infobox' or border == 'none') then
 +
div:css('border', 'none')
 +
end
 +
-- add the header
 +
if( isnotempty(header) ) then
 +
div:tag('div')
 +
:addClass('trow')
 +
:tag('div')
 +
:addClass('theader')
 +
:css('text-align', pargs['header_align'])
 +
:css('background-color', pargs['header_background'])
 +
:wikitext(header)
 +
end
 +
-- loop through the images
 +
local k = 0
 +
for r=1,rowcount do
 +
local rowdiv = div:tag('div'):addClass('trow');
 +
for j=1,perrow[r] do
 +
k = k + 1
 +
if( k <= imagecount ) then
 +
local imagediv = rowdiv:tag('div')
 +
imagediv:addClass('tsingle')
 +
if bg ~= '' then
 +
imagediv:css('background-color', bg);
 +
end
 +
if ((imagegap > 1) and (j < perrow[r])) then
 +
imagediv:css('margin-right', tostring(imagegap) .. 'px')
 +
end
 +
local i = imagenumbers[k]
 +
local img = pargs['image' .. i]
 +
local w = widths[k]
 +
imagediv:css('width', tostring(2 + w) .. 'px')
 +
:css('max-width', tostring(2 + w) .. 'px')
 +
imagediv:wikitext(renderImageCell(img, w, heights[k],
 +
pargs['link' .. i], pargs['alt' .. i],
 +
pargs['thumbtime' .. i], pargs['caption' .. i], capalign, imgstyle))
 +
end
 +
end
 +
end
 +
-- add the footer
 +
if( isnotempty(footer) ) then
 +
local falign = string.lower(pargs['footer_align'] or args['footer_align'] or 'left')
 +
falign = (falign == 'centre') and 'center' or falign
 +
div:tag('div')
 +
:addClass('trow')
 +
:css('display', (falign ~= 'left') and 'flow-root' or 'flex')
 +
:tag('div')
 +
:addClass('thumbcaption')
 +
:css('text-align', (falign ~= 'left') and falign or nil)
 +
:css('background-color', pargs['footer_background'])
 +
:wikitext(footer)
 +
end
 +
return tostring(root)
 +
end
 +
return ''
 +
end
 +
 
 +
function p.render( frame )
 +
autoscaledimages = false
 +
nonautoscaledimages = false
 +
 
 +
return frame:extensionTag {name = 'templatestyles', args = {src = 'Multiple image/styles.css', wrapper = ".tmulti"}}
 +
.. renderMultipleImages( frame )
 +
.. (autoscaledimages and '[[Category:Pages using multiple image with auto scaled images]]' or '')
 +
.. (nonautoscaledimages and '[[Category:Pages using multiple image with manual scaled images]]' or '')
 +
end
 +
 
 +
return p

Revision as of 13:24, 30 November 2023

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

local autoscaledimages local nonautoscaledimages

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

local function removepx(s) return tostring(s or ):match('^(.*)[Pp][Xx]%s*$') or s end

local function getdimensions(s, w, h) if tonumber(w) and tonumber(h) then nonautoscaledimages = true return tonumber(w), tonumber(h) end local file = s and mw.title.new('File:' .. mw.uri.decode(mw.ustring.gsub(s,'%|.*$',), 'WIKI')) file = file and file.file or {width = 0, height = 0} w = tonumber(file.width) or 0 h = tonumber(file.height) or 0 autoscaledimages = true return w, h end

local function renderImageCell(image, width, height, link, alt, thumbtime, 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 thumbtimestr =

if widthstr == '|-nanpx' then widthstr = end if isnotempty( thumbtime ) then thumbtimestr = '|thumbtime=' .. thumbtime end

local imagediv = root:tag('div') imagediv:addClass('thumbimage') imagediv:cssText(istyle) if( height ) then imagediv:css('height', tostring(height) .. 'px') imagediv:css('overflow', 'hidden') end imagediv:wikitext('File:' .. image .. widthstr .. linkstr .. altstr .. thumbtimestr .. '') if isnotempty(caption) then local captiondiv = root:tag('div') captiondiv:addClass('thumbcaption') if isnotempty(textalign) then captiondiv:addClass('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 images thisrow = math.min(tonumber(pr[r] or thisrow) or ic, ic) end return prownum end

local function renderMultipleImages(frame) local pargs = frame:getParent().args local args = frame.args local width = removepx(pargs['width'] or ) local dir = pargs['direction'] or local border = pargs['border'] or args['border'] or local align = pargs['align'] or args['align'] or (border == 'infobox' and 'center' or ) local capalign = pargs['caption_align'] or args['caption_align'] or local totalwidth = removepx(pargs['total_width'] or args['total_width'] or ) local imgstyle = pargs['image_style'] or args['image_style'] local header = pargs['header'] or pargs['title'] or local footer = pargs['footer'] or local imagegap = tonumber(pargs['image_gap'] or '1') or 1 local perrow = nil local thumbclass = { ["left"] = 'tleft', ["none"] = 'tnone', ["center"] = 'tnone', ["centre"] = 'tnone', ["right"] = 'tright' }

-- find all the nonempty images local imagenumbers = {} local imagecount = 0 for k, v in pairs( pargs ) 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 end end

-- sort the imagenumbers table.sort(imagenumbers)

-- create an array with the number of images per row perrow = getPerRow(dir == 'vertical' and '1' or pargs['perrow'], imagecount)

-- compute the number of rows local rowcount = #perrow

-- store the image widths and compute row widths and maximum row width local heights = {} 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 <= imagecount ) then local i = imagenumbers[k] if( isnotempty(totalwidth) ) then widths[k], heights[k] = getdimensions(pargs['image' .. i], pargs['width' .. i], pargs['height' .. i]) else widths[k] = getWidth(width, pargs['width' .. i]) end widthsum[r] = widthsum[r] + widths[k] end end widthmax = math.max(widthmax, widthsum[r]) end

-- make sure the gap is non-negative if imagegap < 0 then imagegap = 0 end

-- if total_width has been specified, rescale the image widths if( isnotempty(totalwidth) ) then totalwidth = tonumber(totalwidth) widthmax = 0 local k = 0 for r=1,rowcount do local koffset = k local tw = totalwidth - (3 + imagegap) * (perrow[r] - 1) - 12 local ar = {} local arsum = 0 for j=1,perrow[r] do k = k + 1 if( k<= imagecount ) then local i = imagenumbers[k] local h = heights[k] 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<= imagecount ) then local i = imagenumbers[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 images, if there are images if( imagecount > 0 ) then -- compute width of outer div local bodywidth = 0 for r=1,rowcount do if( widthmax == widthsum[r] ) then bodywidth = widthmax + (3 + imagegap) * (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['background color'] or -- create the array of images local root = mw.html.create('div') root:addClass('thumb') root:addClass('tmulti') -- root:addClass('tmulti-sandbox') root:addClass(thumbclass[align] or 'tright')

if( align == 'center' or align == 'centre' ) then root:addClass('center') end if( bg ~= ) then root:css('background-color', bg) end

local div = root:tag('div') div:addClass('thumbinner multiimageinner') div:css('width', tostring(bodywidth) .. 'px') :css('max-width', tostring(bodywidth) .. 'px') if( bg ~= ) then div:css('background-color', bg) end if( border == 'infobox' or border == 'none') then div:css('border', 'none') end -- add the header if( isnotempty(header) ) then div:tag('div') :addClass('trow') :tag('div') :addClass('theader') :css('text-align', pargs['header_align']) :css('background-color', pargs['header_background']) :wikitext(header) end -- loop through the images local k = 0 for r=1,rowcount do local rowdiv = div:tag('div'):addClass('trow'); for j=1,perrow[r] do k = k + 1 if( k <= imagecount ) then local imagediv = rowdiv:tag('div') imagediv:addClass('tsingle') if bg ~= then imagediv:css('background-color', bg); end if ((imagegap > 1) and (j < perrow[r])) then imagediv:css('margin-right', tostring(imagegap) .. 'px') end local i = imagenumbers[k] local img = pargs['image' .. i] local w = widths[k] imagediv:css('width', tostring(2 + w) .. 'px') :css('max-width', tostring(2 + w) .. 'px') imagediv:wikitext(renderImageCell(img, w, heights[k], pargs['link' .. i], pargs['alt' .. i], pargs['thumbtime' .. i], pargs['caption' .. i], capalign, imgstyle)) end end end -- add the footer if( isnotempty(footer) ) then local falign = string.lower(pargs['footer_align'] or args['footer_align'] or 'left') falign = (falign == 'centre') and 'center' or falign div:tag('div') :addClass('trow') :css('display', (falign ~= 'left') and 'flow-root' or 'flex') :tag('div') :addClass('thumbcaption') :css('text-align', (falign ~= 'left') and falign or nil) :css('background-color', pargs['footer_background']) :wikitext(footer) end return tostring(root) end return end

function p.render( frame ) autoscaledimages = false nonautoscaledimages = false

return frame:extensionTag {name = 'templatestyles', args = {src = 'Multiple image/styles.css', wrapper = ".tmulti"}} .. renderMultipleImages( frame ) .. (autoscaledimages and '' or ) .. (nonautoscaledimages and '' or ) end

return p

Retrieved from "http://72.14.177.54/iwe/Template:Multiple_image"
Personal tools