Módulo:Imagen múltiple
Ir a la navegación
Ir a la búsqueda
Uso
Este módulo permite estructurar la plantilla de imagen múltiple.
- Funciones
Para que no exista conflicto con los múltiples artículos que usan la plantilla, el módulo debe tener los mismos parámetros de la plantilla (ver la documentación) así como reconocer los que están en inglés.
- Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla ⇔ Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla ⇔ Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla ⇔ Plantilla:Tecla.
- Plantilla:Tecla: Por default.
- Plantilla:Tecla: Analizar la posibilidad de cambiarlo a
enlace
(aunque las imágenes corrientes también usan|link=
).
-- 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('Archivo:' .. 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('[[Archivo:' .. 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['ancho'] or pargs['width'] or '') local dir = pargs['dirección'] or pargs['direction'] or '' local border = pargs['border'] or pargs['borde'] or args['border'] or args['borde'] or '' local align = pargs['posición_tabla'] or pargs['align'] or args['align'] or '' local capalign = pargs['alineación_texto'] or pargs['caption_align'] or args['caption_align'] or '' local totalwidth = removepx(pargs['ancho_total'] or pargs['total_width'] or args['total_width'] or '') local imgstyle = pargs['image_style'] or args['image_style'] local header = pargs['título'] or pargs['title'] or pargs['header'] or '' local footer = pargs['footer'] or pargs['texto'] or pargs['pie_imagen'] or '' local imagegap = tonumber(pargs['image_gap'] or pargs['foto_espaciada'] 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 tostring(k):match( '^%s*foto([%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'] or pargs['por fila'], 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] or pargs['foto' .. i], pargs['width' .. i] or pargs['ancho' .. i], pargs['height' .. i] or pargs['alto' .. i]) else widths[k] = getWidth(width, pargs['width' .. i] or pargs['ancho' .. 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 pargs['color de fondo'] 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') 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'] or pargs['posición_título'] or 'center') :css('color de fondo', pargs['fondo_de_título']) :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] or pargs['foto' .. 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] or pargs['texto' .. i], capalign, imgstyle)) end end end -- add the footer if( isnotempty(footer) ) then div:tag('div') :addClass('trow') :css('display', (falign ~= 'left') and 'flow-root' or 'flex') :tag('div') :addClass('thumbcaption') :css('text-align', pargs['posición'] or pargs['footer_align'] or args['footer_align'] or 'left') :css('background-color', pargs['fondo_de_texto'] or pargs['footer_background'] or 'transparent') :wikitext(footer) end return tostring(root) end return '' end function p.render( frame ) autoscaledimages = false nonautoscaledimages = false return frame:extensionTag {name = 'templatestyles', args = {src = 'Imagen múltiple/styles.css', wrapper = ".tmulti"}} .. renderMultipleImages( frame ) .. (autoscaledimages and '[[Categoría:Páginas que usan imágenes múltiples con imágenes escaladas automáticamente]]' or '') .. (nonautoscaledimages and '[[Categoría:Páginas que usan imágenes múltiples con imágenes escaladas manualmente]]' or '') end return p