---- This module implements -- This module was created using code taken directly from --require('strict')
local p =
local getArgs = require('Module:Arguments').getArgs
local tracking, preview =,
local function checkargs(args) for k, v in pairs(args) do if v ~= then if k and type(k)
'event' or k
'name' or k
'imageright' or k
'above' or k
'alignresults' or k
'width' or k
'float' or k
'prev' or k
'categories' or k
'demo' then -- valid for doc page else -- invalid local vlen = mw.ustring.len(k) k = mw.ustring.sub(k, 1, (vlen < 25) and vlen or 25) k = mw.ustring.gsub(k, '[^%w\-_ ]', '?') table.insert(tracking, '') table.insert(preview, '"' .. k .. '"') end end end endend
function p.sidebar(frame, args)
if not args then args = getArgs(frame) end local root = mw.html.create
root = root :tag('table') :addClass('sidebar-games-events') :addClass(args.float
'none' and 'sidebar-games-events-none' or nil) :addClass('sidebar') :addClass('nomobile') :css('width', args.width or nil) :css('max-width', args.maxwidth or nil)
-- enumerate the rows and count the columns local cols = 1 local colindex = local lets = local rowNums = local subevents = 0 local hasevents = false
for k, v in pairs(args) do k = .. k -- find rows local num = k:match('^event(%d+)$') or k:match('^image(%d+)$') or k:match('^title(%d+)$') or k:match('^type(%d+)[a-e]$') or k:match('^event(%d+)%.%d+$') or k:match('^results(%d+)%.%d+[a-e]?$') if num then table.insert(rowNums, tonumber(num)) end -- find number of columns if k:match('^results%d+%.(%d+)$') then cols = (2 > cols) and 2 or cols end -- find number of columns based on let(s) local let = k:match('^results%d+%.%d+([a-e])$') or k:match('^type%d+([a-e])$') if let and colindex[let] then local n = tonumber(colindex[let]) cols = (n > cols) and n or cols end -- find subevents local subnum = k:match('^results%d+%.(%d+)[a-e]?$') or k:match('^event%d+%.(%d+)$') if subnum then subnum = tonumber(subnum) subevents = (subnum > subevents) and subnum or subevents end -- identify events (that match looks awfully similar to subevents) if k:match('^(event%d+%.%d+)$') then hasevents = true end end -- remove duplicates from the list (e.g. 3 will be duplicated if both event3 and image3 are specified) table.sort(rowNums) for i = #rowNums, 1, -1 do if rowNums[i]
'right' then alignevents = 'event-r' end local alignresults = nil if args.alignresults and args.alignresults
'left' then alignresults = 'result-l' end
-- add the top level header if args.event or args.title then local t = args.event if args.title then t = args.title elseif args.games then t = '' .. args.event .. '' .. ' at the
' .. '' .. args.games .. '' end local cell = root:tag('tr'):tag('th') cell :addClass('sidebar-games-events-title') :attr('colspan', cols) if args.imageright then local d = cell:tag('div') :addClass('sidebar-games-events-ir-cont') d:tag('div') :addClass('sidebar-games-events-ir-title') :wikitext(t) d:tag('div') :addClass('sidebar-games-events-ir') :wikitext(args.imageright) else cell:wikitext(t) end end
if args.image then local imageCell = root:tag('tr'):tag('td')
imageCell :addClass('sidebar-games-events-image') :attr('colspan', cols) :wikitext(args.image)
if args.caption then imageCell :tag('div') :addClass('sidebar-games-events-caption') :wikitext(args.caption) end end
if args.above then local cell = root:tag('tr'):tag('td') cell:attr('colspan', cols) :wikitext(args.above) end -- start adding rows for i, num in ipairs(rowNums) do local heading = nil local event = args['event' .. num] local image = args['image' .. num] local title = args['title' .. num] if title then root:tag('tr') :tag('th') :addClass('event-title') :attr('colspan', cols) :wikitext(title) end if event and image then heading = event .. '
' .. image elseif event then heading = event elseif image then heading = image end if heading then root :tag('tr') :tag('th') :addClass('sidebar-games-events-heading') :attr('colspan', cols) :wikitext(heading) end
local showtypes = false for j, let in ipairs(lets) do if j < cols then if args['type' .. num .. let] then showtypes = true end end end if showtypes
false) and 'no-event' or nil) for j, let in ipairs(lets) do if j < cols then local t = args['type' .. num .. let] local cell = row:tag('th') if t then cell :addClass('type-let') :css('width', (cols > 2) and tostring(math.floor(100/(cols-1))) .. '%' or nil) :wikitext(t) end end end end
for k=1,subevents do local hasresults = false if args['results' .. num .. '.' .. k] then hasresults = true else for j, let in ipairs(lets) do if j < cols then if args['results' .. num .. '.' .. k .. let] then hasresults = true end end end end if hasresults then local row = root:tag('tr') local cell = row:tag('th'):addClass((hasevents
if args.prev or args.next then local row = root:tag('tr'):tag('td') :addClass('sidebar-games-events-prevnext') :attr('colspan', cols) :tag('div') row:tag('div') :addClass('sidebar-games-events-prev') :wikitext(args.prev) row:tag('div') :addClass('sidebar-games-events-next') :wikitext(args.next) end
if args.navbar ~= 'none' and args.navbar ~= 'off' and (args.name or frame:getParent:getTitle:gsub('/sandbox$', ) ~= 'Template:Sidebar games events') then root :tag('tr') :tag('td') :addClass('sidebar-games-events-navbar') :attr('colspan', cols) :wikitext(require('Module:Navbar')._navbar) end if mw.title.getCurrentTitle.namespace
local trackstr = (#tracking > 0) and table.concat(tracking, ) or if #preview > 0 then trackstr = require('Module:If preview')._warning .. trackstr end
return mw.getCurrentFrame:extensionTag .. tostring(root) .. trackstrendreturn p