Module:Carrousel

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

--[[
-- Debug console

frame = mw.getCurrentFrame() -- Get a frame object
newFrame = frame:newChild{ -- Get one with args
 title = 'Adrien IV' ,
 args = { 
 iri = 'https://gregorius.dsi.universite-paris-saclay.fr/wiki/Adrien_VI' ,
 'Adrien IV',  'Pie  VII' }
}
mw.log(p.carrousel( newFrame ) )

]]

local p = {}
function p.carrousel(f)
    local linkedwiki = require 'linkedwiki'
    linkedwiki.setCurrentFrame(mw.getCurrentFrame())
    
   local subject = f.args.iri or linkedwiki.getCurrentIRI();
   
-- --	local idConfigWikidata ='http://www.wikidata.org'
-- --	linkedwiki.setConfig(idConfigWikidata)
--   local queryStr = [[
-- PREFIX p: <http://www.wikidata.org/prop/> 
-- PREFIX pq: <http://www.wikidata.org/prop/qualifier/> 
-- PREFIX rdfs: <http://www.w3.org/2000/01/rdf-schema#> 
-- PREFIX wd: <http://www.wikidata.org/entity/> 

-- select distinct  ( COALESCE(?nomPrecedent, "")  as ?nomp ) ( COALESCE(?nomSuivant, "")  as ?noms ) where { 
--   <]] .. subject ..   [[>
--   <http://gregorius.dsi.universite-paris-saclay.fr/wiki/Property:WikidataID> ?idWikidata .

--   SERVICE <https://query.wikidata.org/sparql> {
--           ?idWikidata p:P39 ?stat .

--           ?stat pq:P1365 ?precedent ;
--               pq:P1366 ?suivant .

--             ?precedent rdfs:label ?nomPrecedent .
--             ?suivant rdfs:label ?nomSuivant .

--              FILTER (langMatches(lang(?nomPrecedent), "fr")
--                     && langMatches(lang(?nomSuivant), "fr")
--                     )
--   }
-- } 
--   ]]
   
--   local result = linkedwiki.query(queryStr)
-- linkedwiki.print_r(result)
   
-- 	local newline = [[

-- ]]

--  local suivant =   result['result']['rows'][0]['noms'] 
--  local precedent =   result['result']['rows'][0]['nomp'] 


-- 	return '{| class="wikitable" align="right"'..newline
--           .. '|- '..newline
--           .. '| style="width:150px;text-align:left;"|  [['.. precedent .. '|< '.. precedent .. ']] '..newline
--           .. '| style="width:150px;text-align:right;"| [[' .. suivant ..'|' .. suivant ..' > ]]'..newline
--           .. '|}'
 
return subject
end
return p