模块:Treechart

该模板及其文档来自多个wiki，经多方修订后，各个wiki的版本差异较大，届时需以应用该模板的各wiki的相关文档说明为准
——来自多个wiki

本模块是Treechart的 Lua 支持库。模板Treechart使用类似ASCII艺术的句法生成简单系谱图。它用HTML表格和CSS在适当的位置生成文字框和线条以构成家族树，使用者在文本框内可以任意运用维基语法。

这个模块使用 mw.html 库的表格设计，来绘制 Tree chart 的方块和方块之间的连接线。对于一个Module:Treechart/data 中对应的 key，这个模块就会绘制一个匹配样式的对应的 block。表格中的每一个 key 可能有 0~2 个对应的 key：t 表示首行，b 表示末行。对于 Module:Treechart/data 中没有的 key，将会被看作是 Tree chart 中的方块，方块的内容以 key 为参数名，另补充在后面。

目前该模板已经完成了对参数boxclass的完全适配。天晓得为什么第一改进者会在原本用了attr写入class加这么多addclass

---

require('Module:No globals')
 
local p = {}
 
local cells = mw.loadData('Module:Treechart/data')
 
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 type(v) == 'string' then
			top:wikitext(cells[v].t)
			bottom:wikitext(cells[v].b)
		else
			top:tag('td')
				:attr{ class = v.boxclass or cell_args.boxclass }
				:attr{ colspan = v.colspan or cell_args.colspan or 6,
						rowspan = v.rowspan or cell_args.rowspan or 2 }
				:css{ padding = '0.2em',
						['-webkit-box-shadow'] = '0px 2px 7px #555',
						['-moz-box-shadow'] = '0px 2px 7px #555',
						['box-shadow'] = '0px 2px 7px #555',
						border = (v.border or cell_args.border or '2') .. 'px solid black' }
				:cssText(v.boxstyle or cell_args.boxstyle)
				:wikitext(v.text)
		end
	end
	return tostring(ret)
end
 
function p.main(frame)
	local args = require('Module:Arguments').getArgs(frame, {wrappers = 'Template:Treechart', trim = false, removeBlanks = false})
	local cell_args = {
		colspan = args.colspan,
		rowspan = args.rowspan,
		border = args.border,
		boxstyle = args.boxstyle,
	    boxclass = args.boxclass
	}
	for _, val in ipairs(args) do
		local trimmedVal = val:match('^%s*(.-)%s*$')
		if trimmedVal == '' then
			trimmedVal = '$'
		end
		if cells[trimmedVal] then
			table.insert(cell_args, trimmedVal)
		else
			-- Unnamed params behave weirdly
			-- white space at the front counts for param_{{{1}}}, but not whitespace at the end, so remove it
			local rightTrimmedVal = val:gsub('%s+$','')
			table.insert(cell_args, {
				text = args[trimmedVal] or ('{{{'..trimmedVal..'}}}'),
				colspan = args['colspan_'..rightTrimmedVal],
				rowspan = args['rowspan_'..rightTrimmedVal],
				border = args['border_'..rightTrimmedVal],
				boxstyle = args['boxstyle_'..rightTrimmedVal],
				boxclass = args['boxclass_'..rightTrimmedVal]
			})
		end
	end
	
	return p._main(cell_args)
end
 
return p