local p = {}
local ModuloArgumentos = require('Módulo:Argumentos')
local ModuloFicha = require('Módulo:Ficha')    
local ModuloWikidata = require('Module:Wikidata')
local ModuloPaginas = require('Módulo:Páginas')
local elementoTabla = require('Módulo:Tablas').elemento
local argumentos
local Entidad

function p.Ficha(frame)
    argumentos = ModuloArgumentos.obtenerArgumentosConValor(frame)
    Entidad = mw.wikibase.getEntity(argumentos.id) or {}
    local Titulo = argumentos['título'] or obtenerEtiquetaWikidata() or ModuloPaginas.nombrePagina({desambiguar='sí'})
    -- Propiedades
    local Imagen = argumentos['imagen']
    local Pie
    if Imagen then
        Pie = argumentos['pie de foto']
    else
        Imagen, Pie = obtenerImagenWikidata()
    end
    local Tamano = argumentos['tamaño'] or "250px"
    local Autor = argumentos['autor'] or propiedad('P50', {['enlace']='sí', ['linkback']='sí'}) or ""
    local Version = argumentos['version'] or propiedad('P348', {['linkback']='sí'}) or ""
    local Editorial = argumentos['publicado'] or propiedad('P123', {['linkback']='sí'}) or ""
    local Fecha = argumentos['fecha'] or propiedad('P577', {['enlace']='no', ['linkback']='sí'}) or ""
    local AprobadoDebian
    local AprobadoFSF
    local SoftwareLibre
    local AprobadoOSI
    local Copyleft
    if argumentos['aprobado Debian'] then
        AprobadoDebian = argumentos['aprobado Debian']
    elseif esUnValor(Entidad,'P790','Q903054') then
        AprobadoDebian = frame:preprocess('{{sí}}')
    else
        AprobadoDebian = ""
    end
    if argumentos['aprobado FSF'] then
        AprobadoFSF = argumentos['aprobado FSF']
    elseif esUnValor(Entidad,'P790','Q48413') then
        AprobadoFSF = frame:preprocess('{{sí}}')
    else
        AprobadoFSF = ""
    end
    if argumentos['software libre'] then
        SoftwareLibre = argumentos['software libre']
    elseif esUnValor(Entidad,'P31','Q3943414') or esUnValor(Entidad,'P31','Q1437937') or esUnValor(Entidad,'P31','Q5975031') then
        SoftwareLibre = frame:preprocess('{{sí}}')
    else
        SoftwareLibre = ""
    end
    if argumentos['código abierto'] then
        AprobadoOSI = argumentos['código abierto']
    elseif esUnValor(Entidad,'P790','Q845918') then
        AprobadoOSI = frame:preprocess('{{sí}}')
    else
        AprobadoOSI = ""
    end
    local CompatibleGPL = argumentos['compatible GPL'] or "" -- Pendiente proponer propiedad "compatible con"
    if argumentos['copyleft'] then
        Copyleft = argumentos['copyleft']
    elseif esUnValor(Entidad,'P31','Q5975031') then
        Copyleft = frame:preprocess('{{sí}}')
    else
        Copyleft = ""
    end
    local UsoOtrasLicencias = argumentos['compatible GNU'] or "" -- Pendiente proponer propiedad "compatible con"
    local SitioWeb = argumentos['sitio web'] or propiedad('P856', {['linkback']='sí'}) or ""
    local TablaFicha = {
        entidad = argumentos.id,
        titulo  = capitalizar(Titulo),
        clasetitulo = 'informática',
        estilotitulo = 'background-color: #ccccff; color:#000;',
        estiloseccion = 'background-color: #ccccff; color:#000;',
        estiloetiqueta = 'background-color: #ddddff; width:35%',
        estilodatos = 'width:65%',
        imagen = Imagen,
        ['tamañoimagen'] = Tamano,
        pie = Pie,
        estilopie = 'font-size:88%',
        {tipo='sección',
            titulo = "Información",
            {'Autor', Autor},
            {'[[Versión de software|Versión]]', Version},
            {'Edición', Editorial},
            {'Fecha', Fecha},
            {'Compatible con [[Directrices de software libre de Debian|DFSG]]', AprobadoDebian},
            {'Aprobado por la [[Free Software Foundation|FSF]]', AprobadoFSF},
            {'[[Software libre]]', SoftwareLibre},
            {'Aprobado por la [[Open Source Initiative|OSI]]', AprobadoOSI},
            {'Compatible con la [[GNU General Public License|GPL]]', CompatibleGPL},
            {'[[Copyleft]]', Copyleft},
            {'Utilizable junto con otras licencias', UsoOtrasLicencias},
            {'Sitio web', SitioWeb},
        }
    }
    return ModuloFicha.infobox(TablaFicha)
end

function obtenerEtiquetaWikidata()
    if Entidad and Entidad.labels and Entidad.labels.es then
        return Entidad.labels.es.value
    end
end

function obtenerImagenWikidata()
    local imagen, valorImagen, piesDeImagen, k, pieDeImagen
    if not Entidad then
        return
    end
    --  Obtener la primera imagen en Wikidata de la persona
    local imagen = elementoTabla(Entidad, 'claims','P154',1)
    if not imagen then
        return
    end
    valorImagen =  elementoTabla(imagen, 'mainsnak','datavalue','value')
    piesDeImagen =  elementoTabla(imagen, 'qualifiers','P2096')
    -- Encontrar el pie en español
    if piesDeImagen then
        for k,pieDeImagen in pairs(piesDeImagen) do
            if pieDeImagen.datavalue.value.language == 'es' then
                return valorImagen, pieDeImagen.datavalue.value.text
            end
        end
    end
    -- Si no hay pie de imagen en español comprueba si hay fecha especificada para la imagen
    piesDeImagen = elementoTabla(imagen, 'qualifiers', 'P585')
    if piesDeImagen and piesDeImagen[1] then
        return valorImagen, nombre .. ' en ' .. require('Módulo:Wikidata/Fecha').FormateaFechaHora(piesDeImagen[1].datavalue.value, {['formatoFecha']='año',['enlace']='no'})
    end
    -- Sin pie de imagen en español
    return valorImagen
end

function propiedad(idPropiedad,opciones)
    if Entidad and Entidad.claims and Entidad.claims[idPropiedad] then
        if not opciones then
            opciones = {['linkback']='sí'}
        end
        opciones.entityId  = Entidad.id
        opciones.propiedad = idPropiedad
        valorPropiedad = ModuloWikidata.getPropiedad(opciones,Entidad.claims[idPropiedad])
        return valorPropiedad
    end
end

function esUnValor(entidad, idPropiedad, idaBuscar)
    if not entidad or not idPropiedad then
        return
    end
    local declaracion = elementoTabla(entidad, 'claims', idPropiedad)
    local idBuscado
    if not declaracion then
        return false
    end
    for k,v in pairs(declaracion) do
        idBuscado = elementoTabla(v,'mainsnak','datavalue','value','id')
        if idBuscado == idaBuscar then
            return true
        end
    end
    return false
end

function capitalizar(cad)
    return string.upper(string.sub(cad,1,1)) .. string.sub(cad,2)
end

return p