Module:Football box/sandbox explained

-- Implements local p = local lang = nillocal delink = require('Module:Delink')._delinklocal eventschema = "http://schema.org/SportsEvent"local teamschema = "http://schema.org/SportsTeam"local placeschema = "http://schema.org/Place"local penalties = 'Penalties'local aet = 'a.e.t.'local asdet = 'a.s.d.e.t.'local agget = 'a.e.t./g.g.'local asget = 'a.e.t./s.g.'local attendance = 'Attendance:'local referee = 'Referee:'local templatestyles = 'Module:Football box/sandbox/styles.css'

local tracking, preview

local function checkarg(k,v) if not k or type(k) ~= 'string' then return end if k

'assistantreferees2' then table.insert(tracking, '') elseif k

'aggregatescore' or k

'assistantreferees' or k

'fourthofficial' or k

'game' or k

'motm' or k

'nobars' or k

'note' or k

'result' then -- valid and tracked table.insert(tracking, '') elseif k

'size' or k

'bg' or k

'id' or k

'event' or k

'date' or k

'time' or k

'round' or k

'team1' or k

'team2' or k

'score1' or k

'score2' or k

'score' or k

'scorenote' or k

'aet' or k

'asdet' or k

'agget' or k

'asget' or k

'goals1' or k

'report' or k

'goals2' or k

'penaltyscore' or k

'penalties1' or k

'penalties2' or k

'stadium' or k

'location' or k

'attendance' or k

'referee' or k

'stack' or k

'section' or k

'transcludesection' then -- valid and not tracked 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 .. '"') endend

local function timestamp(d, t) if not d then return nil end lang = lang or mw.language.getContentLanguage -- lazy initialize local success, timestamp = pcall(lang.formatDate, lang, 'c', delink) if success then return timestamp else return nil endend

local function fmtlist(s) s = mw.ustring.gsub(s or , '%[%[ *([%?-]) *%]%]', '%1') s = mw.ustring.gsub(s, '%[%[ *[%?-] *| *(.-) *%]%]', '%1') if mw.ustring.sub(s, 1, 1)

'*' then -- could also expand plainlist here return mw.getCurrentFrame:extensionTag .. tostring(mw.html.create('div'):addClass('plainlist'):newline:wikitext(s)) end return send

local function makelink(s,t) if s:match('^[Hh][Tt][Tt][Pp][Ss]?:[^ ]*$') then return '[' .. s .. ' ' .. t .. ']' end return send

local function trim(s) return s:match('^[\'"%s]*(.-)[\'"%s]*$')end

local function getid(s) s = trim(s or ) if s and s ~= then return s end return nilend

function p.main(frame) -- Exit early if we are using section transclusion for a different section local tsection = frame:getParent.args['transcludesection'] or frame:getParent.args['section'] or local bsection = frame.args['section'] or if(tsection ~= and bsection ~= ) then if(tsection ~= bsection) then return end end

local args = require('Module:Arguments').getArgs(frame) local id = getid(args['id']) local d = timestamp(args['date'], args['time']) local block tracking, preview =, for k, v in pairs(args) do if v ~= then checkarg(k,v) end end

local score = 'v' if args['score1'] or args['score2'] then score = (args['score1'] or '0') .. ' - ' .. (args['score2'] or '0') elseif args['score'] and args['score'] ~= then score = args['score'] end if args['aet'] then score = score .. ' (' .. aet .. ')' elseif args['asdet'] then score = score .. ' (' .. asdet .. ')' elseif args['agget'] then score = score .. ' (' .. agget .. ')' elseif args['asget'] then score = score .. ' (' .. asget .. ')' end if args['scorenote'] then score = score .. '
' .. args['scorenote'] end -- Start box local root = mw.html.create('div') :attr('itemscope',
) :attr('itemtype', eventschema) :addClass('footballbox') :css('width', args['size']) :css('background-color', args['bg']) :attr('id', id) root:newline if args['event'] then root:tag('div') :addClass('ftitle') :wikitext(args['event']) end -- Start left block block = root:tag('div') :addClass('fleft') local timetag = block:tag('time') :attr('itemprop', d and 'startDate' or nil) :attr('datetime', d) timetag:tag('div') :addClass('fdate') :wikitext(args['date']) if args['time'] then timetag:tag('div') :addClass('ftime') :wikitext(args['time']) end if args['round'] then block:tag('div') :addClass('frnd') :wikitext(args['round']) end -- End block -- Start table local rtable = root:tag('table') :addClass('fevent') local row = rtable:tag('tr') :attr('itemprop', 'name') row:newline row:tag('th') :addClass('fhome') :attr('itemprop', 'homeTeam') :attr('itemscope', ) :attr('itemtype', teamschema) :attr('id', 'fcentertable-home') :tag('span') :attr('itemprop', 'name') :wikitext(args['team1']) row:tag('th') :addClass('fscore') :wikitext(score) row:tag('th') :addClass('faway') :attr('itemprop', 'awayTeam') :attr('itemscope', ) :attr('itemtype', teamschema) :attr('id', 'fcentertable-away') :tag('span') :attr('itemprop', 'name') :wikitext(args['team2'])

row = rtable:tag('tr') :addClass('fgoals') :newline row:tag('td') :addClass('fhgoal') :attr('headers', 'fcentertable-home') :wikitext(fmtlist(args['goals1'])) row:newline row:tag('td') :wikitext(makelink(args['report'] or , 'Report')) row:newline row:tag('td') :addClass('fagoal') :attr('headers', 'fcentertable-away') :wikitext(fmtlist(args['goals2'])) row:newline if args['penaltyscore'] then rtable :tag('tr') :tag('th') :attr('colspan', 3) :attr('id', 'fcentertable-penalties') :wikitext(penalties) row = rtable:tag('tr') :addClass('fgoals') row:newline row:tag('td') :addClass('fhgoal') :attr('headers', 'fcentertable-penalties fcentertable-home') :wikitext(fmtlist(args['penalties1'])) row:newline row:tag('th') :attr('headers', 'fcentertable-penalties') :wikitext(args['penaltyscore']) row:newline row:tag('td') :addClass('fagoal') :attr('headers', 'fcentertable-penalties fcentertable-away') :wikitext(fmtlist(args['penalties2'])) row:newline end -- End table -- Start right block block = root:tag('div') :addClass('fright') if args['stadium'] then local sdiv = block:tag('div') :attr('itemprop', 'location') :attr('itemscope', ) :attr('itemtype', placeschema) if args['location'] then sdiv:tag('span') :attr('itemprop', 'name') :wikitext(args['stadium']) sdiv:wikitext(', ') sdiv:tag('span') :attr('itemprop', 'address') :wikitext(args['location']) else sdiv:tag('span') :attr('itemprop', 'name address') :wikitext(args['stadium']) end end if args['attendance'] then block:tag('div'):wikitext(attendance ..' ' .. args['attendance']) end if args['referee'] then block:tag('div'):wikitext(referee .. ' ' .. args['referee']) end

local trackstr = (#tracking > 0) and table.concat(tracking, ) or if #preview > 0 then trackstr = require('Module:If preview')._warning .. trackstr end return frame:extensionTag .. tostring(root) .. trackstrend

return p