● Home ● Random ● Nearby ● Log in ● Settings ● Donate ● About Wikipedia ● Disclaimers

View source for Module:Multiple image

← Module:Multiple image You do not have permission to edit this page, for the following reason:

This page is currently protected so that only template editors and administrators can edit it.

Why is the page protected?

Some templates and site interface pages are permanently protected due to visibility. Most templates can be edited by anyone.
The reason for protection can be found in the protection log. If there are no relevant entries in the protection log, the page may have been moved after being protected.

What can I do?

Discuss this page with others.
For move-protected pages, see requested moves.
Request that the page's protection level be reduced.
Find out more about how to get started editing Wikipedia.
If you have noticed an error or have a suggestion for a simple, non-controversial change, you can submit an edit request by clicking the button below and following the instructions. An administratorortemplate editor may then make the change on your behalf. Please check the talk page first in case the issue is already being discussed.
Submit an edit request
If you wrote any text, please save it temporarily to your device until you can edit this page.

You can view and copy the source of this page:

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

local autoscaledimages
local nonautoscaledimages

local function isnotempty(<span class="ltr">s</span>)
 return s and s:match( '^%s*(.-)%s*$' ) ~= ''
end

local function removepx(<span class="ltr">s</span>)
 return tostring(s or ''):match('^(.*)[<span class="ltr">Pp</span>][<span class="ltr">Xx</span>]%s*$') or s
end

local function getdimensions(s, w, h)
 if tonumber(<span class="ltr">w</span>) and tonumber(<span class="ltr">h</span>) then
  nonautoscaledimages = true
  return tonumber(<span class="ltr">w</span>), tonumber(<span class="ltr">h</span>)
 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, border)
 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((border ~= 'infobox') and 'thumbimage' or nil)
 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((border ~= 'infobox') and 'thumbcaption' or nil)
  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 <<span class="ltr">1</span>) then
  pr = {tostring(<span class="ltr">ic</span>)}
 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[<span class="ltr">1</span>] or ic) or ic
 local prownum = {}
 while( ic > 0 ) do
  prownum[<span class="ltr">r</span>] = 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[<span class="ltr">r</span>] 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(<span class="ltr">k</span>):match( '^%s*image([%d]+)%s*$' ) or '0')
  if( i > 0 and isnotempty(<span class="ltr">v</span>) ) 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[<span class="ltr">r</span>] = 0
  for c=1,perrow[<span class="ltr">r</span>] do
   k = k + 1
   if( k <= imagecount ) then
    local i = imagenumbers[<span class="ltr">k</span>]
    if( isnotempty(totalwidth) ) then
     widths[<span class="ltr">k</span>], heights[<span class="ltr">k</span>] = getdimensions(pargs['image' .. i], pargs['width' .. i], pargs['height' .. i])
    else
     widths[<span class="ltr">k</span>] = getWidth(width, pargs['width' .. i])
    end
    widthsum[<span class="ltr">r</span>] = widthsum[<span class="ltr">r</span>] + widths[<span class="ltr">k</span>]
   end
  end
  widthmax = math.max(widthmax, widthsum[<span class="ltr">r</span>])
 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[<span class="ltr">r</span>] - 1) - 12
   local ar = {}
   local arsum = 0
   for j=1,perrow[<span class="ltr">r</span>] do
    k = k + 1
    if( k<= imagecount ) then
     local i = imagenumbers[<span class="ltr">k</span>]
     local h = heights[<span class="ltr">k</span>] or 0
     if (h > 0) then
      ar[<span class="ltr">j</span>] = widths[<span class="ltr">k</span>]/h
      heights[<span class="ltr">k</span>] = h
     else
      ar[<span class="ltr">j</span>] = widths[<span class="ltr">k</span>]/100
     end
     arsum = arsum + ar[<span class="ltr">j</span>]
    end
   end
   local ht = tw/arsum
   local ws = 0
   k = koffset
   for j=1,perrow[<span class="ltr">r</span>] do
    k = k + 1
    if( k<= imagecount ) then
     local i = imagenumbers[<span class="ltr">k</span>]
     widths[<span class="ltr">k</span>] = math.floor(ar[<span class="ltr">j</span>]*ht + 0.5)
     ws = ws + widths[<span class="ltr">k</span>]
     if heights[<span class="ltr">k</span>] then
      heights[<span class="ltr">k</span>] = math.floor(<span class="ltr">ht</span>)
     end
    end
   end
   widthsum[<span class="ltr">r</span>] = ws
   widthmax = math.max(widthmax, widthsum[<span class="ltr">r</span>])
  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[<span class="ltr">r</span>] ) then
    bodywidth = widthmax + (3 + imagegap) * (perrow[<span class="ltr">r</span>] - 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((border ~= 'infobox') and 'thumbinner multiimageinner' or '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'] ~= '') and pargs['header_background'] or nil)
     :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[<span class="ltr">r</span>] 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 k < imagecount then
      if dir == 'vertical' then
       imagediv:css('margin-bottom', tostring(imagegap) .. 'px') 
      elseif j < perrow[<span class="ltr">r</span>] then
       imagediv:css('margin-right', tostring(imagegap) .. 'px')
      end
     end
     local i = imagenumbers[<span class="ltr">k</span>]
     local img = pargs['image' .. i]
     local w = widths[<span class="ltr">k</span>]
     imagediv:css('width', tostring(2 + w) .. 'px')
      :css('max-width', tostring(2 + w) .. 'px')
     imagediv:wikitext(renderImageCell(img, w, heights[<span class="ltr">k</span>],
      pargs['link' .. i], pargs['alt' .. i],
      pargs['thumbtime' .. i], pargs['caption' .. i], capalign, imgstyle, border))
    end
   end
  end
  -- add the footer
  if( isnotempty(footer) ) then
   local falign = string.lower(pargs['footer_align'] or args['footer_align'] or '')
   falign = (falign == 'centre') and 'center' or falign
   div:tag('div')
    :addClass('trow')
    :css('display', (falign ~= '') and 'flow-root' or 'flex')
    :tag('div')
     :addClass((border ~= 'infobox') and 'thumbcaption' or nil)
     :css('text-align', (falign ~= '') and falign or nil)
     :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 )
 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

p[''] = function( frame ) return p.render( frame:newChild{title = frame:getTitle()} ) end

return p

Pages transcluded onto the current version of this page (help): ●Template:High-use (view source) (template editor protected) ●Template:Ml (view source) (semi-protected) ●Template:Module link (view source) (semi-protected) ●Template:Multiple image/styles.css (view source) (template editor protected) ●Template:Uses TemplateStyles (view source) (semi-protected) ●Module:Arguments (view source) (protected) ●Module:Documentation (view source) (template editor protected) ●Module:Documentation/config (view source) (template editor protected) ●Module:Documentation/styles.css (view source) (template editor protected) ●Module:Effective protection expiry (view source) (protected) ●Module:Effective protection level (view source) (protected) ●Module:File link (view source) (template editor protected) ●Module:High-use (view source) (template editor protected) ●Module:List (view source) (protected) ●Module:Message box (view source) (protected) ●Module:Message box/configuration (view source) (protected) ●Module:Message box/ombox.css (view source) (protected) ●Module:Multiple image (view source) (template editor protected) ●Module:Multiple image/doc (edit) ●Module:Protection banner (view source) (template editor protected) ●Module:Protection banner/config (view source) (template editor protected) ●Module:Separated entries (view source) (protected) ●Module:TNT (view source) (template editor protected) ●Module:TableTools (view source) (protected) ●Module:Transclusion count (view source) (template editor protected) ●Module:Transclusion count/data/M (view source) (extended confirmed protected) ●Module:Uses TemplateStyles (view source) (semi-protected) ●Module:Uses TemplateStyles/config (view source) (semi-protected) ●Module:Yesno (view source) (protected) Return to Module:Multiple image. Retrieved from "https://en.wikipedia.org/wiki/Module:Multiple_image"

Languages

This page is not available in other languages.

●Privacy policy ●About Wikipedia ●Disclaimers ●Contact Wikipedia ●Code of Conduct ●Developers ●Statistics ●Cookie statement ●Terms of Use ●Desktop