-- this module implements [[Template:Graph:Chart political]]

local p = {}



local function isnotempty(s)

	return s and s:match( '^%s*(.-)%s*$' ) ~= ''

end



function p._chart_args(args)

	local pfetch = require('Module:Political party')._fetch

	local colors = mw.text.split(args'colors' or '', '%s*[,]%s*')

	local targs = {}

	for k,v in pairs(args) do

		if k:find('^y%d+Party$') then

			local digit = string.match(k, '%d+')

			local color = isnotempty(colorstonumber(digit)]) and colorstonumber(digit)] or pfetch({v, 'color'})

			local pname = isnotempty(args'y' .. digit .. 'Title']) and args'y' .. digit .. 'Title' or pfetch({v, 'abbrev'})

			targs'y' .. digit .. 'Title' = pname

			colorstonumber(digit)] = color

		else

			targsk = v

		end

	end

	targs'colors' = string.gsub(table.concat(colors, ', '), '#', '#')



	return targs

end



function p.debug(frame)

	local args = p._chart_args(frame:getParent().args)

	local res = '<pre>\n{{Graph:Chart\n'

	for k,v in pairs(args) do

		res = res .. '| ' .. k .. ' = ' .. v .. '\n'

	end

	res = res .. '}}\n</pre>'

	

	return res

end



function p.main(frame)

	return mw.getCurrentFrame():expandTemplate{

		title = 'Graph:Chart',

		args = p._chart_args(frame:getParent().args)

		}

end



function p.mainlua(frame)

	local graphchart = require('Module:Graph:Chart')

	frame.args = p._chart_args(frame:getParent().args)

	return graphchart''](frame)

end



return p