پودمان:National squad

-- This module implements [[Template:National squad]] and 
-- [[Template:National squad no numbers]] to avoid articles being added to 
-- [[:Category:Pages where template include size is exceeded]]
-- when the template is used many times.
local p = {}

local setFarsiArguments = require('Module:Set Farsi argument names')
local numConv = require('Module:Numeral converter').convert

local prefixes = {
	['male'] = ' مردان',
	['men'] = ' مردان',
	['mens'] = ' مردان',
	['men\'s'] = ' مردان',
	['مرد'] = 'مردان',
	['مردان'] = 'مردان',
	['female'] = ' زنان',
	['women'] = ' زنان',
	['womens'] = ' زنان',
	['women\'s'] = ' زنان',
	['زن'] = 'زنان',
	['زنان'] = 'زنان',
	[''] = ''
}
function p.main(frame)
	local getArgs = require('Module:Arguments').getArgs
	local args = getArgs(frame, {parentFirst = true})
	
	setFarsiArguments(
		args,
		{
			['country']		= 'کشور',		['coach_type']	= 'نوع مربی',
			['comp']		= 'رقابت',		['sport']		= 'ورزش',
			['gender']		= 'جنسیت',		['bg']			= 'پس‌زمینه',
			['fg']			= 'روی زمینه',	['bordercolor']	= 'رنگ حاشیه',
			['flagvar']		= 'گونه پرچم',	['team link']	= 'پیوند تیم',
			['title']		= 'عنوان',		['comp link']	= 'پیوند رقابت',
			['list']		= 'فهرست',		['name']		= 'نام',
			['nonumbers']	= 'بدون عدد',	['note']		= 'یادداشت',
			['coach']		= 'مربی'
			
		}
	)
	
	local country = args.country or '{{{کشور}}}'
	local coach_label = args.coach_type or 'مربی'
	local comp = args.comp or '{{{رقابت}}}'
	local sport = args.sport or 'فوتبال'
	local gender = prefixes[args.gender or ''] or ''
	local titlestyle = 'background-color:' .. (args.bg or 'transparent') .. ';'
		.. 'color:' .. (args.fg or 'inherit') .. ';' 
		.. 'border:1px solid ' .. (args.bordercolor or '#aaa')
	local image = (args.country ~= 'Unified Team' and args.country ~= 'تیم متحد') and require('Module:Flagg').luaMain(frame, {
		'cxxl',
		args.country or 'none',
		args.flagvar,
		size = '50px'
	}) or frame:expandTemplate{
		title = 'flagicon image', 
		args = {'Olympic flag.svg', size = '50px'}
	}

	local ospan = '<span style="color:' .. (args.fg or 'inherit') .. '">'
	local cspan = '</span>'	
	local title = mw.ustring.format('[[%s|%s%s%s]] – [[%s|%s%s%s]]', 
		args['team link'] or ('تیم ملی ' .. sport .. ' ' .. gender .. ' ' .. country), 
		ospan, args.title or 'ترکیب تیم ' .. country, cspan, 
		args['comp link'] or comp, ospan, comp, cspan)
	
	local haspos = false
	
	-- Tracking and preview warnings
	local knownargs = {['bg']=1, ['fg']=1, ['bordercolor']=1, ['coach']=1, ['coach_type']=1,
		['comp']=1, ['comp link']=1, ['country']=1, ['flagvar']=1, ['gender']=1, 
		['list']=1, ['name']=1, ['nonumbers'] = 1, ['note']=1, ['sport']=1, ['team link']=1, ['title']=1,
		['پس‌زمینه']=1, ['روی زمینه']=1, ['مربی']=1, ['نوع مربی']=1, ['پیوند رقابت']=1, ['کشور']=1, 
		['گونه پرچم']=1, ['جنسیت']=1, ['رقابت']=1, ['نام']=1, ['بدون عدد']=1, ['یادداشت']=1, 
		['ورزش']=1, ['پیوند تیم']=1, ['عنوان']=1, ['فهرست']=1, ['رنگ حاشیه']=1
	}
	local badargs = {}
	local numlist = {}
	for k, v in pairs(args) do
		if knownargs[k] then
		elseif type(k) == 'string' then
			local n = tonumber(mw.ustring.match(k, '^p(%d+)$') or
				mw.ustring.match(k, 'pos(%d+)') or
				numConv('en', mw.ustring.match(k, '^ب(%d+)$') or mw.ustring.match(k, 'پ(%d+)')) or
				'-1'
			)
			if (mw.ustring.match(k, '^p%d+$') or mw.ustring.match(k, '^ب%d+$')) and n >= 0 and n <= 99 then
				table.insert(numlist, (mw.ustring.match(k, '^p(%d+)$') or numConv('en', mw.ustring.match(k, '^ب(%d+)$'))))
			elseif args.nonumbers and ((mw.ustring.match(k, '^pos%d+$') or mw.ustring.match(k, '^پ%d+$')) and n >= 0 and n <= 99) then
				if v and v ~= '' then haspos = true end
			elseif v and v ~= '' then
				table.insert(badargs, k)
			end
		elseif v and v ~= '' then
			table.insert(badargs, k)
		end
	end
	table.sort(
		numlist,
		function (a, b) 
			return tonumber(a) < tonumber(b) or (tonumber(a) == tonumber(b) and #a > #b)
		end
	)
	local pv = require('Module:If preview')
	local preview, tracking = '', ''
	if #badargs > 0 then
		for k, v in pairs(badargs) do
			if v == '' then	v = ' '	end
			v = mw.ustring.gsub(v, '[^%w\\-_ ]', '؟')
			preview = preview .. pv._warning({
				'این صفحه از [[الگو:تیم ملی]] با پارامتر نامعلوم «' .. v .. '» استفاده می‌کند.'
			})
			tracking = tracking .. '[[رده:صفحه‌هایی که از تیم ملی با پارامترهای نامعلوم استفاده می‌کنند|' .. v .. ']]'
		end
	end
	if (args['title'] == nil and args['team link'] == nil and args.country == nil) or args.comp == nil then
		tracking = tracking .. '[[رده:صفحه‌هایی که از تیم ملی با پارامترهای نامعلوم استفاده می‌کنند|!]]'
	end
	if not args['comp link'] then
		tracking = tracking .. '[[رده:صفحه‌هایی که از تیم ملی بدون پیوند رقابت استفاده می‌کنند]]'
	end
	if not args['sport'] then
		if not args['team link'] then
			tracking = tracking .. '[[رده:صفحه‌هایی که از تیم ملی بدون ورزش یا پیوند تیم استفاده می‌کنند]]'
		end
	end
	if sport ~= 'football' and sport ~= 'futsal' and sport ~= 'basketball' and
	   sport ~= 'فوتبال' and sport ~= 'فوتسال' and sport ~= 'بسکتبال' then
		if not args['team link'] then
			local sortkey = mw.ustring.gsub(sport, '[^A-Za-zا-ی]', ' ')
			tracking = tracking .. '[[رده:صفحه‌هایی که از تیم ملی بدون پیوند تیم و با یک ورزش غیر معمول استفاده می‌کنند|' .. sortkey .. ' ]]'
		end
	end
	if prefixes[args.gender or ''] == nil then
		tracking = tracking .. '[[رده:صفحه‌هایی که از تیم ملی با جنسیت پشتیبانی‌نشده استفاده می‌کنند]]'
	end
	if args.name == nil then
		tracking = tracking .. '[[رده:صفحه‌هایی که از تیم ملی بدون نام استفاده می‌کنند]]'
	end
	-- if tracking ~= '' and mw.title.getCurrentTitle().namespace > 0 then tracking = '' end
	
	local list1 = args.list or ''
	if list1 == '' then
		for i,k in ipairs(numlist) do
			if args['p' .. k] or args['ب' .. numConv('fa', k)] then
				local n = args.nonumbers and (args['pos' .. k] or args['پ' .. numConv('fa', k)] or '') or tostring(k)
				if n ~= '' or haspos == true then
					list1 = list1 .. mw.ustring.format(
						'*%s&nbsp;<span class="vcard agent"><span class="fn">%s</span></span>\n',
						numConv('fa', n), args['p' .. k] or args['ب' .. numConv('fa', k)])
				else
					list1 = list1 .. mw.ustring.format(
						'*<span class="vcard agent"><span class="fn">%s</span></span>\n', args['p' .. k])
				end
			end
		end
		if args.coach then
			list1 = list1 .. mw.ustring.format(
				'*<span class="vcard agent">%s:&nbsp;<span class="fn">%s</span></span>',
				coach_label, args.coach)
		end
	end
	local list3 = args.note and ('' .. args.note .. '') or nil
	
	return require('Module:Navbox')._navbox({
		name = args.name,
		titlestyle = titlestyle, 
		listclass = 'hlist', bodyclass = 'vcard', titleclass = 'fn org',
		image = image, title = title, list1 = list1, list3 = list3
	}) .. tracking .. preview
end

return p