وحدة:صندوق كرة قدم قابل للطي

-- Implements [[قالب:صندوق كرة قدم قابل للطي]]
local p = {}
local result_modules = 'وحدة:صندوق كرة قدم قابل للطي/حصيلة/'
local labels = {
	['ركلات جزاء'] = '[[ركلات جزاء ترجيحية (كرة القدم)|ركلات الجزاء]]',
	['ركل.'] = '[[ركلات جزاء ترجيحية (كرة القدم)|ج]]',
	['ب.و.إ.'] = '[[وقت إضافي|ب.و.إ.]]',
	['إجم.'] = '[[سلسلة مجموع النقاط (الإجمالي)|إجم.]]',
	['ملعب'] = 'الملعب:', 
	['حضور'] = 'الحضور:',
	['حكم'] = 'الحكم:',
	['حكام مساعدون'] = 'الحكام المساعدون:',
	['assistantreferee2'] = '<span style="visibility:hidden">Assistant referees:</span>',
	['حكم رابع'] = 'الحكم الرابع:',
	['حكم خامس'] = 'الحكم الخامس:',
	['حكم فار'] = 'حكم فار:',
	['مساعد فار'] = 'مساعد فار:',
	['goallineassistants'] = 'Goal-line assistants:',
	['goallineassistant2'] = '<span style="visibility:hidden">Goal-line assistants:</span>',
	['ر.م.'] = 'رجل المباراة:',
	['ل.م.'] = 'لاعب المباراة:',
	['mvp'] = 'MVP:',
	['ملاحظة'] = 'ملاحظة:',
	['انظر أيضا'] = 'أنظر أيضا:'
}
local tracking, preview

local function checkarg(k,v)
	if k and type(k) == 'string' then
		if k == 'هوية' or k == 'فريق1' or k == 'فريق2' or k == 'class' or 
			k == 'nobars' or k == 'حجم' or k == 'منافسة' or 
			k == 'حصيلة' or k == 'bg' or k == 'نسق' or k == 'تاريخ' or 
			k == 'جولة' or k == 'نتيجة' or k == 'ب.و.إ.' or k == 'نتيجة إجمالية' or 
			k == 'نتيجة ركلات جزاء' or k == 'موقع' or k == 'ملعب' or 
			k == 'وقت' or k == 'أهداف1' or k == 'تقرير' or k == 'أهداف2' or 
			k == 'حضور' or k == 'حكم' or k == 'حكام مساعدون' or 
			k == 'assistantreferee2' or k == 'حكم رابع' or 
			k == 'حكم فار' or k == 'مساعد فار' or 
			k == 'حكم خامس' or k == 'goallineassistants' or 
			k == 'goallineassistant2' or k == 'potm' or k == 'motm' or 
			k == 'mvp' or k == 'ركلات جزاء1' or k == 'ركلات جزاء2' or k == 'ملاحظة' 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 < 25) and vlen or 25) 
			k = mw.ustring.gsub(k, '[^%w%-_ ]', '?')
			table.insert(tracking, '[[تصنيف:Pages using football box collapsible with unknown parameters|' .. k .. ']]')
			table.insert(preview, '"' .. k .. '"')
		end
	end
end

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

local function trim(s)
	if isnotempty(s) then
		s = s:match('^[\'"%s]*(.-)[\'"%s]*$')
		return isnotempty(s) and s or nil
	end
	return nil
end

local function bold(s)
	if isnotempty(s) then
		return "'''" .. s .. "'''"
	end
	return ""
end

local function italic(s)
	if isnotempty(s) then
		return "''" .. s .. "''"
	end
	return ""
end

local function small(s)
	if isnotempty(s) then
		return '<small>' .. s .. '</small>'
	end
	return ''
end

local function nowrap(s)
	if isnotempty(s) then
		return '<span style="white-space:nowrap">' .. s .. '</span>'
	end
	return ''
end

local function background(frame, c, r, bg)
	if c ~= 'افتراضي' then
		if not mw.title.new(result_modules .. c) or not mw.title.new(result_modules .. c).exists then
			c = 'افتراضي'
			table.insert(tracking,'[[تصنيف:Pages using football box collapsible with unknown competition]]')
		end
	end
	local data = mw.loadData(result_modules .. c)
	local res = data[r:upper()]
	if res then
		res = '#' .. (data[res] 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 .. '<span class="fn org">';
        suffix = "</span>" .. b;
    else
        if mw.ustring.sub(team,1,3) == b then
            prefix = '<span class="fn org">';
            team = mw.ustring.sub(team,4);
        else
            prefix = '<span class="fn org">' .. b;
        end

        if mw.ustring.sub(team,-3) == b then
            suffix = "</span>";
            team = mw.ustring.sub(team,1,mw.ustring.len(team)-3);
        else
            suffix = b .. "</span>";
        end
    end
        
    return prefix .. team .. suffix;
end

local function score(s, a, ag, p)
	s = nowrap(bold(s ~= '' and s or 'v'))
	if a ~= '' then
		s = s .. small(' (' .. labels['ب.و.إ.'] .. ')')
	end
	if ag ~= '' then
		s = s .. '<br>' .. small(' (' .. bold(ag) .. ' ' .. labels['إجم.'] .. ')')
	end
	if p ~= '' then
		s = s .. '<br>' .. small(' (' .. bold(p) .. ' ' .. labels['ركل.'] .. ')')
	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['فريق1'] or frame.args['فريق2']) and frame.args or frame:getParent().args
	local id = trim(args['هوية'])
	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%', ['افتراضي'] = '19%'}
	local width2 = {['1'] = '19%', ['1.1'] = '25%', ['1.2'] = '19%', ['افتراضي'] = '23%'}
	local width3 = {['1'] =  '8%', ['1.1'] =  '8%', ['1.2'] =  '8%', ['افتراضي'] = '12%'}
	local width4 = {['1'] = '19%', ['1.1'] = '19%', ['1.2'] = '26%', ['افتراضي'] = '23%'}
	local width5 = {['1'] = '26%', ['1.1'] = '26%', ['1.2'] = '19%', ['افتراضي'] = '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'] == 'mw-collapsible' or args['class'] == 'uncollapsed' then 
			--valid
		elseif args['class'] == 'collapsible' then
			args['class'] = 'mw-collapsible'
		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
	
	-- required parameters
	for i, k in ipairs({'فريق1', 'فريق2'}) do
		if args[k] == nil then args[k] = '{{{' .. k .. '}}}' end
	end
	-- vcard for stadium
	if isnotempty(args['ملعب']) then
		args['ملعب'] = tostring(mw.html.create('span'):addClass('موقع'):wikitext(args['ملعب']))
	end

	-- placement of stadium and location information
	if isnotempty(args['موقع']) then
		location = args['موقع']
		if isnotempty(args['ملعب']) then
			table.insert(extra, labels['ملعب'] .. ' ' .. args['ملعب'])
		end
	elseif isnotempty(args['ملعب']) then
		location = args['ملعب']
	end

	-- remaining extra information
	for i, k in ipairs({'حضور', 'حكم', 'حكام مساعدون', 
		'assistantreferee2', 'مساعد فار', 'حكم فار',  'حكم رابع', 'حكم خامس', 
		'goallineassistants', 'goallineassistant2', 'potm', 'motm', 'mvp'}) do
		if isnotempty(args[k]) then
			table.insert(extra, labels[k] .. ' ' .. args[k])
		end
	end
	
	-- score
	local scorestr = ''
	if args['نتيجة1'] or args['نتيجة2'] then
		scorestr = (args['نتيجة1'] or '0') .. '&ndash;' .. (args['نتيجة2'] or '0')
	elseif args['نتيجة'] then
		scorestr = args['نتيجة']
	end
	
	-- notes
	if isnotempty(args['ملاحظة']) then
		table.insert(notes, "''" .. labels['ملاحظة'] .. " " .. args['ملاحظة'] .. "''")
	end
	if isnotempty(args['أنظر أيضا']) then
		table.insert(notes, "''" .. labels['أنظر أيضا'] .. " " .. args['أنظر أيضا'] .. "''")
	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['وقت']) or isnotempty(args['تقرير']) or 
		isnotempty(args['أهداف1']) or isnotempty(args['أهداف2']) or
		isnotempty(args['ركلات جزاء1']) or isnotempty(args['ركلات جزاء2']) then
	elseif 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['فريق1'] .. ' v ' .. args['فريق2'])
	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['حجم'] or '100%')
		:css('background', background(frame, args['منافسة'] or 'افتراضي', args['حصيلة'] or '', args['bg'] or ''))

	local row = rtable:tag('tr'):css('vertical-align', 'top')
	-- date and round
	local cell = row:tag('td')
		:css('width', width1[args['نسق'] or 'افتراضي'] or width1['افتراضي'])
	if isnotempty(args['تاريخ']) then
		cell:tag('span')
			:css('white-space', 'nowrap')
			:css('float', 'left')
			:css('margin-right', '0.5em')
			:wikitext(args['تاريخ'])
		cell:wikitext(' ')
	end
	if isnotempty(args['جولة']) then
		cell:wikitext(small(args['جولة']))
	end
	-- team1
	row:tag('td')
		:css('width', width2[args['format'] or 'افتراضي'] or width2['افتراضي'])
		:css('text-align', 'left')
		:addClass('vcard attendee')
		:wikitext(teamname(args['فريق1']))
	-- score
	row:tag('td')
		:css('width', width3[args['نسق'] or 'افتراضي'] or width3['افتراضي'])
		:css('text-align', 'center')
		:wikitext(score(scorestr, args['ب.و.إ.'] or '', args['نتيجة إجمالية'] or '', args['نتيجة ركلات جزاء'] or ''))
	-- team2
	row:tag('td')
		:css('width', width4[args['نسق'] or 'افتراضي'] or width4['افتراضي'])
		:addClass('vcard attendee')
		:wikitext(teamname(args['فريق2']))
	-- location, stadium
	row:tag('td')
		:css('width', location and (width5[args['نسق'] or 'افتراضي'] or width5['افتراضي']) or nil)
		:css('font-size', location and '85%' or nil)
		:wikitext(location)

	if #extra > 0 or isnotempty(args['وقت']) or isnotempty(args['تقرير']) or 
		isnotempty(args['أهداف1']) or isnotempty(args['أهداف2']) then
		local row = rtable:tag('tr'):css('vertical-align','top'):css('font-size','85%')
		-- time
		row:tag('td')
			:css('text-align', isnotempty(args['وقت']) and 'left' or nil)
			:wikitext(args['وقت'])
		row:newline()	
		-- goals1
		row:tag('td')
			:css('text-align', isnotempty(args['أهداف1']) and 'left' or nil)
			:wikitext(fmtlist(args['أهداف1']))	
		row:newline()
		-- report
		row:tag('td')
			:css('text-align', isnotempty(args['تقرير']) and 'center' or nil)
			:wikitext(makelink(args['تقرير'] or '', 'تقرير'))
		row:newline()
		-- goals2
		row:tag('td')
			:wikitext(fmtlist(args['أهداف2']))
		row:newline()
		-- location, stadium
		row:tag('td')
			:wikitext(table.concat(extra, '<br>'))
	end

	if isnotempty(args['ركلات جزاء1']) or isnotempty(args['ركلات جزاء2']) then
		row = rtable:tag('tr')
		row:tag('td'):attr('rowspan', 2)
		row:tag('td'):attr('colspan', 3):css('text-align', 'center'):wikitext(bold(labels['ركلات جزاء']))
		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['ركلات جزاء1']) and 'left' or nil)
			:wikitext(fmtlist(args['ركلات جزاء1']))
		row:newline()
		row:tag('td')
		row:newline()
		row:tag('td')
			:wikitext(fmtlist(args['ركلات جزاء2']))
		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, '<br>'))
		row:newline()
	end
	
	local trackstr = (#tracking > 0) and table.concat(tracking, '') or ''
	if #preview > 0 and frame:preprocess( "{{REVISIONID}}" ) == "" 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