Module:ArchivéPar
La documentation pour ce module peut être créée à Module:ArchivéPar/doc
local p = {}
local Outils = require 'Module:Outils'
local wikidata = require 'Module:Wikidata'
local linguistic = require 'Module:Linguistique'
--local reference = require 'Module:Wikidata/Références'
local cite = require 'Module:Biblio'
local yesno = require('Module:Yesno')
local function getReferences(statement, args) -- basé sur wikidata.getReferences dans [[Module:Wikidata]]
local refdata = statement.references
local cats = ''
if not refdata then
return nil
end
local expand = args and args.expand and #refdata > 1
local compact = args and args.compact
local refs = {}
local hashes = {}
for i, ref in pairs(refdata) do
local s
local function hasValue(prop) -- checks that the prop is here with valid value
if ref.snaks[prop] and ref.snaks[prop][1].snaktype == 'value' then
return true
end
return false
end
if hasValue('P8091') or hasValue('P854') then -- cas lorsque P8091 (Archival Resource Key) ou P854 (URL de la référence) est utilisé
local title, arkKey, url, author, publisher, accessdate, publishdate, publishlang, quotation
local description = ''
local hasTitle = false
if hasValue('P8091') then
arkKey = wikidata.formatSnak(ref.snaks.P8091[1], {text = "-"})
url = 'https://n2t.net/' .. arkKey
if hasValue('P1476') then -- si un titre est présent
title = wikidata.formatSnak(ref.snaks.P1476[1])
hasTitle = true
end
elseif hasValue('P854') then
url = wikidata.formatSnak(ref.snaks.P854[1], {text = "-"})
if hasValue('P1476') then -- si un titre est présent
title = wikidata.formatSnak(ref.snaks.P1476[1])
hasTitle = true
end
end
if not hasTitle then -- si pas de titre prendre la dernière section de l'url
-- local tmp = url:gmatch("[^/]+$")
local pos = url:match'^.*()/'
if pos then
if pos == string.len(url) then
pos = url:match'^.*()/.'
title = url:sub(pos + 1, -2)
else
title = url:sub(pos + 1, -1)
end
end
end
if expand then
if hasValue('P1810') then -- sous le nom
if description ~= '' then description = description .. ', ' end
description = 'sous le nom ' .. wikidata.formatSnak(ref.snaks.P1810[1])
end
if hasValue('P813') then -- date de consultation
accessdate = wikidata.formatSnak(ref.snaks.P813[1])
end
if hasValue('P217') then -- numéro d'inventaire
if description ~= '' then description = description .. ', ' end
description = description .. wikidata.formatSnak(ref.snaks.P217[1])
end
if hasValue('P50') then -- author (item type)
author = wikidata.formatSnak(ref.snaks.P50[1])
elseif hasValue('P2093') then -- author (string type)
author = wikidata.formatSnak(ref.snaks.P2093[1])
end
if hasValue('P123') then -- éditeur
publisher = wikidata.formatSnak(ref.snaks.P123[1])
end
if hasValue('P577') then -- date de publication
publishdate = wikidata.formatSnak(ref.snaks.P577[1])
end
if hasValue('P1683') then -- citation
quotation = wikidata.formatSnak(ref.snaks.P1683[1])
end
if hasValue('P407') then -- langue de l'œuvre
local id = wikidata.getId(ref.snaks.P407[1])
publishlang = getLangCode(id)
end
s = cite.lienWeb{titre = title, url = url, auteur = author, editeur = publisher, langue = publishlang, ['en ligne le'] = publishdate, ['consulté le'] = accessdate, ['citation'] = quotation, ['description'] = description}
elseif compact then
if not hasTitle and hasValue('P1810') then -- sous le nom
title = 'chercher le nom ' .. wikidata.formatSnak(ref.snaks.P1810[1])
hasTitle = true
end
s = '[' .. url .. ' ' .. title .. ']'
else
if hasValue('P1810') then -- sous le nom
description = description .. 'chercher le nom ' .. wikidata.formatSnak(ref.snaks.P1810[1])
end
s = '[' .. url .. ' ' .. title .. ']'
if description and description ~= '' then
s = s .. ' ' .. description
end
end
if not hasTitle and description == '' then
-- cats = cats .. '[[Catégorie:Page ayant une référence sans titre depuis wikidata]]'
end
table.insert(hashes, ref.hash)
table.insert(refs, s)
--[[
elseif ref.snaks.P248 then -- cas lorsque P248 (affirmé dans) est utilisé
for j, source in pairs(ref.snaks.P248) do
if source.snaktype == 'value' then
local page, accessdate, quotation
if hasValue('P304') then -- page
page = wikidata.formatSnak(ref.snaks.P304[1])
end
if hasValue('P813') then -- date de consultation
accessdate = wikidata.formatSnak(ref.snaks.P813[1])
end
if hasValue('P1683') then -- citation
quotation = wikidata.formatSnak(ref.snaks.P1683[1])
end
local sourceId = wikidata.getId(source)
s = reference.citeitem(sourceId, {['page'] = page, ['accessdate'] = accessdate, ['citation'] = quotation})
table.insert(refs, s)
table.insert(hashes, ref.hash .. sourceId)
end
end
--]]
elseif ref.snaks.P854 and ref.snaks.P854[1].snaktype == 'value' then
s = wikidata.formatSnak(ref.snaks.P854[1], {text = "-"})
table.insert(hashes, ref.snaks.P854[1].hash)
table.insert(refs, s)
end
end
if #refs > 0 then
if #hashes == #refs then
return refs, hashes, cats
end
return refs, nil, cats
end
end
local function stringTable(args) -- basé sur wikidata.stringTable dans [[Module:Wikidata]]
local claims = args.claims
local cats = ''
if not claims then
claims = wikidata.getClaims(args)
end
if not claims or claims == {} then
return {}, {}, cats
end
if args.removedupesdate and (args.removedupesdate ~= '-') then
claims, cats = removeDupesDate(claims, args.removedupesdate)
end
local props = {} -- liste des propriétés associété à chaque string pour catégorisation et linkback
for i, j in pairs(claims) do
claims[i] = wikidata.formatStatement(j, args)
if args.expand then
local sources, hashes, cat = getReferences(j, {expand = args.expand}) -- affichage complet si expand
if sources and #sources > 1 then
cats = cats .. cat
local elementsHtml = mw.html.create('ul')
for _, source in pairs(sources) do
elementsHtml:tag('li'):wikitext(source):done():wikitext(' ')
end
claims[i] = claims[i].. tostring(elementsHtml:allDone())
end
end
table.insert(props, j.mainsnak.property)
end
if args.removedupes and (args.removedupes ~= '-') then
claims = wikidata.addNewValues({}, claims) -- devrait aussi supprimer de props celles qui ne sont pas utilisées
end
return claims, props, cats
end
local function formatQualifiers(statement, qualifs, params) -- basé sur wikidata.getFormattedQualifiers dans [[Module:Wikidata]]
local str, cats = '', ''
if not params then params = {} end
local qualiftable = wikidata.getQualifiers(statement, qualifs)
if not qualiftable then
qualiftable = {}
end
qualiftable = wikidata.filterClaims(qualiftable, params) or {}
for i, snak in pairs(qualiftable) do
if (snak.datatype == 'time' and snak.property == 'P7104') then -- fin de période couverte
str = str .. '-'
elseif i > 1 then
str = str .. ', '
end
qualiftable[i] = wikidata.formatSnak(snak, params)
if snak.datatype == 'quantity' and tonumber(snak.datavalue.value.amount) > 1 then -- pluriel
qualiftable[i] = qualiftable[i] .. 's'
end
str = str .. qualiftable[i]
end
if params.showsource and params.showsource ~= '-' then
local sources, hashes, cat = getReferences(statement, {compact = params.compact}) -- risque d'appel en double
if sources and not (params.expand and #sources > 1) then
if #sources > 0 then
if str ~= '' then
str = str .. ', '
end
str = str .. table.concat(sources, ', ')
end
cats = cats .. cat
end
end
return str .. cats
end
function p.main(frame)
local params = Outils.extractArgs( frame )
local showsource = yesno(params.showsource) or true
local compact = (yesno(params.compact) or false) and params.compact ~= '-'
local expand = (yesno(params.expand) or true) and params.expand ~= '-' and not compact
local id = params.id or params.entity or params.wikidata
local entity = wikidata.getEntity(id)
local cats = ''
local data = {
entity = entity,
property = 'P485', conjtype = 'new line', defaultlinkquery = {property = {'P361','P749','P127'}},
showqualifiers = {'P217','P7328','P585','P7103','P7104'}, qualifprecision = 'year',
qualifformat = formatQualifiers, qualifargs = {expand = expand, compact = compact, showsource = showsource},
expand = expand, compact = compact,
}
local result, props, cat = stringTable(data)
cats = cats .. cat
if props and #props > 0 then
cats = cats .. wikidata.addTrackingCat(props)
end
if #result > 0 then
-- Ajout éventuel d'une incise "de ..."
local ofname = params.dunom
-- Utilise par défaut le label si l'id wikidata a été précisé manuellement
if (not ofname) and params.wikidata and params.wikidata ~= "" and entity then --Has "entity" parameter, Wikidata item was found
local label = entity:getLabel()
local link = wikidata.siteLink(entity)
local namestring
if label then
if link then
namestring = '[[' .. link .. '|' .. label .. ']]'
else
namestring = label
end
elseif link then
namestring = '[[' .. link .. ']]'
end
if namestring then
ofname = linguistic.of(namestring,nil,nil,nil,label or link)
end
end
if ofname then ofname = ofname .. ' ' end
local title = "Archives " .. (ofname or '') .. "conservées par"
if params.linkback ~= '-' then
title = wikidata.addLinkBack(title , entity, 'P485')
end
local elementsHtml
if compact then
-- XXX: c'est invalide de mettre un <ul> (block-level) dans un <span> (inline-level)
elementsHtml = mw.html.create('span')
:addClass('liste-horizontale')
:wikitext(title .. ' : ')
:tag('ul')
for _, val in pairs(result ) do
elementsHtml:tag('li'):wikitext(val):done():wikitext(' ')
end
elseif #result > 1 then
elementsHtml = mw.html.create('div')
:wikitext(title .. ' : ')
:tag('ul')
for _, val in pairs(result ) do
elementsHtml:tag('li'):wikitext(val):done():wikitext(' ')
end
elseif #result == 1 then
elementsHtml = mw.html.create('span')
:wikitext(title .. ' : ')
:wikitext(result[1])
end
return tostring(elementsHtml:allDone()) .. cats
end
return cats
end
return p