Module:Chemistry table

-- This module implements and.

local HTMLcolor = mw.loadData( 'Module:Color contrast/colors' )

-- Chemistry Table class -- The main class.

local contrast_ratio = require('Module:Color contrast')._ratio local ChemistryTable = {}

function ChemistryTable.cell(background, width, text, reference) local cell = mw.html.create('th') -- Cell cell:attr('scope','col') :css('background',background or '#CCCCFF') :css('width',width ~= '' and width .. '%' or nil) :wikitext(text) -- Reference if reference then cell:wikitext("&#8202;" .. ChemistryTable.reference(reference, background)) end return cell end

function ChemistryTable.reference(reference, background) local link1_cr = contrast_ratio{'#0645AD', background or '#CCCCFF', ['error'] = 0} local link2_cr = contrast_ratio{'#0B0080', background or '#CCCCFF', ['error'] = 0} local refspan = mw.html.create('span') :wikitext(reference) if link1_cr < 7 or link2_cr < 7 then refspan :css('background-color','white') :css('padding','1px') :css('display','inline-block') :css('line-height','50%') end return tostring(refspan) end

function ChemistryTable.abbr(text,title) local abbr = mw.html.create('abbr') :attr('title',title) :wikitext(text) return tostring(abbr) end

function ChemistryTable.part(frame,args) local row = mw.html.create('tr') local black_cr = contrast_ratio{args.c, 'black', ['error'] = 0} local white_cr = contrast_ratio{'white', args.c, ['error'] = 0} local displaytext = (not args.nopart and 'Section ' or '') .. (args.p or '') row:tag('td') :attr('colspan',13) :css('text-align','center') :css('background-color', args.c)		:css('color', black_cr > white_cr and 'black' or 'white') :wikitext("" .. frame:expandTemplate({title='Visible anchor',args={displaytext}}) .. "" .. (args.r and "&#8202;" .. ChemistryTable.reference(args.r, args.c) or '')) return tostring(row) end

function ChemistryTable.new(args) args = args or {} local categories = '' local background = (args.background and args.background ~= '' and args.background ~= '#') and args.background or nil -- Add # to background if necessary if background ~= nil and HTMLcolor[background] == nil then background = '#'..(mw.ustring.match(background, '^[%s#]*([a-fA-F0-9]*)[%s]*$') or '') end -- Create Chemistry table local root = mw.html.create('table') root :addClass('wikitable') :addClass('plainrowheaders') :addClass('wikiChemistrytable') :css('width', args.total_width and string.gsub(args.total_width,'%%','') .. '%' or '100%') -- Caption if args.caption then root:tag('caption'):wikitext(args.caption) end -- Colour contrast; add to category only if it's in the mainspace local title = mw.title.getCurrentTitle local black_cr = contrast_ratio{background, 'black', ['error'] = 0} local white_cr = contrast_ratio{'white', background, ['error'] = 0} if title.namespace == 0 and (args.background and args.background ~= '' and args.background ~= '#') and black_cr < 7 and white_cr < 7 then categories = categories .. '' 	end -- Main row local mainRow = root:tag('tr') mainRow :css('color', background and (black_cr > white_cr and 'black' or 'white') or 'black') :css('text-align', 'center') -- Cells do local used_season = false local cellNames = { {'name','Name','Name'}, {'aux1','Aux1',''}, {'recipe','Recipe','Recipe'}, {'produces','Produces','Produces'}, {'aux2','Aux2',''}, {'aux3','Aux3',''}, {'application','Application','Application'}, {'metabolism','Metabolism',ChemistryTable.abbr('Meta.','Metabolism') .. ' rate'}, {'overdose','Overdose',ChemistryTable.abbr('Over.','Overdose') .. ' level'}, {'aux4','Aux4',''} }		for k,v in pairs(cellNames) do			local thisCell = args[v[1]] or args[v[2]] if thisCell and (v[1] ~= 'series' or (v[1] == 'series' and used_season == false)) then if v[1] == 'season' then used_season = true end if (k <= 3 and thisCell == '') then thisCell = '5' end local thisCellT = args[v[1] .. 'T'] or args[v[2] .. 'T'] local thisCellR = args[v[1] .. 'R'] or args[v[2] .. 'R'] mainRow:node(ChemistryTable.cell(background, thisCell, thisCellT or v[3], thisCellR)) end end -- Chemistry root:node(args.Chemicals) end return (args.dontclose and mw.ustring.gsub(tostring(root), " ", "") or tostring(root)) .. categories end

-- Exports

local p = {}

function p.main(frame) local args = require('Module:Arguments').getArgs(frame, {		removeBlanks = false,		wrappers = 'Template:Chemistry table'	}) return ChemistryTable.new(args) end

function p.part(frame) local args = require('Module:Arguments').getArgs(frame, {		removeBlanks = false,		wrappers = 'Template:Chemistry table/section'	}) return ChemistryTable.part(frame,args) end

function p.ref(frame) local args = require('Module:Arguments').getArgs(frame, {		removeBlanks = false,	}) return ChemistryTable.reference(args.r,args.b) end

return p