| Contenidos de Wikipedia en español bajo licencia CC BY-SA 4.0 ⇔ Mapas de OpenStreetMap bajo licencia ODbL |
Módulo:Ficha de libro
De Hispanopedia
Uso
local z = {}
local argumentos -- Tabla de argumentos con los que se llama a la función
local argumento={} -- Argumentos eliminando los argumentos sin datos
local Entidad -- Tabla con los datos en Wikidata del libro.
-- Ver Wikidata:WikiProject Books para las propicedades posibles
local etiqueta
-- Módulos y funciones externas
local ModuloArgumentos = require('Módulo:Argumentos')
local ModuloFicha = require('Módulo:Ficha')
local ModuloIdentificadores = require('Módulo:Identificadores')
local ModuloPaginas = require('Módulo:Páginas')
local ModuloWikidataFormatos = require('Módulo:Wikidata/Formatos')
local formatoObraAnyo = ModuloWikidataFormatos.formatoObraAnyo
local ModuloWikidata = require('Module:Wikidata')
local addLinkbackWikidata = ModuloWikidata.addLinkback
local categorizarWikidata = ModuloWikidata.categorizar
local formatoIdEntidad = ModuloWikidata.formatoIdEntidad
local getPropiedadWikidata= ModuloWikidata.getPropiedad
local ModuloTablas = require('Module:Tablas')
local elementoTabla = ModuloTablas.elemento
local enTabla = ModuloTablas.en
local insertarEn = ModuloTablas.insertar
local ModuloFormatoTexto = require('Módulo:Formato texto')
local enlazarTexto = ModuloFormatoTexto.enlazar
local enVariasLineasTexto = ModuloFormatoTexto.enVariasLineas
local sinBandera = require('Módulo:Bandera').sinBandera
-- Constantes
local debeExistir = {['debeExistir'] = 'sí', ['formatoTexto'] = 'mayúscula', ['linkback']='sí'}
local enMayusculas = {['formatoTexto'] = 'mayúscula', ['linkback']='sí'}
local enlazar = {['enlace']='sí', ['linkback']='sí'}
local normal = {['linkback']='sí'}
local listaNoOrdenadaEnlazada = {['enlace']='sí', ['lista'] = 'no ordenada', ['linkback']='sí'}
local categoriasGeneros = {
[693 ] = 'Fábulas'
, [1072723] = 'Libros de viajes' -- literatura de viajes
, [1164267] = 'Libros de viajes' -- libro de viajes
, [131539 ] = 'Obras infantiles' -- literatura infantil
, [995600 ] = 'Libros de divulgación científica' -- divulgación científica
}
local tablaGeneros={ -- Tabla de géneros exceptuando los subgéenros.
'Q8261' -- Novela
, 'Q482' -- Poesía
, 'Q49084' -- Cuento
, 'Q25379' -- Obra de teatro
, 'Q1279564' -- Colección de cuentos
, 'Q37484' -- Epopeyas
, 'Q213051' -- No ficción
}
local categoriasGenerosNovelas = {
[3056541] = 'Novelas autobiográficas'
,[4184 ] = 'Novelas autobiográficas' --autobiografía
,[908667 ] = 'Novelas bélicas'
,[4914883] = 'Novelas biográficas'
,[174526 ] = 'Novelas ciberpunk'
,[26228231] = 'Novelas ciberpunk' -- novela ciberpunk
,[1077883] = 'Novelas ciberpunk' -- biopunk
,[26228228] = 'Novelas ciberpunk' -- novela biopunk
,[1341831] = 'Novelas ciberpunk' -- postciberpunk
,[27022710] = 'Novelas ciberpunk' -- novela postciberpunk
,[223945 ] = 'Novelas de aprendizaje'
,[1312571] = 'Novelas de aprendizaje' -- novela de desarrollo
,[319226 ] = 'Novelas de aventuras'
,[1436734] = 'Novelas de aventuras' -- aventura. FALTA corregir el enlace par que enlace a novela de aventuras.
,[24925 ] = 'Novelas de ciencia ficción'
,[12132683]= 'Novelas de ciencia ficción'
,[3238422]= 'Novelas de ciencia ficción' -- literatura de ciencia ficción
,[905770 ] = 'Novelas de ciencia ficción' -- ciencia ficción blanda
,[725757 ] = 'Ciencia ficción dura' -- ciencia ficción dura
,[2435402] = 'Novelas de ciencia ficción feministas' -- ciencia ficción feminista
,[2561390] = 'Novelas de humor'
,[40831 ] = 'Novelas de humor' -- Comedia
,[6585139] = 'Novelas de misterio'
,[182015 ] = 'Novelas de suspenso'
,[193606 ] = 'Novelas de terror' -- literatura de terror
,[16575965 ] = 'Novelas de terror' -- ficción de terror
,[20667180] = 'Novelas de terror' -- novela de terror
,[1425557] = 'Novelas de vampiros'
,[10453828] = 'Novelas de viajes en el tiempo'-- novela de viajes en el tiempo
,[253732 ] = 'Novelas de viajes en el tiempo' -- Viaje en el tiempo en la ficción
,[182154 ] = 'Novelas de viajes en el tiempo' -- Viaje a través del tiempo
,[180774 ] = 'Novelas distópicas' -- Distopía
,[20443047] = 'Novelas distópicas' -- literatura distópica
,[26928598 ] = 'Novelas distópicas' -- novela distópica
,[25372 ] = 'Novelas dramáticas'
,[465821 ] = 'Novelas epistolares'
,[747483 ] = 'Novelas eróticas' -- literatura erótica
,[11452132 ] = 'Novelas eróticas' -- novela erótica
,[1426213] = 'Novelas de espionaje'
,[11825887]= 'Novelas fantásticas' -- novela fantástica
,[10992055]= 'Novelas fantásticas' -- novela fantástica
,[132311 ] = 'Novelas fantásticas' -- Género fantástico
,[1057172] = 'Novelas fantásticas' -- Literatura fantástica
,[603291 ] = 'Novelas fantásticas' -- fantasía histórica
,[794912 ] = 'Novelas fantásticas' -- dark fantasy/fantasía oscura
,[2625243] = 'Novelas fantásticas' -- fantasía heroica
,[2016518] = 'Novelas filosóficas'
,[20669641]= 'Novelas góticas' -- Ficción gótica
,[192782 ] = 'Novelas góticas' -- Narrativa gótica
,[276709 ] = 'Novelas góticas' -- Gótico sureño
,[1196408] = 'Novelas históricas' -- Ficción histórica
,[192239 ] = 'Novelas históricas'
,[131539] = 'Obras infantiles' -- Literatura infantil
,[11825892] = 'Novelas juveniles' -- novela juvenil
,[1233720] = 'Novelas juveniles' -- Literatura juvenil
,[1940294] = 'Novela negra'
,[1619888] = 'Novelas pastoriles'
,[208505 ] = 'Novelas policíacas'
,[186424 ] = 'Novelas policíacas' -- El detective de ficción
,[26906554] = 'Novelas posapocalípticas' -- novela posapocalíptica
,[197949] = 'Novelas posapocalípticas' -- ficción posapocalíptica
,[113013 ] = 'Novelas posmodernas' -- Literatura posmoderna
,[286328 ] = 'Novelas psicológicas'
,[147516] = 'Novelas de realismo mágico'
,[858330 ] = 'Novelas románticas'
,[6045975] = 'Novelas satíricas' -- novela satírica
,[128758 ] = 'Novelas satíricas' -- Sátira
,[7225114] = 'Novelas satíricas' -- Sátira política
,[223685] = 'Novelas steampunk' -- steampunk
,[27020789] = 'Novelas steampunk' -- novela steampunk
,[3440959] = 'Novelas de suspenso' -- Novela de suspense
,[2490520] = 'Novelas de thriller legal' -- thriller legal
,[590103] = 'Novelas de suspenso psicológico' -- suspense psicológico, thriller psicológico
,[580850 ] = 'Novelas tecno-thriller' -- tecno-thriller
,[224989 ] = 'Novelas ucrónicas'
,[16681629 ] = 'Novelas ucrónicas' --literatura ucrónica
,[26225470 ] = 'Novelas ucrónicas' --Novela ucrónica
,[667661] = 'Novelas del Realismo' --realismo literario
,[3940779] = 'Novelas del Realismo' --novela realista
}
local categoriasTemasNovelas = {
[2763] = 'Novelas sobre el Holocausto'
, [180046] = 'Novelas de exploración espacial' -- exploración espacial
, [362 ] = 'Novelas de la Segunda Guerra Mundial' -- Segunda Guerra Mundial
, [10453828] = 'Novelas de viajes en el tiempo'-- novela de viajes en el tiempo
, [253732] = 'Novelas de viajes en el tiempo' --viaje en el tiempo en la ficción
, [182154] = 'Novelas de viajes en el tiempo' --viaje a través del tiempo
, [10859 ] = 'Novelas sobre la Guerra Civil Española'
}
function enlazarIdioma(idioma, mayuscula)
if not idioma then
return idioma
else
inicio, medio, fin=idioma:match('(%[[^|%]]*|)(.)(.*)')
if inicio and medio and fin then
if mayuscula == 'sí' then
return inicio .. medio:upper() .. fin
else
return inicio .. medio:lower() .. fin
end
end
if idioma:find('%[') then
return idioma
end
idioma= idioma:lower()
if mayuscula == 'sí' then
return '[[idioma ' .. idioma .. '|' .. idioma:gsub("%a", string.upper,1) .. ']]'
else
return '[[idioma ' .. idioma .. '|' .. idioma .. ']]'
end
end
end
-- Función que devuelve la lista de los valores de una propiedad en Wikidata formateados
function propiedad(idPropiedad,opciones)
if Entidad and Entidad.claims and Entidad.claims[idPropiedad] then
if not opciones then
opciones = normal
end
opciones.entityId = Entidad.id
opciones.propiedad = idPropiedad
valorPropiedad = getPropiedadWikidata(opciones,Entidad.claims[idPropiedad])
return valorPropiedad
end
end
-- Función que devuelve el género y el subgénero de Wikidata.
-- La novela, novela corta o cuento, se devolverán siempre en el género.
-- El resto de géneros se devolverán como subgénero o como género dependiendo de
-- si en Wikidata se utiliaz uno de los géneros anteriores.
-- Por ejemplo:
-- - En Wikidata Novela + ciencia ficción --> género = Novela, subgénero = Ciencia ficción
-- - En Wikidata ciencia ficción --> género = Ciencia ficción
function obtenerGeneroWikidata()
if not Entidad or not Entidad.claims then
return
end
-- Subgéneros de novelas sin un artículo en la Wikipedia y que se reemplazan por el subgénero que existe
local subgenerosNovelas = {
['Q3056541' ] = 'Q4184' , -- novela autobiográfica / autobiografía
['Q26228228'] = 'Q1077883', -- novela biopunk / biopunk
['Q26228231'] = 'Q174526' , -- novela ciberpunk / ciberpunk
['Q12132683'] = 'Q24925' , -- novela de ciencia ficción /
['Q10992055'] = 'Q1057172', -- novela fantástica / literatura fantástica
['Q11825892'] = 'Q1233720', -- novela juvenil / literatura juvenil
['Q26906554'] = 'Q197949' , -- novela posapocalíptica / ficción posapocalíptica
['Q27022710'] = 'Q1341831', -- novela postciberpunk / postciberpunk
['Q27020789' ] = 'Q223685' , -- novela steampunk / steampunk
['Q3440959' ] = 'Q182015' , -- novela de suspense / suspense
['Q26225470'] = 'Q224989' , -- novela ucrónica / ucronía
['Q21616374'] = 'Q1425557', -- novela de vampiros / literatura de vampiros
}
local subgenerosCuentos = {
['Q21905924'] = 'Q24925' , -- cuento de ciencia ficción / ciencia ficción
}
local subgenerosGeneros = {
['Q132311' ] = 'Q1057172', -- Género fantástico / Literatura fantástica
['Q16681629'] = 'Q224989' , -- literatura ucrónica / Ucronía
['Q516626' ] = 'Q193606' , -- Terror (sentimiento de miedo o fobia en su escala máxima) / Terror (género literario)
}
local temasGeneros = {
['Q1481165' ] = 'Q2763' , -- literatura del Holocausto / Holocausto
['Q182154' ] = 'Q253732' , -- viaje a través del tiempo / viaje en el tiempo en la ficción
['Q253732' ] = 'Q253732' , -- viaje en el tiempo en la ficción / viaje en el tiempo en la ficción
}
local declaracionesGeneros = Entidad.claims['P136']
local declaracionesTemas = Entidad.claims['P921']
local identificadorGenero, identificadorTema
local generos = {}
local subgeneros = {}
local temas = {}
if declaracionesTemas then
for k,v in pairs(declaracionesTemas) do
identificadorTema = 'Q' .. v.mainsnak.datavalue.value['numeric-id']
if identificadorTema == 'Q182154' then -- viaje a través del tiempo
insertarEn(temas, 'Q253732') -- viaje en el tiempo en la ficción
else
insertarEn(temas, identificadorTema)
end
end
end
if declaracionesGeneros then
for k,v in pairs(declaracionesGeneros) do
identificadorGenero = 'Q' .. v.mainsnak.datavalue.value['numeric-id']
if insertarEn(subgeneros, subgenerosNovelas[identificadorGenero]) then
insertarEn(generos, 'Q8261') -- novela
elseif insertarEn(subgeneros, subgenerosGeneros[identificadorGenero]) or
insertarEn(temas, temasGeneros[identificadorGenero])then
elseif identificadorGenero == 'Q3547700' then -- ucronía de fantasía
insertarEn(subgeneros, 'Q224989') -- Ucronía
insertarEn(subgeneros, 'Q1057172') -- Literatura fantástica
elseif insertarEn(subgeneros, subgenerosCuentos[identificadorGenero]) or
identificadorGenero == 'Q472808' then -- cuento largo
insertarEn(generos, 'Q49084') -- cuento
elseif identificadorGenero == 'Q149537' then -- novela corta
insertarEn(generos, 'Q8261') -- novela
elseif identificadorGenero == 'Q3326349' then -- lirica
insertarEn(generos, 'Q482') -- poesia
elseif identificadorGenero == 'Q5185279' then -- poema
insertarEn(generos, 'Q482') -- poesia
elseif identificadorGenero == 'Q1347298' then -- novela por entregas
-- No es un género en sí. No mostrarlo.
elseif identificadorGenero == 'Q10453828' then -- novela de viajes en el tiempo
insertarEn(generos, 'Q8261') -- novela
insertarEn(temas, 'Q253732') -- viaje en el tiempo en la ficción
elseif identificadorGenero == 'Q26928598' or -- novela distópica
identificadorGenero == 'Q20443047' then -- Literatura distópica
insertarEn(generos, 'Q8261') -- novela
insertarEn(temas, 'Q180774') -- Distopía
elseif identificadorGenero == 'Q3238422' then -- literatura de ciencia ficción
insertarEn(subgeneros, 'Q24925') -- ciencia ficción
elseif ModuloTablas.en(tablaGeneros, identificadorGenero) then
insertarEn(generos, identificadorGenero)
else
insertarEn(subgeneros, identificadorGenero)
end
end
end
for k,v in pairs(subgeneros) do
if enTabla(generos, 'Q8261') and -- novela
v == 'Q193606' then -- literatura de terror
subgeneros[k] = 'Q20667180' -- novela de terror
end
end
local subgenerosConFormato = formatear(subgeneros)
-- Reemplazar en los géneros "novela de ciencia ficción" por "ciencia ficción" y similares
if subgenerosConFormato then
subgenerosConFormato = subgenerosConFormato:gsub('|novela de ', '|')
subgenerosConFormato = subgenerosConFormato:gsub('|Novela de ciencia ficción', '|Ciencia ficción')
subgenerosConFormato = subgenerosConFormato:gsub('%[%[Novela de terror%]%]', '[[Novela de terror|Terror]]')
subgenerosConFormato = subgenerosConFormato:gsub('|Novela de terror', '|Terror')
subgenerosConFormato = subgenerosConFormato:gsub('%[%[Literatura de ficción%]%]', '[[Literatura de ficción|Ficción]]')
subgenerosConFormato = subgenerosConFormato:gsub('%[%[literatura de ficción%]%]', '[[Literatura de ficción|ficción]]')
end
if generos[1] then
return addLinkbackWikidata(formatear(generos), Entidad.id, 'P136')
, addLinkbackWikidata(subgenerosConFormato, Entidad.id, 'P136')
, addLinkbackWikidata(formatear(temas), Entidad.id, 'P921')
else
return addLinkbackWikidata(subgenerosConFormato, Entidad.id, 'P136')
, nil
, addLinkbackWikidata(formatear(temas), Entidad.id, 'P921')
end
end
-- Formatear una tabla de identificadores de entidades de Wikidata
function formatear(identificadores)
local identificadoresFormateados = {}
local primero = true
for k,v in pairs(identificadores) do
if primero then
table.insert(identificadoresFormateados, formatoIdEntidad(v,{['mayúscula'] = 'sí', ['enlace'] = 'sí'}))
primero = false
else
table.insert(identificadoresFormateados, formatoIdEntidad(v, {['mayúscula'] = 'no', ['enlace'] = 'sí'}))
end
end
-- No devolver nada si la lista no tiene elementos
if not primero then
return mw.text.listToText(identificadoresFormateados)
end
end
function obtenerEtiquetaWikidata()
if Entidad and Entidad.labels and Entidad.labels.es then
return Entidad.labels.es.value
end
end
function obtenerWikisource(idioma)
if not idioma or not Entidad or not Entidad.sitelinks then
return
end
if idioma:find('[Ee]spañol') then
if not Entidad.sitelinks.eswikisource or not Entidad.sitelinks.eswikisource.title then
return
end
tituloWikiSource = Entidad.sitelinks.eswikisource.title
--[[Archivo:Wikisource-logo.svg|15px| ]]
return "''[[s:" .. tituloWikiSource .. "|" .. tituloWikiSource .. "]]'' en [[Wikisource]]"
elseif idioma:find('[Ii]nglés') then
if not Entidad.sitelinks.enwikisource or not Entidad.sitelinks.enwikisource.title then
return
end
tituloWikiSource = Entidad.sitelinks.enwikisource.title
return "''[[:en:s:" .. tituloWikiSource .. "|" .. tituloWikiSource .. "]]'' en [[Wikisource]]"
elseif idioma:find('[Ff]rancés') then
if not Entidad.sitelinks.frwikisource or not Entidad.sitelinks.frwikisource.title then
return
end
tituloWikiSource = Entidad.sitelinks.frwikisource.title
return "''[[:fr:s:" .. tituloWikiSource .. "|" .. tituloWikiSource .. "]]'' en [[Wikisource]]"
end
end
function corregirIdiomaWikidata(entidad, idPropiedad)
if not entidad or not idPropiedad then
return
end
local declaracion= elementoTabla(entidad, 'claims', idPropiedad)
local idIdioma
if not declaracion then
return
end
for k,v in pairs(declaracion) do
idIdioma=elementoTabla(v,'mainsnak','datavalue','value','id')
if idIdioma == 'Q7979' or -- inglés británico
idIdioma == 'Q44676' or -- inglés canadiense
idIdioma == 'Q7976' or -- inglés estadounidense
idIdioma == 'Q665624' then -- inglés en Irlanda
v.mainsnak.datavalue.value.id='Q1860'
v.mainsnak.datavalue.value['numeric-id']=1860
end
end
end
function obtenerTitulo()
--De momento solo obtener el título de Wikidata si solo hay definido uno.
--if true then return ModuloTablas.tostring(Entidad) end
if not elementoTabla(Entidad, 'claims', 'P1476', 2) then
return propiedad('P1476')
end
end
return z
