Módulo:Infobox/Funções

-- Funções comuns a diversas infobox
local localdata = require( 'Módulo:Infobox/Localdata' )
local wikidata = require( 'Módulo:Infobox/Wikidata' )
local linguistic = require "Module:Linguística"
local item = localdata.item
local p = {}

function p.title(icon, style, subtitleparam, subtitlequery, italic)
    local function hide(param, value)
        if localdata[param] ~= '-' then
            return value
        end
    end
    
    return {
        type = 'title',
        value = function()
            return localdata['nome'] or localdata['associação_nome'] or localdata['nome_think'] or localdata['acronymelaboratoire'] or localdata['título']
                or wikidata.getLabel(localdata.item) and mw.language.getContentLanguage():ucfirst( wikidata.getLabel(localdata.item) )
                or mw.title.getCurrentTitle().text
        end,
        subtitle = function() if localdata[subtitleparam] ~= '-' then return localdata[subtitleparam] end end,
        wikidatasubtitle = hide(subtitleparam, subtitlequery),
        icon = icon,
        style = style,
        italic = italic,
        setdisplaytitle = italic,
    }
end

function p.standardImage(imageType, imageparameters, property, upright)
    return {
        type = 'images',
        imageparameters =  imageparameters or {imageType},
        captionparameter = 'legenda ' .. imageType,
        property = property,
        defaultupright = upright,
        uprightparameter = 'upright ' .. imageType,
        sizeparameter = 'tamanho ' .. imageType,
        altparameter = 'alternativa ' .. imageType,
        numval = 1,
    }
end

function p.mainimage(args, defaultimage)
    if type( args ) ~= 'table' then
        args = { cat = args, defaultimage = defaultimage }
    end
    local tableReturned = p.standardImage('image', {'imagem', 'foto', 'imagem_horizonte'}, {'P18', 'P5252'}, upright or '1')
    tableReturned.defaultimages = args.defaultimage or defaultimage
    tableReturned.defaultimagelink = 'Ajuda:Inserir uma imagem'
    tableReturned.uprightparameter = 'upright'
    tableReturned.defaultupright = args.upright
    tableReturned.defaultsize =     args.tamanho
    tableReturned.maintenancecat = args.cat or '!Artigos sem imagens'
    tableReturned.captionparameter = {'legenda', 'imagem_legenda', 'legenda_imagem'}
    tableReturned.altparameter = args.altparameter or 'alternative image'
    tableReturned.defaultimagealt = args.defaultimagealt
    tableReturned.property = nil
    tableReturned.wikidata = args.wikidata or {property = {'P18', 'P5252'}}
    return tableReturned
end

function p.interior(upright)
    return p.standardImage('interior', {'interior'}, 'P5775', upright or '1')
end

function p.logo(upright)
    return p.standardImage('logo', {'logo', 'associação_logo'}, 'P154', upright or '0.6')
end

function p.brazao(upright)
    local tableReturned = p.standardImage('brazão', {'brazao'}, {'P94', 'P158'}, upright or '0.8')
    tableReturned.captionparameter = {'legenda_brazão'}
    tableReturned.uprightparameter = {'upright brazão'}
    tableReturned.sizeparameter = {'tamanho brazão'}
    return tableReturned
end
-- Il n'y a aucune preuve que le paramètre id ai une utilité: aucun appel avec ce paramètre et pas de documentation (2022-08-20).

function p.flag(upright, id)
    local tableReturned = p.standardImage('bandeira', {'bandeira'}, 'P41', upright or '1')
    local drapeau = wikidata.formatStatements{entity = id, property = 'P163', defaultlink = '-'}
    tableReturned.captionparameter = bandeira or 'legenda bandeira'
    return tableReturned
end

function p.sign(upright)
    return p.standardImage('placa rodoviária', {'placa rodoviária'}, 'P14', upright or '0.4')
end

function p.icon(upright)
    return p.standardImage('ícone', {'ícone'}, 'P2910', upright or '0.4')
end

function p.bathymetricmap(upright)
    return p.standardImage('mapa batimétrico', {'mapa batimétrico'}, 'P207', upright or '1')
end

function p.routemap(upright)
    return {
        type = 'images',
        imageparameters =  {'traçado'},
    --    defaultimage = {},
    --    maintenancecat =
        captionparameter = 'legenda traçado',
        property = 'P15',
        defaultupright = upright or '1',
        uprightparameter = 'upright traçado',
        sizeparameter = 'tamanho traçado',
        numval = 1,
    }
end

-- Ligações externas
function p.website(localparam) -- texto livre [http://example.org example.org] ou url apenas localparam é designado o parâmetro utilizado historicamente dentro da predefinição para o website (legacy)
    return {
        type = 'mixed',
        label = 'Website',
        plurallabel = 'Websites',
        wikidata = function()
                local values, num = wikidata.formatAndCat {
                    entity = localdata.item,
                    displayformat = 'wraplinks',
                    conjtype = '<br />',
                    property = 'P856',
                    isinlang = 'pt',
                    excludespecial = true, -- excludespecial porque pode haver marcado" nenhum valor " para o francês, mas pode haver um site em inglês
                    returnnumberofvalues = true,
                }
                if not values then
                    values, num = wikidata.formatAndCat {
                        entity = localdata.item,
                        displayformat = 'wraplinks',
                        conjtype = '<br />',
                        property = 'P856',
                        showlang = true,
                        excludespecial = true,
                        returnnumberofvalues = true,
                    }
                end
                return values, num
            end,
        value =
            function()
                local siteurl = localdata[localparam] or localdata['website'] or localdata['web_site'] or localdata['wesite oficial'] or localdata['site internet'] or localdata['web']
                local sitename = localdata['nome website']
                if siteurl then
                    if siteurl == '-' then
                        return '-'
                    else
                        return require("Module:Weblink").makelink(siteurl, sitename)
                    end
                end
            end,
    }
end

-- Som, pronunicação
function p.selectSound(prop)
    -- prioridade em português
    if wikidata.getClaims{entity = localdata.item, property = prop, qualifier = {'P407'}, qualifiervalue  = {'Q150'} } then
        return {property = prop, qualifier = {'P407'}, qualifiervalue  = {'Q150'} }
    end
    return {property = prop}
end

function p.prononciation()
    return {
        type             = 'images',
        style            = {['padding-top'] = '25px'},
        defaultcaption   = 'Pronunciação',
        captionparameter = 'legenda pronunciação',
        imageparameters  = 'pronunciação',
        defaultsize      = '280',
        wikidata         = p.selectSound('P443'),
        numval           = 1,
    }
end

-- Funções de geolocalização
function p.country(default)
    local coordfunctions = require 'Module:Infobox/Funções/Geolocalização'
    return coordfunctions.country(default)   
end

--- localização administrativa no Wikidata
function p.wikidataDivRows(countryid)  -- lista de linhas de divisão administrativa baseadas em dados Wikidata
    if not localdata.item then
        return nil
    end
    -- recuperação dos valores
    local list = wikidata.transitiveVals(localdata.item, {property = "P131", atdate = "today", excludespecial = true}, 3, 5, countryid)
    if not list then
        return nil
    end

    -- criação das colunas
    local rows = {}
    for i, div in pairs(list) do
        if (div == countryid) then
            break
        end
        local rowlabel, rowlabelid, rowlabeltext, rowlabellink, rowvalue
        rowlabelid = wikidata.formatStatements{entity= div, property = 'P31', numval = 1, displayformat = 'raw', excludespecial = true}
       
        rowlabeltext = wikidata.getLabel(rowlabelid)
        if rowlabeltext then
            rowlabeltext = linguistic.ucfirst(linguistic.removecomplement(rowlabeltext))  -- imposto pelos rótulos não muito lógicos no Wikidata como "Cantão da Suíça" em vez de "Cantão"        else
        else
            rowlabeltext = ''
        end
       
        if (not rowlabeltext) then
            rowlabeltext = 'Divisão'
        end
       
        if rowlabelid then
            rowlabellink = wikidata.siteLink(rowlabelid, {defaultlink = '-', defaultlinkquery= {property = "P2354"}} ) -- se nenhum link, link para a página da lista, por exemplo, lista de estados da Califórnia
        end
        if rowlabellink then
            rowlabel = "[[" .. rowlabellink .. "|" .. rowlabeltext .. "]]"
        else
            rowlabel = rowlabeltext
        end
        rowvalue = wikidata.formatEntity(div, {labelformat = function(id)
            local str = wikidata.getLabel(id) or ""
            if mw.ustring.match(rowlabel, str) then
                str = linguistic.keepcomplement(str)-- se o nome da divisão administrativa apresentada estiver presente, não o repita
            end
            return str
            end})
       
        table.insert(rows, 1, {type = "row", label = rowlabel, value = function() return rowvalue end})
    end
    return rows
end

function p.geoloc(params)
    local coordfunctions = require 'Module:Infobox/Funções/Geolocalização'
    return coordfunctions.geoloc(params)   
end

function p.coordenadas(params)
    local coordfunctions = require 'Module:Infobox/Funções/Geolocalização'
    return coordfunctions.coordenadas(params)
end

function p.locationmap(params)
    local coordfunctions = require 'Module:Infobox/Funções/Geolocalização'
    return coordfunctions.locationmap(params)   
end

function p.detailedmap(params)
    local coordfunctions = require 'Module:Infobox/Funções/Geolocalização'
    return coordfunctions.detailedmap(params)   
end

return p