Módulo:Infobox

local p = {}
local lang = 'pt'

local item = nil -- o elemento Wikidata ligado
local localdata = {}-- guarda parâmetros passados à predefinição
local page = { -- guarda parâmetros da página mostrados na infocaixa
        name = mw.title.getCurrentTitle().prefixedText,
    namespace =  mw.title.getCurrentTitle().namespace
}
local maincolor, secondcolor, thirdcolor = '#E1E1E1', '#E1E1E1', '#000000'
-- o objecto principal a mostrar
local infobox = mw.html.create('div')

-- objetos secundários a mostrar
local maintenance = '' -- cadeia devolvida com o módulo : cats de monitoramento
local externaltext = '' -- para exemplo com coordenadas no título
-- modules importados
local linguistic = require "Módulo:Linguística"
local wd = require 'Módulo:Infobox/Wikidata'
local valueexpl = wd.translate("activate-query")
local CategorizacaoABeAD = require('Módulo:Categorização AD e AB de outras wikis')
local i18n = {
        ['see doc'] = 'Documentação da predefinição',
        ['edit'] = 'editar',
        ['edit code'] = 'editar código-fonte',
        ['edit item'] = 'editar Wikidata',
        ['tracking cat'] = "!Páginas que utilizam dados no Wikidata",
        ['invalid block type'] = "Bloco de dados inválidos dentro do módulo infobox",
        ['default cat'] = "!Monitoramento das infobox",
}

local function addWikidataCat(prop)
          maintenance = maintenance .. wd.addTrackingCat(prop)
end

local function expandQuery(query)
          local value, number -- valor a mostrar, nome dos valores para o rótulo
        if not query.entity then
                query.entity = localdata.item
        end
        if not query.conjtype then
                query.conjtype = 'new line'
        end
        local claims = wd.getClaims(query)
                  if (not claims) then
               return nil
        end
        return wd.formatAndCat(query), #claims -- para acordo do plural
end

local function getWikidataValue(params, wikidataparam)
          -- Mostrar o valor Wikidata para o valor, quer no parâmetro "wikidata" ou no parâmetro "property"
        if not localdata.item then
                return nil
        end

        if params.blockers then -- blockers are local parameters that disable the wikidata query
                  local blockers = params.blockers
               if (type(blockers) == 'string') then
                      blockers = {blockers}
               end
               for i, blocker in ipairs(blockers) do
                      if localdata[blocker] then
                                   return nil
                   end
               end
        end

        local v, valnum -- o valor a retornar e o número de valores (para concordância gramatical)
 
    if not wikidataparam then -- por padrão o valor wikidata está no parâmetro "wikidata" mas nas estruturas compostas como "title", existem vários parâmetros wikidata
               wikidataparam = 'wikidata'
        end

        if params[wikidataparam] then
               if type(params[wikidataparam]) == 'function' then
                       v, valnum = params[wikidataparam](localdata.item)
            elseif type(params[wikidataparam]) == 'table' then
                           v, valnum = expandQuery(params[wikidataparam])
            else
            v, valnum = params[wikidataparam]
            end
        end
        if not v then
                return nil
        end
        --v = linguistic.ucfirst(v)
        return v, valnum
end

local function getValue(val, params)
          if type(val) == 'string' then
               return localdata[val]
        elseif type(val) == 'function' then
               return val(localdata, localdata.item, params)
        elseif type(val) == 'table' then
               for i, j in pairs(val) do -- se vários parâmetros possíveis (legado do código antigo), tomar o primeiro não-vazio
                          if localdata[j] then
                                    return localdata[j]
                      end
               end
        end
end

local function addMaintenanceCat(cat, sortkey)
          if page.namespace ~= 0 then
               return ''
        end
        if cat then
        maintenance = maintenance .. '[[Category:' .. cat .. '|' .. (sortkey or page.name) .. ']]'
        end
end

function p.separator(params)
        local style = params['estilo separador'] or {}
        style.height = style.height or '2px'
        style['background-color'] = style['background-color'] or maincolor
 
    return mw.html.create('hr'):css( style )
end

function p.buildtitle(params)
        local text = getValue(params.value, params) or params.textdefaultvalue or  getWikidataValue(params) or mw.title.getCurrentTitle().text
    local subtext = getValue(params.subtitle) or  getWikidataValue(params, 'wikidatasubtitle') or params.subtitledefaultvalue
    if subtext and (subtext ~= text) then
              text = text .. '<br /><small>' .. subtext .. '</small>'
        end
        local style = {
                  border = 'none',
             ['text-align'] = 'center',
             ['font-size'] = '1.3em',
             padding = '0',
             display = 'table',
             height = '45px',
             width = '100%',
             ['*height'] = 'auto', -- be kind ie7
             ['*padding'] = '12px 0',
             ['font-weight'] = 'bold',
             ['font-size'] = 'larger',
    }
    local style2 = {
                  display = 'table-cell',
                  ['vertical-align'] = 'middle',
                  padding = '3px',
    }
        local icon = params.icon or ''
        if icon ~= '' and not params.large then
                   icon = ' ' .. icon
        else
           -- style.padding = '12px'
                icon = " "
        end
        local class = 'topo' .. icon
 
    -- overwrites with those provided in the module
        -- local style = {}
        style['background-color'] = maincolor
        style['color'] = thirdcolor
        if params.style then
                  for i, j in pairs(params.style) do
                             style[i] = j
                end
        end
        local title = mw.html.create('div')
                  :addClass(class)
            :css(style)
            :tag('div')
            :css(style2)
        :wikitext(text)
            :allDone()
        return title
end
p.buildTitle = p.buildtitle

function p.buildnavbox(params)
 
    -- definição do estilo
        local class = "navbox " .. (params.class or '')
        local style = params.style or {['overflow'] = 'hidden'}

        if params.separated then -- opções para adicionar uma linha de separação acima
               class = class .. ' bordered'
            style['border-top'] = '1px solid' .. maincolor
        end

        -- ajuste de parâmetros de dados
        params.previousval = params.previousval or params.previousparameter -- nome do parâmetro obsoleto
        params.nextval = params.nextval or params.nextparameter
 
    if params.previousproperty then
               params.previouswikidata = {property = params.previousproperty}
        end
        if params.nextproperty then
               params.nextwikidata = {property = params.nextproperty}
        end
 

    local previousval = getValue(params.previousval, params) or getWikidataValue(params, 'previouswikidata')
        local nextval = getValue(params.nextval, params) or getWikidataValue(params, 'nextwikidata')
 
    local navbox
        if params.inner then -- para quem está dentro de uma tabela
               navbox = mw.html.create('tr'):tag('th'):attr('colspan', 2)
            style['font-weight'] = style['font-weight'] or 'normal'
        else
        navbox = mw.html.create('div')
        end
 
    navbox
    :css({['background-color'] = '#E6E6E6'})
        :addClass(class)
        -- :css(style)
        :css{border = '2px ' .. maincolor, ['font-weight'] = 'normal'}
        :tag('div')
        :addClass('prev_bloc')
        :wikitext(previousval)
        :done()
        :tag('div')
        :addClass('next_bloc')
        :wikitext(nextval)
        :done()
        :allDone()
        return navbox
end
p.buildNavbox = p.buildnavbox

function p.buildimages(params)
        local images = {}
        local upright, link, caption, alt, size    -- size is deprecated
        if type(params.imageparameters) == 'string' then
                params.imageparameters = {params.imageparameters}
        end
        if not params.imageparameters then -- se não houver nenhum parâmetro de imagem, continue, talvez haja uma imagem padrão definida no módulo de infobox
               params.imageparameters = {}
        end
        for j, k in ipairs(params.imageparameters) do
               table.insert(images, localdata[k])
        end
        -- Images de Wikidata
        if #images == 0 and localdata.item then
           if params.property then
                                 params.wikidata = {entity = localdata.item, property = params.property}
            end
            if params.wikidata then
                        local wdq = params.wikidata
                    wdq.excludespecial = true
                    if type(wdq) == 'table' then
                           wdq.entity = wdq.entity or localdata.item
                        wdq.numval = wdq.numval or params.numval or 1
                        images = wd.getClaims(wdq)
                end
                if type(wdq) == 'function' then
                           images = params.wikidata()
                        if type(images) == 'string' then
                        return images
                        end --provavelmente é um erro no pedido => mostrar a mensagem
                end
                if (not images) then
                           images = {}
                end
                if (#images > 0) and (params.wikidata.property) then
                           addWikidataCat(params.wikidata.property)
                end

                if type(images[1]) == 'table' then
                      for i, image in pairs(images) do
                               if image.mainsnak.snaktype ~= 'value' then
                            return
                        end
                        if #images == 1 then -- se apenas uma imagem, usamos a legenda (se mais duas imagens, como formatar?)
                                      caption = wd.getFormattedQualifiers('P18', {qualifier = 'P2096'}, {isinlang = 'pt'})
                        end
                        images[i] = image.mainsnak.datavalue.value
                    end
               end
              end
        end

        -- Imagens por padrao
        if #images == 0 then
               if params.maintenancecat then
                       addMaintenanceCat(params.maintenancecat, params.sortkey)
            end
            if params.defaultimages then
                       images = params.defaultimages
                    if type(images) == 'string' then
                           images = {images}
                    end
                    upright = params.defaultimageupright
                    caption = params.defaultimagecaption
                    link = params.defaultimagelink
                    alt = params.defaultimagealt
                    if not alt and ( images[1] == 'Padrao.svg' or images[1] == 'Padrao 2.svg' ) then
                            alt = 'uma ilustração licenciada gratuita seria bem-vinda'
                    end
            end
        end
        if #images == 0 then
               return nil
        end
 
    upright = upright or getValue(params.uprightparameter) or params.defaultupright or "1" -- 1.2 deixa uma margem
        link = link or getValue(params.linkparameter) or params.defaultlink
        caption = caption or getValue(params.captionparameter) or params.defaultcaption
        alt = alt or getValue( params.altparameter) or params.defaultalt

        -- tamanho com "size" (obsoleto)
        size = size or getValue(params.sizeparameter) or getValue("imagem_tamanho") or params.defaultsize or params.tamanho-- deprecated
        if size then
               local numsize = size:gsub('px', '')
            numsize = mw.ustring.gsub(numsize, 'x.*', '')
            numsize = tonumber(numsize)
            if type(numsize) ~= 'number' or numsize > 280 then
                       addMaintenanceCat("tamanho da imagem inválido")
            end
            if tonumber(size) then
                       size = size .. 'px'
            end
            size = '|' .. size
        else
        size = ''
        end
 
    if tonumber(upright) then
               upright = tostring(tonumber(upright) ) / #images
        end
        if tonumber(size) then
               size = tostring(tonumber(size) ) / #images
        end

    local style = params.style or {
                  padding ='2px 0',
        ['text-align'] = 'center',
          ['display'] = 'flex',
          ['justify-content'] = 'space-around',
          ['align-items'] = 'center',
    }
        local styleLegend = params.stylelegend or {
                  ['font-size'] = '0.9em',
          ['text-align'] = 'center',
          ['margin'] = '5px 0 5px 0',
        }

    -- Imagem da peça

        local imagesString = ''
        for i,image in pairs(images) do
                if image == '-' then
                       return
            end
            imagesString = imagesString ..      '[[File:' .. image .. "|" .. size .. '|frameless'
            if alt then
            imagesString = imagesString .. '|alt=' .. alt
            end
            if link then
                       imagesString = imagesString .. '|link=' .. link
            end
            if upright then
                       imagesString = imagesString .. '|upright=' .. upright
            elseif #images > 1 then
                           imagesString = imagesString .. '|upright=' .. ( 1 / #images )
            end
            imagesString = imagesString .. ']]'
        end

        local image = mw.html.create('div')
                  :addClass("image")
            :css(style)
            :wikitext(imagesString)

        -- Parte da legenda
        local captionobj
        if caption then
               captionobj = mw.html.create('p')
                    :css(styleLegend)
            :wikitext(caption)
                    :css(params.style or {})
                    :addClass("caption")
                    :done()
        end
 
        -- separador
           local separator
        if params.separator then
               separator = separator(params)
        end
        return mw.html.create('div')
                :node(image)
                :node(captionobj)
                :node(separator)
                :done()
end
p.buildImages = p.buildimages

function p.buildtext(params)
        local class = params.class or ''
        local style = {
                ['text-align'] = 'center',
            ['font-weight'] = 'bold'
        }
        if params.style then
               for i, j in pairs(params.style) do
                        style[i] = j
            end
        end
        local text = getValue(params.value, params) or getWikidataValue(params) or params.defaultvalue
        if text == '-' then
               return
        end
        if not text then
                addMaintenanceCat(params.maintenancecat, params.sortkey)
        return nil
        end
        local formattedtext = mw.html.create('p')
                :addClass(class)
            :css(style)
            :wikitext(text)
            :done()
        return formattedtext
end
p.buildText = p.buildtext

function p.buildrow(params)
    local class = params.class or ''
        local style = params.style or {}
    style['vertical-align'] = 'middle'

    local style2 = {
          ['text-align'] = 'left',
          ['padding-right'] = '10px',
          ['width'] = '8em',
          ['max-width'] = '140px',
          ['word-wrap'] = 'normal',
    }
        local value, number =  getValue(params.value, params)
        if (value == valueexpl) then
                value = nil
            params.wikidata.expl = false
        end
        if (not value) then
               value, number = getWikidataValue(params, 'wikidata')
        end
        if (not value) and (params.property) then
               value, number = expandQuery{ property = params.property, ucfirst = params.ucfirst }
        end
        if not value then
                value = params.defaultvalue
        end
        if value == '-' then
                return nil
        end
        if not number then
                number = 0 -- == indefinido
        end

        if not value then
                if params.maintenancecat then
                       local maintenancecat = getValue(params.maintenancecat, params)
                    addMaintenanceCat(maintenancecat, params.sortkey)
            end
            return nil
        end

        local label = params.label
        if number > 1 and (params.plurallabel) then
               label = params.plurallabel
        elseif number == 1 and (params.singularlabel) then
                label = params.singularlabel
        end
        if type(label) == 'function' then
               label = label(localdata, localdata.item)
        end

        -- format
        local formattedvalue = mw.html.create('div')
        :wikitext('\n' .. value) -- 'não é necessário quando o valor é uma lista que começa com '*' ou '#'
 
        if (params.hidden == true)then
                formattedvalue
                    :attr({class="NavContent", background= "none !important", ['padding-top'] = "0 !important", ['padding-bottom']="0 !important", ['border-top']= "1px solid grey !important", ['border-bottom']= "1px solid grey !important", ['margin-left']= "2em !important", ['margin-right']= "2em !important", style="display: none; text-align: left;"})
            formattedvalue = mw.html.create('div')
                        :attr({class="NavFrame", title="[Mostrar]/[Esconder]", style="border: none; padding: 0;"})
                    :node(formattedvalue)
        end
        formattedvalue =  mw.html.create('td')
                   :node(formattedvalue)
                   :allDone()
 
    local formattedlabel
        if label then
               formattedlabel = mw.html.create('th')
                 :attr('scope', 'row')
                 :css(style2)
                 :wikitext(label)
                 :done()
        end
        local row = mw.html.create('tr')
            :attr('scope', 'row')
            :addClass(class)
            :css(style)
            :node(formattedlabel)
            :node(formattedvalue)
            :done()
 
        return row
end
p.buildRow = p.buildrow

function p.buildsuccession(params)
        if not params.value then
                return nil
        end
 
    --local style = params.style or {}
        --style['text-align'] = style['text-align'] or 'center'
        --style['color'] = style['color'] or '#000000'
        --style['background-color'] = style['background-color'] or '#F9F9F9'
 
    local rowI = mw.html.create('tr')
 
    local colspan = '2'
        cellI = mw.html.create('td')
            :attr({colspan = colspan})
                :attr({align = 'center'})
 
    local styleT = {}
        styleT['background-color'] = 'transparent'
        styleT['width'] = '100%'
        tabC = mw.html.create('table')
            :attr({cellspacing = '0'})
                :addClass('navigation-not-searchable')
                :css(styleT)
 
    local row = mw.html.create('tr')

        local color = params.color

        local style = {}
        local arrowLeft
        local arrowRight
 
    if color == 'default' then
               style['background-color'] = '#E6E6E6'
            arrowLeft = '[[Ficheiro:Fleche-defaut-gauche.png|13px|alt=Precedente|link=]]'
            arrowRight = '[[Ficheiro:Fleche-defaut-droite.png|13px|alt=Precedente|link=]]'
        else
        style['background-color'] = color
            arrowLeft = '[[Ficheiro:Fleche-defaut-gauche-gris-32.png|13px|alt=Próximo|link=]]'
            arrowRight = '[[Ficheiro:Fleche-defaut-droite-gris-32.png|13px|alt=Próximo|link=]]'
        end
 
    local styleTrans = {}
        styleTrans['background-color'] = '#F9F9F9'
 
    local values = params.value
        local before = values['before']
        local center = values['center']
        local after = values['after']
 
    local widthCell = '44%'
        if center then
               widthCenter = '28%'
            widthCell = '29%'
        end
 
    local formattedbefore
        if before then
               formattedbefore = mw.html.create('td')
                    :attr({valign = 'middle'})
                    :attr({align = 'left'})
                    :attr({width = '5%'})
                    :css(style)
                    :wikitext(arrowLeft)
                    :done()
            row:node(formattedbefore)
            formattedbefore = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(style)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedbefore = mw.html.create('td')
                    :attr({align = 'left'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCell})
                    :css(style)
                    :wikitext(before)
                    :done()
                row:node(formattedbefore)
        else
        formattedbefore = mw.html.create('td')
                    :attr({valign = 'middle'})
                    :attr({align = 'left'})
                    :attr({width = '5%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedbefore = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedbefore = mw.html.create('td')
                    :attr({align = 'left'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCell})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
        end
 
    local formattedcenter
        formattedcenter = mw.html.create('td')
            :attr({width = '1%'})
            :css(styleTrans)
            :wikitext('')
            :done()
        row:node(formattedcenter)
 
    if center then
               formattedcenter = mw.html.create('td')
                    :attr({align = 'center'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCenter})
                    :css(style)
                    :wikitext(center)
                    :done()
            row:node(formattedcenter)
            formattedcenter = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedcenter)
        end
 
    local formattedafter
        if after then
               formattedafter = mw.html.create('td')
                    :attr({align = 'right'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCell})
                    :css(style)
                    :wikitext(after)
                    :done()
            row:node(formattedafter)
            formattedbefore = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(style)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedafter = mw.html.create('td')
                    :attr({align = 'right'})
                    :attr({valign = 'middle'})
                    :attr({width = '5%'})
                    :css(style)
                    :wikitext(arrowRight)
                    :done()
            row:node(formattedafter)
        else
        formattedafter = mw.html.create('td')
                    :attr({align = 'right'})
                    :attr({valign = 'middle'})
                    :attr({width = widthCell})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedafter)
            formattedbefore = mw.html.create('td')
                    :attr({width = '1%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedbefore)
            formattedafter = mw.html.create('td')
                    :attr({align = 'right'})
                    :attr({valign = 'middle'})
                    :attr({width = '5%'})
                    :css(styleTrans)
                    :wikitext('')
                    :done()
            row:node(formattedafter)
        end
 
    row:done()
        tabC:node(row)
        tabC:done()
        cellI:node(tabC)
        cellI:done()
        rowI:node(cellI)
        rowI:allDone()
 
    return rowI
end
p.buildSuccession = p.buildsuccession

function p.buildrow1col(params)
 
    if not params.value then
                return nil
        end
 
    --local style = params.style or {}
        --style['text-align'] = style['text-align'] or 'center'
        --style['color'] = style['color'] or '#000000'
        --style['background-color'] = style['background-color'] or '#F9F9F9'
        local class = params.class
        local rowcolor
        if params.color == 'secondcolor' then
               rowcolor = secondcolor
        else
        rowcolor = params.color
        end
 
    local style = {}
        style['padding'] = '4px'
        style['text-align'] = 'center'
        style['background-color'] = rowcolor or '#F9F9F9'
        style['color'] = '#000000'
 
    local text = params.value

        local colspan ='2'

        local formattedlabel
        formattedlabel = mw.html.create('th')
            :attr({colspan = colspan})
            :css(style)
            :wikitext(text)
            :done()

        local row = mw.html.create('tr')
                :addClass(class)
            :css(style)
            :node(formattedlabel)
            :done()
 
    return row
end
p.buildRow1Col = p.buildrow1col

function p.buildtable(params)
        local tab = mw.html.create('table'):css(params.style or {})

        local rows = params.rows
 
    -- expand parameters so that we have a list of tables
        local i = 1

        while (i <= #rows) do
                  local l = rows[i]
            if type(l) == 'function' then
                       l = l(localdata, localdata.item)
            end
            if (type(l) == 'table') and (l.type == 'multi') then
                       table.remove(rows, i)
                    for j, row in ipairs(l.rows) do
                               table.insert(rows, i + j - 1, row)
                    end
            elseif type(l) == 'nil' then
                        table.remove(rows, i)
            elseif type(l) ~= 'table' then
                           return error('as linhas da infobox ("rows") devem ser tabelas, e ' .. type(l))
            else
            i = i + 1
            end
        end

        -- CREATE ROW
        local expandedrows = {}
        for k, row in ipairs(rows) do
                   local v = p.buildblock(row)
            if v then
            table.insert(expandedrows, v)
            end
        end
        if (#expandedrows == 0) then
               return nil
        end
        rows = expandedrows

        -- ADD TITLE
        local title
        if params.title or params.singulartitle or params.pluraltitle then
               local text
            if #rows > 1 and params.pluraltitle then
                   text = params.pluraltitle
            elseif #rows == 1 and params.singulartitle then
                       text = params.singulartitle
            else
            text = params.title
            end

            local style = params.titlestyle or {}
            style['font-weight'] = style['font-weight'] or 'bolder'
            style['width'] = style['width'] or '23em'
            style['text-align'] = style['text-align'] or 'center'
            style['line-height'] = style['line-height'] or '1.5'
            style['margin'] = style['margin'] or '0 0 5px 0'
            --style['padding-top'] = style['padding-top'] or '.5em'
            --style['padding-bottom'] = style['padding-bottom'] or '.5em'
            style['color'] = style['color'] or thirdcolor
            style['background-color'] = style['background-color'] or maincolor
        style['max-width'] = style['max-width'] or '300px'
        style['word-wrap'] = style['word-wrap'] or 'break-word'



            local colspan ='2'
            title = mw.html.create('caption')
                      :attr({colspan = colspan})
                :css(style)
                :wikitext(text)
                :done()
     end
 
    if title then
               tab:node(title)
        end
 
    for i, j in pairs (rows) do
                   tab:node(j)
        end
 
    if params.separator then
               local separator = p.separator(params)
            tab:node(separator)
        end
        tab:allDone()
        return tab
end
p.buildTable = p.buildtable

function p.buildinvalidblock(args)
        addMaintenanceCat(defaultcat)
        local text = ''
        if type(args) ~= 'table' then
               text = "Blocos de infobox devem ser tabelas"
        else
        text = i18n["invalid block type"] .. ' : ' .. (args.type or '??')
        end
        return text
end
p.buildInvalidBlock = p.buildinvalidblock

function p.buildmap(params)

        -- configuração de exibição
        local maplist = getValue(params.maps)
        local pointtype = params.pointtype
        local maptype = params.maptype -- escolhe o tipo de mapa mais adequado (alívio, administrativo, etc.)
        if type(maplist) == 'function' then
               maplist = maplist(localdata, localdata.item)
        end
        local width = tonumber(params.largura) or 270 -- 280 padrao f.ajustar
        if width > 280 then
               addMaintenanceCat("!Erro de infobox - imagem muito grande")
            return 'imagem muito grande, a largura deve ser menor ou igual a 280px'
        end

        -- mostrar os dados locais
        local pointtable = {}
        local globe = params.globe
        if params.latitude then
               local lat, long
             if type(params.latitude) == 'function' then
                        lat, long = params.latitude(localdata, localdata.item), params.longitude(localdata, localdata.item)
        else
        lat, long = localdata[params.latitude], localdata[params.longitude]
            end
            if lat then
            table.insert(pointtable, {latitude = lat, longitude = long})
             end
        end

        -- mostrar os dados wikidata
        local function processWDval(claim, displayformat)
                  if not claim then
                       return nil
            end
            local val = wd.formatSnak( claim.mainsnak )
            return {latitude = val.latitude, longitude = val.longitude, globe = val.globe, marker = displayformat.marker}
        end
 
    local function getWDvals(query)
                  query.excludespecial = true
            query.numval = query.numval or 1
            query.entity = query.entity or localdata.item
            local claims = wd.getClaims(query)
            if (not claims) then
                   return
            end
            for i, claim in ipairs(claims) do
                       claim = processWDval(claim, query)
                table.insert(pointtable, claim)
            end
        end
 
    if (#pointtable == 0) and localdata.item and params.wikidata and (params.wikidata ~= '-') then
               for i, query in ipairs(params.wikidata) do
                           if type(query) == 'function' then
                           query = query()
                    end
                    if query then
                              getWDvals(query)
                    end
            end
        end
 
    if (not pointtable) or (#pointtable == 0) then
               return nil
        end
 
    local newparams = {maplist = maplist, pointtype = pointtype, maptype = maptype, width = width, item = localdata.item, pointtable = pointtable, globe = globe, marker=params.marker, default_zoom=params.default_zoom, ids = params.ids, markercolor = params.markercolor, shapecolor = params.shapecolor }
        if params.params and type(params.params) == 'table' then -- parâmetro adicionais
               for i, j in pairs(params.params) do
                           newparams[i] = j
            end
        end
        return require('Módulo:Mapa').multimap(newparams)
end
p.buildMap = p.buildmap

function p.buildexternaltext(params)
    local value = getValue(params.value)
        if value and (type(value) == 'string') then
               externaltext = externaltext .. value
        end
end
p.buildExternalText = p.buildexternaltext

function p.buildfooter(params)
        if not params then
                   params = {}
        end
 
    local class = 'navbar noprint bordered ' .. (params.class or '')
        local style = params.style or {['border-width'] = '1px'}
        style['margin-top'] = '5px' -- espaço vertical para o footer
    style['margin-bottom'] = '-0.125em'
        style['border-top'] = style['border-top'] or '1px solid ' .. maincolor
    style['border-bottom'] = '0'
    style['display'] = 'block'

    local backlinkstr = '[' .. tostring( mw.uri.fullUrl( page.name, 'veaction=edit&section=0' ) ) .. ' ' .. i18n['edit'] .. ']'
                  .. ' - [' .. tostring( mw.uri.fullUrl( page.name, 'action=edit&section=0' ) ) .. ' ' .. i18n['edit code'] .. ']'

        local itemlinkstr
        if localdata.item then
               itemlinkstr = '[[d:' .. localdata.item.id .. '|' .. i18n['edit item'] .. ']]'
        end
        local editstr = backlinkstr
       if itemlinkstr then
                editstr = editstr .. ' - ' .. itemlinkstr
        end
        local editlinkspan =  mw.html.create('span')
                  :css({['text-align'] = "left"})
            :css({['width'] = "23em"})
        --:css({['float'] = "left"})
            :addClass('plainlinks') --?existe
            :wikitext(editstr)
            :done()
        local doclinkstr = '[[Imagem:Info Simple.svg|12px|link=' .. localdata.templatename .. '|' .. i18n['see doc'] .. ']]'
        -- Se esse link nem sempre funcionar, adicione uma variável para o nome da infobox recuperada pelo quadro
        local doclinkspan = mw.html.create('span')
                  :css({['text-align'] = "right"})
            :css({['float'] = "right"})
            :wikitext(doclinkstr)
            :done()
 
    local footer = mw.html.create('p')
                  :addClass(class)
            :css(style)
            :node(editlinkspan)
            :node(doclinkspan)
        return footer
end
p.buildFooter = p.buildfooter

function p.buildblock(block)
        if type(block) == 'function' then
               block = block( localdata )
        end

        local blocktypes = { -- list of functions for block buildings
                  ['invalid'] = p.buildinvalidblock,
            ['external text'] = p.buildexternaltext,
            ['footer'] = p.buildfooter,
            ['images'] = p.buildimages,
            ['map']= p.buildmap,
            ['mixed'] = p.buildrow,
            ['navbox'] = p.buildnavbox,
            ['table'] = p.buildtable,
            ['row'] = p.buildrow,
            ['row1col'] = p.buildrow1col,
            ['succession'] = p.buildnavbox,
            ['text'] = p.buildtext,
            ['title'] = p.buildtitle,
        }
        if type(block) ~= 'table' or (not block.type) or (not blocktypes[block.type]) then
           return blocktypes['invalid'](block)
        end
        return blocktypes[block.type](block)
end
p.buildBlock = p.buildblock

function p.build()
 
    localdata = require( 'Módulo:Infobox/Localdata' )
        item = localdata.item

        -- assign rank to the infobox, "secondary" means special formatting like no displaytitle for coordinates
        local infoboxrank = 'main' -- main infobox of the page, with coordinates displayed in title etc.
        if page.namespace ~= 0 then
               infoboxrank = 'secondary'
        end
        -- if infobox is linked to another item: rank = secondary
        if localdata.item then
               local itemlink = mw.wikibase.sitelink(localdata.item.id)
            local pagetitle = mw.title.getCurrentTitle().text
            if (itemlink or '') ~= pagetitle then
                       infoboxrank = 'secondary'
            end
        end
        localdata.infoboxrank = infoboxrank

        -- load infobox module page
        local moduledata = require('Módulo:Infobox/' .. localdata.modulename)
        moduledata.name = localdata.modulename
        -- defines main color
        maincolor = localdata['cor infobox'] or localdata['caixa de cor'] or moduledata.maincolor or maincolor
        secondcolor =  moduledata.secondcolor or secondcolor
        thirdcolor =  moduledata.thirdcolor or thirdcolor
        if maincolor:match( '^%x%x%x%x%x%x$' ) or maincolor:match( '^%x%x%x$' ) then
               maincolor = '#' .. maincolor
        end
 
        -- class
        local class = 'infobox'
        if moduledata.class then
            class = class .. ' ' .. moduledata.class
        end
 
    -- style
        local style = moduledata.style or {} --{'width: 20em; text-align: left; font-size: 88%; max-width: 23em'}
        style['font-size'] = style['font-size'] or '88%'
        style['width'] = style['width'] or '25em'

    -- build infobox
        infobox :addClass(class)
            :attr({cellpadding= "3"})
                :attr({border= "0"})
                :css(style)
        for i, j in pairs( moduledata.parts ) do
                   infobox:node( p.buildblock(j) )
        end
        infobox :node(p.buildfooter(moduledata.footer))
                :done()

        if CategorizacaoABeAD.hasAnyBadge() == '1' then
            maintenance = maintenance .. (CategorizacaoABeAD.badgesCategories())
        end

        return tostring(infobox) .. externaltext, maintenance
end

return p