Module:Encyclique

La documentation pour ce module peut être créée à Module:Encyclique/doc

local p = {}
 
function p.infobox(f)
    local capiunto = require 'capiunto'
    local linkedwiki = require 'linkedwiki'
 
	local endpointUpsud = 'http://opendata1.opendata.u-psud.fr/sparql'
 
   local daapProp = 'http://gregorius.dsi.universite-paris-saclay.fr/wiki/Property:'
   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.dsi.universite-paris-saclay.fr/wiki/'
   local rp = 'http://www.gregorius.dsi.universite-paris-saclay.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 dateFormat = "d M Y"
 
local subject = linkedwiki.getCurrentIRI(); -- read the iri of the current page
local object =  linkedwiki.new(subject)

object:removeSubject() -- delete all triples of this subject
   
   
   mw.log(object:addPropertyWithIri(rdf..'type',ri..'Encyclique'))
   mw.log(object:addPropertyWithIri(rdfs..'label',f.args.Titre))
   mw.log(object:addPropertyWithIri(rp..'siecle',f.args.Siecle))
   mw.log(object:addPropertyWithIri(rp..'date',f.args.Date,xsd..'date',''))
   mw.log(object:addPropertyWithIri(rp..'auteur',f.args.Auteur,xsd..'date',''))
   
	return capiunto.create( {
	    -- bodyStyle = 'border: 15px solid red',
	    bodyClass = 'gregoriusEncyclique',
		title =  'Encyclique',
        top = object:checkString(daapProp..'titre',f.args.Titre) ,
		topStyle = 'background:#0066CC;height:50px;font-size: 20px;color:white;vertical-align:middle',		
		bottom = object:checkExternLink('Website',rdfs..'seeAlso',f.args.Website)
	} )
	:addRow('Titre', object:checkString(daapProp..'titre',f.args.Titre))
	:addRow('Date', object:checkString(daapProp..'date',f.args.Date))
	:addRow('Siècle', object:checkString(daapProp..'siecle',f.args.Siecle))
	:addRow('Auteur', object:checkString(daapProp..'auteur',f.args.Auteur))
	:addWikitext( object:getMaintenanceCategory() ..  "[[Category:Interdisciplinary Unit]]"
				.."[[Category:Encyclique]]" )
end
 
return p