Mostrar código-fonte de Módulo:Navbox com grupos desmontáveis

Não tem permissão para editar esta página, pelos seguintes motivos:

Esta página está atualmente semiprotegida e pode ser editada somente por autorrevisores.

Semiproteção para não autorrevisores pode ser necessária em predefinições com muitos afluentes ou em outros casos especiais.

A razão para a proteção pode ser encontrada no regist(r)o de proteção. Se não houver entradas relevantes no regist(r)o de proteção, a página pode ter sido movida depois de ser protegida.
Você pode discutir esta página com outros. Se notou um erro ou tem uma sugestão para uma alteração simples, faça um pedido na página de pedidos para edição de páginas protegidas. Um autorrevisor pode então fazer a alteração em seu nome.
Você pode pedir a desproteção da página.

O seu endereço IP pertence a uma gama que foi bloqueada em todas as wikis da Wikimedia Foundation.
O bloqueio foi efetuado por ‪Jon Kolbert‬. O motivo apresentado foi Open proxy/Webhost: Visit the FAQ if you are affected .
- Início do bloqueio: 16h26min de 29 de agosto de 2021
- Expiração do bloqueio: 16h26min de 29 de agosto de 2024
O seu endereço IP atual é 52.7.32.16. A gama bloqueada é 52.7.0.0/16.
Inclua todos os detalhes acima em quaisquer contactos relacionados com este bloqueio, por favor. Se acredita que foi bloqueado por engano, pode encontrar informações adicionais e instruções na política global sobre a proibição de proxies abertos.
Caso contrário, para discutir o bloqueio abra um pedido para revisão na Meta-Wiki, por favor. Também pode enviar uma mensagem por correio eletrónico para a fila VRT dos stewards em stewards@wikimedia.org incluindo todos os detalhes acima.

No momento, você só pode visualizar e copiar o conteúdo desta página.

-- Este módulo implementa {{Navbox com grupos anexos}}
local q = {}
local Navbox = require('Módulo:Navbox')

-- funções auxiliares
local function concatstrings(s)
	local r = table.concat(s, '')
	if r:match('^%s*$') then r = nil end
	return r
end

local function concatstyles(s)
	local r = table.concat(s, ';')
	while r:match(';%s*;') do
		r = mw.ustring.gsub(r, ';%s*;', ';')
	end
	if r:match('^%s*;%s*$') then r = nil end
	return r
end

function q._navbox(pargs)
	-- tabela para args passada para a navbox
	local targs = {}
	pargs.selected = pargs.selected or pargs.selecionado or pargs.selecionada or pargs.selecionados or pargs.selecionadas

	-- args do processo
	local passthrough = {
		['name']=true,['nome']=true,['navbar']=true,['state']=true,['estado']=true,
		['border']=true,['borda']=true,['bodyclass']=true,['classe-corpo']=true,
		['groupclass']=true,['classe-grupo']=true,['listclass']=true,['classe-lista']=true,
		['style']=true,['estilo']=true,['bodystyle']=true,['estilo-corpo']=true,
		['basestyle']=true,['estilo-base']=true,['title']=true,['título']=true,
		['titleclass']=true,['classe-título']=true,['titlestyle']=true,['estilo-título']=true,
		['above']=true,['acima']=true,['aboveclass']=true,['classe-acima']=true,['abovestyle']=true,['estilo-acima']=true,
		['below']=true,['abaixo']=true,['belowclass']=true,['classe-abaixo']=true,['belowstyle']=true,['estilo-abaixo']=true,
		['image']=true,['imagem']=true,['imageclass']=true,['classe-imagem']=true,['imagestyle']=true,['estilo-imagem']=true,
		['imageleft']=true,['imagem-esquerda']=true,['imageleftstyle']=true,['estilo-imagem-esquerda']=true
	}
	for k,v in pairs(pargs) do
		if k and type(k) == 'string' then
			if passthrough[k] then
				targs[k] = v
			elseif (k:match('^list[0-9][0-9]*$') or k:match('^lista[0-9][0-9]*$')
					or k:match('^content[0-9][0-9]*$') or k:match('^conteúdo[0-9][0-9]*$') ) then
				local n = mw.ustring.gsub(k, '^[a-z]*([0-9]*)$', '%1')
				if (targs['list' .. n] == nil and pargs['group' .. n] == nil
					and pargs['grupo' .. n] == nil and pargs['sect' .. n] == nil
					and pargs['section' .. n] == nil and pargs['secção' .. n] == nil and pargs['seção' .. n] == nil) then
					targs['list' .. n] = concatstrings(
						{pargs['list' .. n] or pargs['lista' .. n] or '', pargs['content' .. n] or pargs['conteúdo' .. n] or ''}
					)
				end
			elseif (k:match('^group[0-9][0-9]*$')
					or k:match('^grupo[0-9][0-9]*$')
					or k:match('^sect[0-9][0-9]*$')
					or k:match('^section[0-9][0-9]*$')
					or k:match('^secção[0-9][0-9]*$')
					or k:match('^seção[0-9][0-9]*$')) then
				local n = mw.ustring.gsub(k, '^[a-z]*([0-9]*)$', '%1')
				if targs['list' .. n] == nil and targs['lista' .. n] == nil then
					local titlestyle = concatstyles(
						{pargs['groupstyle'] or pargs['estilo-grupo'] or '',
							pargs['secttitlestyle'] or pargs['estilo-título-secção'] or pargs['estilo-título-seção'] or '', 
							pargs['group' .. n .. 'style'] or pargs['estilo-grupo' .. n] or '', 
							pargs['section' .. n ..'titlestyle'] or pargs['estilo-título-secção' .. n] or pargs['estilo-título-seção' .. n] or ''})
					local liststyle = concatstyles(
						{pargs['liststyle'] or pargs['estilo-lista'] or '', pargs['contentstyle'] or pargs['estilo-conteúdo'] or '', 
							pargs['list' .. n .. 'style'] or pargs['estilo-lista' .. n] or '', 
							pargs['content' .. n .. 'style'] or pargs['estilo-conteúdo' .. n] or ''})
					local title = concatstrings(
						{pargs['group' .. n]  or pargs['grupo' .. n] or '', 
							pargs['sect' .. n] or '',
							pargs['section' .. n] or pargs['secção' .. n] or pargs['seção' .. n] or ''})
					local list = concatstrings(
						{pargs['list' .. n] or pargs['lista' .. n] or '', 
							pargs['content' .. n] or pargs['conteúdo' .. n] or ''})

					local state
					if (pargs['abbr' .. n] and pargs['abbr' .. n] == pargs['selected']
						or pargs['abr' .. n] and pargs['abr' .. n] == pargs['selected']
						or pargs['abrev' .. n] and pargs['abrev' .. n] == pargs['selected']) then
						state = 'uncollapsed'
					else
						state = pargs['state' .. n] or pargs['estado' .. n] or 'collapsed'
					end
					
					targs['list' .. n] = Navbox._navbox(
						{'child', navbar = 'plain', state = state,
						basestyle = pargs['basestyle'] or pargs['estilo-base'],
						title = title, titlestyle = titlestyle,
						list1 = list, liststyle = liststyle,
						listclass = pargs['list' .. n .. 'class'] or pargs['classe-lista' .. n],
						image = pargs['image' .. n] or pargs['imagem' .. n],
						imageleft = pargs['imageleft' .. n] or pargs['imagem-esquerda' .. n],
						listpadding = pargs['listpadding'] or pargs['padding-lista']})
				end
			end
		end
	end
	-- ordenação de estilo e estilo de corpo
	targs['style'] = concatstyles({targs['style'] or targs['estilo'] or '', targs['bodystyle'] or targs['estilo-corpo'] or ''})
	if not targs['styles'] then
		targs['estilo'] = concatstyles({targs['style'] or targs['estilo'] or '', targs['bodystyle'] or targs['estilo-corpo'] or ''})
	end
	targs['bodystyle'] = nil
	targs['corpo-estilo'] = nil
	
	-- child ou subgrupo
	if targs['border'] == nil then
		targs['border'] = pargs[1]
	elseif targs['borda'] == nil then
		targs['borda'] = pargs[1]
	end

	return Navbox._navbox(targs)
end

function q.navbox(frame)
	local pargs = require('Módulo:Arguments').getArgs(frame, {wrappers = 'Predefinição:Navbox com grupos desmontáveis'})

	-- Leia os argumentos na ordem em que serão inseridos, para que as referências sejam apresentadas na ordem correta.
	local _
	_ = pargs.title or pargs['título']
	_ = pargs.above or pargs.acima
	for i = 1, 20 do
		_ = pargs["group" .. tostring(i)] or pargs["grupo" .. tostring(i)]
		_ = pargs["list" .. tostring(i)] or pargs["lista" .. tostring(i)]
	end
	_ = pargs.below or pargs.abaixo

	return q._navbox(pargs)
end

return q

Predefinições utilizadas nesta página:

Predefinição:Ambox/styles.css (ver código-fonte) (apenas autorrevisores)
Predefinição:Falta doc (ver código-fonte) (apenas autorrevisores)
Predefinição:Ombox (ver código-fonte) (apenas autorrevisores)
Módulo:Arguments (ver código-fonte) (apenas autorrevisores)
Módulo:Message box (ver código-fonte) (apenas autorrevisores)
Módulo:Message box/configuration (ver código-fonte) (apenas autorrevisores)
Módulo:Navbox com grupos desmontáveis/doc (editar)
Módulo:Yesno (ver código-fonte) (apenas autorrevisores)

Voltar para Módulo:Navbox com grupos desmontáveis.

Obtida de "https://pt.wikipedia.org/wiki/Módulo:Navbox_com_grupos_desmontáveis"