Modul:Wikiproject

local getArgs = require('Modul:Arguments').getArgs
local TableTools = require('Modul:TableTools')
local wpData = mw.loadData('Modul:Wikiproject/data')
local p = {}

local function clasament(parentElement, class)
	local newTag = parentElement:tag('td')
		:css('background', class.background)
		:css('text-align', 'center')
		:wikitext(class.image and ('[[Fișier:' .. class.image .. '|14px]]') or '', class.classname, class.classcat and ('[[Categorie:' .. class.classcat .. '|' .. class.classname .. ']]') or '')
	return newTag
end

p.fromArgs = function(project, display, evaluation) 
	local crtTitle = mw.title.getCurrentTitle()

	local tableSpan = mw.html.create('span')
	tableSpan:attr('lang', 'x-sic')
	local mainTable = tableSpan:tag('table')
	mainTable:addClass('messagebox')
	if display.nested then
		mainTable
			:addClass('collapsible')
			:addClass('collapsed')
			:addClass('nested-talk')
	elseif display.small then
		mainTable:addClass('small-talk')
	else
		mainTable:addClass('standard-talk')
	end
	
	if display.nested then
		mainTable
			:tag('tr')
				:tag('th')
					:attr('colspan', '2')
					:css('text-align', 'center')
					:wikitext('[[' .. project.page .. '|Proiect ' .. project.name .. ']]', evaluation.class and (' (evaluat ca făcând parte din grupa ' .. evaluation.class .. ')') or nil)
	end

	local namespaceIndex = math.floor(crtTitle.namespace / 2) * 2
	local namespaceNameData = wpData.nsdata[namespaceIndex]
	local intro
	if namespaceNameData then 
		qualifiedIntro = (namespaceNameData.fem and 'Această ' or 'Acest ') .. namespaceNameData.displayName
		unqualifiedIntro = namespaceNameData.artDisplayName
	else
		qualifiedIntro = 'Acest ' .. mw.ustring.lower(mw.site.namespaces[namespaceIndex].name)
		unqualifiedIntro = mw.ustring.lower(mw.site.namespaces[namespaceIndex].name) .. 'ul'
	end

	mainTable
		:tag('tr')
			:tag('td')
				:attr('valign', 'center')
				:attr('align', 'center')
				:wikitext(project.image and ('[[Fișier:' .. project.image .. '|60px]]') or '')
				:done()
			:tag('td')
				:wikitext(unqualifiedIntro, ' ', "'''" .. crtTitle.text .. "'''", " este un subiect de care se ocupă '''''[[" .. project.page .. "|Proiectul " .. project.name .. "]]'''''", project.description and (', ' .. project.description))
				:newline()
				:tag('small')
					:wikitext("''Dacă doriți să participați la acest proiect, vă rugăm să vă înscrieți [[" .. project.page .. "/Participanți|aici]].''", '[[Categorie:Articole din domeniul proiectului ' .. project.name .. ']]')
					
	local classData = evaluation.class and wpData.classes[mw.ustring.lower(evaluation.class)] or wpData.noclass
	local qualityRow = mainTable:tag('tr')
	clasament(qualityRow, classData)
	qualityRow:tag('td')
			:wikitext(qualifiedIntro, ' ', evaluation.class and '' or 'încă nu ', 'a fost [[' .. project.page .. '/rezumat|evaluat]]', evaluation.class and (' ca făcând parte din grupa ' .. evaluation.class) or '', ' pe [[' .. project.page .. '/Clasificare|scala de calitate]].')
			
	local importanceData = evaluation.importance and wpData.importanceClasses[mw.ustring.lower(evaluation.importance)] or wpData.noclass
	local importanceRow = mainTable:tag('tr')
	clasament(importanceRow, importanceData)
	importanceRow:tag('td')
			:wikitext(qualifiedIntro, ' ', evaluation.importance and '' or 'încă nu ', 'a fost [[' .. project.page .. '/rezumat|evaluat]]', evaluation.importance and (' ca făcând parte din grupa ' .. evaluation.importance) or '', ' pe [[' .. project.page .. '/Clasificare|scala de importanță]].')
	
	local categoriesSpan = mw.html.create('span'):addClass('x-sic')
	
	if evaluation.class and classData.specificcat then
		categoriesSpan:wikitext('[[Categorie:' .. mw.ustring.gsub(classData.specificcat, '$1', project.name) .. '|' .. crtTitle.text .. ']]')
	end
	if evaluation.importance and importanceData.specificcat then
		categoriesSpan:wikitext('[[Categorie:' .. mw.ustring.gsub(importanceData.specificcat, '$1', project.name) .. '|' .. crtTitle.text .. ']]')
	end
	if not evaluation.class then
		categoriesSpan:wikitext('[[Categorie:Articole neclasificate ale proiectului ' .. project.name .. ' (calitate)|' .. crtTitle.text .. ']]')
	end
	if not evaluation.importance then
		categoriesSpan:wikitext('[[Categorie:Articole neclasificate ale proiectului ' .. project.name .. ' (importanță)|' .. crtTitle.text .. ']]')
	end
	
	local warning = ''
	if crtTitle.namespace %2 == 0 and crtTitle.namespace ~= 10 and crtTitle.namespace ~= 4 then
		local warningTable = mw.html.create('table')
			:addClass('messagebox'):addClass('plainlinks'):addClass('articletalkheader')
			:tag('tr')
				:tag('td'):wikitext('[[Fișier:Attention yellow.svg|80px]]'):done()
				:tag('td'):wikitext("Avertisment: Acest format a fost plasat pe o pagină care nu este pagină de discuții, un format sau o pagină proiect. '''Acest format trebuie să fie plasat <u>doar</u> pe paginile de discuții.'''"):allDone()
		warning = tostring(warningTable)
	end
	return warning .. tostring(tableSpan) .. tostring(categoriesSpan)
end

p.fromFrame = function(frame)
	local args = getArgs(frame)
	
	local project = {}
	local knownProjectData = wpData.knownProjects[project.name]
	project.name = args['nume_proiect']
	project.page = args['pagina_proiect'] or args['pagină_proiect'] or (knownProjectData and knownProjectData['pagină'])
	project.image = args['imagine_proiect'] or (knownProjectData and knownProjectData['imagine'])
	project.description = args['descriere_proiect'] or (knownProjectData and knownProjectData['descriere'])
	
	local display = {}
	display.nested = args['nested'] == 'yes' or args['nested'] == 'da'
	display.small = args['small'] == 'yes' or args['small'] == 'da'
	local evaluation = {}
	evaluation.class = args['class'] or args['clasament']
	evaluation.importance = args['importanță'] or args['importanţă']
	
	return p.fromArgs(project, display, evaluation)
end

p.multipleFromFrame = function(frame)
	local args = getArgs(frame)
	local bpv = args['bpv'] or args['living'] or args['în_viață'] or args['în viață']
end
return p