Renders the presentations of an event as a program grid, one SVG per day: one column per room, boxes placed by clock time and split vertically when several talks share a slot. Each box links to the presentation and shows its authors and title. The given resource may be the event itself or a resource maintained by it, so the same view serves an event page and a dedicated program page. Reads both the http:// and https:// schema.org namespaces.
Get the presentation program of an event as an SVG grid
prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> prefix dct: <http://purl.org/dc/terms/> prefix np: <http://www.nanopub.org/nschema#> prefix npa: <http://purl.org/nanopub/admin/> prefix npx: <http://purl.org/nanopub/x/> prefix xsd: <http://www.w3.org/2001/XMLSchema#> prefix wd: <http://www.wikidata.org/entity/> prefix schema: <https://schema.org/> prefix schemaold: <http://schema.org/> prefix foaf: <http://xmlns.com/foaf/0.1/> prefix pav: <http://purl.org/pav/> prefix gen: <https://w3id.org/kpxl/gen/terms/> select ?title (concat( ' ', ?frags, ' ') as ?svg) where { { select ?day (group_concat(?frag; separator="") as ?frags) (max(?ybot) as ?maxy) (max(?xright) as ?maxx) where { # ============ talk boxes ============ { select ?day ?frag (?by + ?bh as ?ybot) (?bx + 250 as ?xright) where { { select ?pres ?day ?room ?smin ?emin ?tlabel (group_concat(distinct ?aname; separator=", ") as ?authors) where { graph npa:graph { ?np npa:hasValidSignatureForPublicKeyHash ?pk ; np:hasAssertion ?a ; npx:introduces ?pres . filter not exists { ?inv npx:invalidates ?np ; npa:hasValidSignatureForPublicKeyHash ?pk . } filter not exists { ?np npx:hasNanopubType npx:ExampleNanopub . } } filter not exists { graph ?sg { ?newer npx:supersedes ?np . } } { values ?_resource_multi_iri {} bind(?_resource_multi_iri as ?ev) } union { values ?_resource_multi_iri {} graph ?mg { ?_resource_multi_iri gen:isMaintainedBy ?ev } } graph ?a { ?pres a wd:Q604733 ; dct:isPartOf ?ev . } optional { graph ?a { ?pres schema:startDate ?sdA } } optional { graph ?a { ?pres schemaold:startDate ?sdB } } optional { graph ?a { ?pres schema:endDate ?edA } } optional { graph ?a { ?pres schemaold:endDate ?edB } } optional { graph ?a { ?pres schema:location ?loA } } optional { graph ?a { ?pres schemaold:location ?loB } } optional { graph ?a { ?pres rdfs:label ?lb } } bind(coalesce(?sdA, ?sdB) as ?sd) filter(bound(?sd)) bind(coalesce(?edA, ?edB) as ?ed) bind(coalesce(str(?loA), str(?loB), "") as ?room) bind(substr(str(?sd), 1, 10) as ?day) bind(xsd:integer(substr(str(?sd), 12, 2)) * 60 + xsd:integer(substr(str(?sd), 15, 2)) as ?smin) bind(coalesce(xsd:integer(substr(str(?ed), 12, 2)) * 60 + xsd:integer(substr(str(?ed), 15, 2)), ?smin + 30) as ?emin) bind(coalesce(str(?lb), "(untitled)") as ?tlabel) optional { graph ?a { ?pres pav:authoredBy ?ag } optional { graph ?pi2 { ?ag foaf:name ?agn } } bind(coalesce(?agn, replace(str(?ag), "^.*/", "")) as ?aname) } } group by ?pres ?day ?room ?smin ?emin ?tlabel } # rank inside the (day, room, slot) cell, and how many share it { select ?pres (count(distinct ?o) as ?rank) where { graph npa:graph { ?npR npa:hasValidSignatureForPublicKeyHash ?pkR ; np:hasAssertion ?a2 ; npx:introduces ?pres . filter not exists { ?invR npx:invalidates ?npR ; npa:hasValidSignatureForPublicKeyHash ?pkR . } filter not exists { ?npR npx:hasNanopubType npx:ExampleNanopub . } } filter not exists { graph ?sgR { ?newerR npx:supersedes ?npR . } } { values ?_resource_multi_iri {} bind(?_resource_multi_iri as ?evR) } union { values ?_resource_multi_iri {} graph ?mgR { ?_resource_multi_iri gen:isMaintainedBy ?evR } } graph ?a2 { ?pres a wd:Q604733 ; dct:isPartOf ?evR . } optional { graph ?a2 { ?pres schema:startDate ?sdAR } } optional { graph ?a2 { ?pres schemaold:startDate ?sdBR } } optional { graph ?a2 { ?pres schema:endDate ?edAR } } optional { graph ?a2 { ?pres schemaold:endDate ?edBR } } optional { graph ?a2 { ?pres schema:location ?loAR } } optional { graph ?a2 { ?pres schemaold:location ?loBR } } optional { graph ?a2 { ?pres rdfs:label ?lbR } } bind(coalesce(?sdAR, ?sdBR) as ?sdR) filter(bound(?sdR)) bind(coalesce(?edAR, ?edBR) as ?edR) bind(coalesce(str(?loAR), str(?loBR), "") as ?roomR) bind(substr(str(?sdR), 1, 10) as ?dayR) bind(xsd:integer(substr(str(?sdR), 12, 2)) * 60 + xsd:integer(substr(str(?sdR), 15, 2)) as ?sminR) bind(coalesce(xsd:integer(substr(str(?edR), 12, 2)) * 60 + xsd:integer(substr(str(?edR), 15, 2)), ?sminR + 30) as ?eminR) bind(coalesce(str(?lbR), "(untitled)") as ?tlabelR) graph npa:graph { ?npO npa:hasValidSignatureForPublicKeyHash ?pkO ; np:hasAssertion ?ao ; npx:introduces ?o . filter not exists { ?invO npx:invalidates ?npO ; npa:hasValidSignatureForPublicKeyHash ?pkO . } filter not exists { ?npO npx:hasNanopubType npx:ExampleNanopub . } } filter not exists { graph ?sgO { ?newerO npx:supersedes ?npO . } } { values ?_resource_multi_iri {} bind(?_resource_multi_iri as ?evO) } union { values ?_resource_multi_iri {} graph ?mgO { ?_resource_multi_iri gen:isMaintainedBy ?evO } } graph ?ao { ?o a wd:Q604733 ; dct:isPartOf ?evO . } optional { graph ?ao { ?o schema:startDate ?sdAO } } optional { graph ?ao { ?o schemaold:startDate ?sdBO } } optional { graph ?ao { ?o schema:endDate ?edAO } } optional { graph ?ao { ?o schemaold:endDate ?edBO } } optional { graph ?ao { ?o schema:location ?loAO } } optional { graph ?ao { ?o schemaold:location ?loBO } } optional { graph ?ao { ?o rdfs:label ?lbO } } bind(coalesce(?sdAO, ?sdBO) as ?sdO) filter(bound(?sdO)) bind(coalesce(?edAO, ?edBO) as ?edO) bind(coalesce(str(?loAO), str(?loBO), "") as ?roomO) bind(substr(str(?sdO), 1, 10) as ?dayO) bind(xsd:integer(substr(str(?sdO), 12, 2)) * 60 + xsd:integer(substr(str(?sdO), 15, 2)) as ?sminO) bind(coalesce(xsd:integer(substr(str(?edO), 12, 2)) * 60 + xsd:integer(substr(str(?edO), 15, 2)), ?sminO + 30) as ?eminO) bind(coalesce(str(?lbO), "(untitled)") as ?tlabelO) filter(?dayR = ?dayO && ?roomR = ?roomO && ?sminR = ?sminO && str(?tlabelO) <= str(?tlabelR)) } group by ?pres } { select ?pres (count(distinct ?o2) as ?nslot) where { graph npa:graph { ?npS npa:hasValidSignatureForPublicKeyHash ?pkS ; np:hasAssertion ?a3 ; npx:introduces ?pres . filter not exists { ?invS npx:invalidates ?npS ; npa:hasValidSignatureForPublicKeyHash ?pkS . } filter not exists { ?npS npx:hasNanopubType npx:ExampleNanopub . } } filter not exists { graph ?sgS { ?newerS npx:supersedes ?npS . } } { values ?_resource_multi_iri {} bind(?_resource_multi_iri as ?evS) } union { values ?_resource_multi_iri {} graph ?mgS { ?_resource_multi_iri gen:isMaintainedBy ?evS } } graph ?a3 { ?pres a wd:Q604733 ; dct:isPartOf ?evS . } optional { graph ?a3 { ?pres schema:startDate ?sdAS } } optional { graph ?a3 { ?pres schemaold:startDate ?sdBS } } optional { graph ?a3 { ?pres schema:endDate ?edAS } } optional { graph ?a3 { ?pres schemaold:endDate ?edBS } } optional { graph ?a3 { ?pres schema:location ?loAS } } optional { graph ?a3 { ?pres schemaold:location ?loBS } } optional { graph ?a3 { ?pres rdfs:label ?lbS } } bind(coalesce(?sdAS, ?sdBS) as ?sdS) filter(bound(?sdS)) bind(coalesce(?edAS, ?edBS) as ?edS) bind(coalesce(str(?loAS), str(?loBS), "") as ?roomS) bind(substr(str(?sdS), 1, 10) as ?dayS) bind(xsd:integer(substr(str(?sdS), 12, 2)) * 60 + xsd:integer(substr(str(?sdS), 15, 2)) as ?sminS) bind(coalesce(xsd:integer(substr(str(?edS), 12, 2)) * 60 + xsd:integer(substr(str(?edS), 15, 2)), ?sminS + 30) as ?eminS) bind(coalesce(str(?lbS), "(untitled)") as ?tlabelS) graph npa:graph { ?npP npa:hasValidSignatureForPublicKeyHash ?pkP ; np:hasAssertion ?ao2 ; npx:introduces ?o2 . filter not exists { ?invP npx:invalidates ?npP ; npa:hasValidSignatureForPublicKeyHash ?pkP . } filter not exists { ?npP npx:hasNanopubType npx:ExampleNanopub . } } filter not exists { graph ?sgP { ?newerP npx:supersedes ?npP . } } { values ?_resource_multi_iri {} bind(?_resource_multi_iri as ?evP) } union { values ?_resource_multi_iri {} graph ?mgP { ?_resource_multi_iri gen:isMaintainedBy ?evP } } graph ?ao2 { ?o2 a wd:Q604733 ; dct:isPartOf ?evP . } optional { graph ?ao2 { ?o2 schema:startDate ?sdAP } } optional { graph ?ao2 { ?o2 schemaold:startDate ?sdBP } } optional { graph ?ao2 { ?o2 schema:endDate ?edAP } } optional { graph ?ao2 { ?o2 schemaold:endDate ?edBP } } optional { graph ?ao2 { ?o2 schema:location ?loAP } } optional { graph ?ao2 { ?o2 schemaold:location ?loBP } } optional { graph ?ao2 { ?o2 rdfs:label ?lbP } } bind(coalesce(?sdAP, ?sdBP) as ?sdP) filter(bound(?sdP)) bind(coalesce(?edAP, ?edBP) as ?edP) bind(coalesce(str(?loAP), str(?loBP), "") as ?roomP) bind(substr(str(?sdP), 1, 10) as ?dayP) bind(xsd:integer(substr(str(?sdP), 12, 2)) * 60 + xsd:integer(substr(str(?sdP), 15, 2)) as ?sminP) bind(coalesce(xsd:integer(substr(str(?edP), 12, 2)) * 60 + xsd:integer(substr(str(?edP), 15, 2)), ?sminP + 30) as ?eminP) bind(coalesce(str(?lbP), "(untitled)") as ?tlabelP) filter(?dayS = ?dayP && ?roomS = ?roomP && ?sminS = ?sminP) } group by ?pres } # column index of the room { select ?room (count(distinct ?r2) - 1 as ?col) where { { select distinct ?room where { graph npa:graph { ?npC npa:hasValidSignatureForPublicKeyHash ?pkC ; np:hasAssertion ?ac1 ; npx:introduces ?c1 . filter not exists { ?invC npx:invalidates ?npC ; npa:hasValidSignatureForPublicKeyHash ?pkC . } filter not exists { ?npC npx:hasNanopubType npx:ExampleNanopub . } } filter not exists { graph ?sgC { ?newerC npx:supersedes ?npC . } } { values ?_resource_multi_iri {} bind(?_resource_multi_iri as ?evC) } union { values ?_resource_multi_iri {} graph ?mgC { ?_resource_multi_iri gen:isMaintainedBy ?evC } } graph ?ac1 { ?c1 a wd:Q604733 ; dct:isPartOf ?evC . } optional { graph ?ac1 { ?c1 schema:startDate ?sdAC } } optional { graph ?ac1 { ?c1 schemaold:startDate ?sdBC } } optional { graph ?ac1 { ?c1 schema:endDate ?edAC } } optional { graph ?ac1 { ?c1 schemaold:endDate ?edBC } } optional { graph ?ac1 { ?c1 schema:location ?loAC } } optional { graph ?ac1 { ?c1 schemaold:location ?loBC } } optional { graph ?ac1 { ?c1 rdfs:label ?lbC } } bind(coalesce(?sdAC, ?sdBC) as ?sdC) filter(bound(?sdC)) bind(coalesce(?edAC, ?edBC) as ?edC) bind(coalesce(str(?loAC), str(?loBC), "") as ?room) bind(substr(str(?sdC), 1, 10) as ?dayC) bind(xsd:integer(substr(str(?sdC), 12, 2)) * 60 + xsd:integer(substr(str(?sdC), 15, 2)) as ?sminC) bind(coalesce(xsd:integer(substr(str(?edC), 12, 2)) * 60 + xsd:integer(substr(str(?edC), 15, 2)), ?sminC + 30) as ?eminC) bind(coalesce(str(?lbC), "(untitled)") as ?tlabelC) } } { select distinct ?r2 where { graph npa:graph { ?npD npa:hasValidSignatureForPublicKeyHash ?pkD ; np:hasAssertion ?ac2 ; npx:introduces ?c2 . filter not exists { ?invD npx:invalidates ?npD ; npa:hasValidSignatureForPublicKeyHash ?pkD . } filter not exists { ?npD npx:hasNanopubType npx:ExampleNanopub . } } filter not exists { graph ?sgD { ?newerD npx:supersedes ?npD . } } { values ?_resource_multi_iri {} bind(?_resource_multi_iri as ?evD) } union { values ?_resource_multi_iri {} graph ?mgD { ?_resource_multi_iri gen:isMaintainedBy ?evD } } graph ?ac2 { ?c2 a wd:Q604733 ; dct:isPartOf ?evD . } optional { graph ?ac2 { ?c2 schema:startDate ?sdAD } } optional { graph ?ac2 { ?c2 schemaold:startDate ?sdBD } } optional { graph ?ac2 { ?c2 schema:endDate ?edAD } } optional { graph ?ac2 { ?c2 schemaold:endDate ?edBD } } optional { graph ?ac2 { ?c2 schema:location ?loAD } } optional { graph ?ac2 { ?c2 schemaold:location ?loBD } } optional { graph ?ac2 { ?c2 rdfs:label ?lbD } } bind(coalesce(?sdAD, ?sdBD) as ?sdD) filter(bound(?sdD)) bind(coalesce(?edAD, ?edBD) as ?edD) bind(coalesce(str(?loAD), str(?loBD), "") as ?r2) bind(substr(str(?sdD), 1, 10) as ?dayD) bind(xsd:integer(substr(str(?sdD), 12, 2)) * 60 + xsd:integer(substr(str(?sdD), 15, 2)) as ?sminD) bind(coalesce(xsd:integer(substr(str(?edD), 12, 2)) * 60 + xsd:integer(substr(str(?edD), 15, 2)), ?sminD + 30) as ?eminD) bind(coalesce(str(?lbD), "(untitled)") as ?tlabelD) } } filter(str(?r2) <= str(?room)) } group by ?room } { select ?day (min(?sminY) as ?dstart) where { graph npa:graph { ?npY npa:hasValidSignatureForPublicKeyHash ?pkY ; np:hasAssertion ?ay1 ; npx:introduces ?y1 . filter not exists { ?invY npx:invalidates ?npY ; npa:hasValidSignatureForPublicKeyHash ?pkY . } filter not exists { ?npY npx:hasNanopubType npx:ExampleNanopub . } } filter not exists { graph ?sgY { ?newerY npx:supersedes ?npY . } } { values ?_resource_multi_iri {} bind(?_resource_multi_iri as ?evY) } union { values ?_resource_multi_iri {} graph ?mgY { ?_resource_multi_iri gen:isMaintainedBy ?evY } } graph ?ay1 { ?y1 a wd:Q604733 ; dct:isPartOf ?evY . } optional { graph ?ay1 { ?y1 schema:startDate ?sdAY } } optional { graph ?ay1 { ?y1 schemaold:startDate ?sdBY } } optional { graph ?ay1 { ?y1 schema:endDate ?edAY } } optional { graph ?ay1 { ?y1 schemaold:endDate ?edBY } } optional { graph ?ay1 { ?y1 schema:location ?loAY } } optional { graph ?ay1 { ?y1 schemaold:location ?loBY } } optional { graph ?ay1 { ?y1 rdfs:label ?lbY } } bind(coalesce(?sdAY, ?sdBY) as ?sdY) filter(bound(?sdY)) bind(coalesce(?edAY, ?edBY) as ?edY) bind(coalesce(str(?loAY), str(?loBY), "") as ?roomY) bind(substr(str(?sdY), 1, 10) as ?day) bind(xsd:integer(substr(str(?sdY), 12, 2)) * 60 + xsd:integer(substr(str(?sdY), 15, 2)) as ?sminY) bind(coalesce(xsd:integer(substr(str(?edY), 12, 2)) * 60 + xsd:integer(substr(str(?edY), 15, 2)), ?sminY + 30) as ?eminY) bind(coalesce(str(?lbY), "(untitled)") as ?tlabelY) } group by ?day } bind(56 + ?col * 258 as ?bx) bind(36 + (?smin - ?dstart + 15) * 3.0 as ?slotY) bind((?emin - ?smin) * 3.0 as ?slotH) bind(?slotY + (?rank - 1) * (?slotH / ?nslot) as ?by) bind(?slotH / ?nslot - 3 as ?bh) bind(replace(?tlabel, "^(.{0,42})\\s.*$", "$1") as ?l1) bind(if(strlen(?tlabel) > strlen(?l1), substr(?tlabel, strlen(?l1) + 2), "") as ?r1) bind(replace(?r1, "^(.{0,42})\\s.*$", "$1") as ?l2) bind(if(strlen(?r1) > strlen(?l2), substr(?r1, strlen(?l2) + 2), "") as ?r2) bind(if(strlen(?r2) > 42, concat(substr(?r2, 1, 41), "\u2026"), ?r2) as ?l3) bind(if(strlen(?authors) > 44, concat(replace(substr(?authors, 1, 44), ",[^,]*$", ""), " …"), ?authors) as ?authShort) bind(concat( '', ' ', ' ', replace(replace(replace(?authShort, "&", "&"), "<", "<"), ">", ">"), ' ', ' ', ' ', replace(replace(replace(?l1, "&", "&"), "<", "<"), ">", ">"), ' ', if(strlen(?l2) > 0, concat(' ', replace(replace(replace(?l2, "&", "&"), "<", "<"), ">", ">"), ' '), ''), if(strlen(?l3) > 0, concat(' ', replace(replace(replace(?l3, "&", "&"), "<", "<"), ">", ">"), ' '), ''), ' ') as ?frag) } } union # ============ room headers ============ { select ?day ?frag (0 as ?ybot) (?hx + 250 as ?xright) where { { select distinct ?day ?room where { graph npa:graph { ?npH npa:hasValidSignatureForPublicKeyHash ?pkH ; np:hasAssertion ?ah1 ; npx:introduces ?h1 . filter not exists { ?invH npx:invalidates ?npH ; npa:hasValidSignatureForPublicKeyHash ?pkH . } filter not exists { ?npH npx:hasNanopubType npx:ExampleNanopub . } } filter not exists { graph ?sgH { ?newerH npx:supersedes ?npH . } } { values ?_resource_multi_iri {} bind(?_resource_multi_iri as ?evH) } union { values ?_resource_multi_iri {} graph ?mgH { ?_resource_multi_iri gen:isMaintainedBy ?evH } } graph ?ah1 { ?h1 a wd:Q604733 ; dct:isPartOf ?evH . } optional { graph ?ah1 { ?h1 schema:startDate ?sdAH } } optional { graph ?ah1 { ?h1 schemaold:startDate ?sdBH } } optional { graph ?ah1 { ?h1 schema:endDate ?edAH } } optional { graph ?ah1 { ?h1 schemaold:endDate ?edBH } } optional { graph ?ah1 { ?h1 schema:location ?loAH } } optional { graph ?ah1 { ?h1 schemaold:location ?loBH } } optional { graph ?ah1 { ?h1 rdfs:label ?lbH } } bind(coalesce(?sdAH, ?sdBH) as ?sdH) filter(bound(?sdH)) bind(coalesce(?edAH, ?edBH) as ?edH) bind(coalesce(str(?loAH), str(?loBH), "") as ?room) bind(substr(str(?sdH), 1, 10) as ?day) bind(xsd:integer(substr(str(?sdH), 12, 2)) * 60 + xsd:integer(substr(str(?sdH), 15, 2)) as ?sminH) bind(coalesce(xsd:integer(substr(str(?edH), 12, 2)) * 60 + xsd:integer(substr(str(?edH), 15, 2)), ?sminH + 30) as ?eminH) bind(coalesce(str(?lbH), "(untitled)") as ?tlabelH) } } { select ?room (count(distinct ?r3) - 1 as ?hcol) where { { select distinct ?room where { graph npa:graph { ?npE npa:hasValidSignatureForPublicKeyHash ?pkE ; np:hasAssertion ?ae1 ; npx:introduces ?e1 . filter not exists { ?invE npx:invalidates ?npE ; npa:hasValidSignatureForPublicKeyHash ?pkE . } filter not exists { ?npE npx:hasNanopubType npx:ExampleNanopub . } } filter not exists { graph ?sgE { ?newerE npx:supersedes ?npE . } } { values ?_resource_multi_iri {} bind(?_resource_multi_iri as ?evE) } union { values ?_resource_multi_iri {} graph ?mgE { ?_resource_multi_iri gen:isMaintainedBy ?evE } } graph ?ae1 { ?e1 a wd:Q604733 ; dct:isPartOf ?evE . } optional { graph ?ae1 { ?e1 schema:startDate ?sdAE } } optional { graph ?ae1 { ?e1 schemaold:startDate ?sdBE } } optional { graph ?ae1 { ?e1 schema:endDate ?edAE } } optional { graph ?ae1 { ?e1 schemaold:endDate ?edBE } } optional { graph ?ae1 { ?e1 schema:location ?loAE } } optional { graph ?ae1 { ?e1 schemaold:location ?loBE } } optional { graph ?ae1 { ?e1 rdfs:label ?lbE } } bind(coalesce(?sdAE, ?sdBE) as ?sdE) filter(bound(?sdE)) bind(coalesce(?edAE, ?edBE) as ?edE) bind(coalesce(str(?loAE), str(?loBE), "") as ?room) bind(substr(str(?sdE), 1, 10) as ?dayE) bind(xsd:integer(substr(str(?sdE), 12, 2)) * 60 + xsd:integer(substr(str(?sdE), 15, 2)) as ?sminE) bind(coalesce(xsd:integer(substr(str(?edE), 12, 2)) * 60 + xsd:integer(substr(str(?edE), 15, 2)), ?sminE + 30) as ?eminE) bind(coalesce(str(?lbE), "(untitled)") as ?tlabelE) } } { select distinct ?r3 where { graph npa:graph { ?npF npa:hasValidSignatureForPublicKeyHash ?pkF ; np:hasAssertion ?ae2 ; npx:introduces ?e2 . filter not exists { ?invF npx:invalidates ?npF ; npa:hasValidSignatureForPublicKeyHash ?pkF . } filter not exists { ?npF npx:hasNanopubType npx:ExampleNanopub . } } filter not exists { graph ?sgF { ?newerF npx:supersedes ?npF . } } { values ?_resource_multi_iri {} bind(?_resource_multi_iri as ?evF) } union { values ?_resource_multi_iri {} graph ?mgF { ?_resource_multi_iri gen:isMaintainedBy ?evF } } graph ?ae2 { ?e2 a wd:Q604733 ; dct:isPartOf ?evF . } optional { graph ?ae2 { ?e2 schema:startDate ?sdAF } } optional { graph ?ae2 { ?e2 schemaold:startDate ?sdBF } } optional { graph ?ae2 { ?e2 schema:endDate ?edAF } } optional { graph ?ae2 { ?e2 schemaold:endDate ?edBF } } optional { graph ?ae2 { ?e2 schema:location ?loAF } } optional { graph ?ae2 { ?e2 schemaold:location ?loBF } } optional { graph ?ae2 { ?e2 rdfs:label ?lbF } } bind(coalesce(?sdAF, ?sdBF) as ?sdF) filter(bound(?sdF)) bind(coalesce(?edAF, ?edBF) as ?edF) bind(coalesce(str(?loAF), str(?loBF), "") as ?r3) bind(substr(str(?sdF), 1, 10) as ?dayF) bind(xsd:integer(substr(str(?sdF), 12, 2)) * 60 + xsd:integer(substr(str(?sdF), 15, 2)) as ?sminF) bind(coalesce(xsd:integer(substr(str(?edF), 12, 2)) * 60 + xsd:integer(substr(str(?edF), 15, 2)), ?sminF + 30) as ?eminF) bind(coalesce(str(?lbF), "(untitled)") as ?tlabelF) } } filter(str(?r3) <= str(?room)) } group by ?room } bind(56 + ?hcol * 258 as ?hx) bind(concat( ' ', ' ', replace(replace(replace(?room, "&", "&"), "<", "<"), ">", ">"), ' ') as ?frag) } } union # ============ hour labels on the left ============ { select ?day ?frag (0 as ?ybot) (0 as ?xright) where { { select ?day (min(?smin) as ?first) (max(?emin) as ?last) where { graph npa:graph { ?npT npa:hasValidSignatureForPublicKeyHash ?pkT ; np:hasAssertion ?at1 ; npx:introduces ?t1 . filter not exists { ?invT npx:invalidates ?npT ; npa:hasValidSignatureForPublicKeyHash ?pkT . } filter not exists { ?npT npx:hasNanopubType npx:ExampleNanopub . } } filter not exists { graph ?sgT { ?newerT npx:supersedes ?npT . } } { values ?_resource_multi_iri {} bind(?_resource_multi_iri as ?evT) } union { values ?_resource_multi_iri {} graph ?mgT { ?_resource_multi_iri gen:isMaintainedBy ?evT } } graph ?at1 { ?t1 a wd:Q604733 ; dct:isPartOf ?evT . } optional { graph ?at1 { ?t1 schema:startDate ?sdAT } } optional { graph ?at1 { ?t1 schemaold:startDate ?sdBT } } optional { graph ?at1 { ?t1 schema:endDate ?edAT } } optional { graph ?at1 { ?t1 schemaold:endDate ?edBT } } optional { graph ?at1 { ?t1 schema:location ?loAT } } optional { graph ?at1 { ?t1 schemaold:location ?loBT } } optional { graph ?at1 { ?t1 rdfs:label ?lbT } } bind(coalesce(?sdAT, ?sdBT) as ?sdT) filter(bound(?sdT)) bind(coalesce(?edAT, ?edBT) as ?edT) bind(coalesce(str(?loAT), str(?loBT), "") as ?roomT) bind(substr(str(?sdT), 1, 10) as ?day) bind(xsd:integer(substr(str(?sdT), 12, 2)) * 60 + xsd:integer(substr(str(?sdT), 15, 2)) as ?smin) bind(coalesce(xsd:integer(substr(str(?edT), 12, 2)) * 60 + xsd:integer(substr(str(?edT), 15, 2)), ?smin + 30) as ?emin) bind(coalesce(str(?lbT), "(untitled)") as ?tlabelT) } group by ?day } values ?hr { 8 9 10 11 12 13 14 15 16 17 18 19 20 } filter(?hr * 60 >= ?first - 60 && ?hr * 60 <= ?last + 60) bind(36 + (?hr * 60 - ?first + 15) * 3.0 as ?hy) bind(concat( ' ', if(?hr < 10, concat("0", str(?hr)), str(?hr)), ':00 ', ' ') as ?frag) } } } group by ?day } bind(?day as ?title) bind(?maxx + 8 as ?w) bind(?maxy + 16 as ?h) } order by ?title