Wikipedia

Modulo:Navbox: differenze tra le versioni

Naviga nella cronologia in modo interattivo
← Differenza precedente
Contenuto cancellato Contenuto aggiunto
Annullata la modifica 95563930 di Rotpunkt (discussione) ripristino per errore da correggere
Etichetta: Annulla
navbar obbligatorio, v. Discussioni_template:Navbox#Barra_navigazione_Template. è disabilitato senza valido motivo in oltre 700 template, mentre gli usi in portali/progetti sono 7 e risolvibili in altri modi
 
(6 versioni intermedie di 2 utenti non mostrate)
Riga 1:
--[[
* Modulo perche implementareimplementa le funzionalità deii template Navbox e Navbox_subgroup.
]]--
* Costruisce un template di navigazione basato su una table HTML.
]]
 
require('Modulo:No globalsstrict')
 
local getArgs = require('Modulo:Arguments').getArgs
-- Numero massimo di liste e gruppi per i template Navbox e Navbox_subgroup
local MAX_LIST_NAVBOX = 30
local MAX_LIST_NAVBOX_SUBGROUP = 20
 
-- =============================================================================
-- Configurazione
-- Funzioni di utilità
local cfg = mw.loadData('Modulo:Navbox/Configurazione')
-- =============================================================================
 
-- Restituisce una sequence Lua ordinata contenente gli ID dei listN presenti.
-------------------------------------------------------------------------------
-- Funzioni di utilità
-------------------------------------------------------------------------------
 
-- Ritorna true se il nome dell'argomento è valido
local function isValidArg(name, validArgs, maxList)
local ret = validArgs[name] ~= nil
 
if not ret then
local id = name:match('^list(%d+)$') or name:match('^group(%d+)$') or
name:match('^list(%d+)style$') or name:match('^group(%d+)style$')
if id then
ret = tonumber(id) <= maxList
end
end
 
return ret
end
 
-- Ritorna gli argomenti passati al modulo, scartando quelli senza nome,
-- quelli contenenti stringhe vuote e i non riconosciuti.
local function parseArgs(args, isSubgroup)
local ret = {}
local validArgs = isSubgroup and cfg.subgroupArgs or cfg.navboxArgs
local maxList = isSubgroup and cfg.subgroupMaxList or cfg.navboxMaxList
 
for k, v in pairs(args) do
if type(k) == 'string' and v ~= '' and isValidArg(k, validArgs, maxList) then
ret[k] = v
end
end
 
return ret
end
 
-- Ritorna una sequence contenente gli ID dei listN presenti, ordinata e senza duplicati.
-- Se withGroup è true, controlla anche i groupN.
--
-- @param {table} args
-- @param {boolean} withGroup
-- @return {table}
local function getIds(args, withGroup)
local ret, ids = {}, {}
for key, _ in pairs(args) do
local ret = {}
if type(key) == 'string' then
local id = key:match('^list(%d+)$') or (withGroup and key:match('^group(%d+)$'))
-- siccome Lua ha solo le table e non i set (elementi unici), prima popola ids usando le chiavi
if id and tonumber(id) <= (withGroup and MAX_LIST_NAVBOX or MAX_LIST_NAVBOX_SUBGROUP) then
for k, _ in pairs(args) do
ids[tonumber(id)] = true
local id = k:match('^list(%d+)$') or (withGroup and k:match('^group(%d+)$'))
end
if id then
ids[tonumber(id)] = 1
end
end
for key, _ in pairs(ids) do
 
table.insert(ret, key)
-- quindi ritorna una sequence fatta delle chiavi della table ids
for k, _ in pairs(ids) do
table.insert(ret, k)
end
table.sort(ret)
 
return ret
end
 
-- ToglieRimuove eventuali spazi/a capo dannosi attorno ai {{,}}.
--
-- @param {string} list
-- @return {string}
local function trimSep(list)
local sep = mw.getCurrentFrame():expandTemplate{ title = "," }
local sepEsc = mw.ustring.gsub(sep, '-', '%-')
return mw.ustring.gsub(list, '%s*' .. sepEsc .. '%s*', sep)
Line 77 ⟶ 48:
 
-- Con il debug ridefinisce il metodo mw.html:css,
-- permettendo di eseguire i test senza controllare anche iil cssCSS.
--
-- @param {table} tableNode
local function disableCSS(tableNode)
local mt = getmetatable(tableNode)
Line 83 ⟶ 56:
end
 
-- Verifica se il template è elaborato nella sua pagina
-------------------------------------------------------------------------------
local function isTemplatePage(name)
-- classe Navbox
local title = mw.title.getCurrentTitle().prefixedText
-------------------------------------------------------------------------------
name = 'Template:' .. (name or '')
return name == title and true or false
end
 
-- Carica il CSS via TemplateStyles quando opportuno
local function loadCSS(name)
local prefix = isTemplatePage(name) and 'mobile-' or ''
local styles = 'Modulo:Navbox/' .. prefix .. 'styles.css'
return mw.getCurrentFrame():extensionTag{
name = 'templatestyles',
args = {src = styles}
}
end
 
-- =============================================================================
-- Classe Navbox
-- =============================================================================
 
local Navbox = {}
 
-- Costruttore della classe Navbox.
--
-- @param {table} args - gli argomenti passati al modulo
-- @return {table} un nuovo oggetto Navbox
function Navbox:new(args)
local self = {}
local thNode
local thStyle = {
['text-align'] = 'center',
width = '100%',
background = '#ccf',
['font-size'] = '90%'
}
 
setmetatable(self, { __index = Navbox })
self.args = args
-- costruzione tabletabella HTML
self.tableNode = mw.html.create('table')
if self.args.debug then
Line 107 ⟶ 95:
end
self:_setupTableNode()
-- prima rowriga: contiene la navbar e il titolo
thNode = self.tableNode:tag('tr')
:tag('th')
:attr('colspan', self.args.image and '3' or '2')
:css(thStyle)
:cssText(self.args.titlestyle)
self:_addTnavbar(thNode)
if self.args.navbar ~= 'plain' then
self:_addTnavbar(thNode)
end
if self.args.title then
self:_addTitle(thNode)
end
-- eventuale rowriga per l'above
if self.args.above then
self:_addAboveOrBelow(self.args.above, self.args.abovestyle)
end
-- altre rowrighe
self:_addLists()
-- eventuale rowriga finale per il below
if self.args.below then
self:_addAboveOrBelow(self.args.below, self.args.belowstyle)
Line 133 ⟶ 118:
end
 
-- Restituisce la tabella HTML.
--
-- @return {string}
function Navbox:getHTML()
return tostring(self.tableNode)
end
 
-- Configura gli stili CSS della tabella
function Navbox:_setupTableNode()
local tableStyle = {
margin = 'auto',
width = '100%',
clear = 'both',
border = '1px solid #aaa',
padding = '2px'
}
self.tableNode
:addClass(isTemplatePage(self.args.name) and 'navbox_mobile' or 'navbox')
:addClass('mw-collapsible')
:addClass(isTemplatePage(self.args.state == 'collapsed'name) and 'mw-collapsedautocollapse' or
(self.args.state == 'autocollapsecollapsed' and 'autocollapsemw-collapsed' or
(not self.args.state == 'autocollapse' and 'autocollapse' or nil)))
not self.args.state and 'autocollapse' or nil)
:addClass('nowraplinks')
:addClass('noprint metadata')
:attr('id', 'navbox-' .. (self.args.name or ''))
:addClass('metadata')
:css(tableStyle)
:cssText(self.args.style)
:cssText(self.args.bodystyle)
end
 
-- Aggiunge il Tnavbar (collegamenti alla pagina del template, di discussione e modifica).
--
-- @param {table} node
function Navbox:_addTnavbar(node)
local divStyle = {
float = 'left',
width = '6em',
['text-align'] = 'left',
padding = '0 10px 0 0',
margin = '0px'
}
local tnavbar = mw.getCurrentFrame():expandTemplate {
title = 'Tnavbar',
Line 174 ⟶ 151:
}
}
node:tag('div'):cssaddClass(divStyle'navbox_navbar'):wikitext(tnavbar)
end
 
-- Imposta il titolo del navbox dal parametro "title".
--
-- @param {table} node
function Navbox:_addTitle(node)
node:tag('span'):cssaddClass('font-size', '110%navbox_title'):wikitext(self.args.title)
end
 
-- Aggiunge la riga per i parametri "above" e "below".
--
-- @param {string} arg
-- @param {string} argStyle
function Navbox:_addAboveOrBelow(arg, argStyle)
local tdStyle = {
background = '#ddf',
['text-align'] = 'center',
['font-size'] = '90%'
}
self.tableNode
:tag('tr')
:tag('tdth')
:attr('colspan', self.args.image and '3' or '2')
:cssaddClass(tdStyle'navbox_abovebelow')
:cssText(argStyle)
:wikitext(arg)
end
 
-- Aggiunge una colonna per l'immagine.
--
-- @param {table} trNode
-- @param {number} rowspan
function Navbox:_addImage(trNode, rowspan)
local tdStyle = {
['vertical-align'] = 'middle',
['padding-left'] = '7px',
width = '0%'
}
trNode
:tag('td')
:attr('rowspan', rowspan)
:cssaddClass(tdStyle'navbox_image')
:cssText(self.args.imagestyle)
:wikitext(self.args.image)
end
 
-- Aggiunge una nuova riga per ogni groupN/listN
function Navbox:_addLists()
local rowIds, altStyle, altBackground
local thStyle = {
background = '#ddf',
['white-space'] = 'nowrap',
padding = '0 10px',
['font-size'] = '90%'
}
-- crea una riga per ogni groupN/listN
rowIds = getIds(self.args, true)
for _i, id in ipairs(rowIds) do
local trNode = self.tableNode:tag('tr')
-- groupN
Line 226 ⟶ 199:
trNode:tag('th')
:attr('colspan', self.args['list' .. id] and '1' or '2')
:cssaddClass(thStyle'navbox_group')
:cssText(self.args.groupstyle)
:cssText(self.args['group' .. id .. 'style'])
Line 234 ⟶ 207:
if self.args['list' .. id] then
local list = trimSep(self.args['list' .. id])
if (idi % 2) == 0 then
altStyle = self.args.evenstyle
altBackground = '#f7f7f7navbox_even'
else
altStyle = self.args.oddstyle
altBackground = nil'navbox_odd'
end
trNode:tag('td')
:attr('colspan', self.args['group' .. id] and '1' or '2')
:cssaddClass('width', '100%navbox_list')
:addClass(not self.args['group' .. id] and 'navbox_center' or nil)
:css('font-size', '90%')
:addClass(altBackground)
:css('text-align', self.args['group' .. id] and 'left' or 'center')
:css('background', altBackground)
:cssText(self.args.liststyle)
:cssText(altStyle)
Line 258 ⟶ 230:
end
 
-- =============================================================================
-------------------------------------------------------------------------------
-- classe Classe NavboxSubgroup
-- =============================================================================
-------------------------------------------------------------------------------
 
local NavboxSubgroup = {}
 
-- Costruttore della classe NavboxSubgroup.
--
-- @param {table} args - gli argomenti passati al modulo
-- @return {table} un nuovo oggetto NavboxSubgroup
function NavboxSubgroup:new(args)
local self = {}
Line 269 ⟶ 245:
setmetatable(self, { __index = NavboxSubgroup })
self.args = args
-- costruzione tabletabella HTML
self.tableNode = mw.html.create('table')
if self.args.debug then
Line 280 ⟶ 256:
end
 
-- Restituisce la tabella HTML.
--
-- @return {string}
function NavboxSubgroup:getHTML()
return tostring(self.tableNode)
end
 
-- Configura gli stili CSS della tabella.
function NavboxSubgroup:_setupTableNode()
local tableStyle = {
background = 'transparent',
['font-size'] = '100%',
padding = '0',
border = '0',
margin = '-3px',
width = '100%'
}
self.tableNode
:addClass('navboxsubnavbox')
:addClass('nowraplinks')
:css(tableStyle)
:cssText(self.args.bodystyle)
end
 
-- Aggiunge una nuova riga per ogni groupN/listN.
function NavboxSubgroup:_addLists()
local listIds, altStyle
local thStyle = {
background = '#ddf',
padding = '0 10px',
}
-- crea una row per ogni listN
listIds = getIds(self.args)
Line 314 ⟶ 281:
if self.args['group' .. id] then
trNode:tag('th')
:cssaddClass(thStyle'subnavbox_group')
:cssText(self.args.groupstyle)
:wikitext(self.args['group' .. id])
Line 325 ⟶ 292:
trNode:tag('td')
:attr('colspan', self.args['group' .. id] and '1' or '2')
:cssaddClass('text-align',not self.args['group' .. id] and 'leftnavbox_center' or 'center'nil)
:cssText(self.args.liststyle)
:cssText(altStyle)
Line 332 ⟶ 299:
end
 
-- =============================================================================
-------------------------------------------------------------------------------
-- Funzioni APIesportate
-- =============================================================================
-------------------------------------------------------------------------------
 
local p = {}
 
-- Funzione per l'utilizzo da un altro modulo.
function p._navbox(args)
return loadCSS(args.name) .. Navbox:new(parseArgs(args)):getHTML()
end
 
-- Funzione per l'utilizzo da un altro modulo.
function p._navbox_subgroup(args)
return NavboxSubgroup:new(parseArgs(args, true)):getHTML()
end
 
-- Entry-pointFunzione per il template {{Navbox}}.
function p.navbox(frame)
return p._navbox(getArgs(frame, {wrappers parentOnly = 'Template:Navbox'true }))
end
 
-- Entry-pointFunzione per il template {{Navbox subgroup}}.
function p.navbox_subgroup(frame)
return p._navbox_subgroup(getArgs(frame, {wrappers parentOnly = 'Template:Navboxtrue subgroup'}))
end
 
Estratto da "https://it.wikipedia.org/wiki/Modulo:Navbox"