Wikipedia

Modulo:Navbox: differenze tra le versioni

Naviga nella cronologia in modo interattivo
← Differenza precedente
Contenuto cancellato Contenuto aggiunto
aggiunto modulo:arguments
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
 
(16 versioni intermedie di 3 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('strict')
 
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.
-------------------------------------------------------------------------------
-- Se withGroup è true, controlla anche i groupN.
-- Funzioni di utilità
--
-------------------------------------------------------------------------------
-- @param {table} args
 
-- @param {boolean} withGroup
-- Ritorna true se il nome dell'argomento è valido
-- @return {table}
local function isValidArg(name, validArgs, maxList)
local function getIds(args, withGroup)
local ret = validArgs[name] ~= nil
local ret, ids = {}, {}
 
for key, _ in pairs(args) do
if not ret then
if type(key) == 'string' then
local id = name:match("^list(%d+)$") or name:match("^group(%d+)$") or
namelocal id = key:match("'^list(%d+)style$"') or name(withGroup and key:match("'^group(%d+)style$"'))
if id and tonumber(id) <= (withGroup and MAX_LIST_NAVBOX or MAX_LIST_NAVBOX_SUBGROUP) then
if id then
ret = ids[tonumber(id)] <= maxListtrue
end
end
end
for key, _ in pairs(ids) do
 
table.insert(ret, key)
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
table.sort(ret)
 
return ret
end
 
-- Rimuove eventuali spazi/a capo attorno ai {{,}}.
-- Ritorna gli ID degli argomenti listN presenti
--
local function getListIds(args)
-- @param {string} list
local ret = {}
-- @return {string}
 
local function trimSep(list)
for k, v in pairs(args) do
local sep = mw.getCurrentFrame():expandTemplate{ title = "," }
local id = k:match("^list(%d+)$")
local sepEsc = mw.ustring.gsub(sep, '-', '%-')
if id then
return mw.ustring.gsub(list, '%s*' .. sepEsc .. '%s*', sep)
table.insert(ret, tonumber(id))
end
end
table.sort(ret)
 
return ret
end
 
-- 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)
mt.__index.css = function(t, name, val) return t end
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, })
__tostring = function(t) return self:__tostring() end })
self.args = args
-- costruzione tabletabella HTML
self.tableNode = mw.html.create("'table"')
if self.args.debug then
disableCSS(self.tableNode)
end
self:__setupTableNode_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_addTitle(thNode)
end
-- eventuale rowriga per l'above
if self.args.above then
self:__addAboveOrBelow_addAboveOrBelow(self.args.above, self.args.abovestyle)
end
-- altre rowrighe
self:__addLists_addLists()
-- eventuale rowriga finale per il below
if self.args.below then
self:__addAboveOrBelow_addAboveOrBelow(self.args.below, self.args.belowstyle)
end
 
Line 117 ⟶ 118:
end
 
-- Restituisce la tabella HTML.
function Navbox:__tostring()
--
-- @return {string}
function Navbox:getHTML()
return tostring(self.tableNode)
end
 
-- Configura gli stili CSS della tabella
function Navbox:__setupTableNode()
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 "collapsed"'autocollapse' or
(self.args.state == "autocollapse"'collapsed' and "autocollapse"'mw-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).
function Navbox:__addTnavbar(node)
--
local divStyle = {
-- @param {table} node
float = "left",
function Navbox:_addTnavbar(node)
width = "6em",
["text-align"] = "left",
padding = "0 10px 0 0",
margin = "0px"
}
local tnavbar = mw.getCurrentFrame():expandTemplate {
title = "'Tnavbar"',
args = {
[1] = self.args.name,
["'mini"'] = 1
}
}
node:tag("'div"'):cssaddClass(divStyle'navbox_navbar'):wikitext(tnavbar)
end
 
-- Imposta il titolo del navbox dal parametro "title".
function Navbox:__addTitle(node)
--
node:tag("span"):css("font-size", "110%"):wikitext(self.args.title)
-- @param {table} node
function Navbox:_addTitle(node)
node:tag('span'):addClass('navbox_title'):wikitext(self.args.title)
end
 
-- Aggiunge la riga per i parametri "above" e "below".
function Navbox:__addAboveOrBelow(arg, argStyle)
--
local tdStyle = {
-- @param {string} arg
background = "#ddf",
-- @param {string} argStyle
["text-align"] = "center",
function Navbox:_addAboveOrBelow(arg, argStyle)
["font-size"] = "90%"
}
self.tableNode
:tag("'tr"')
:tag("td"'th')
:attr("'colspan"', self.args.image and "'3"' or "'2"')
:cssaddClass(tdStyle'navbox_abovebelow')
:cssText(argStyle)
:wikitext(arg)
end
 
-- Aggiunge una colonna per l'immagine.
function Navbox:__addImage(trNode, rowspan)
--
local tdStyle = {
-- @param {table} trNode
["vertical-align"] = "middle",
-- @param {number} rowspan
["padding-left"] = "7px",
function Navbox:_addImage(trNode, rowspan)
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()
function Navbox:_addLists()
local listIds, altStyle, altBackground
local thStylerowIds, =altStyle, {altBackground
-- crea una riga per ogni groupN/listN
background = "#ddf",
rowIds = getIds(self.args, true)
["white-space"] = "nowrap",
for i, id in ipairs(rowIds) do
padding = "0 10px",
local trNode = self.tableNode:tag('tr')
["font-size"] = "90%"
-- groupN
}
if self.args['group' .. id] then
-- crea una row per ogni listN
trNode:tag('th')
listIds = getListIds(self.args)
:attr('colspan', self.args['list' .. id] and '1' or '2')
for _, id in ipairs(listIds) do
:addClass('navbox_group')
local trNode = self.tableNode:tag("tr")
-- i groupN sono visibili solo se c'è la corrispettiva listN
if self.args["group" .. id] then
trNode:tag("th")
:css(thStyle)
:cssText(self.args.groupstyle)
:cssText(self.args["'group"' .. id .. "'style"'])
:wikitext(self.args["'group"' .. id])
end
-- listN
if (id % 2) == 0 then
altStyle =if self.args['list' .evenstyle. id] then
local list = trimSep(self.args['list' .. id])
altBackground = "#f7f7f7"
if (i % 2) == 0 then
else
altStyle = self.args.oddstyleevenstyle
altBackground = nil'navbox_even'
else
altStyle = self.args.oddstyle
altBackground = 'navbox_odd'
end
trNode:tag('td')
:attr('colspan', self.args['group' .. id] and '1' or '2')
:addClass('navbox_list')
:addClass(not self.args['group' .. id] and 'navbox_center' or nil)
:addClass(altBackground)
:cssText(self.args.liststyle)
:cssText(altStyle)
:cssText(self.args['list' .. id .. 'style'])
:wikitext(list)
end
trNode:tag("td")
:attr("colspan", self.args["group" .. id] and "1" or "2")
:css("width", "100%")
:css("font-size", "90%")
:css("text-align", self.args["group" .. id] and "left" or "center")
:css("background", altBackground)
:cssText(self.args.liststyle)
:cssText(altStyle)
:cssText(self.args["list" .. id .. "style"])
:wikitext(self.args["list" .. id])
if id == 1 and self.args.image then
self:__addImage_addImage(trNode, #listIdsrowIds)
end
end
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 = {}
 
setmetatable(self, { __index = NavboxSubgroup, })
__tostring = function(t) return self:__tostring() end })
self.args = args
-- costruzione tabletabella HTML
self.tableNode = mw.html.create("'table"')
if self.args.debug then
disableCSS(self.tableNode)
end
self:__setupTableNode_setupTableNode()
self:__addLists_addLists()
 
return self
end
 
-- Restituisce la tabella HTML.
function NavboxSubgroup:__tostring()
--
-- @return {string}
function NavboxSubgroup:getHTML()
return tostring(self.tableNode)
end
 
-- Configura gli stili CSS della tabella.
function NavboxSubgroup:__setupTableNode()
function NavboxSubgroup:_setupTableNode()
local tableStyle = {
background = "transparent",
["font-size"] = "100%",
padding = "0",
border = "0",
margin = "-3px",
width = "100%"
}
self.tableNode
:addClass("navbox"'subnavbox')
:addClass("nowraplinks")
:css(tableStyle)
:cssText(self.args.bodystyle)
end
 
-- Aggiunge una nuova riga per ogni groupN/listN.
function NavboxSubgroup:__addLists()
function NavboxSubgroup:_addLists()
local listIds, altStyle
local thStyle = {
background = "#ddf",
padding = "0 10px",
}
-- crea una row per ogni listN
listIds = getListIdsgetIds(self.args)
for _, id in ipairs(listIds) do
local trNode = self.tableNode:tag("'tr"')
local list = trimSep(self.args['list' .. id])
-- i groupN sono visibili solo se c'è la corrispettiva listN
if self.args["'group"' .. id] then
trNode:tag("'th"')
:cssaddClass(thStyle'subnavbox_group')
:cssText(self.args.groupstyle)
:wikitext(self.args["'group"' .. id])
end
if (id % 2) == 0 then
Line 302 ⟶ 290:
altStyle = self.args.oddstyle
end
trNode:tag("'td"')
:attr("'colspan"', self.args["'group"' .. id] and "'1"' or "'2"')
:cssaddClass("text-align",not self.args["'group"' .. id] and "left"'navbox_center' or "center"nil)
:cssText(self.args.liststyle)
:cssText(altStyle)
:wikitext(self.args["list" .. id])
end
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:Navbox_subgroup'true }))
end
 
Estratto da "https://it.wikipedia.org/wiki/Modulo:Navbox"