Gregorius 3.0 - Contributions de l’utilisateur [fr]

Module:Pape

2016-07-12T13:38:29Z

Jean-Pierre Mohamed :

--[[
-- Debug console

frame = mw.getCurrentFrame() -- Get a frame object
newFrame = frame:newChild{ -- Get one with args
title = 'Adrien IV' ,
args = {
iri = 'http://gregorius.fr/wiki/Adrien_IV' ,
WikidataID = 'Q132845' ,
Title = 'Adrien IV' ,
Picture = 'https://upload.wikimedia.org/wikipedia/commons/thumb/4/4a/PopeAdrianIVCameo.jpg/189px-PopeAdrianIVCameo.jpg' ,
NomDeNaissance = 'Nicolas Breakspear' ,
Naissance = '1100-1-1' ,
['Naissance précision (années)'] = '10' ,
LieuDeNaissance = 'Abbots Langley' ,
Deces = '1159-09-1' ,
LieuDeDeces = 'Anagni' ,
ElectionAuPontificat = '1154-12-4' ,
Intronisation = '1154-12-5' ,
FinDuPontificat = '1159-9-1'
}
}
mw.log(p.infobox( newFrame ) )
]]

local p = {}

function p.infobox(f)
local capiunto = require 'capiunto'
local linkedwiki = require 'linkedwiki'

local rdf = 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'
local rdfs = 'http://www.w3.org/2000/01/rdf-schema#'
local ri = 'http://gregorius.fr/wiki/'
local rp = 'http://gregorius.fr/wiki/Property:'
local geo = 'http://www.w3.org/2003/01/geo/wgs84_pos#'
local vcard = 'http://www.w3.org/2006/vcard/ns#'
local xsd = 'http://www.w3.org/2001/XMLSchema#'
local wdt = 'http://www.wikidata.org/prop/direct/'
local wd = 'http://www.wikidata.org/entity/'
local bnf = 'http://www.data.bnf.fr/'

local dateFormat = "d M Y"

local subject = f.args.iri or linkedwiki.getCurrentIRI();

-- save data in the triplestore of Gregorius
linkedwiki.setConfig() -- bydefault Gregorius
linkedwiki.setSubject(subject)
--linkedwiki.setDebug(true)

linkedwiki.removeSubject() -- delete all triples of this subject

-- {{#time:d M Y|2004-12-06}}
--"2004-12-06"^^xsd..'date'
--linkedwiki.addPropertyWithIri(PROPERTY,IRI)
--linkedwiki.addPropertyWithLitteral(PROPERTY,VALUE,TYPE,LANG) [LANG=nil=>default lang] [LANG=''=>no lang]
mw.log(linkedwiki.addPropertyWithIri(rdf..'type',ri..'Pape'))
mw.log(linkedwiki.addPropertyWithLitteral(rdfs..'label',f.args.Title))
mw.log(linkedwiki.addPropertyWithIri(rp..'picture',f.args.Picture))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'nom_de_naissance',f.args.NomDeNaissance))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'naissance',f.args.Naissance,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'naissancePrecision',f.args['Naissance précision (années)'],xsd..'integer',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'lieu_de_naissance',f.args.LieuDeNaissance))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'deces',f.args.Deces,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'lieu_de_deces',f.args.LieuDeDeces))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'election_au_pontificat',f.args.ElectionAuPontificat,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'intronisation',f.args.Intronisation,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'fin_du_pontificat',f.args.FinDuPontificat,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'source_wikidata',f.args.SourceWikidata))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'source_bnf',f.args.SourceBnf))
--mw.log(lonkedwiki.addPropertyWithLitteral(rp..'source_iri',f.args.Iri))
--mw.log(linkedwiki.addPropertyWuthLitteral(rp..'source_gregroius',f.args.SourceGregorius))
--mw.log(linkedwiki.addPropertyWithLitteral(rp..'site_bnf',f.args.SiteBNF))

--compare data with wikidata

local wLieuDeNaissance = ''
local wPicture = ''
local wTODO = ''
--local wEnd = ''

if not linkedwiki.isEmpty(f.args.WikidataID) then
local iriWikidataAboutThisPage = wd .. f.args.WikidataID
mw.log(linkedwiki.addPropertyWithIri(rp..'WikidataID',iriWikidataAboutThisPage))

linkedwiki.setConfig('http://www.wikidata.org')
linkedwiki.setSubject(iriWikidataAboutThisPage)
--linkedwiki.setDebug(true)
wLieuDeNaissance = linkedwiki.getString(rdfs..'label',"fr",linkedwiki.getValue(wdt..'P19'))
wPicture = linkedwiki.getValue(wdt..'P18')
end

if not linkedwiki.isEmpty(f.args.BnfID) then
local iriWikidataAboutThisPageBNF = bnf .. f.args.BnfID
mw.log(linkedwiki.addPropertyWithIri(rp..'BnfID',iriWikidataAboutThisPageBNF))

linkedwiki.setConfig('www.http://data.bnf.fr')
linkedwiki.setSubject(iriWikidataAboutThisPage)
--linkedwiki.setDebug(true)
end

return capiunto.create( {
bodyStyle = 'width : 50px',
bodyClass = 'gregoriusPape',
title = 'Pape' ,
top = linkedwiki.checkLink(subject, rdfs..'label',f.args.Title) ,
topStyle = 'background:#FFD200;height:50px;font-size: 25px;vertical-align:middle',
bottom = linkedwiki.checkString(rdfs..'seeAlso',f.args.Modification)
} )
:addImage(linkedwiki.printImageInWiki(f.args.Picture,wPicture),"", "device_image" )
:addRow('Nom de naissance', linkedwiki.printValueInWiki(f.args.NomDeNaissance,wNomDeNaissance))
:addRow('Lieu de naissance', linkedwiki.printValueInWiki(f.args.LieuDeNaissance,wLieuDeNaissance))
:addRow('Naissance', linkedwiki.printDateInWiki(dateFormat,f.args.Naissance,wTODO))
:addRow('Décès', linkedwiki.printDateInWiki(dateFormat,f.args.Deces,wTODO))
:addRow('Lieu de décès', linkedwiki.printValueInWiki(f.args.LieuDeDeces,wTODO))
:addRow('Élection au pontificat', linkedwiki.printDateInWiki(dateFormat,f.args.ElectionAuPontificat,wTODO))
:addRow('Intronisation', linkedwiki.printDateInWiki(dateFormat,f.args.Intronisation,wTODO))
:addRow('Fin du pontificat', linkedwiki.printDateInWiki(dateFormat,f.args.FinDuPontificat,wTODO))
:addRow('Source', linkedwiki.printValueInWiki(f.args.SourceWikidata,wSourceWikidata))
:addRow('Source', linkedwiki.printValueInWiki(f.args.SourceBnf,wSourceBnf))
--:addWikitext('Site BNF', linkedwiki.printValueInWiki(f.args.SiteBNF,wSiteBNF))
:addWikitext( linkedwiki.getMaintenanceCategory() .."[[Category:Pape]]" )

end

return p

Module:Pape

2016-07-11T10:14:45Z

Jean-Pierre Mohamed :

--[[
-- Debug console

frame = mw.getCurrentFrame() -- Get a frame object
newFrame = frame:newChild{ -- Get one with args
title = 'Adrien IV' ,
args = {
iri = 'http://gregorius.fr/wiki/Adrien_IV' ,
WikidataID = 'Q132845' ,
Title = 'Adrien IV' ,
Picture = 'https://upload.wikimedia.org/wikipedia/commons/thumb/4/4a/PopeAdrianIVCameo.jpg/189px-PopeAdrianIVCameo.jpg' ,
NomDeNaissance = 'Nicolas Breakspear' ,
Naissance = '1100-1-1' ,
['Naissance précision (années)'] = '10' ,
LieuDeNaissance = 'Abbots Langley' ,
Deces = '1159-09-1' ,
LieuDeDeces = 'Anagni' ,
ElectionAuPontificat = '1154-12-4' ,
Intronisation = '1154-12-5' ,
FinDuPontificat = '1159-9-1'
}
}
mw.log(p.infobox( newFrame ) )
]]

local p = {}

function p.infobox(f)
local capiunto = require 'capiunto'
local linkedwiki = require 'linkedwiki'

local rdf = 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'
local rdfs = 'http://www.w3.org/2000/01/rdf-schema#'
local ri = 'http://gregorius.fr/wiki/'
local rp = 'http://gregorius.fr/wiki/Property:'
local geo = 'http://www.w3.org/2003/01/geo/wgs84_pos#'
local vcard = 'http://www.w3.org/2006/vcard/ns#'
local xsd = 'http://www.w3.org/2001/XMLSchema#'
local wdt = 'http://www.wikidata.org/prop/direct/'
local wd = 'http://www.wikidata.org/entity/'
local bnf = 'http://www.data.bnf.fr/'

local dateFormat = "d M Y"

local subject = f.args.iri or linkedwiki.getCurrentIRI();

-- save data in the triplestore of Gregorius
linkedwiki.setConfig() -- bydefault Gregorius
linkedwiki.setSubject(subject)
--linkedwiki.setDebug(true)

linkedwiki.removeSubject() -- delete all triples of this subject

-- {{#time:d M Y|2004-12-06}}
--"2004-12-06"^^xsd..'date'
--linkedwiki.addPropertyWithIri(PROPERTY,IRI)
--linkedwiki.addPropertyWithLitteral(PROPERTY,VALUE,TYPE,LANG) [LANG=nil=>default lang] [LANG=''=>no lang]
mw.log(linkedwiki.addPropertyWithIri(rdf..'type',ri..'Pape'))
mw.log(linkedwiki.addPropertyWithLitteral(rdfs..'label',f.args.Title))
mw.log(linkedwiki.addPropertyWithIri(rp..'picture',f.args.Picture))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'nom_de_naissance',f.args.NomDeNaissance))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'naissance',f.args.Naissance,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'naissancePrecision',f.args['Naissance précision (années)'],xsd..'integer',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'lieu_de_naissance',f.args.LieuDeNaissance))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'deces',f.args.Deces,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'lieu_de_deces',f.args.LieuDeDeces))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'election_au_pontificat',f.args.ElectionAuPontificat,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'intronisation',f.args.Intronisation,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'fin_du_pontificat',f.args.FinDuPontificat,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'source_wikidata',f.args.SourceWikidata))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'source_bnf',f.args.SourceBnf))
--mw.log(linkedwiki.addPropertyWuthLitteral(rp..'source_gregroius',f.args.SourceGregorius))
--mw.log(linkedwiki.addPropertyWithLitteral(rp..'site_bnf',f.args.SiteBNF))

--compare data with wikidata

local wLieuDeNaissance = ''
local wPicture = ''
local wTODO = ''
--local wEnd = ''

if not linkedwiki.isEmpty(f.args.WikidataID) then
local iriWikidataAboutThisPage = wd .. f.args.WikidataID
mw.log(linkedwiki.addPropertyWithIri(rp..'WikidataID',iriWikidataAboutThisPage))

linkedwiki.setConfig('http://www.wikidata.org')
linkedwiki.setSubject(iriWikidataAboutThisPage)
--linkedwiki.setDebug(true)
wLieuDeNaissance = linkedwiki.getString(rdfs..'label',"fr",linkedwiki.getValue(wdt..'P19'))
wPicture = linkedwiki.getValue(wdt..'P18')
end

if not linkedwiki.isEmpty(f.args.BnfID) then
local iriWikidataAboutThisPageBNF = bnf .. f.args.BnfID
mw.log(linkedwiki.addPropertyWithIri(rp..'BnfID',iriWikidataAboutThisPageBNF))

linkedwiki.setConfig('www.http://data.bnf.fr')
linkedwiki.setSubject(iriWikidataAboutThisPage)
--linkedwiki.setDebug(true)
end

return capiunto.create( {
bodyStyle = 'width : 50px',
bodyClass = 'gregoriusPape',
title = 'Pape' ,
top = linkedwiki.checkLink(subject, rdfs..'label',f.args.Title) ,
topStyle = 'background:#FFD200;height:50px;font-size: 25px;vertical-align:middle',
bottom = linkedwiki.checkString(rdfs..'seeAlso',f.args.Modification)
} )
:addImage(linkedwiki.printImageInWiki(f.args.Picture,wPicture),"", "device_image" )
:addRow('Nom de naissance', linkedwiki.printValueInWiki(f.args.NomDeNaissance,wNomDeNaissance))
:addRow('Lieu de naissance', linkedwiki.printValueInWiki(f.args.LieuDeNaissance,wLieuDeNaissance))
:addRow('Naissance', linkedwiki.printDateInWiki(dateFormat,f.args.Naissance,wTODO))
:addRow('Décès', linkedwiki.printDateInWiki(dateFormat,f.args.Deces,wTODO))
:addRow('Lieu de décès', linkedwiki.printValueInWiki(f.args.LieuDeDeces,wTODO))
:addRow('Élection au pontificat', linkedwiki.printDateInWiki(dateFormat,f.args.ElectionAuPontificat,wTODO))
:addRow('Intronisation', linkedwiki.printDateInWiki(dateFormat,f.args.Intronisation,wTODO))
:addRow('Fin du pontificat', linkedwiki.printDateInWiki(dateFormat,f.args.FinDuPontificat,wTODO))
:addRow('Source', linkedwiki.printValueInWiki(f.args.SourceWikidata,wSourceWikidata))
:addRow('Source', linkedwiki.printValueInWiki(f.args.SourceBnf,wSourceBnf))
--:addWikitext('Site BNF', linkedwiki.printValueInWiki(f.args.SiteBNF,wSiteBNF))
:addWikitext( linkedwiki.getMaintenanceCategory() .."[[Category:Pape]]" )

end

return p

Module:Pape

2016-06-28T13:09:29Z

Jean-Pierre Mohamed :

--[[
-- Debug console

frame = mw.getCurrentFrame() -- Get a frame object
newFrame = frame:newChild{ -- Get one with args
title = 'Adrien IV' ,
args = {
iri = 'http://gregorius.fr/wiki/Adrien_IV' ,
WikidataID = 'Q132845' ,
Title = 'Adrien IV' ,
Picture = 'https://upload.wikimedia.org/wikipedia/commons/thumb/4/4a/PopeAdrianIVCameo.jpg/189px-PopeAdrianIVCameo.jpg' ,
NomDeNaissance = 'Nicolas Breakspear' ,
Naissance = '1100-1-1' ,
['Naissance précision (années)'] = '10' ,
LieuDeNaissance = 'Abbots Langley' ,
Deces = '1159-09-1' ,
LieuDeDeces = 'Anagni' ,
ElectionAuPontificat = '1154-12-4' ,
Intronisation = '1154-12-5' ,
FinDuPontificat = '1159-9-1'
}
}
mw.log(p.infobox( newFrame ) )
]]

local p = {}

function p.infobox(f)
local capiunto = require 'capiunto'
local linkedwiki = require 'linkedwiki'

local rdf = 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'
local rdfs = 'http://www.w3.org/2000/01/rdf-schema#'
local ri = 'http://gregorius.fr/wiki/'
local rp = 'http://gregorius.fr/wiki/Property:'
local geo = 'http://www.w3.org/2003/01/geo/wgs84_pos#'
local vcard = 'http://www.w3.org/2006/vcard/ns#'
local xsd = 'http://www.w3.org/2001/XMLSchema#'
local wdt = 'http://www.wikidata.org/prop/direct/'
local wd = 'http://www.wikidata.org/entity/'
local bnf = 'http://www.data.bnf.fr/'

local dateFormat = "d M Y"

local subject = f.args.iri or linkedwiki.getCurrentIRI();

-- save data in the triplestore of Gregorius
linkedwiki.setConfig() -- bydefault Gregorius
linkedwiki.setSubject(subject)
--linkedwiki.setDebug(true)

linkedwiki.removeSubject() -- delete all triples of this subject

-- {{#time:d M Y|2004-12-06}}
--"2004-12-06"^^xsd..'date'
--linkedwiki.addPropertyWithIri(PROPERTY,IRI)
--linkedwiki.addPropertyWithLitteral(PROPERTY,VALUE,TYPE,LANG) [LANG=nil=>default lang] [LANG=''=>no lang]
mw.log(linkedwiki.addPropertyWithIri(rdf..'type',ri..'Pape'))
mw.log(linkedwiki.addPropertyWithLitteral(rdfs..'label',f.args.Title))
mw.log(linkedwiki.addPropertyWithIri(rp..'picture',f.args.Picture))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'nom_de_naissance',f.args.NomDeNaissance))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'naissance',f.args.Naissance,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'naissancePrecision',f.args['Naissance précision (années)'],xsd..'integer',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'lieu_de_naissance',f.args.LieuDeNaissance))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'deces',f.args.Deces,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'lieu_de_deces',f.args.LieuDeDeces))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'election_au_pontificat',f.args.ElectionAuPontificat,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'intronisation',f.args.Intronisation,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'fin_du_pontificat',f.args.FinDuPontificat,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'source_wikidata',f.args.SourceWikidata))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'source_bnf',f.args.SourceBnf))
--mw.log(linkedwiki.addPropertyWithLitteral(rp..'source_gregorius', f.args.SourceGregorius))
--mw.log(linkedwiki.addPropertyWithLitteral(rp..'site_bnf',f.args.SiteBNF))

--compare data with wikidata

local wLieuDeNaissance = ''
local wPicture = ''
local wTODO = ''
--local wEnd = ''

if not linkedwiki.isEmpty(f.args.WikidataID) then
local iriWikidataAboutThisPage = wd .. f.args.WikidataID
mw.log(linkedwiki.addPropertyWithIri(rp..'WikidataID',iriWikidataAboutThisPage))

linkedwiki.setConfig('http://www.wikidata.org')
linkedwiki.setSubject(iriWikidataAboutThisPage)
--linkedwiki.setDebug(true)
wLieuDeNaissance = linkedwiki.getString(rdfs..'label',"fr",linkedwiki.getValue(wdt..'P19'))
wPicture = linkedwiki.getValue(wdt..'P18')
end

if not linkedwiki.isEmpty(f.args.BnfID) then
local iriWikidataAboutThisPageBNF = bnf .. f.args.BnfID
mw.log(linkedwiki.addPropertyWithIri(rp..'BnfID',iriWikidataAboutThisPageBNF))

linkedwiki.setConfig('www.http://data.bnf.fr')
linkedwiki.setSubject(iriWikidataAboutThisPage)
--linkedwiki.setDebug(true)
end

return capiunto.create( {
bodyStyle = 'width : 50px',
bodyClass = 'gregoriusPape',
title = 'Pape' ,
top = linkedwiki.checkLink(subject, rdfs..'label',f.args.Title) ,
topStyle = 'background:#FFD200;height:50px;font-size: 25px;vertical-align:middle',
bottom = linkedwiki.checkString(rdfs..'seeAlso',f.args.Modification)
} )
:addImage(linkedwiki.printImageInWiki(f.args.Picture,wPicture),"", "device_image" )
:addRow('Nom de naissance', linkedwiki.printValueInWiki(f.args.NomDeNaissance,wNomDeNaissance))
:addRow('Lieu de naissance', linkedwiki.printValueInWiki(f.args.LieuDeNaissance,wLieuDeNaissance))
:addRow('Naissance', linkedwiki.printDateInWiki(dateFormat,f.args.Naissance,wTODO))
:addRow('Décès', linkedwiki.printDateInWiki(dateFormat,f.args.Deces,wTODO))
:addRow('Lieu de décès', linkedwiki.printValueInWiki(f.args.LieuDeDeces,wTODO))
:addRow('Élection au pontificat', linkedwiki.printDateInWiki(dateFormat,f.args.ElectionAuPontificat,wTODO))
:addRow('Intronisation', linkedwiki.printDateInWiki(dateFormat,f.args.Intronisation,wTODO))
:addRow('Fin du pontificat', linkedwiki.printDateInWiki(dateFormat,f.args.FinDuPontificat,wTODO))
:addRow('Source', linkedwiki.printValueInWiki(f.args.SourceWikidata,wSourceWikidata))
:addRow('Source', linkedwiki.printValueInWiki(f.args.SourceBnf,wSourceBnf))
--:addWikitext('Site BNF', linkedwiki.printValueInWiki(f.args.SiteBNF,wSiteBNF))
:addWikitext( linkedwiki.getMaintenanceCategory() .."[[Category:Pape]]" )

end

return p

Discussion:Pie VII

2016-06-27T13:50:03Z

Jean-Pierre Mohamed :

== Propriétés dans cette page ==

{{#sparql:PREFIX xsd:<http://www.w3.org/2001/XMLSchema#>
PREFIX rdfs:<http://www.w3.org/2000/01/rdf-schema#>
PREFIX rdf:<http://www.w3.org/1999/02/22-rdf-syntax-ns#>
PREFIX owl:<http://www.w3.org/2002/07/owl#>
select ?Propriété ?Valeur where { <PAGEIRI> ?Propriété ?Valeur . }
}}

== Propriétés pour le même objet dans Wikidata (exemple d'une requête fédérée à améliorer) ==

{{#sparql:
PREFIX xsd:<http://www.w3.org/2001/XMLSchema#>
PREFIX rdfs:<http://www.w3.org/2000/01/rdf-schema#>
PREFIX rdf:<http://www.w3.org/1999/02/22-rdf-syntax-ns#>
PREFIX owl:<http://www.w3.org/2002/07/owl#>

select ?x ?y where {

<PAGEIRI> <http://gregorius.fr/wiki/Property:WikidataID> ?iriWikidata .

SERVICE <https://query.wikidata.org/sparql>
{
?iriWikidata ?x ?y .
}
} LIMIT 15
}}

== Evénements sur la même période ==
{{#sparql:PREFIX bd: <http://www.bigdata.com/rdf#>
PREFIX wikibase: <http://wikiba.se/ontology#>
PREFIX wdt: <http://www.wikidata.org/prop/direct/>
PREFIX wd: <http://www.wikidata.org/entity/>

select distinct ?date ?link ?linkLabel ?picture
where {
?link wdt:P580 ?date .
OPTIONAL{
?link wdt:P18 ?picture .
}
FILTER (1100 <= YEAR(?date) && YEAR(?date) <= 1159 )

SERVICE wikibase:label {
bd:serviceParam wikibase:language "fr,en" .
}
}
ORDER BY ?date
| config = http://www.wikidata.org
| headers = Date, Evénement, Illustration
| templates = Evenement/date,link, image
}}

== Ouvrages BNF associés ==
{{#sparql:
SELECT ?title
WHERE {
BIND ("http://data.bnf.fr/ark:/12148/cb12215406c" as ?pope) .
BIND(URI(?pope) as ?popeIRI) .
BIND(URI(CONCAT(?pope, "#foaf:Person")) as ?popePersonIRI) .
?documentExpressionIRI <http://purl.org/dc/terms/contributor> ?popePersonIRI .
BIND(URI(STRBEFORE(STR(?documentExpressionIRI), "#")) as ?documentIRI) .
?documentIRI <http://purl.org/dc/terms/title> ?title
} LIMIT 10

| endpoint = http://data.bnf.fr/sparql
}}

== Test ==
{{#sparql:

PREFIX marcrel: <http://id.loc.gov/vocabulary/relators/>
PREFIX owl: <http://www.w3.org/2002/07/owl#>
PREFIX rdarelationships: <http://rdvocab.info/RDARelationshipsWEMI/>
PREFIX dcterms: <http://purl.org/dc/terms/>
PREFIX dc: <http://purl.org/dc/elements/1.1/>
select * where {
?expr dcterms:contributor <http://data.bnf.fr/ark:/12148/cb12215406c#foaf:Person>.
?edition rdarelationships:expressionManifested ?expr.
?edition dcterms:title ?titre.
OPTIONAL {
?edition dcterms:description ?desc.
?edition dcterms:date ?date.
?edition dcterms:publisher ?editeur.}
} LIMIT 10

| headers = expr, edition, titre, desc, date, editeur
| templates = link, image, Liste_des_papes_avec_SPARQL/age
| endpoint = http://data.bnf.fr/sparql

}}

Discussion:Pie VII

2016-06-27T13:48:40Z

Jean-Pierre Mohamed :

== Propriétés dans cette page ==

{{#sparql:PREFIX xsd:<http://www.w3.org/2001/XMLSchema#>
PREFIX rdfs:<http://www.w3.org/2000/01/rdf-schema#>
PREFIX rdf:<http://www.w3.org/1999/02/22-rdf-syntax-ns#>
PREFIX owl:<http://www.w3.org/2002/07/owl#>
select ?Propriété ?Valeur where { <PAGEIRI> ?Propriété ?Valeur . }
}}

== Propriétés pour le même objet dans Wikidata (exemple d'une requête fédérée à améliorer) ==

{{#sparql:
PREFIX xsd:<http://www.w3.org/2001/XMLSchema#>
PREFIX rdfs:<http://www.w3.org/2000/01/rdf-schema#>
PREFIX rdf:<http://www.w3.org/1999/02/22-rdf-syntax-ns#>
PREFIX owl:<http://www.w3.org/2002/07/owl#>

select ?x ?y where {

<PAGEIRI> <http://gregorius.fr/wiki/Property:WikidataID> ?iriWikidata .

SERVICE <https://query.wikidata.org/sparql>
{
?iriWikidata ?x ?y .
}
} LIMIT 15
}}

== Evénements sur la même période ==
{{#sparql:PREFIX bd: <http://www.bigdata.com/rdf#>
PREFIX wikibase: <http://wikiba.se/ontology#>
PREFIX wdt: <http://www.wikidata.org/prop/direct/>
PREFIX wd: <http://www.wikidata.org/entity/>

select distinct ?date ?link ?linkLabel ?picture
where {
?link wdt:P580 ?date .
OPTIONAL{
?link wdt:P18 ?picture .
}
FILTER (1100 <= YEAR(?date) && YEAR(?date) <= 1159 )

SERVICE wikibase:label {
bd:serviceParam wikibase:language "fr,en" .
}
}
ORDER BY ?date
| config = http://www.wikidata.org
| headers = Date, Evénement, Illustration
| templates = Evenement/date,link, image
}}

== Ouvrages BNF associés ==
{{#sparql:
SELECT ?title
WHERE {
BIND ("http://data.bnf.fr/ark:/12148/cb12215406c" as ?pope) .
BIND(URI(?pope) as ?popeIRI) .
BIND(URI(CONCAT(?pope, "#foaf:Person")) as ?popePersonIRI) .
?documentExpressionIRI <http://purl.org/dc/terms/contributor> ?popePersonIRI .
BIND(URI(STRBEFORE(STR(?documentExpressionIRI), "#")) as ?documentIRI) .
?documentIRI <http://purl.org/dc/terms/title> ?title
} LIMIT 10
}}

== Test ==
{{#sparql:

PREFIX marcrel: <http://id.loc.gov/vocabulary/relators/>
PREFIX owl: <http://www.w3.org/2002/07/owl#>
PREFIX rdarelationships: <http://rdvocab.info/RDARelationshipsWEMI/>
PREFIX dcterms: <http://purl.org/dc/terms/>
PREFIX dc: <http://purl.org/dc/elements/1.1/>
select * where {
?expr dcterms:contributor <http://data.bnf.fr/ark:/12148/cb12215406c#foaf:Person>.
?edition rdarelationships:expressionManifested ?expr.
?edition dcterms:title ?titre.
OPTIONAL {
?edition dcterms:description ?desc.
?edition dcterms:date ?date.
?edition dcterms:publisher ?editeur.}
} LIMIT 10

| headers = expr, edition, titre, desc, date, editeur
| templates = link, image, Liste_des_papes_avec_SPARQL/age
| endpoint = http://data.bnf.fr/sparql

}}

Discussion:Pie VII

2016-06-27T13:46:29Z

Jean-Pierre Mohamed :

== Propriétés dans cette page ==

{{#sparql:PREFIX xsd:<http://www.w3.org/2001/XMLSchema#>
PREFIX rdfs:<http://www.w3.org/2000/01/rdf-schema#>
PREFIX rdf:<http://www.w3.org/1999/02/22-rdf-syntax-ns#>
PREFIX owl:<http://www.w3.org/2002/07/owl#>
select ?Propriété ?Valeur where { <PAGEIRI> ?Propriété ?Valeur . }
}}

== Propriétés pour le même objet dans Wikidata (exemple d'une requête fédérée à améliorer) ==

{{#sparql:
PREFIX xsd:<http://www.w3.org/2001/XMLSchema#>
PREFIX rdfs:<http://www.w3.org/2000/01/rdf-schema#>
PREFIX rdf:<http://www.w3.org/1999/02/22-rdf-syntax-ns#>
PREFIX owl:<http://www.w3.org/2002/07/owl#>

select ?x ?y where {

<PAGEIRI> <http://gregorius.fr/wiki/Property:WikidataID> ?iriWikidata .

SERVICE <https://query.wikidata.org/sparql>
{
?iriWikidata ?x ?y .
}
} LIMIT 15
}}

== Evénements sur la même période ==
{{#sparql:PREFIX bd: <http://www.bigdata.com/rdf#>
PREFIX wikibase: <http://wikiba.se/ontology#>
PREFIX wdt: <http://www.wikidata.org/prop/direct/>
PREFIX wd: <http://www.wikidata.org/entity/>

select distinct ?date ?link ?linkLabel ?picture
where {
?link wdt:P580 ?date .
OPTIONAL{
?link wdt:P18 ?picture .
}
FILTER (1100 <= YEAR(?date) && YEAR(?date) <= 1159 )

SERVICE wikibase:label {
bd:serviceParam wikibase:language "fr,en" .
}
}
ORDER BY ?date
| config = http://www.wikidata.org
| headers = Date, Evénement, Illustration
| templates = Evenement/date,link, image
}}

== Ouvrages BNF associés ==
{{#sparql:
SELECT ?title WHERE {
BIND ("http://data.bnf.fr/ark:/12148/cb12215406c" as ?pope) .
BIND(URI(?pope) as ?popeIRI) .
BIND(URI(CONCAT(?pope, "#foaf:Person")) as ?popePersonIRI) .
?documentExpressionIRI <http://purl.org/dc/terms/contributor> ?popePersonIRI .
BIND(URI(STRBEFORE(STR(?documentExpressionIRI), "#")) as ?documentIRI) .
?documentIRI <http://purl.org/dc/terms/title> ?title
} LIMIT 10
}}

== Test ==
{{#sparql:

PREFIX marcrel: <http://id.loc.gov/vocabulary/relators/>
PREFIX owl: <http://www.w3.org/2002/07/owl#>
PREFIX rdarelationships: <http://rdvocab.info/RDARelationshipsWEMI/>
PREFIX dcterms: <http://purl.org/dc/terms/>
PREFIX dc: <http://purl.org/dc/elements/1.1/>
select * where {
?expr dcterms:contributor <http://data.bnf.fr/ark:/12148/cb12215406c#foaf:Person>.
?edition rdarelationships:expressionManifested ?expr.
?edition dcterms:title ?titre.
OPTIONAL {
?edition dcterms:description ?desc.
?edition dcterms:date ?date.
?edition dcterms:publisher ?editeur.}
} LIMIT 10

| headers = expr, edition, titre, desc, date, editeur
| templates = link, image, Liste_des_papes_avec_SPARQL/age
| endpoint = http://data.bnf.fr/sparql

}}

Module:Pape

2016-06-27T13:44:16Z

Jean-Pierre Mohamed :

--[[
-- Debug console

frame = mw.getCurrentFrame() -- Get a frame object
newFrame = frame:newChild{ -- Get one with args
title = 'Adrien IV' ,
args = {
iri = 'http://gregorius.fr/wiki/Adrien_IV' ,
WikidataID = 'Q132845' ,
Title = 'Adrien IV' ,
Picture = 'https://upload.wikimedia.org/wikipedia/commons/thumb/4/4a/PopeAdrianIVCameo.jpg/189px-PopeAdrianIVCameo.jpg' ,
NomDeNaissance = 'Nicolas Breakspear' ,
Naissance = '1100-1-1' ,
['Naissance précision (années)'] = '10' ,
LieuDeNaissance = 'Abbots Langley' ,
Deces = '1159-09-1' ,
LieuDeDeces = 'Anagni' ,
ElectionAuPontificat = '1154-12-4' ,
Intronisation = '1154-12-5' ,
FinDuPontificat = '1159-9-1'
}
}
mw.log(p.infobox( newFrame ) )
]]

local p = {}

function p.infobox(f)
local capiunto = require 'capiunto'
local linkedwiki = require 'linkedwiki'

local rdf = 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'
local rdfs = 'http://www.w3.org/2000/01/rdf-schema#'
local ri = 'http://gregorius.fr/wiki/'
local rp = 'http://gregorius.fr/wiki/Property:'
local geo = 'http://www.w3.org/2003/01/geo/wgs84_pos#'
local vcard = 'http://www.w3.org/2006/vcard/ns#'
local xsd = 'http://www.w3.org/2001/XMLSchema#'
local wdt = 'http://www.wikidata.org/prop/direct/'
local wd = 'http://www.wikidata.org/entity/'
local bnf = 'http://www.data.bnf.fr/'

local dateFormat = "d M Y"

local subject = f.args.iri or linkedwiki.getCurrentIRI();

-- save data in the triplestore of Gregorius
linkedwiki.setConfig() -- bydefault Gregorius
linkedwiki.setSubject(subject)
--linkedwiki.setDebug(true)

linkedwiki.removeSubject() -- delete all triples of this subject

-- {{#time:d M Y|2004-12-06}}
--"2004-12-06"^^xsd..'date'
--linkedwiki.addPropertyWithIri(PROPERTY,IRI)
--linkedwiki.addPropertyWithLitteral(PROPERTY,VALUE,TYPE,LANG) [LANG=nil=>default lang] [LANG=''=>no lang]
mw.log(linkedwiki.addPropertyWithIri(rdf..'type',ri..'Pape'))
mw.log(linkedwiki.addPropertyWithLitteral(rdfs..'label',f.args.Title))
mw.log(linkedwiki.addPropertyWithIri(rp..'picture',f.args.Picture))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'nom_de_naissance',f.args.NomDeNaissance))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'naissance',f.args.Naissance,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'naissancePrecision',f.args['Naissance précision (années)'],xsd..'integer',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'lieu_de_naissance',f.args.LieuDeNaissance))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'deces',f.args.Deces,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'lieu_de_deces',f.args.LieuDeDeces))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'election_au_pontificat',f.args.ElectionAuPontificat,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'intronisation',f.args.Intronisation,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'fin_du_pontificat',f.args.FinDuPontificat,xsd..'date',''))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'source_wikidata',f.args.SourceWikidata))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'source_bnf',f.args.SourceBnf))
mw.log(linkedwiki.addPropertyWithLitteral(rp..'source_gregorius', f.args.SourceGregorius))
--mw.log(linkedwiki.addPropertyWithLitteral(rp..'site_bnf',f.args.SiteBNF))

--compare data with wikidata

local wLieuDeNaissance = ''
local wPicture = ''
local wTODO = ''
--local wEnd = ''

if not linkedwiki.isEmpty(f.args.WikidataID) then
local iriWikidataAboutThisPage = wd .. f.args.WikidataID
mw.log(linkedwiki.addPropertyWithIri(rp..'WikidataID',iriWikidataAboutThisPage))

linkedwiki.setConfig('http://www.wikidata.org')
linkedwiki.setSubject(iriWikidataAboutThisPage)
--linkedwiki.setDebug(true)
wLieuDeNaissance = linkedwiki.getString(rdfs..'label',"fr",linkedwiki.getValue(wdt..'P19'))
wPicture = linkedwiki.getValue(wdt..'P18')
end

if not linkedwiki.isEmpty(f.args.BnfID) then
local iriWikidataAboutThisPageBNF = bnf .. f.args.BnfID
mw.log(linkedwiki.addPropertyWithIri(rp..'BnfID',iriWikidataAboutThisPageBNF))

linkedwiki.setConfig('www.http://data.bnf.fr')
linkedwiki.setSubject(iriWikidataAboutThisPage)
--linkedwiki.setDebug(true)
end

return capiunto.create( {
bodyStyle = 'width : 50px',
bodyClass = 'gregoriusPape',
title = 'Pape' ,
top = linkedwiki.checkLink(subject, rdfs..'label',f.args.Title) ,
topStyle = 'background:#FFD200;height:50px;font-size: 25px;vertical-align:middle',
bottom = linkedwiki.checkString(rdfs..'seeAlso',f.args.Modification)
} )
:addImage(linkedwiki.printImageInWiki(f.args.Picture,wPicture),"", "device_image" )
:addRow('Nom de naissance', linkedwiki.printValueInWiki(f.args.NomDeNaissance,wNomDeNaissance))
:addRow('Lieu de naissance', linkedwiki.printValueInWiki(f.args.LieuDeNaissance,wLieuDeNaissance))
:addRow('Naissance', linkedwiki.printDateInWiki(dateFormat,f.args.Naissance,wTODO))
:addRow('Décès', linkedwiki.printDateInWiki(dateFormat,f.args.Deces,wTODO))
:addRow('Lieu de décès', linkedwiki.printValueInWiki(f.args.LieuDeDeces,wTODO))
:addRow('Élection au pontificat', linkedwiki.printDateInWiki(dateFormat,f.args.ElectionAuPontificat,wTODO))
:addRow('Intronisation', linkedwiki.printDateInWiki(dateFormat,f.args.Intronisation,wTODO))
:addRow('Fin du pontificat', linkedwiki.printDateInWiki(dateFormat,f.args.FinDuPontificat,wTODO))
:addRow('Source', linkedwiki.printValueInWiki(f.args.SourceWikidata,wSourceWikidata))
:addRow('Source', linkedwiki.printValueInWiki(f.args.SourceBnf,wSourceBnf))
--:addWikitext('Site BNF', linkedwiki.printValueInWiki(f.args.SiteBNF,wSiteBNF))
:addWikitext( linkedwiki.getMaintenanceCategory() .."[[Category:Pape]]" )

end

return p