Moodul:Navbar

local p = {}

local getArgs

function p._navbar(args)
	local titleArg = 1

	if args.collapsible then
		titleArg = 2
		if not args.plain then
			args.mini = 1
		end
		if args.fontcolor then
			args.fontstyle = 'color:' .. args.fontcolor .. ';'
		end
		args.style = 'float:left; text-align:left'
	end

	local titleText = args[titleArg] or (':' .. mw.getCurrentFrame():getParent():getTitle())
	local title = mw.title.new(mw.text.trim(titleText), 'Mall');

	if not title then
		error('Vigane pealkiri ' .. titleText)
	end

	local talkpage = title.talkPageTitle and title.talkPageTitle.fullText or '';

	local frame = mw.getCurrentFrame()
	local styles = frame:extensionTag( 'templatestyles', '', { src = 'Moodul:Navbar/styles.css' } )
	
	local div = mw.html.create():tag('div')
	div
		:addClass('navbar')
		:cssText(args.style)

	if args.mini then div:addClass('mini') end

	if not (args.mini or args.plain) then
		div
			:tag('span')
				:css('word-spacing', 0)
				:cssText(args.fontstyle)
				:wikitext(args.text or 'See kast:')
				:wikitext(' ')
	end

	if args.brackets then
		div
			:tag('span')
				:css('margin-right', '-0.125em')
				:cssText(args.fontstyle)
				:wikitext('[ ')
	end

	local ul = div:tag('ul');

	ul
		:tag('li')
			:addClass('nv-view')
			:wikitext('[[' .. title.fullText .. '|')
			:tag(args.mini and 'abbr' or 'span')
				:attr('title', 'Vaata seda malli')
				:cssText(args.fontstyle)
				:wikitext(args.mini and 'v' or 'vaata')
				:done()
			:wikitext(']]')
			:done()
		--[=[
		:tag('li')
			:addClass('nv-talk')
			:wikitext('[[' .. talkpage .. '|')
			:tag(args.mini and 'abbr' or 'span')
				:attr('title', 'Selle malli arutelu')
				:cssText(args.fontstyle)
				:wikitext(args.mini and 'a' or 'arutelu')
				:done()
			:wikitext(']]');
		]=]
	if not args.noedit then
		ul
			:tag('li')
				:addClass('nv-edit')
				:wikitext('[[Eri:EditPage/' .. title.fullText .. '|')
				:tag(args.mini and 'abbr' or 'span')
					:attr('title', 'Redigeeri seda malli')
					:cssText(args.fontstyle)
					:wikitext(args.mini and 'r' or 'redigeeri')
					:done()
				:wikitext(']]');
	end

	if args.brackets then
		div
			:tag('span')
				:css('margin-left', '-0.125em')
				:cssText(args.fontstyle)
				:wikitext(' ]')
	end

	if args.collapsible then
		div
			:done()
		:tag('div')
			:css('font-size', '114%')
			:css('margin', args.mini and '0 4em' or '0 7em')
			:cssText(args.fontstyle)
			:wikitext(args[1])
	end

	return styles .. tostring(div:done())
end

function p.navbar(frame)
	if not getArgs then
		getArgs = require('Module:Arguments').getArgs
	end
	local args = getArgs(frame)

 	-- tekitame vastenduse
	local argsToMap = {
		["klapitav"] = "collapsible",
		["lihtne"] = "plain",
		["kirjastiil"] = "fontstyle",
		["stiil"] = "style",
		["tekst"] = "text",
		["redigeerimislingita"] = "noedit",
		["sulud"] = "brackets",
		["fondivärvus"] = "fontcolor"
	}

	for key, value in pairs(argsToMap) do
		if (args[key] ~= nil) then
			args[value] = args[key]
		end
	end

	return p._navbar(args)
end

return p