Módulo:Zona de pruebas/Juan Mayordomo/Ficha de libro
Este módulo no tiene página de documentación[crear]
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 etiquetaWikidata
-- Módulos utilizadost
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 ModuloTablas = require('Module:Tablas')
local elementoTabla = ModuloTablas.elemento
local insertar = ModuloTablas.insertar
local enlazar = require('Módulo:Formato texto').enlazar
local sinBandera = require('Módulo:Bandera').sinBandera
-- Constantes
local enMayusculas = {['formatoTexto'] = 'mayúscula'}
local categoriasGenerosNovelas = {
[3056541] = 'Novelas autobiográficas'
,[4184 ] = 'Novelas autobiográficas' --autobiografía
,[908667 ] = 'Novelas bélicas'
,[4914883] = 'Novelas biográficas'
,[174526 ] = 'Novelas ciberpunk'
,[1077883] = 'Novelas ciberpunk' -- biopunk
,[1341831] = 'Novelas ciberpunk' -- postciberpunk
,[223945 ] = 'Novelas de aprendizaje'
,[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'
,[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 suspense'
,[193606 ] = 'Novelas 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
,[25372 ] = 'Novelas dramáticas'
,[465821 ] = 'Novelas epistolares'
,[747483 ] = 'Novelas eróticas'
,[1426213] = 'Novelas de espionaje'
,[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
,[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
,[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
,[3440959] = 'Novelas de suspense' -- Novela de suspenso
,[590103] = 'Novelas de suspense psicológico' -- thriller psicológico
,[224989 ] = 'Novelas ucrónicas'
,[16681629 ] = 'Novelas ucrónicas' --literatura ucrónica
}
local categoriasGeneros = {
[693 ] = 'Fábulas'
, [1072723] = 'Libros de viajes' -- literatura de viajes
, [1164267] = 'Libros de viajes' -- libro de viajes
, [131539 ] = 'Obras infantiles' -- literatura infantil
}
local tablaGeneros={ -- Tabla de géneros exceptuando los subgéenros.
'Q8261' -- Novela
, 'Q149537' -- Novela corta
--, 'Q482' -- Poesía
, 'Q49084' -- Cuento
, 'Q25379' -- Obra de teatro
, 'Q1279564' -- colección de cuentos
}
local categoriasTemasNovelas = {
[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 z.Ficha(frame)
-- Hacer que funcione la función formatBandera
ModuloWikidata:setFrame(frame) -- No funciona si se pone ModuloWikidata.setFrame(marco)
--Obtener una copia de los argumentos eliminando los argumentos sin valor
local argumento = ModuloArgumentos.obtenerArgumentosConValor(frame)
-- Obtener los datos de la página donde se inserta la ficha de Wikidata.
Entidad = mw.wikibase.getEntityObject(argumento.id) or {}
--if true then
-- return ModuloTablas.tostring(Entidad)
--end
corregirIdiomaWikidata(Entidad, 'P364')
local generoWikidata, subgeneroWikidata, temaWikidata = obtenerGeneroWikidata()
if generoWikidata then
genero = generoWikidata
subgenero = subgeneroWikidata
else
genero = argumento['género'] or
argumento['genero'] or
argumento['Género']
subgenero = argumento['subgénero'] or
argumento['subgenero'] or
argumento['Subgénero']
end
if not genero then
ColorFondo = 'LightSteelBlue'
ColorFondo2 = '#d8e2ee'
elseif genero:find('[Rr]elato') or
genero:find('[Cc]uento') or
genero:find('[Ll]eyenda') or
genero:find('[Aa]ntología') then
ColorFondo = 'LightSalmon'
ColorFondo2 = '#f9d9cb'
elseif genero:find('didáctico') or
genero:find('[Ee]nsayo') or
genero:find('[Dd]ivulgación') or
genero:find('[Cc]rítica') or
genero:find('[Tt]ratado') or
genero:find('[Cc]rónica') then
ColorFondo = 'NavajoWhite'
ColorFondo2 = '#FBE7C9'
elseif genero:find('[Pp]oesía') or
genero:find('[Ee]popeya') or
genero:find('[Ll]írico') or genero:find('[Ll]írica') or
genero:find('[Pp]oema') then
ColorFondo = 'darkseagreen'
ColorFondo2 = '#afdeaf'
else
ColorFondo = 'LightSteelBlue'
ColorFondo2 = '#d8e2ee'
end
Autor = propiedad('P50',{['enlace']='sí',
['calificativo'] = 'P742' -- seudónimo
}) or
argumento['autor'] or
argumento['autores'] or
argumento['Autor'] or
argumento['Autores']
if Autor and argumento['Acotaciones al autor'] then
Autor = Autor .. '<br /><small>' .. argumento['Acotaciones al autor'] .. '</small>'
end
if argumento['publicación original'] or argumento['tipo original'] or
argumento['tipo de publicación original'] or argumento['editorial original'] or
argumento['ilustrador original'] or argumento['ciudad original'] or
argumento['país original'] or argumento['fecha original'] or
argumento['formato original'] or argumento['páginas original'] or
argumento['isbn original'] or
argumento['Año original'] or argumento['Año de publicación original'] or
argumento['Ilustrador original'] or argumento['Ilustrador de la publicación original'] or
argumento['Artista de cubierta original'] or argumento['Artista de cubierta de la publicación original'] or
argumento['Editorial original'] or argumento['Editorial de publicación original'] or
argumento['Ciudad original'] or argumento['Ciudad de publicación original'] or
argumento['País original'] or argumento['País de publicación original'] or
argumento['ISBN original'] or
argumento['OCLC original'] or
argumento['Formato original'] or
argumento['Número de páginas original']
then
EdicionOriginal = true
end
if argumento['Título traducción'] or argumento['Título de la traducción'] or
argumento['Año traducción'] or argumento['Año de publicación de la traducción'] or
argumento['Traductor'] or argumento['traductor'] or
argumento['Ilustrador traducción'] or argumento['Ilustrador de la traducción'] or
argumento['Artista de cubierta traducción'] or argumento['Artista de cubierta de la traducción'] or
argumento['Editorial traducción'] or argumento['Editorial de la traducción'] or
argumento['Ciudad traducción'] or argumento['Ciudad de publicación de la traducción'] or
argumento['País traducción'] or argumento['País de publicación de la traducción'] or
argumento['ISBN traducción'] or argumento['ISBN de la traducción'] or
argumento['OCLC traducción'] or
argumento['Formato traducción'] or argumento['Formato de la traducción'] or
argumento['Número de páginas traducción'] or argumento['Número de páginas de la traducción']
then
EdicionTraduccion = true
end
if EdicionOriginal or EdicionTraduccion then
IdiomaOriginal = propiedad('P364',{['enlace']='sí'}) or
enlazarIdioma(
argumento['lengua'] or
argumento['idioma'] or
argumento['idioma original'] or
argumento['Idioma original'], 'no')
IlustradorOriginal = propiedad('P110',{['enlace']='sí'}) or
argumento['ilustrador original'] or
argumento['Ilustrador original'] or
argumento['Ilustrador de la publicación original']
ArtistaOriginal = propiedad('P736',{['enlace']='sí'}) or
argumento['artista original'] or
argumento['Artista de cubierta original'] or
argumento['Artista de cubierta de la publicación original']
PublicacionOriginal = propiedad('P1433',{['enlace']='sí'}) or
argumento['Publicación original'] or
argumento['publicación original']
TipoPublicacionOriginal = argumento['Tipo de publicación original'] or
argumento['tipo de publicación original'] or
argumento['tipo original']
EditorialOriginal = propiedad('P123',{['enlace']='sí', ['lista'] = 'no ordenada'}) or
argumento['editorial original'] or
argumento['Editorial original'] or
argumento['Editorial de publicación original']
LugarPublicacionOriginal = propiedad('P291') or
argumento['ciudad original'] or
argumento['Ciudad original'] or
argumento['Ciudad de publicación original']
PaisOriginal = propiedad('P495') or
sinBandera(argumento['país original'] or
argumento['País original'] or
argumento['País de publicación original'])
AnyoOriginal = argumento['Año original'] or
argumento['Año de publicación original']
FechaOriginal = propiedad('P577', enMayusculas) or
argumento['Fecha original'] or
argumento['fecha original'] or
enlazar(AnyoOriginal)
FormatoOriginal = propiedad('P437', enMayusculas) or -- Distribución (cartoné, etc)
argumento['formato original'] or
argumento['Formato original']
PaginasOriginal = propiedad('P1104') or
argumento['páginas original'] or
argumento['Número de páginas original']
ISBNOriginal = propiedad('P957',{
['valor-función'] = ModuloIdentificadores.enlazarISBN,
['calificativo'] = 'P437', -- distribución
}) or
propiedad('P212',{
['valor-función'] = ModuloIdentificadores.enlazarISBN,
['calificativo'] = 'P437', -- distribución
}) or
ModuloIdentificadores.enlazarISBN(
argumento['isbn original'] or
argumento['ISBN original'])
OCLCOriginal = propiedad('P243',{['valor-función'] = ModuloIdentificadores.enlazarOCLC}) or
ModuloIdentificadores.enlazarOCLC(
argumento['oclc original'] or
argumento['OCLC original'])
PremiosOriginal = propiedad('P166', {
['lista'] = 'no ordenada',
['valor-función'] = ModuloWikidataFormatos.formatoPremio,
['calificativo'] = 'P585', -- Fecha de ocurrencia
['enlace'] = 'sí',
['ordenar'] = 'por fecha'}) or
argumento['Premios'] or
argumento['premios']
Artista = argumento['artista_cubierta'] or
argumento['artista'] or
argumento['Artista de cubierta traducción'] or
argumento['Artista de cubierta de la traducción']
Ilustrador = argumento['ilustrador'] or
argumento['Ilustrador traducción'] or
argumento['Ilustrador de la traducción']
Editorial = argumento['editorial'] or
argumento['Editorial traducción'] or
argumento['Editorial de la traducción']
LugarPublicacion = argumento['ciudad'] or
argumento['Ciudad traducción'] or
argumento['Ciudad de publicación de la traducción']
Publicacion = argumento['publicación']
Pais = sinBandera(argumento['país'] or
argumento['pais'] or
argumento['País traducción'] or
argumento['País de publicación de la traducción'])
Fecha = argumento['fecha_publicación'] or
argumento['fecha publicacion'] or
argumento['fecha'] or
enlazar(
argumento['Año traducción'] or
argumento['Año de publicación de la traducción'])
Paginas = argumento['páginas'] or
argumento['Número de páginas traducción'] or
argumento['Número de páginas de la traducción']
ISBN = ModuloIdentificadores.enlazarISBN(
argumento['isbn'] or
argumento['ISBN traducción'] or
argumento['ISBN de la traducción'])
OCLC = ModuloIdentificadores.enlazarOCLC(
argumento['oclc'] or
argumento['OCLC traducción'])
if IdiomaOriginal then
if IdiomaOriginal:find('[Ee]spañol') or IdiomaOriginal:find('[Cc]astellano') then
WikisourceOriginal = obtenerWikisource('español')
else
WikisourceOriginal = obtenerWikisource(IdiomaOriginal)
Wikisource = obtenerWikisource('español')
end
end
else
IdiomaOriginal = propiedad('P364',enMayusculas) or
enlazarIdioma(argumento['lengua'] or
argumento['idioma'] or
argumento['idioma original'], 'sí')
Artista = propiedad('P736',{['enlace']='sí'}) or
argumento['artista_cubierta'] or
argumento['artista']
Ilustrador = propiedad('P110',{['enlace']='sí'}) or argumento['ilustrador']
Editorial = propiedad('P123',{['enlace']='sí', ['lista'] = 'no ordenada'}) or argumento['editorial']
LugarPublicacion = propiedad('P291',{['enlace']='sí'}) or argumento['ciudad']
Publicacion = propiedad('P1433',{['enlace']='sí'}) or argumento['publicación']
Pais = propiedad('P495') or
sinBandera(argumento['país'] or argumento['pais'])
Fecha = propiedad('P577', enMayusculas) or argumento['fecha_publicación'] or
argumento['fecha publicacion'] or
argumento['fecha']
Formato = propiedad('P437', enMayusculas) or -- Distribución (cartoné, etc)
argumento['formato'] or
argumento['tipo_medio'] or
argumento['Formato traducción'] or
argumento['Formato de la traducción']
Paginas = propiedad('P1104') or argumento['páginas'] or argumento['paginas']
ISBN = propiedad('P957',{
['valor-función'] = ModuloIdentificadores.enlazarISBN,
['calificativo'] = 'P437', -- distribución
}) or
propiedad('P212',{
['valor-función'] = ModuloIdentificadores.enlazarISBN,
['calificativo'] = 'P437', -- distribución
}) or
ModuloIdentificadores.enlazarISBN(argumento['isbn'])
OCLC = propiedad('P243',{['valor-función'] = ModuloIdentificadores.enlazarOCLC}) or
ModuloIdentificadores.enlazarOCLC(argumento['oclc'])
Premios = propiedad('P166', {
['lista'] = 'no ordenada',
['valor-función'] = ModuloWikidataFormatos.formatoPremio,
['calificativo'] = 'P585', -- Fecha de ocurrencia
['enlace'] = 'sí',
['ordenar'] = 'por fecha'}) or
argumento['premios']
if IdiomaOriginal and (IdiomaOriginal:find('[Ee]spañol') or IdiomaOriginal:find('[Cc]astellano')) then
-- Libro en español
Wikisource = obtenerWikisource('español')
elseif IdiomaOriginal then
-- Libro no en español sin datos de la edición en español
WikisourceOriginal = obtenerWikisource(IdiomaOriginal)
Wikisource = obtenerWikisource('español')
end
end
-- Titulo --> Título del libro en español
-- TituloOriginal --> Título original del libro si no está en español
etiquetaWikidata = obtenerEtiquetaWikidata()
if IdiomaOriginal and (IdiomaOriginal:find('[Ee]spañol') or IdiomaOriginal:find('[Cc]astellano')) then
--Libro escrito en español
Titulo = propiedad('P1476') or
propiedad('P357') or -- Obsoleto pero se usa aún
etiquetaWikidata or
argumento['título original'] or
argumento['título_orig'] or
argumento['titulo_orig'] or
argumento['título orig'] or
argumento['Título original'] or
argumento['título'] or
argumento['nombre'] or
ModuloPaginas.nombrePagina({desambiguar='sí'})
else
--Libro no escrito en español
-- o del que se desconoce el idioma
TituloOriginal = propiedad('P1476') or
propiedad('P357') or
argumento['título original'] or
argumento['título_orig'] or
argumento['titulo_orig'] or
argumento['título orig'] or
argumento['Título original']
Titulo = etiquetaWikidata or
argumento['Título traducción'] or
argumento['Título de la traducción'] or
argumento['título'] or
argumento['nombre'] or
ModuloPaginas.nombrePagina({desambiguar='sí'})
end
local FichaLibro = {
entidad = argumento.id,
titulo = Titulo,
clasetitulo = 'libro',
estilotitulo = 'background-color:' .. ColorFondo .. '; color:#000; font-style:italic',
subtitulo = Autor and '<small>de</small> ' .. "'''" .. Autor .. "'''",
estilosubtitulo = 'font-size:105%; background-color:' .. ColorFondo2 .. ';',
estiloseccion = 'background-color:' .. ColorFondo .. '; color:#000;',
estiloetiqueta = 'width:35%',
estilodatos = 'width:65%',
imagen = argumento['imagen'] or argumento['Imagen'] or propiedad('P18', {uno='sí'}),
['tamañoimagen']= argumento['Tamaño de imagen'] or '220px', -- FALTA {{px|{{{Tamaño de imagen}}}}}
pie = argumento['texto_imagen'] or argumento['texto imagen'] or
argumento['pie de imagen'] or argumento['Pie de imagen'],
estilopie = 'font-size:88%',
{'Editor(es)', propiedad('P98') or
argumento['Editor'] or
argumento['editor'] or
argumento['Editores'] or
argumento['editores']
},
{'Fotografía', argumento['Fotografía'] or
argumento['fotografía']},
{'Género' , genero},
{'Subgénero' , subgenero},
{'Tema(s)' , temaWikidata or
argumento['tema'] or
argumento['Tema']
},
{'Ambientada en', propiedad('P840', enMayusculas)},
{tipo='sección',
-- El título de la sección solo se muestra si hay datos de las dos ediciones.
titulo = (EdicionOriginal or EdicionTraduccion) and IdiomaOriginal and 'Edición original en ' .. IdiomaOriginal,
{'Idioma', not EdicionOriginal and not EdicionTraduccion and IdiomaOriginal},
{'Título original' , TituloOriginal,
estilodatos='font-style:italic'},
{'Ilustrador', IlustradorOriginal}, -- FALTA si enlazar
{'Cubierta' , ArtistaOriginal},
{'Publicado en' , PublicacionOriginal
, estilodatos='font-style:italic'},
{'Tipo de publicación' , TipoPublicacionOriginal},
{'Editorial' , EditorialOriginal, clase='plainlist'},
{'Ciudad' , LugarPublicacionOriginal},
{'País' , PaisOriginal},
{'Fecha de publicación', FechaOriginal},
{'Formato' , FormatoOriginal},
{'Páginas' , PaginasOriginal},
{'[[ISBN]]' , ISBNOriginal},
{'[[Online Computer Library Center|OCLC]]', OCLCOriginal},
{'Premios' , PremiosOriginal, clase='plainlist'},
{'Texto original' , WikisourceOriginal}
},
{tipo='sección',
-- El título de la sección solo se muestra si hay datos de las dos ediciones.
titulo = (EdicionOriginal or EdicionTraduccion) and 'Edición traducida al [[idioma español|español]]',
{'Traducido por' , argumento['traductor'] or argumento['Traductor']},
{'Adaptación' , argumento['adaptación'] or
argumento['adaptador']},
{'Ilustrador' , Ilustrador},
{'Artista de la cubierta', Artista},
{'Publicado en' , Publicacion
, estilodatos='font-style:italic'},
{'Tipo de publicación' , argumento['tipo de publicación'] or
argumento['tipo']},
{'Editorial', Editorial, clase='plainlist'},
{'Ciudad' , LugarPublicacion},
{'País' , Pais},
{'Fecha de publicación', Fecha},
{'Formato' , Formato},
{'Páginas' , Paginas},
--{'Tamaño y peso', argumento['tamano_peso']}, -- Usar los parámetros para el formato
{'[[ISBN]]', ISBN},
{'[[Online Computer Library Center|OCLC]]', OCLC},
{'Premios' , Premios, clase='plainlist'},
{'Texto en español' , Wikisource}
},
{tipo='sección',
titulo = 'Libros',
{'',propiedad('P527',{['enlace']='sí', ['lista'] = 'no ordenada', ['valor-función'] = formatoObraAnyo,}), clase='plainlist'}
}
}
-- Series de libros
if Entidad and Entidad.claims and Entidad.claims.P179 and Entidad.claims.P179[1] then
declaracionSerie1 = Entidad.claims.P179[1]
tituloSerie = "''" .. ModuloWikidata.formatoIdEntidad('Q' .. declaracionSerie1.mainsnak.datavalue.value['numeric-id'],
{['enlace'] = 'sí'}) .. "''"
if declaracionSerie1.qualifiers and declaracionSerie1.qualifiers.P155 and declaracionSerie1.qualifiers.P155[1] and declaracionSerie1.qualifiers.P155[1].datavalue then
precedidaPor = ModuloWikidata.formatoIdEntidad('Q' .. declaracionSerie1.qualifiers.P155[1].datavalue.value['numeric-id'],
{['enlace'] = 'sí'})
end
if declaracionSerie1.qualifiers and declaracionSerie1.qualifiers.P156 and declaracionSerie1.qualifiers.P156[1] and declaracionSerie1.qualifiers.P156[1].snaktype == 'value' then
sucedidaPor = ModuloWikidata.formatoIdEntidad('Q' .. declaracionSerie1.qualifiers.P156[1].datavalue.value['numeric-id'],
{['enlace'] = 'sí'})
end
if precedidaPor or sucedidaPor then
serieConCualificador = true
table.insert(FichaLibro,
{tipo = 'sección',
titulo = tituloSerie,
{tipo = 'sucesión',
anterior = precedidaPor,
siguiente = sucedidaPor,
color = ColorFondo2,
['estilo fuente'] = 'italic'
}
}
)
end
end
if not serieConCualificador then
table.insert(FichaLibro,
{tipo='sección',
titulo = propiedad('P179',{['formatoTexto'] = 'cursivas',['enlace']='sí'}) or
argumento['serie'] or
argumento['Serie de libros'] or
'Serie',
{tipo = 'sucesión',
anterior = propiedad('P155',{['enlace']='sí'}) or
argumento['precedido_por'] or -- FALTA ver El Mago de la Serpiente
argumento['anterior'] or
argumento['Libro que le precede'] or
argumento['Libro que le precede en la serie']
,
siguiente = propiedad('P156',{['enlace']='sí'}) or
argumento['seguido_por'] or
argumento['posterior'] or
argumento['siguiente'] or
argumento['Libro que le sigue'] or
argumento['Libro que le sigue en la serie']
,
color = ColorFondo2,
['estilo fuente'] = 'italic'
}
}
)
end
table.insert(FichaLibro,
{tipo='sección',
titulo = argumento['Serie de libros 2'] or
'Serie',
{tipo = 'sucesión',
anterior = argumento['Libro que le precede 2'] or
argumento['Libro que le precede en la serie 2'],
siguiente = argumento['Libro que le sigue 2'] or
argumento['Libro que le sigue en la serie 2'],
color = ColorFondo2,
['estilo fuente'] = 'italic'
}
}
)
table.insert(FichaLibro,
{tipo='sección',
titulo = argumento['Autor'] and 'Cronología de ' .. argumento['Autor'],
{tipo = 'sucesión',
anterior = argumento['Libro anterior'] or
argumento['Libro que le precede en la cronología'],
siguiente = argumento['Libro posterior'] or
argumento['Libro que le sigue en la cronología'],
['año anterior'] = argumento['Año anterior'] or argumento['Año del libro que le precede en la cronología'],
['año'] = AnyoOriginal,
['año siguiente'] = argumento['Año posterior'] or argumento['Año del libro que le sigue en la cronología'],
color = ColorFondo2,
['estilo fuente'] = 'italic'
}
}
)
-- Añadir categorías si es posible
if not ModuloPaginas.sePuedeCategorizar() then
return ModuloFicha.infobox(FichaLibro)
end
local categorias = ''
-- Errores
if etiquetaWikidata and etiquetaWikidata:match('%(') then
categorias=categorias .. '[[Categoría:Wikipedia:Páginas con etiquetas de Wikidata con paréntesis]]'
end
-- Géneros
local categoriasGeneros = {}
if Entidad and Entidad.claims then
if generoWikidata then
if generoWikidata:find('[Cc]uento') then
-- Cuentos del autor
table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = 'Cuentos de $1'},Entidad.claims['P50']))
-- Cuentos de un año
table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = 'Cuentos de $1', ['formatoFecha']='año'},Entidad.claims['P577']))
-- Cuentos de un país
table.insert(categoriasGeneros, ModuloWikidata.categorizar(
{['categoría'] = 'Cuentos de $1'
},Entidad.claims['P495']))
-- Pendiente si categorizar por el idioma.
if subgeneroWikidata then
if subgeneroWikidata:find('[Cc]iencia ficción') then
table.insert(categoriasGeneros, '[[Categoría:Cuentos de ciencia ficción]]')
end
if subgeneroWikidata:find('[Ff]antástica') then
table.insert(categoriasGeneros, '[[Categoría:Cuentos fantásticos]]')
end
end
end
if generoWikidata:find('[Tt]eatro') then
-- Obras de teatro por autor
table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = 'Obras de teatro de $1'},Entidad.claims['P50']))
-- Obras de teatro de un año
table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = 'Obras de teatro de $1', ['formatoFecha']='año'},Entidad.claims['P577']))
-- Obras de teatro de un país
table.insert(categoriasGeneros, ModuloWikidata.categorizar(
{['categoría'] = 'Obras de teatro de $1'
},Entidad.claims['P495']))
-- Obras de teatro de un idioma
table.insert(categoriasGeneros, ModuloWikidata.categorizar(
{['categoría'] = 'Obras de teatro en $1',
},Entidad.claims['P364']))
end
if generoWikidata:find('[Nn]ovela') then
table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = categoriasGenerosNovelas},Entidad.claims['P136']))
-- Novelas por tema
table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = categoriasTemasNovelas},Entidad.claims['P921']))
-- Novelas del autor
table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = 'Novelas de $1'},Entidad.claims['P50']))
-- Novelas de un año
table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = 'Novelas de $1', ['formatoFecha']='año'},Entidad.claims['P577']))
-- Novelas de un país
table.insert(categoriasGeneros, ModuloWikidata.categorizar(
{['categoría'] = 'Novelas de $1'
},Entidad.claims['P495']))
-- Novelas de un idioma
table.insert(categoriasGeneros, ModuloWikidata.categorizar(
{['categoría'] = 'Novelas en $1',
},Entidad.claims['P364']))
end
end
if not categoriasGeneros[1] then
-- Libros de un año
table.insert(categoriasGeneros, ModuloWikidata.categorizar({['categoría'] = 'Libros de $1', ['formatoFecha']='año'},Entidad.claims['P577']))
-- Libros de un país
table.insert(categoriasGeneros, ModuloWikidata.categorizar(
{['categoría'] = 'Libros de $1'}
,Entidad.claims['P495']))
end
if categoriasGeneros[1] then
categorias = categorias .. table.concat(categoriasGeneros)
end
-- Obras infantiles, fábulas, etc.
categorias=categorias .. ModuloWikidata.categorizar({['categoría'] = categoriasGeneros},Entidad.claims['P136'])
-- Premios
categorias = categorias .. ModuloWikidata.categorizar({['categoría'] = '$1'}, Entidad.claims['P166'])
end
return ModuloFicha.infobox(FichaLibro) .. categorias
end
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 = {}
end
opciones['propiedad'] = idPropiedad
valorPropiedad = ModuloWikidata.getPropiedad(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
local declaracionesGeneros = Entidad.claims['P136']
local declaracionesTemas = Entidad.claims['P921']
local identificadorGenero, identificadorTema
local generos = {}
local subgeneros = {}
local temas = {}
local hayGeneros = false
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
insertar(temas, 'Q253732') -- viaje en el tiempo en la ficción
else
insertar(temas, identificadorTema)
end
end
end
if declaracionesGeneros then
for k,v in pairs(declaracionesGeneros) do
identificadorGenero = 'Q' .. v.mainsnak.datavalue.value['numeric-id']
if identificadorGenero == 'Q132311' then -- Género fantástico
insertar(subgeneros, 'Q1057172') -- Literatura fantástica
elseif identificadorGenero == 'Q12132683' then -- Novela de ciencia ficción
insertar(generos, 'Q8261')
insertar(subgeneros, 'Q24925')
hayGeneros = true
elseif identificadorGenero == 'Q10992055' then -- Novela fantástica
insertar(generos, 'Q8261') -- Novela
insertar(subgeneros, 'Q1057172') -- Literatura fantástica
hayGeneros = true
elseif identificadorGenero == 'Q3056541' then -- Novela autobiográfica
insertar(generos, 'Q8261') -- Novela
insertar(subgeneros, 'Q4184') -- Autobiografía
hayGeneros = true
elseif identificadorGenero == 'Q20443047' then -- Literatura distópica
insertar(temas, 'Q180774') -- Distopía
elseif identificadorGenero == 'Q16681629' then -- literatura ucrónica
insertar(subgeneros, 'Q224989') -- Ucronía
elseif identificadorGenero == 'Q3547700' then -- ucronía de fantasía
insertar(subgeneros, 'Q224989') -- Ucronía
insertar(subgeneros, 'Q1057172') -- Literatura fantástica
elseif identificadorGenero == 'Q516626' then -- Terror (sentimiento de miedo o fobia en su escala máxima)
insertar(subgeneros, 'Q193606') -- Terror (género literario)
elseif identificadorGenero == 'Q21616374' then -- Novela de vampiros
insertar(generos, 'Q8261') -- Novela
insertar(subgeneros, 'Q1425557') -- literatura de vampiros
hayGeneros = true
elseif identificadorGenero == 'Q11825892' then -- novela juvenil
insertar(generos, 'Q8261') -- Novela
insertar(subgeneros, 'Q1233720') -- literatura juvenil
hayGeneros = true
elseif identificadorGenero == 'Q149537' then -- novela corta
insertar(generos, 'Q8261') -- novela
hayGeneros = true
elseif identificadorGenero == 'Q10453828' then -- novela de viajes en el tiempo
insertar(generos, 'Q8261') -- novela
insertar(temas, 'Q253732') -- viaje en el tiempo en la ficción
hayGeneros = true
elseif identificadorGenero == 'Q253732' then -- viaje en el tiempo en la ficción
insertar(temas, 'Q253732') -- viaje en el tiempo en la ficción
elseif identificadorGenero == 'Q182154' then -- viaje a través del tiempo
insertar(temas, 'Q253732') -- viaje en el tiempo en la ficción
elseif identificadorGenero == 'Q1347298' then -- novela por entregas
-- No es un género en sí. No mostrarlo.
elseif identificadorGenero == 'Q3440959' then -- novela de suspense
insertar(generos, 'Q8261') -- novela
insertar(subgeneros, 'Q182015') -- suspense
hayGeneros = true
elseif ModuloTablas.en(tablaGeneros, identificadorGenero) then
insertar(generos, identificadorGenero)
hayGeneros = true
else
insertar(subgeneros, identificadorGenero)
end
end
end
if hayGeneros then
return formatear(generos), formatear(subgeneros), formatear(temas)
else
return formatear(subgeneros), nil, formatear(temas)
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, ModuloWikidata.formatoIdEntidad(v,{['mayúscula'] = 'sí', ['enlace'] = 'sí'}))
primero = false
else
table.insert(identificadoresFormateados, ModuloWikidata.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 == 'Q7976' then -- inglés estadounidense
v.mainsnak.datavalue.value.id='Q1860'
v.mainsnak.datavalue.value['numeric-id']=1860
end
end
end
return z