Module:Gridiron color/contrast
MyWikiBiz, Author Your Legacy — Sunday October 13, 2024
Jump to navigationJump to searchThis submodule is used to generate the complete color contrast table in the documentation for Module:Gridiron color.
-- This submodule is used to generate the complete color contrast table in -- the documentation for [[Module:Gridiron color]] local contrast = {} local all_colors = {} local contrast_mod = require("Module:Color contrast") local function stripwhitespace(text) return text:match("^%s*(.-)%s*$") end local function get_colors(team, unknown) team = stripwhitespace(team or '') unknown = unknown or {"DCDCDC", "000000"} local use_default = { [""] = 1, ["retired"] = 1, ["free agent"] = 1, } local colors = nil if ( team and use_default[team:lower()] ) then colors = {"DCDCDC", "000000"} else colors = all_colors[team] if ( colors and type(colors) == 'string' ) then colors = all_colors[colors] end end return colors or unknown end local function color_contrast_ratio(hex1, hex2) if( hex1 and hex2) then local r = contrast_mod._ratio({'' .. hex1, '' .. hex2, error = 0}) if( r > 0 ) then r = (r > 1) and r or (1/r) r = math.floor(r * 100 + 0.5) / 100 return (r > 1) and r or (1/r) end end return '' end function contrast._testtable(args) local teamlist = {} local aliaslist = {} local style = args['style'] local data_module = args['data'] or ('Module:Gridiron color/' .. (args['sport'] or 'football')) all_colors = mw.loadData(data_module) -- helper function local function table_row(t, c) local res = mw.html.create('') if( c[1] ) then res:tag('td'):wikitext(t) else res:tag('td'):wikitext(t .. ' <span class=error>ERROR</span>') end for i=1,4 do res:tag('td') :css('background', c[i] or 'transparent') :wikitext(c[i] and '' or 'X') end res:tag('td'):wikitext(color_contrast_ratio(c[1],c[2])) res:tag('td'):wikitext(color_contrast_ratio(c[4],c[3])) return tostring(res) end -- list of teams if( args and args[1] ) then for k, team in pairs(args) do if type(k) == 'number' then table.insert(teamlist, team) end end else for team, colors in pairs( all_colors ) do if type(colors) == 'string' then aliaslist[colors] = (aliaslist[colors] or '') .. '<br />Also known as ' .. team else table.insert(teamlist, team) end end table.sort(teamlist) table.insert(teamlist, 'Free agent') table.insert(teamlist, 'Retired') end -- build table local root = mw.html.create('table') root:addClass('wikitable sortable') :css('background', 'transparent') :css('font-size', '90%') :css('line-height', '100%') :cssText(style) if args['caption'] then root:tag('caption'):wikitext(args['caption']) end local row = root:tag('tr') row:tag('th') :attr('rowspan',2) :wikitext('Team') for i=1,4 do row:tag('th') :addClass('unsortable') :attr('rowspan',2) :wikitext(i) end row:tag('th') :attr('colspan', 2) :wikitext('Contrast') row = root:tag('tr') row:tag('th'):wikitext('1/2') row:tag('th'):wikitext('4/3') for k, team in pairs( teamlist ) do row = root:tag('tr') row:wikitext(table_row(team .. (aliaslist[team] or ''), get_colors(team))) end if style and style ~= '' then style = 'font-size:90%; padding:0.4em; width:32em; border:1px #aaa solid;' .. style end local note = nil if args['note'] then note = args['note'] else note = 'The numeric columns are the calculated contrast ratio for the' .. ' first/second and the fourth/third colors. Anything lower than 3 is' .. ' very poor contrast and should be changed in' .. ' [[' .. data_module .. '|the data module]]. For more' .. ' information, see [[Template:Color contrast ratio]].' end if note ~= '' then note = mw.html.create('div'):cssText(style):wikitext(note) end return tostring(root) .. tostring(note) end function contrast.testtable(frame) return frame:preprocess(contrast._testtable(frame.args)) end return contrast