3 167
edições
Mudanças
Ir para navegação
Ir para pesquisar
Criação do Módulo Navbox com grupos desmontáveis.
-- 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
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
