Modulo:Navbox: differenze tra le versioni

Versione delle 19:58, 20 mar 2018

Versione delle 20:01, 20 mar 2018

Riga 1:

--[[

* Modulo cheper implementaimplementare ile funzionalità dei template Navbox e Navbox_subgroup.

* Costruisce un template di navigazione basato su una table HTML.

]]--

]]

require('Modulo:No globals')

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

-- =============================================================================

local cfg = mw.loadData('Modulo:Navbox/Configurazione')

-- Funzioni di utilità

-- =============================================================================

-------------------------------------------------------------------------------

-- 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 = {}, {}

local ret = {}

for key, _ in pairs(args) do

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+)$'))

if id then

ids[tonumber(id)] = 1

end

end

for key, _ in pairs(ids) do

-- quindi ritorna una sequence fatta delle chiavi della table ids

table.insert(ret, key)

for k, _ in pairs(ids) do

table.insert(ret, k)

end

table.sort(ret)

return ret

end

-- RimuoveToglie 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 47 ⟶ 78:

-- Con il debug ridefinisce il metodo mw.html:css,

-- permettendo di eseguire i test senza controllare anche i css.

--

-- @param {table} tableNode

local function disableCSS(tableNode)

local mt = getmetatable(tableNode)

Line 54 ⟶ 83:

end

-------------------------------------------------------------------------------

-- =============================================================================

-- Classeclasse 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 = {}

Line 76 ⟶ 101:

setmetatable(self, { __index = Navbox })

self.args = args

-- costruzione tabella HTMLtable

self.tableNode = mw.html.create('table')

if self.args.debug then

Line 82 ⟶ 107:

end

self:_setupTableNode()

-- prima rigarow: contiene la navbar e il titolo

thNode = self.tableNode:tag('tr')

:tag('th')

Line 94 ⟶ 119:

self:_addTitle(thNode)

end

-- eventuale rigarow per l'above

if self.args.above then

self:_addAboveOrBelow(self.args.above, self.args.abovestyle)

end

-- altre righerow

self:_addLists()

-- eventuale rigarow finale per il below

if self.args.below then

self:_addAboveOrBelow(self.args.below, self.args.belowstyle)

Line 108 ⟶ 133:

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 = {

Line 138 ⟶ 159:

end

-- Aggiunge il Tnavbar (collegamenti alla pagina del template, di discussione e modifica).

--

-- @param {table} node

function Navbox:_addTnavbar(node)

local divStyle = {

Line 159 ⟶ 177:

end

-- Imposta il titolo del navbox dal parametro "title".

--

-- @param {table} node

function Navbox:_addTitle(node)

node:tag('span'):css('font-size', '110%'):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 = {

Line 185 ⟶ 196:

end

-- Aggiunge una colonna per l'immagine.

--

-- @param {table} trNode

-- @param {number} rowspan

function Navbox:_addImage(trNode, rowspan)

local tdStyle = {

Line 203 ⟶ 210:

end

-- Aggiunge una nuova riga per ogni groupN/listN

function Navbox:_addLists()

local rowIds, altStyle, altBackground

Line 252 ⟶ 258:

end

-------------------------------------------------------------------------------

-- =============================================================================

-- Classeclasse 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 267 ⟶ 269:

setmetatable(self, { __index = NavboxSubgroup })

self.args = args

-- costruzione tabella HTMLtable

self.tableNode = mw.html.create('table')

if self.args.debug then

Line 278 ⟶ 280:

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 = {

Line 302 ⟶ 300:

end

-- Aggiunge una nuova riga per ogni groupN/listN.

function NavboxSubgroup:_addLists()

local listIds, altStyle

Line 335 ⟶ 332:

end

-------------------------------------------------------------------------------

-- =============================================================================

-- Funzioni esportate API

-------------------------------------------------------------------------------

-- =============================================================================

local p = {}

-- Funzione per l'utilizzo da un altro modulo.

function p._navbox(args)

return 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

-- FunzioneEntry-point per il template {{Navbox}}.

function p.navbox(frame)

return p._navbox(getArgs(frame, { parentOnlywrappers = true 'Template:Navbox'}))

end

-- FunzioneEntry-point per il template {{Navbox subgroup}}.

function p.navbox_subgroup(frame)

return p._navbox_subgroup(getArgs(frame, { parentOnlywrappers = true'Template:Navbox subgroup'}))

end