Template:Poesia

require('Module:No globals') local getArgs = require('Module:Arguments').getArgs local p = {}

local function agg(t, ...)

   local args = {...}
   for _, s in ipairs(args) do
       table.insert(t, s)
   end

end

local function separa(ss) local t = false if (ss:find("*") and (ss:find("*") == 1)) then ss = ss:sub(2) t = true end local dd = { } string.gsub(ss,"([^\/]+)", function(c) dd[#dd+1] = mw.text.trim(c) end) for i=1,3 do if (dd[i]) then if (dd[i] == '-') then dd[i] = end else dd[i]= (i==1) and or false end end

return { t, dd[1], dd[2], dd[3] } end

function p.main(frame) local args = getArgs(frame, { valueFunc = function (key, value) if type(key) == "number" then if value == nil then return nil else value = mw.text.trim(value) end else if value == then return nil end

           end

return value end }) local titolo = args['titolo'] local colore = args['colore'] or 'ccc' local numera = args['numera'] and tonumber(args['numera']) or 5 local inizio = args['inizio'] and tonumber(args['inizio']) or 1 inizio = inizio-1 local ret = {} local n = 1 local vv

if (args[1]) then

agg(ret,'

')

if (titolo) then vv = separa(titolo)

agg(ret,'')

if (vv[3]) then

agg(ret,'')

if (vv[4]) then

agg(ret,'')

end end

agg(ret,'')

end

while (args[n]) do vv = separa(args[n])

if (vv[1]) then -- nuova strofa

agg(ret,'')

end

agg(ret,'<td',(n == 1) and ' style="width:30px"' or ) if ((n+inizio) % numera == 0) then -- mostra numero agg(ret,' align=right>',(n+inizio),' ') else agg(ret,'>') end agg(ret,'')

if (vv[3]) then

agg(ret,'')

if (vv[4]) then

agg(ret,'')

end end

agg(ret,'') n = n+1 end agg(ret,'

	',vv[2],'		',vv[3],'		',vv[4],'
',vv[2],'		',vv[3],'		',vv[4],'

')

return table.concat(ret) else return 'Errore nel template Poesia' end end

return p