モジュール:Sports color/contrast

モジュールの解説[作成]

このScribuntoモジュールの解説ページを作成することができます。
編集者は、このモジュールをサンドボックス (作成 | 複製)とテストケース (作成)で試すことができます。（解説）
/docのサブページにカテゴリを追加してください。 このモジュールのサブページ一覧。

-- このサブモジュールは、[[モジュール:Sports color]]のドキュメント
-- にある完全なカラーコントラストテーブルを生成するために使用されます。

local contrast = {}
local all_colors = {}

local contrast_mod = require("モジュール: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,
	}
 
	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 ('モジュール:Sports color/' .. (args['スポーツ'] or 'バスケットボール'))
	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>エラー</span>')
		end
		for i=1,4 do
			res:tag('td')
				:css('background', c[i] and ('#' .. c[i]) or '透明')
				: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 />通称 :' .. team
			else
				table.insert(teamlist, team)
			end
		end
		table.sort(teamlist)

	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('チーム')
	for i=1,4 do
		row:tag('th')
			:addClass('unsortable')
			:attr('rowspan',2)
			:wikitext(i)
	end
	row:tag('th')
		:attr('colspan', 2)
		:wikitext('対比')
	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 = '数値の欄は、1色目／2色目と4色目／3色目のコントラスト比の計算値です。'
		.. ' 3より小さいとコントラストが非常に悪いので、[[' .. data_module .. '|データモジュール]]で変更する必要があります。'
		.. ' 詳しくは、[[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