پرش به محتوا

پودمان:Football box collapsible

از ویکی‌پدیا، دانشنامهٔ آزاد
توضیحات پودمان[ایجاد] [پاکسازی]
-- Implements [[الگو: جعبه فوتبال تاشو]]
local p = {}

local labels = {
	['ضربات پنالتی'] = '[[ضربات پنالتی (فوتبال)|ضربات پنالتی]]',
	['ضربه‌زدن'] = '[[ضربات پنالتی (فوتبال)|ضربه‌زدن]]',
	['پنالتی'] = '[[ضربات پنالتی (فوتبال)|پنالتی]]',
	['ضربه‌زدن۲'] = '[[ضربات پنالتی (فوتبال)|ض.ز]]',
	['وقت اضافه'] = '[[وقت اضافه|و.ا.]]',
	['گل زده در خانه حریف'] = '[[قانون گل زده در خانه حریف|گ.ح.]]',
	['ورزشگاه'] = 'ورزشگاه:', 
	['تماشاگران'] = 'تماشاگران:',
	['داور'] = 'داور:',
	['کمک داور'] = 'کمک‌داور:',
	['کمک داور۲'] = '<span style="visibility:hidden">کمک‌داور:</span>',
	['داور چهارم'] = 'داور چهارم:',
	['داور  پنجم'] = 'داور پنجم:',
	['داور پشت دروازه'] = 'کمک‌داور پشت دروازه:',
	['داور پشت دروازه۲'] = '<span style="visibility:hidden">کمک‌داور پشت دروازه:</span>',
	['مرد مسابقه'] = 'مرد مسابقه:',
	['بهترین بازیکن'] = 'بهترین بازیکن:',
	['ارزشمندترین بازیکن'] = 'ارزشمندترین بازیکن:',
	['یادداشت'] = 'یادداشت:',
	['جستارهای وابسته'] = 'جستارهای وابسته:'
}
local colors = {
	["W"] = "BBF3BB",
	["برد"] = "BBF3BB",
	["L"] = "FFBBBB",
	["باخت"] = "FFBBBB",
	["T"] = "D" , ["D"] = "FFFFBB", ["مساوی"] = "FFFFBB",
	["V"] = "P", ["P"] = "BBBBBB",
	["لغو"] = "تعویق", ["تعویق"] = "BBBBBB"
}

local tracking, preview

local function checkarg(k,v)
	if k and type(k) == 'string' then
		if k == 'شناسه' or k == 'id' or k == 'تیم۱' or k == 'team1' or k == 'تیم۲' or k == 'team2' or k == 'وضعیت' or k == 'class' or k == 'بی نوار' or 
			k == 'nobars' or k == 'اندازه' or k == 'size' or k == 'حاصل' or 
			k == 'result' or k == 'پس‌زمینه' or k == 'bg' or k == 'قالب' or k == 'format' or k == 'تاریخ' or k == 'date' or k == 'یادداشت نتیجه' or k == 'scorenote' or k == 'دور' or
			k == 'round' or k == 'نتیجه' or k == 'score' or k == 'وقت اضافه' or k == 'aet' or k == 'گل زده در خانه حریف' or k == 'aggregatescore' or k == 'نتیجه پنالتی' or 
			k == 'penaltyscore' or k == 'مکان' or k == 'location' or k == 'ورزشگاه' or k == 'stadium' or k == 'زمان' or 
			k == 'time' or k == 'گل۱' or k == 'goals1' or k == 'گزارش' or k == 'report' or k == 'گل۲' or k == 'goals2' or k == 'تماشاگران' or 
			k == 'attendance' or k == 'داور' or k == 'referee' or k == 'کمک‌داوران' or k == 'assistantreferees' or k == 'کمک‌داور۲' or 
			k == 'assistantreferee2' or k == 'داور چهارم' or k == 'fourthofficial' or k == 'داور پنجم' or 
			k == 'fifthofficial' or k == 'داوران پشت دروازه' or k == 'goallineassistants' or k == 'داور پشت دروازه ۲' or 
			k == 'goallineassistant2' or k == 'بهترین بازیکن' or k == 'potm' or k == 'مرد مسابقه' or k == 'motm' or k == 'ارزشمندترین بازیکن' or 
			k == 'mvp' or k == 'پنالتی۱' or k == 'penalties1' or k == 'پنالتی۲' or k == 'penalties2' or k == 'یادداشت' or k == 'note' or k == 'نتیجه ضربه‌زدن' or 
			k == 'shootoutscore' or k == 'ضربه‌زدن۱' or k == 'shootout1' or k == 'ضربه‌زدن۲' or k == 'shootout2' or k == 'جستارهای وابسته' or
			k == 'seealso' or k == 'پیوند' 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, '[[رده:صفحه‌هایی که از جعبه فوتبال تاشو با پارامترهای نامعلوم استفاده می‌کنند|' .. 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)
	local data = colors
	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 = '<span class="fn org">' .. b .. ' ';
        suffix = ' ' .. b .. "</span>";
    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, so)
	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['پنالتی'] .. ')')
	elseif so ~= '' then
		s = s .. '<br>' .. small(' (' .. bold(so) .. ' ' .. 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['تیم۱'] or frame.args['تیم۲']) and frame.args or frame:getParent().args
	
        args['نتیجه۱'] = args['نتیجه۱'] or args['score1']
        args['نتیجه۲'] = args['نتیجه۲'] or args['score2']
        args['نتیجه'] = args['نتیجه'] or args['score']
        args['وقت اضافه'] = args['وقت اضافه'] or args['aet']
        args['رویداد'] = args['رویداد'] or args['event']
        args['تاریخ'] = args['تاریخ'] or args['date']
        args['زمان'] = args['زمان'] or args['time']
        args['دور'] = args['دور'] or args['round']
        args['تیم۱'] = args['تیم۱'] or args['team1']
        args['تیم۲'] = args['تیم۲'] or args['team2']
        args['گل۱'] = args['گل۱'] or args['goals1']
        args['گل۲'] = args['گل۲'] or args['goals2']
        args['پنالتی۱'] = args['پنالتی۱'] or args['penalties1']
        args['پنالتی۲'] = args['پنالتی۲'] or args['penalties2']
        args['نتیجه پنالتی'] = args['نتیجه پنالتی'] or args['penaltyscore']
        args['گزارش'] = args['گزارش'] or args['report']
        args['ورزشگاه'] = args['ورزشگاه'] or args['stadium']
        args['مکان'] = args['مکان'] or args['location']
        args['تماشاگران'] = args['تماشاگران'] or args['attendance']
        args['داور'] = args['داور'] or args['referee']
        args['یادداشت نتیجه'] = args['یادداشت نتیجه'] or args['scorenote']
        args['اندازه'] = args['اندازه'] or args['size']
        args['یادداشت'] = args['یادداشت'] or args['note']
        args['جستارهای وابسته'] = args['جستارهای وابسته'] or args['see aslo']
        args['ضربه‌زدن'] = args['ضربه‌زدن'] or args['shootout']
        args['۱ضربه‌زدن'] = args['۱ضربه‌زدن'] or args['shootout1']
        args['۲ضربه‌زدن'] = args['۲ضربه‌زدن'] or args['shootout2']
        args['مرد مسابقه'] = args['مرد مسابقه'] or args['motm']
        args['بهترین بازیکن'] = args['بهترین بازیکن'] or args['potm']
        args['پس‌زمینه'] = args['پس‌زمینه'] or args['bg']
        args['حاصل'] = args['حاصل'] or args['result']
        args['وضعیت'] = args['وضعیت'] or args['class']
        args['گل زده در خانه حریف'] = args['گل زده در خانه حریف'] or args['aggregatescore']
        args['ارزشمندترین بازیکن'] = args['ارزشمندترین بازیکن'] or args['mvp']
        args['بی نوار'] = args['بی نوار'] or args['nobars']
        args['قالب'] = args['قالب'] or args['format']
        args['پیوند'] = args['پیوند'] or args['stack']
    
	local id = trim(args['شناسه'] or args['id'])
	local bars = (args['بی نوار'] == nil) or (args['bars'] == '')
	local class = trim(args['وضعیت'] 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['وضعیت'] then
		if args['وضعیت'] == 'تاشو' or args['وضعیت']  == 'collapsible' or args['وضعیت'] == 'mw-collapsible'  or args == 'غیرتاشو' or args['وضعیت'] == 'uncollapsed' then 
			--valid
		elseif args['وضعیت'] == '' then
			table.insert(tracking,'[[رده:صفحه‌هایی که از الگو:جعبه فوتبال تاشو با پارامتر خالی وضعیت استفاده می‌کنند]]')
		else
			table.insert(tracking,'[[رده:صفحه‌هایی که از الگو:جعبه فوتبال تاشو با پارامتر وضعیت استفاده می‌کنند]]')
		end
	end
	
	if isnotempty(args['پیوند']) then
		table.insert(tracking, '[[رده:صفحه‌هایی که از الگو:جعبه فوتبال تاشو با پارامتر پیوند استفاده می‌کنند]]')
	end
	
	-- required parameters
	for i, k in ipairs({'تیم۱', 'تیم۲'}) 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('location'):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({'تماشاگران', 'داور', 'کمک‌داوران', 
		'کمک‌داور۲', 'داور چهارم', 'داور پنحم', 
		'کمک‌داوران پشت دروازه', 'کمک‌داور پشت دروازه۲', 'بهترین بازیکن', 'مرد مسابقه', 'ارزشمندترین بازیکن'}) do
		if isnotempty(args[k]) then
			table.insert(extra, labels[k] .. ' ' .. args[k])
		end
	end
	
	-- score
	local scorestr = ''
	if args['نتیجه۱'] or args['نتیجه۲'] then
		scorestr = (args['نتیجه۱'] or '0') .. '&ndash;' .. (args['نتیجه۲'] or '0')
	elseif args['نتیجه'] then
		scorestr = args['نتیجه']
	end
	if args['یادداشت نتیجه'] then
		scorestr = scorestr .. '<br>' .. 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 == 'غیرتاشو' or class == 'uncollapsed' then
		class = ''
	elseif #extra > 0 or #notes > 0 or isnotempty(args['زمان']) or isnotempty(args['گزارش']) or 
		isnotempty(args['گل۱']) or isnotempty(args['گل۲']) or
		isnotempty(args['پنالتی۱']) or isnotempty(args['پنالتی۲']) or
		isnotempty(args['ضربه‌زدن۱']) or isnotempty(args['ضربه‌زدن۲']) then
	elseif class == 'تاشو' or 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['تیم۱'] .. ' v ' .. args['تیم۲'])
	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['حاصل'] or '', args['پس‌زمینه'] or ''))

	local row = rtable:tag('tr'):css('vertical-align', 'top')
	-- date and round
	local cell = row:tag('td')
		:css('width', width1[args['قالب'] or 'default'] or width1['default'])
	if isnotempty(args['تاریخ']) then
		cell:tag('span')
			:css('white-space', 'nowrap')
			:css('float', 'left')
			:css('margin-left', '0.5em')
			:wikitext(args['تاریخ'])
		cell:wikitext(' ')
	end
	if isnotempty(args['دور']) then
		cell:wikitext(small(args['دور']))
	end
	-- team1
	row:tag('td')
		:css('width', width2[args['قالب'] or 'default'] or width2['default'])
		:css('text-align', 'left')
		:addClass('vcard attendee')
		:wikitext(teamname(args['تیم۱']))
	-- score
	row:tag('td')
		:css('width', width3[args['قالب'] or 'default'] or width3['default'])
		:css('text-align', 'center')
		:wikitext(score(scorestr, args['وقت اضافه'] or '', args['گل زده در خانه حریف'] or '', args['نتیجه پنالتی'] or '', args['نتیجه ضربه‌زدن'] or ''))
	-- team2
	row:tag('td')
		:css('width', width4[args['قالب'] or 'default'] or width4['default'])
		:addClass('vcard attendee')
		:wikitext(teamname(args['تیم۲']))
	-- location, stadium
	row:tag('td')
		:css('width', width5[args['قالب'] or 'default'] or nil)
		:css('font-size', location and '85%' or nil)
		:wikitext(location)

	if #extra > 0 or isnotempty(args['زمان']) or isnotempty(args['گزارش']) or 
		isnotempty(args['گل۱']) or isnotempty(args['گل۲']) 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['گل۱']) and 'left' or nil)
			:wikitext(fmtlist(args['گل۱']))	
		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['گل۲']))
		row:newline()
		-- location, stadium
		row:tag('td')
			:wikitext(table.concat(extra, '<br>'))
	end

	if isnotempty(args['۱پنالتی']) or isnotempty(args['پنالتی۲']) 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['پنالتی۱']) and 'left' or nil)
			:wikitext(fmtlist(args['پنالتی۱']))
		row:newline()
		row:tag('td')
		row:newline()
		row:tag('td')
			:wikitext(fmtlist(args['پنالتی۲']))
		row:newline()
	elseif isnotempty(args['ضربه‌زدن۱']) or isnotempty(args['ضربه‌زدن۲']) 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['ضربه‌زدن۱']) and 'left' or nil)
			:wikitext(fmtlist(args['ضربه‌زدن۱']))
		row:newline()
		row:tag('td')
		row:newline()
		row:tag('td')
			:wikitext(fmtlist(args['ضربه‌زدن۲']))
		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 then
		trackstr = require('Module:If preview')._warning({
			'پارامترهای ناشناخته ' .. table.concat(preview, '؛ ') .. '.'
		}) .. trackstr
	end
	
	return tostring(root) .. trackstr
end

return p