มอดูล:Football box collapsible

-- Implements แม่แบบ:Football box collapsible
local p = {}
local labels = {
	'penalties' = 'ยิงลูกโทษ',
	'shootout' = 'ยิงลูกโทษ',
	'pen' = 'ลูกโทษ',
	'so' = 'ลูกโทษ',
	'aet' = 'ต่อเวลาพิเศษ',
	'agg' = 'ผลประตูรวม',
	'stadium' = 'สนามกีฬา:', 
	'attendance' = 'ผู้ชมในสนาม:',
	'referee' = 'ผู้ตัดสิน:',
	'assistantreferees' = 'ผู้ช่วยผู้ตัดสิน:',
	'assistantreferee2' = 'ผู้ช่วยผู้ตัดสิน:',
	'fourthofficial' = 'ผู้ตัดสินที่ 4:',
	'fifthofficial' = 'ผู้ตัดสินที่ 5:',
	'goallineassistants' = 'ผู้ช่วยเส้นประตู:',
	'goallineassistant2' = 'ผู้ช่วยเส้นประตู:',
	'motm' = 'ผู้เล่นทรงคุณค่า:',
	'potm' = 'ผู้เล่นทรงคุณค่า:',
	'mvp' = 'ผู้เล่นทรงคุณค่า:',
	'note' = 'หมายเหตุ:',
	'seealso' = 'ดูเพิ่ม:'
}
local colors = {
	"W" = "BBF3BB",
	"L" = "FFBBBB",
	"T" = "D" , "D" = "FFFFBB",
	"V" = "P", "P" = "BBBBBB"
}
local tracking, preview
local function checkarg(k,v)
	if k and type(k) == 'string' then
		if k == 'id' or k == 'team1' or k == 'team2' or k == 'class' or 
			k == 'nobars' or k == 'size' or 
			k == 'result' or k == 'bg' or k == 'format' or k == 'date' or k == 'scorenote' or
			k == 'round' or k == 'score' or k == 'aet' or k == 'aggregatescore' or 
			k == 'penaltyscore' or k == 'location' or k == 'stadium' or 
			k == 'time' or k == 'goals1' or k == 'report' or k == 'goals2' or 
			k == 'attendance' or k == 'referee' or k == 'assistantreferees' or 
			k == 'assistantreferee2' or k == 'fourthofficial' or 
			k == 'fifthofficial' or k == 'goallineassistants' or 
			k == 'goallineassistant2' or k == 'potm' or k == 'motm' or 
			k == 'mvp' or k == 'penalties1' or k == 'penalties2' or k == 'note' or 
			k == 'shootoutscore' or k == 'shootout1' or k == 'shootout2' or
			k == 'seealso' or k == 'stack'  then
			-- valid and not tracked
		else
			-- invalid
			local vlen = mw.ustring.len(k)
			k = mw.ustring.sub(k, 1, (vlen ' .. s .. 
	end
	return 
end
local function nowrap(s)
	if isnotempty(s) then
		return  .. s .. 
	end
	return 
end
local function background(frame, c, r, bg)
	local data = colors
	local res = datar:upper()
	if res then
		res = '#' .. (datares or res)
	elseif isnotempty(bg) then
		res = '#' .. bg
	else
		res = 'transparent'
	end
	return res
end
local function teamname(team)
local prefix, suffix, b = "", "", "";
if mw.ustring.sub(team,1,3) ~= b and mw.ustring.sub(team,-3) ~= b then
prefix = b .. ;
suffix = "" .. b;
else
if mw.ustring.sub(team,1,3) == b then
prefix = ;
team = mw.ustring.sub(team,4);
else
prefix =  .. b;
end
if mw.ustring.sub(team,-3) == b then
suffix = "";
team = mw.ustring.sub(team,1,mw.ustring.len(team)-3);
else
suffix = b .. "";
end
end

return prefix .. team .. suffix;
end
local function score(s, a, ag, p, so)
	s = nowrap(bold(s ~=  and s or 'v'))
	if a ~=  then
		s = s .. small(' (' .. labels'aet' .. ')')
	end
	if ag ~=  then
		s = s ..  .. small(' (' .. bold(ag) .. ' ' .. labels'agg' .. ')')
	end
	if p ~=  then
		s = s ..  .. small(' (' .. bold(p) .. ' ' .. labels'pen' .. ')')
	elseif so ~=  then
		s = s ..  .. small(' (' .. bold(so) .. ' ' .. labels'so' .. ')')
	end
	return s
end

local function fmtlist(s)
	s = mw.ustring.gsub(s or , '%% *(%?-) *%%', '%1')
	s = mw.ustring.gsub(s, '%% *%?- *| *(.-) *%%', '%1')
	if mw.ustring.sub(s, 1, 1) == '*' then
		return tostring(mw.html.create('div'):addClass('plainlist'):newline():wikitext(s))
	end
	return s
end
local function makelink(s,t)
	if s:match('^http') then
		return  .. s .. ' ' .. t .. 
	end
	return s
end
function p.main(frame)
	local args = (frame.args'team1' or frame.args'team2') and frame.args or frame:getParent().args
	local id = trim(args'id')
	local bars = (args'nobars' == nil) or (args'bars' == )
	local class = trim(args'class' or 'mw-collapsible mw-collapsed') or 
	local width1 = {'1' = '28%', '1.1' = '22%', '1.2' = '28%', 'default' = '19%'}
	local width2 = {'1' = '19%', '1.1' = '25%', '1.2' = '19%', 'default' = '23%'}
	local width3 = {'1' =  '8%', '1.1' =  '8%', '1.2' =  '8%', 'default' = '12%'}
	local width4 = {'1' = '19%', '1.1' = '19%', '1.2' = '26%', 'default' = '23%'}
	local width5 = {'1' = '26%', '1.1' = '26%', '1.2' = '19%', 'default' = '23%'}
	local location = nil
	local extra = {}
	local notes = {}
	
	tracking, preview = {}, {}
for k, v in pairs(args) do
	if v ~=  then
		checkarg(k,v)
	end
	end
	
	if args'class' then
		if args'class' == 'collapsible' or args'class' == 'mw-collapsible' or args'class' == 'uncollapsed' then 
			--valid
		elseif args'class' ==  then
			table.insert(tracking,'หมวดหมู่:Pages using football box collapsible with blank class parameter')
		else
			table.insert(tracking,'หมวดหมู่:Pages using football box collapsible with class parameter')
		end
	end
	
	if isnotempty(args'stack') then
		table.insert(tracking, 'หมวดหมู่:Pages using football box collapsible with unsupported stack parameter')
	end
	
	-- required parameters
	for i, k in ipairs({'team1', 'team2'}) do
		if argsk == nil then argsk =  end
	end
	-- vcard for stadium
	if isnotempty(args'stadium') then
		args'stadium' = tostring(mw.html.create('span'):addClass('location'):wikitext(args'stadium'))
	end
	-- placement of stadium and location information
	if isnotempty(args'location') then
		location = args'location'
		if isnotempty(args'stadium') then
			table.insert(extra, labels'stadium' .. ' ' .. args'stadium')
		end
	elseif isnotempty(args'stadium') then
		location = args'stadium'
	end
	-- remaining extra information
	for i, k in ipairs({'attendance', 'referee', 'assistantreferees', 
		'assistantreferee2', 'fourthofficial', 'fifthofficial', 
		'goallineassistants', 'goallineassistant2', 'potm', 'motm', 'mvp'}) do
		if isnotempty(argsk) then
			table.insert(extra, labelsk .. ' ' .. argsk)
		end
	end
	
	-- score
	local scorestr = 
	if args'score1' or args'score2' then
		scorestr = (args'score1' or '0') .. '–' .. (args'score2' or '0')
	elseif args'score' then
		scorestr = args'score'
	end
	if args'scorenote' then
		scorestr = scorestr ..  .. args'scorenote'
	end
	
	-- notes
	if isnotempty(args'note') then
		table.insert(notes, "" .. labels'note' .. " " .. args'note' .. "")
	end
	if isnotempty(args'seealso') then
		table.insert(notes, "" .. labels'seealso' .. " " .. args'seealso' .. "")
	end
	-- check if this is a one row table
	if class ==  or class == 'uncollapsed' then
		class = 
	elseif #extra > 0 or #notes > 0 or isnotempty(args'time') or isnotempty(args'report') or 
		isnotempty(args'goals1') or isnotempty(args'goals2') or
		isnotempty(args'penalties1') or isnotempty(args'penalties2') or
		isnotempty(args'shootout1') or isnotempty(args'shootout2') then
	elseif class == 'collapsible collapsed' or class == 'mw-collapsible mw-collapsed' then
		class = 
	end
	
	-- Start box
	local root = 
		mw.html.create('div')
			:addClass('vevent')
			:attr('id', id)
	root:tag('span')
		:addClass('summary')
		:css('display', 'none')
		:wikitext(args'team1' .. ' v ' .. args'team2')
	root:newline()
	
	-- Start table
	local rtable = root:tag('table')
		:attr('cellspacing', 0)
		:addClass(class ~=  and class or nil)
		:addClass('vevent')
		:css('border-top', bars and '1px solid #999' or nil)
		:css('border-bottom', bars and '1px solid #999' or nil)
		:css('margin-bottom', bars and '-1px' or nil)
		:css('width', args'size' or '100%')
		:css('background', background(frame, 'default', args'result' or , args'bg' or ))
	local row = rtable:tag('tr'):css('vertical-align', 'top')
	-- date and round
	local cell = row:tag('td')
		:css('width', width1args'format' or 'default' or width1'default')
	if isnotempty(args'date') then
		cell:tag('span')
			:css('white-space', 'nowrap')
			:css('float', 'right')
			:css('margin-left', '0.5em')
			:wikitext(args'date')
		cell:wikitext(' ')
	end
	if isnotempty(args'round') then
		cell:wikitext(small(args'round'))
	end
	-- team1
	row:tag('td')
		:css('width', width2args'format' or 'default' or width2'default')
		:css('text-align', 'right')
		:addClass('vcard attendee')
		:wikitext(teamname(args'team1'))
	-- score
	row:tag('td')
		:css('width', width3args'format' or 'default' or width3'default')
		:css('text-align', 'center')
		:wikitext(score(scorestr, args'aet' or , args'aggregatescore' or , args'penaltyscore' or , args'shootoutscore' or ))
	-- team2
	row:tag('td')
		:css('width', width4args'format' or 'default' or width4'default')
		:addClass('vcard attendee')
		:wikitext(teamname(args'team2'))
	-- location, stadium
	row:tag('td')
		:css('width', location and (width5args'format' or 'default' or width5'default') or nil)
		:css('font-size', '85%')
		:wikitext(location)
	if #extra > 0 or isnotempty(args'time') or isnotempty(args'report') or 
		isnotempty(args'goals1') or isnotempty(args'goals2') then
		local row = rtable:tag('tr'):css('vertical-align','top'):css('font-size','85%')
		-- time
		row:tag('td')
			:css('text-align', isnotempty(args'time') and 'right' or nil)
			:wikitext(args'time')
		row:newline()	
		-- goals1
		row:tag('td')
			:css('text-align', isnotempty(args'goals1') and 'right' or nil)
			:wikitext(fmtlist(args'goals1'))	
		row:newline()
		-- report
		row:tag('td')
			:css('text-align', isnotempty(args'report') and 'center' or nil)
			:wikitext(makelink(args'report' or , 'รายงาน'))
		row:newline()
		-- goals2
		row:tag('td')
			:wikitext(fmtlist(args'goals2'))
		row:newline()
		-- location, stadium
		row:tag('td')
			:wikitext(table.concat(extra, ))
	end
	if isnotempty(args'penalties1') or isnotempty(args'penalties2') then
		row = rtable:tag('tr')
		row:tag('td'):attr('rowspan', 2)
		row:tag('td'):attr('colspan', 3):css('text-align', 'center'):wikitext(bold(labels'penalties'))
		row:tag('td'):attr('rowspan', 2)
		row = rtable:tag('tr'):css('vertical-align','top'):css('font-size','85%')
		row:newline()
		row:tag('td')
			:css('text-align', isnotempty(args'penalties1') and 'right' or nil)
			:wikitext(fmtlist(args'penalties1'))
		row:newline()
		row:tag('td')
		row:newline()
		row:tag('td')
			:wikitext(fmtlist(args'penalties2'))
		row:newline()
	elseif isnotempty(args'shootout1') or isnotempty(args'shootout2') then
		row = rtable:tag('tr')
		row:tag('td'):attr('rowspan', 2)
		row:tag('td'):attr('colspan', 3):css('text-align', 'center'):wikitext(bold(labels'shootout'))
		row:tag('td'):attr('rowspan', 2)
		row = rtable:tag('tr'):css('vertical-align','top'):css('font-size','85%')
		row:newline()
		row:tag('td')
			:css('text-align', isnotempty(args'shootout1') and 'right' or nil)
			:wikitext(fmtlist(args'shootout1'))
		row:newline()
		row:tag('td')
		row:newline()
		row:tag('td')
			:wikitext(fmtlist(args'shootout2'))
		row:newline()
	end
	
	if #notes > 0 then
		row = rtable:tag('tr'):css('font-size', '85%')
		row:tag('td')
			:attr('colspan', 5)
			:wikitext(table.concat(notes, ))
		row:newline()
	end
	
	local trackstr = (#tracking > 0) and table.concat(tracking, ) or 
	if #preview > 0 and frame:preprocess( "" ) == "" then
		trackstr = tostring(mw.html.create('div')
			:addClass('hatnote')
			:css('color','red')
			:tag('strong'):wikitext('Warning:'):done()
			:wikitext('Unknown parameters: ' .. table.concat(preview, '; ')))
	end
	
	return tostring(root) .. trackstr
end
return p