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'  }
}
mw.log(p.pape( newFrame ) )

]]

local p = {}

function p.dump(o)
   if type(o) == 'table' then
      local s = '{ '
      for k,v in pairs(o) do
         if type(k) ~= 'number' then k = '"'..k..'"' end
         s = s .. '['..k..'] = ' .. ','
      end
      return s .. '} '
   else
      return tostring(o)
   end
end


function p.pape(f)
    local linkedwiki = require 'linkedwiki'
    linkedwiki.setCurrentFrame(mw.getCurrentFrame())
    linkedwiki.setDebug(true)
    
   local subject = f.args.iri or linkedwiki.getCurrentIRI();
   -- select distinct  ( COALESCE(?nomPrecedent, "")  as ?nomp ) ( COALESCE(?nomSuivant, "")  as ?noms ) 
--	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  ?nomPrecedent ?nomSuivant
-- 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]['nomSuivant'] 
--  local precedent =   result['result']['rows'][0]['nomPrecedent'] 


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