Module:Progression rainbow/sandbox

--[[ This implements

]] require('strict')

local p = {}

-- rounding to first decimal, from http://lua-users.org/wiki/SimpleRound local function round(num) return math.floor(num * 10 + 0.5) / 10 end

local function percent(param, total) -- These suck for i18n because the % is forced to the right without spacing, -- both in a required context (CSS) and unrequired (to-be-displayed text). -- I.e., there should be a separate version of this return tostring(round(100 * param / total)) .. '%' end

local function percent_remaining(sum, total) local remaining = total - sum if remaining > 0 then return percent(remaining, total) else return nil end end

local function category_count(category, project) return mw.site.stats.pagesInCategory(		string.format('%s %s articles', category, project),		'pages'	) end

-- This is only done once in this module, here for demonstration. -- Gist: Make it cleaner to initialize 'trivial' variables. local function arg_or_default(args, from_arg, default) if args[from_arg] and args[from_arg] ~= '' then return args[from_arg] else return default end end

function p._main(args)

local classes = { {count = 0, class = 'List', category = 'List-Class'}, {count = 0, class = 'Stub', category = 'Stub-Class'}, {count = 0, class = 'Start', category = 'Start-Class'}, {count = 0, class = 'C', category = 'C-Class'}, {count = 0, class = 'B', category = 'B-Class'}, {count = 0, class = 'GA', category = 'GA-Class'}, {count = 0, class = 'A', category = 'A-Class'}, {count = 0, class = 'FA', category = 'FA-Class'} }	local project_classes = { {count = 0, class = 'FL', category = 'FL-Class'}, {count = 0, class = 'Unassessed', category = 'Unassessed'} }

local project = arg_or_default(args, "project", nil) local sum_classes = 0 if project then for _, class in ipairs(classes) do			class.count = category_count(class.category, project) if class.class == 'FA' then class.count = class.count + category_count(					project_classes[1].category,					project				) end sum_classes = sum_classes + class.count end else for i, class in ipairs(classes) do			-- 'or class.count' to keep us safe from nil arg class.count = tonumber(args[i]) or class.count sum_classes = sum_classes + class.count end end

local total if project then -- It makes more sense to do this sum here rather than in the project -- loop above because total is initialized here in the non-project case total = sum_classes + category_count(			project_classes[2].category,			project		) else total = tonumber(args[9]) or 100 end local height = arg_or_default(args, 'height', nil) local root = mw.html.create('ul') root:addClass('progression-rainbow') if height then root:css('height', height) end

local current_frame = mw.getCurrentFrame for _, class in ipairs(classes) do		if class.count ~= 0 then local percentage = percent(class.count, total) root:newline -- sprinkled through to make the HTML easier to read root:tag('li') :css('background', current_frame:expandTemplate{						title = 'class/colour', args = { class.class }					}) :css('width', percentage) :attr('title', string.format('%s %s', percentage, class.category)) :tag('span') :addClass('sr-only') :wikitext(string.format('%s %s', percentage, class.category)) :done :done end end root:newline local remaining = percent_remaining(sum_classes, total) if remaining then root:tag('li') :addClass('remaining') :css('width', remaining) :attr('title', string.format('%s remaining', remaining)) :tag('span') :addClass('sr-only') :wikitext(string.format('%s remaining', remaining)) :done :done :newline end root:allDone return current_frame:extensionTag{ name = 'templatestyles', args = { src = 'Module:Progression rainbow/styles.css'} } .. current_frame:extensionTag{ name = 'templatestyles', args = { src = 'Screen reader-only/styles.css'} } .. '\n' .. tostring(root) end

function p.main(frame) return p._main(require('Module:Arguments').getArgs(frame)) end

return p