From World Afropedia
Jump to: navigation, search

-- This module implements

local p = {}

local function trim(s) return (mw.ustring.gsub(s, "^%s*(.-)%s*$", "%1")) end

function p.gallery(frame) local origArgs -- If called via #invoke, use the args passed into the invoking template. -- Otherwise, for testing purposes, assume args are being passed directly in. if type(frame.getParent) == 'function' then origArgs = frame:getParent().args else origArgs = frame end

   -- ParserFunctions considers the empty string to be false, so to preserve the previous 

-- behavior of

, change any empty arguments to nil, so Lua will consider

   -- them false too.
   local args = {}
   for k, v in pairs(origArgs) do
   	if v ~=  then
   		args[k] = v
   	end

end

local tbl = mw.html.create('table')

if args.state then tbl :css('width', '100%') :addClass('collapsible') :addClass(args.state) end

if args.style then tbl:cssText(args.style) else tbl :css('background', 'transparent') :css('margin-top', '0.5em') end

if args.align then tbl:attr('align', args.align) end

if args.title then tbl :tag('tr') :tag('th') :css('text-align', 'center') :css('font-weight', 'bold') :wikitext(args.title) end

local mainCell = tbl:tag('tr'):tag('td')

local imageCount = math.ceil(#args / 2) local cellWidth = tonumber(args.cellwidth) or tonumber(args.width) or 180 local imgHeight = tonumber(args.height) or 180 local lines = tonumber(args.lines) or 2 local captionstyle = args.captionstyle

   for i = 1, imageCount do

local img = trim(args[i*2 - 1] or ) local caption = trim(args[i*2] or ) local imgWidth = tonumber(args['width' .. i]) or tonumber(args.width) or 180 local alt = args['alt' .. i] or

local textWidth if cellWidth < 30 then textWidth = imgHeight + 27 else textWidth = cellWidth + 7 end

if img ~= then local imgTbl = mainCell:tag('table')

imgTbl :css('width', (cellWidth + 20) .. 'px') :css('float', 'left') :css('border-collapse', 'collapse') :css('margin', '3px') :tag('tr') :tag('td') :css('height', (imgHeight + 20) .. 'px') :css('border', '1px solid #CCCCCC') :css('background-color', '#F8F8F8') :css('padding', '0px') :css('text-align', 'center') :wikitext(string.format('center|border|%dx%dpx|alt=%s|%s', img, imgWidth, imgHeight, alt, caption)) :done() :done() :tag('tr') :css('vertical-align', 'top') :tag('td') :css('display', 'block') :css('font-size', '1em') :css('height', (0.2 + 1.5*lines) .. 'em') :css('padding', '0px') :tag('div') :addClass('gallerytext') :css('height', (0.1 + 1.5*lines) .. 'em') :css('width', textWidth .. 'px') :css('line-height', '1.3em') :css('padding', '2px 6px 1px 6px') :css('overflow-y', 'auto') :css('margin', '0px') :css('border', 'none') :css('border-width', '0px') :cssText(captionstyle) :wikitext(caption .. ' ') end end

if args.footer then tbl :tag('tr') :tag('td') :css('text-align', 'right') :css('font-size', '80%') :css('line-height', '1em') :wikitext(args.footer) end if args.perrow then tbl:css('width', 8 + (cellWidth + 20 + 6)*tonumber(args.perrow) .. 'px') end

return tostring(tbl) end

return p