-- This module implements .
local mTableTools = require('Module:TableTools')local yesno = require('Module:Yesno')local p =
local function makeCell(html, s) html :tag('td') :css('text-align', 'center') :css('vertical-align', 'middle') :wikitext(s)end
local function makeRow(review, score) local row = mw.html.create('tr') makeCell(row, review) makeCell(row, score) return rowend
local function makeHeaderRow(header, background, scope) local row = mw.html.create('tr') row :tag('th') :attr('scope', scope ~= false and 'col' or nil) :attr('colspan', 2) :css('text-align', 'center') :css('background', background ~= false and '#d1dbdf' or nil) :css('font-size', '100%') :wikitext(header) return rowend
local function makeRatingHeaderRow local row = mw.html.create('tr') row :tag('th') :attr('scope', 'col') :wikitext('Source') :done :tag('th') :attr('scope', 'col') :wikitext('Rating') return rowend
local function getScore(scoreArgs, length) for i = 1, length do local arg = scoreArgs[i] if arg then return arg end end return nilend
local function hasDuplicateScores(scoreArgs, length) local count = 0 for i = 1, length do local arg = scoreArgs[i] if arg then count = count + 1 end end return count > 1end
local function ucfirst(s) local first = s:sub(1, 1) local others = s:sub(2, -1) return first:upper .. othersend
local function getArgPermutations(args, prefix, num, suffix) local prefixUpper = ucfirst(prefix) local suffixUpper = ucfirst(suffix) return, 4 -- The 4 is the length of the array; this is needed as the args may be nilend
local function makeWikilink(page, display) if not page and not display then error('no arguments provided to makeWikilink', 2) elseif display and not page then return display elseif page and not display or page
local function findSortText(wikitext) -- Simplified wikitext parser that returns a value that can be used for -- sorting. wikitext = mw.text.killMarkers(wikitext) -- Replace piped links with their display values wikitext = wikitext:gsub('%[%[[^%]]*|([^%]]-)%]%]', '%1') -- Replace non-piped links with their display values wikitext = wikitext:gsub('%[%[([^%]]-)%]%]', '%1') -- Strip punctuation wikitext = wikitext:gsub('%p', ) -- Trim whitespace wikitext = wikitext:gsub('^%s*', ):gsub('%s*$', ) return wikitextend
function p._main(args) local root = mw.html.create local tableRoot = root:tag('table')
-- Table base tableRoot :addClass('wikitable') :addClass((args.align
'left') and 'left' or 'right') :css('clear', (args.align
'left') and '0.5em 1em 0.5em 0' or '0.5em 0 0.5em 1em') :css('padding', 0) :css('border-spacing', 0) :tag('caption') :attr('scope', 'col') :attr('colspan', 2) :css('font-size', '115%') :wikitext(args.title or 'Professional ratings')
-- Subtitle if args.subtitle then tableRoot:node(makeHeaderRow(args.subtitle, false, false)) end
-- Aggregate rows local aggregateNums = mTableTools.affixNums(args, 'aggregate') if args.MC or args.ADM or #aggregateNums > 0 then tableRoot:node(makeHeaderRow('Aggregate scores', true, true)) tableRoot:node(makeRatingHeaderRow)
-- Assemble all of the aggregate scores local aggregates = if args.MC then table.insert(aggregates,) end if args.ADM then table.insert(aggregates,) end for i, num in ipairs(aggregateNums) do local name = args['aggregate' .. num] local sort = findSortText(name) local score = args['aggregate' .. num .. 'score'] table.insert(aggregates,) end
-- Sort the aggregates if not args.aggregatenosort then table.sort(aggregates, function (t1, t2) return t1.sort < t2.sort end) end
-- Add the aggregates to the HTML for i, t in ipairs(aggregates) do tableRoot:node(makeRow(t.name, t.score)) end end
-- Review rows local reviewNums = mTableTools.affixNums(args, 'rev') local duplicateScores = false tableRoot:node(makeHeaderRow('Review scores', true, true)) tableRoot:node(makeRatingHeaderRow) for i, num in ipairs(reviewNums) do local scoreArgs, nScoreArgs = getArgPermutations(args, 'rev', num, 'score') tableRoot:node(makeRow(args['rev' .. num], getScore(scoreArgs, nScoreArgs) )) if not duplicateScores and hasDuplicateScores(scoreArgs, nScoreArgs) then duplicateScores = true end end
-- Tracking category if mw.title.getCurrentTitle.namespace
return tostring(root)end
function p.main(frame) local args = require('Module:Arguments').getArgs(frame,) return p._main(args)end
return p