Module:Tree chart

Module documentation[view] [edit] [history] [purge]

Usage

Implements Template:Tree chart; Full documentation on chart syntax exists at Template:Tree chart/doc

This module uses the mw.html library to create rows of table cells whose borders draw lines to show relationships between elements. When an unnamed parameter matches a key in Module:Tree chart/data, the module will create a block with stylings as defined in the table. Each key in the table has a subtable with 0, 1, or 2 keys of its own: t for the "top" row and b for the "bottom row". Any unnamed parameter whose value does not exist in the table will be used to create elements on the chart, and additional named parameters for that value will be looked for.

The above documentation is transcluded from Module:Tree chart/doc. (edit | history)
Editors can experiment in this module's sandbox (edit | diff) and testcases (create) pages.
Subpages of this module.

require('Module:No globals')

local p = {}

local cells = mw.loadData('Module:TreeChart/data')

local function make_cell(builder,name,key)
	local props = cells[name][key]
	if not props then
		return
	end
	for _, v in ipairs(props) do
		builder:tag('td',{selfClosing=true})
				:css(v.style or {})
				:attr(v.attr or {})
	end
end

function p._main(cell_args)
	local ret = mw.html.create()
	local top = ret:tag('tr')
						:css{ height = '1px',
								['text-align'] = 'center' }
	local bottom = ret:tag('tr')
						:css{ height = '1px',
								['text-align'] = 'center' }
	for _, v in ipairs(cell_args) do
		if v.box then
			top:tag('td')
				:attr{ colspan = v.colspan,
						rowspan = v.rowspan }
				:css{ padding = '0.2em',
						border = v.thick .. 'px solid black' }
				:cssText(v.css)
				:wikitext(v.text)
		else
			make_cell(top,v.name,'t')
			make_cell(bottom,v.name,'b')
		end
	end
	return tostring(ret)
end

function p.main(frame)
	local args = require('Module:Arguments').getArgs(frame, {wrappers = 'Template:Chart', trim = false, removeBlanks = false})
	local cell_args = {}
	for _, v in ipairs(args) do
		local w = v:match('^%s*(.-)%s*$')
		if w == '' then
			w = '$'
		end
		local cell_x = { }
		if cells[w] then
			cell_x.name = w
		else
			-- Unnamed params behave weirdly
			-- white space at the front counts for param_{{{1}}}, but not whitespace at the end, so remove it
			local w2 = v:gsub('%s+$','')
			cell_x.text = args[w] or '{{{'..w..'}}}'
			cell_x.box = true
			cell_x.colspan = args['colspan_'..w2] or args.colspan or '6'
			cell_x.rowspan = args['rowspan_'..w2] or args.rowspan or '2'
			cell_x.thick = args['border_'..w2] or args.border or '2'
			cell_x.css = args['boxstyle_'..w2] or args.boxstyle or ''
		end
		table.insert(cell_args,cell_x)
	end
	
	return p._main(cell_args)
end

return p