Módulo:Info – Wikipédia, a enciclopédia livre

-- Tabela para funções especiais chamadas colocando # no começo do rótulo ou dados local especial = {}  -- Tabela para tabelas de debug debug = {} debug.erros = {}  -- Cores padrões -- local cores = { -- tons das linhas: {'escuro', 'mediano', 'claro', 'bem claro'}     {'#B60000', '#FFAFAF', '#FFD7D7', '#FFEBEB'}, -- vermelho     {'#B00058', '#FFABD5', '#FFD5EA', '#FFEAF5'}, -- bordô     {'#840084', '#FFA4FF', '#FFD2FF', '#FFE9FF'}, -- púrpura     {'#5800B1', '#DAB5FF', '#EDDAFF', '#F6EDFF'}, -- roxo     {'#2020C9', '#BFBFFF', '#DFDFFF', '#EFEFFF'}, -- azul     {'#0057AF', '#93C9FF', '#C9E4FF', '#E4F2FF'}, -- azul~ciano     {'#00626F', '#11E4FF', '#88F2FF', '#C4F9FF'}, -- ciano     {'#00654E', '#27FFCF', '#93FFE7', '#C9FFF3'}, -- verde~ciano     {'#006800', '#7BFF7B', '#BDFFBD', '#DEFFDE'}, -- verde     {'#4A6000', '#CFFF27', '#E7FF93', '#F3FFC9'}, -- verde~amarelo     {'#655900', '#FFE411', '#FFF288', '#FFF9C4'}, -- amarelo     {'#8C4600', '#FFB56B', '#FFDAB5', '#FFEDDA'}, -- laranja     {'#585858', '#C7C7C7', '#E3E3E3', '#F1F1F1'}  -- cinza }  -- Função para montar a infobox depois que os parâmetros foram pré-processados local montarinfo = function(extra)     local partes = {}     -- Cabeçalho --     if params['cabeçalho'] then         partes['cabeçalho'] = '<caption>' .. params['cabeçalho'] .. '</caption>'     end     -- Pictograma --     if params['pictograma'] and string.match(params['pictograma'], '^[^%]%[:]+%.%a%a%a%a?$') then         partes['pictograma'] = '<div style="position:absolute; top:0; right:0;' ..           '">[[Ficheiro:' .. params['pictograma'] .. '|' .. 'x45px]]</div>'     end     -- Título --     partes['cor'] = cor1     partes['título'] = params['título']     if partes['pictograma'] then         -- é preciso colocar o título dentro de um elemento com position para ficar acima do pictograma         partes['título'] = '<div style="position:relative">' .. partes['título'] .. '</div>'     end     -- Campos --     local c = {}     local vazio = params['debug'] == 'vazio'     local i = 1     while i <= #campos do         local campo = campos[i]         if campo['tópico'] then             local n = i + 1             while campos[n] do                 if campos[n][1] and campos[n][1] ~= '' then                     table.insert(c, '|-\n|colspan=2 style="text-align:center; font-weight:bold;' .. cor2 .. '"|' ..                       campo['tópico'])                     break                 elseif campos[n]['tópico'] then                     break                 end                 n = n + 1             end         elseif campo['rótulo'] and (campo[1] or vazio) then             table.insert(c, '|-\n|scope="row" ' .. 'style="vertical-align:top; text-align:left; font-weight:bold;' ..               cor3 .. '"|' .. campo['rótulo'] .. '\n|' .. (campo['wikidata'] and 'class="dadoswd" ' or '') ..               'style="vertical-align:top; text-align:left;"|' .. (campo[1] or '(vazio)'))         elseif campo[1] or vazio then             table.insert(c, '|-\n|colspan=2 ' .. (campo['wikidata'] and 'class="dadoswd" ' or '') ..               'style="vertical-align: top; text-align: center' .. (campo['peq'] and '; font-size: 90%' or '') ..               '"|' .. (campo[1] or '(vazio)'))         elseif campo['info'] then -- infobox incluída em um campo             table.insert(c, campo['info'])         end         i = i + 1     end     partes['campos'] = table.concat(c, '\n')     -- Rodapé --     if params['rodapé'] then         partes['rodapé'] = '|-\n|colspan=2 style="text-align:center;' .. cor2 .. '"|' .. params['rodapé']     end     if params['nome'] and string.match(params['nome'], '^Predefinição:') then         partes['ver-editar'] = '|-\n|colspan=2 class="plainlinks" style="text-align:right"|[[' ..         params['nome'] .. '|ver]]'     end     -- Extra (geralmente categorias) --         partes['extra'] = extra     -- Debug --     if params['debug'] and type(debug[params['debug']]) == 'table' then         local lista = table.concat(debug[params['debug']], '\n')         if lista == '' then             lista = '(debug vazio)'         end         partes['rodapé'] = '|-\n|colspan=2|<pre>' .. lista .. '</pre>'     end      -- Categorias de número de campos --     if ncampos then         local num = ncampos == 0 and 'nenhum campo' or ncampos == 1 and '1 campo' or ncampos < 10 and           tostring(ncampos) .. ' campos' or '10 ou mais campos'         partes['catcampos'] = '[[Categoria:!Infoboxes com ' .. num .. ']]'     end     if ncamposwd then         local num = ncamposwd == 0 and 'nenhum campo' or ncamposwd == 1 and '1 campo' or ncamposwd < 10 and           tostring(ncamposwd) .. ' campos' or '10 ou mais campos'         partes['catcampos'] = (partes['catcampos'] or '') .. '[[Categoria:!Infoboxes com ' .. num .. ' do Wikidata]]'     end     if todoscamposwd then         partes['catcampos'] = (partes['catcampos'] or '') ..           '[[Categoria:!Infoboxes em que todos campos são do Wikidata]]'     end      -- Montar a partes --     local template = [=[{|class="infobox" style="font-size:90%; line-height:1.2em; float:right; clear:right; margin:0 0 .5em 1em; width:20em; border:1px solid #C7C7C7; padding:2px; background-color:#FAFAFA; border-spacing:3px" { cabeçalho } |- !colspan=2 style="height:45px; vertical-align:middle; text-align:center; font-size:120%; font-weight:bolder; line-height:1.3em; position:relative;{ cor }"|{ pictograma }{ título } { campos } { rodapé } { ver-editar } |} { extra } { catcampos }]=]    local infobox = string.gsub(template, '(\n?){ ([^}]+) }',       function(nl, parte)           if partes[parte] and partes[parte] ~= "" then               return nl .. partes[parte] else return ''           end       end)    return infobox end  -- Campos com rótulo '#imagem' adicionam imagens com 200px de largura especial.imagem = function(campo)     if not campo[1] then         return nil     end     local dominio, img = string.match(campo[1], '^%[%[(%w+):([^%]%|%.\n]+%.%w%w%w%w?)[%]%|]')     if dominio then         for _, d in pairs({'Ficheiro', 'Imagem', 'File', 'Image', 'ficheiro', 'imagem', 'file', 'image'}) do             if dominio == d then                 dominio = nil                 break             end         end         if dominio then img = nil end     elseif string.match(campo[1], '^[^%]%|%.\n]+%.%w%w%w%w?$') then         img = campo[1]     end     if img then         campo['rótulo'] = nil         campo[1] = '[[Ficheiro:' .. img .. '|200px]]'         return campo     else         table.insert(debug.erros, 'nome de imagem não encontrado em "' .. campo[1] .. '"')         return nil     end end  -- Campos com rótulo '#legenda' adicionam texto sem rótulo com letra menor quando existe dados no campo acima especial.legenda = function(campo, i)     if campo[1] and campos[i - 1] and campos[i - 1][1] and campos[i - 1][1] ~= '' then         local small = string.match(campo[1], '^<small>(.*)</small>$')         return {small or campo[1], ['peq'] = true, ['wikidata'] = campo[1]['wikidata']}     else         return nil     end end  -- Separa uma infobox incluída dentro de um campo local subInfo = function(str)     local pos = str:find('\n{|class="infobox')     local campo = str:sub(1, pos - 1)     local infos = {}     while pos do         local inicio = pos         pos = str:find('\n{|class="infobox', pos + 1)         local info = str:sub(inicio, pos)         inicio = info:find'\n|%-\n|'         local p, fim = inicio         while p do             fim = p - 1             p = info:find('\n|}', p + 1)         end         if inicio then             table.insert(infos, info:sub(inicio + 1, fim))         end     end     return campo, table.concat(infos, '\n') end  -- Função principal local base = function(args, nomebase, estender)     local title = mw.title.getCurrentTitle()     local namespace = title.namespace     local vazio = args['debug'] == 'vazio'     local extra      params = {}     -- Para ordenar as chaves de uma tabela em Lua é necessário separar a tabela em duas:     local camposn = {} -- tabela para guardar os números dos campos     local camposv = {} -- tabela para guardar os valores dos campos     for k, v in pairs(args) do         if v == '' then             -- pass         elseif string.match(k, '^%d+$') then             local n = tonumber(k)             local rotulo, dados = string.match(v, '^([^:]-):(.*)$')             if rotulo then                 rotulo = string.gsub(rotulo, '^%s*(.-)%s*$', '%1')                 dados = string.gsub(dados, '^%s*(.-)%s*$', '%1')                 if rotulo == '#tópico' and dados ~= '' then                     camposv[n] = {['tópico']=dados}                     table.insert(camposn, n)                 elseif rotulo ~= '' then                     camposv[n] = {['rótulo']=rotulo, dados}                     table.insert(camposn, n)                 elseif dados ~= '' then                     camposv[n] = {dados}                     table.insert(camposn, n)                 elseif vazio and rotulo ~= '' then                     camposv[n] = {['rótulo']=rotulo, '(vazio)'}                     table.insert(camposn, n)                 end             elseif v ~= '' then                 camposv[n] = {v}                 table.insert(camposn, n)             end         elseif string.match(k, '^tópico%d+%.?%d?$') or string.match(k, '^rótulo%d+%.?%d?$') or           string.match(k, '^dados%d+%.?%d?$') then             local tipo, n = string.match(k, '^([^%d]+)(%d+%.?%d?)$')             if tipo == 'dados' then                 tipo = 1             end             n = tonumber(n)             if v == '' then                 -- pass             elseif camposv[n] then                 camposv[n][tipo] = v             else                 camposv[n] = {[tipo]=v}                 table.insert(camposn, n)             end         else             params[k] = v         end     end     local estender = estender or params['estender']     params['título'] = params['título'] or title.text     params['nome'] = params['nome'] or nomebase      -- Cor --     if params['cor'] then         local matiz, tom = string.match(params['cor'], '(%d%d?)%.(%d)')         local cor         if matiz and tonumber(tom) <= 4 then             cor = cores[tonumber(matiz)][tonumber(tom)]         else             cor = string.upper(params['cor'])         end         for _, matiz in ipairs(cores) do             for i, c in ipairs(matiz) do                 if cor == c then                     if i == 1 then                         cor1 = ' background-color:' .. c .. '; color:#FFFFFF'                         i = 2                     else                         cor1 = ' background-color:' .. c                     end                     if i < 4 then                         cor2 = ' background-color:' .. matiz[i + 1]                         if i < 3 then                             cor3 = ' background-color:' .. matiz[i + 2]                         else                             cor3 = ''                         end                     else                         cor2 = ''                         cor3 = ''                     end                     break                 end             end         end     end     if not cor1 then         cor1 = ''         cor2 = ''         cor3 = ''     end      -- Ordenar os campos e agrupar dados de rótulos iguais --     table.sort(camposn)     campos = {}     if params['debug'] == 'campos' then         debug.campos = {}     end     local i = 0     if params['subtítulo'] then        i = 1        campos[1] = {params['subtítulo']}     end     for _, n in ipairs(camposn) do         -- Como no preenchimento antigo existem tópicos e rótulos/dados com o mesmo número,         -- é necessário ordenar desta forma para colocar os dados um número a frente do tópico         if camposv[n]['tópico'] then             i = i + 1             campos[i] = {['tópico']=camposv[n]['tópico']}             camposv[n]['tópico'] = nil         end         if camposv[n]['rótulo'] then             -- junta campos de mesmo rótulo             if #campos > 0 and camposv[n]['rótulo'] == campos[i]['rótulo'] then                 table.insert(campos[i], camposv[n][1])             else                 i = i + 1                 campos[i] = camposv[n]             end         elseif camposv[n][1] then             i = i + 1             campos[i] = camposv[n]         end         if campos[i][1] and string.match(campos[i][1], '\n{|class="infobox') then             local info             campos[i][1], info = subInfo(campos[i][1])             if info and info ~= '' then                 i = i + 1                 campos[i] = {['info'] = info}             end         end         -- para debug         if debug.campos then             local t = {}             for k, v in pairs(campos[i]) do                 table.insert(t, tostring(k) .. '=' .. tostring(v))             end             table.insert(debug.campos, i .. ' => {' .. table.concat(t, ', ') .. '}')         end     end     camposn, camposv = nil, nil      -- Imagens e legendas no formato antigo --     for i, n in ipairs({'', '1', '2', '3'}) do         if params['imagem' .. n] then 	    table.insert(campos, 1, {['rótulo']='#imagem', params['imagem' .. n]}) 	    if params['legenda' .. n] or params['imagem_legenda' .. n] then 	        table.insert(campos, 2, {params['legenda' .. n] or params['imagem_legenda' .. n]}) 	    end         end     end      -- Chamar extenção     local ext     local especial = especial     if estender then         local title = mw.title.new('Módulo:Info/' .. estender)         if title.exists then             ext = require('Módulo:Info/' .. estender)             if ext.especial then                 for k, v in pairs(ext.especial) do                     especial[k] = v                 end             end             if ext.campos then                 ext.campos(campos)             end         end     end      -- Processar campos que pedem dados do Wikidata, funções especiais e remove dados vazios --     wdEntity = mw.wikibase.getEntity(params['item'] and params['item']:match('^Q%d+$'))     local importar = params['wikidata'] ~= 'não'     for i, campo in ipairs(campos) do         while campo[1] do             local arg = string.match(campo[1], '^#[Ww][Dd]: *(.*)')             if arg and importar then                 if not wd or not debug.wikidata then                     -- Só importa o módulo do Wikidata quando tiver campos do Wikidata                     require('Módulo:Info/' .. (params['wd'] or 'wd'))                     debug.wikidata = {}                 end                 local dados = wd.expandir(arg)                 if dados then                     campo[1] = dados                     campo['wikidata'] = true                     break                 else                     table.remove(campo, 1)                 end                 if wd.temp.debug then                     table.insert(debug.wikidata, wd.temp.debug)                     wd.temp = {}                 end             elseif arg or campo[1] == '' then                 table.remove(campo, 1)             else                 break             end         end         local esp = campo['rótulo'] and string.match(campo['rótulo'], '^#(.*)') or nil         if esp and especial[esp] then             campos[i] = especial[esp](campo, i) or {}         end     end     if ext and ext.extra then         extra = ext.extra()     end      -- Contar número de campos e campos do Wikidata --     local contarmin, contarmax = 0, 2     local contarwdmin, contarwdmax     local contarwdtodos = true     if namespace ~= 0 then  -- só categoriza por padrão em artigos         contarmin, contarmax, contarwdtodos = nil, nil, nil     end     if params['contar campos'] then         contarmin, contarmax = string.match(params['contar campos'], '(%d%d?)[^%d]*(%d%d?)')         if contarmin then             contarmin, contarmax = tonumber(contarmin), math.min(10, tonumber(contarmax))         elseif params['contar campos'] == 'sim' then             contarmin, contarmax = 0, 10         elseif params['contar campos'] == 'não' then             contarmin, contarmax = nil, nil         end     end     if params['contar wikidata'] then         contarwdmin, contarwdmax = string.match(params['contar wikidata'], '(%d%d?)[^%d]*(%d%d?)')         if contarwdmin then             contarwdmin, contarwdmax = tonumber(contarwdmin), math.min(10, tonumber(contarwdmax))         elseif params['contar wikidata'] == 'sim' then             contarwdmin, contarwdmax = 0, 10         elseif params['contar wikidata'] == 'não' then             contarwdtodos = false         end     end     if contarmin or contarwdmin or contarwdtodos then         ncampos, ncamposwd = 0, 0         for k, v in pairs(campos) do             if v[1] then                 ncampos = ncampos + 1             end             if v[1] and v['wikidata'] then                 ncamposwd = ncamposwd + 1             end         end         if contarwdtodos then             todoscamposwd = ncampos >= 1 and ncampos == ncamposwd -- se todos os campos são do Wikidata         end         if not contarmin or (ncampos < tonumber(contarmin) or ncampos > contarmax) then             ncampos = false         end         if not contarwdmin or (ncamposwd < tonumber(contarwdmin) or ncamposwd > contarwdmax) then             ncamposwd = false         end     end      -- Categoria de artigos bons e destacados em Wikipédias de outras línguas     if namespace == 0 and wdEntity and wdEntity['sitelinks'] then         local cats = {}         local badges = {['Q17437796'] = '!Artigos destacados', ['Q17437798'] = '!Artigos bons',           ['Q17506997'] = '!Listas destacadas'}         for wiki, sitelink in pairs(wdEntity['sitelinks']) do             for _, badge in ipairs(sitelink['badges']) do                 if badges[badge] and wiki:match('wiki$') then                     table.insert(cats, {badges[badge], wiki:match('^(.+)wiki$')})                 end             end         end         if #cats > 0 then -- só carrega a lista de prefixos se for usar             prefixos = mw.loadData('Módulo:Prefixos de língua')             for i, cat in ipairs(cats) do                 local lingua = prefixos[cat[2]]                 cats[i] = lingua and '[[Categoria:' .. cat[1] .. ' na Wikipédia em ' .. lingua .. ']]' or ''             end             extra = (extra or '') .. table.concat(cats)         end     end      return montarinfo(extra, debug) end  local m, mt = {}, {}  m.base = function(frame)     local parent = frame:getParent()     return base(frame.args, parent and parent:getTitle()) end  mt.__index = function(t, k)     return function(frame)         local parent = frame:getParent()         return base(frame.args, parent and parent:getTitle(), k)     end end  return setmetatable(m, mt)