diff options
Diffstat (limited to 'src/scm/webid-oidc/server/read.scm')
| -rw-r--r-- | src/scm/webid-oidc/server/read.scm | 86 |
1 files changed, 49 insertions, 37 deletions
diff --git a/src/scm/webid-oidc/server/read.scm b/src/scm/webid-oidc/server/read.scm index 73d32e3..f5a493b 100644 --- a/src/scm/webid-oidc/server/read.scm +++ b/src/scm/webid-oidc/server/read.scm @@ -112,51 +112,63 @@ ;; Headers (let ((links (let ((type - `(,(string->uri - (string-append "http://www.w3.org/ns/ldp#" - (if container? - "BasicContainer" - "Resource"))) - (rel . "type"))) + (make <link> + #:target-iri + (string-append "http://www.w3.org/ns/ldp#" + (if container? + "BasicContainer" + "Resource")) + #:relation-type "type")) (acl (and needs-acl? - `(,(build-uri - 'https - #:userinfo (uri-userinfo server-name) - #:host (uri-host server-name) - #:port (uri-port server-name) - #:path (derive-path - base-path - (string->uri - "http://www.w3.org/ns/auth/acl#accessControl"))) - (rel . "acl")))) + (make <link> + #:target-iri + (build-uri + 'https + #:userinfo (uri-userinfo server-name) + #:host (uri-host server-name) + #:port (uri-port server-name) + #:path (derive-path + base-path + (string->uri + "http://www.w3.org/ns/auth/acl#accessControl"))) + #:relation-type "acl"))) (describedby (and needs-meta? - `(,(build-uri - 'https - #:userinfo (uri-userinfo server-name) - #:host (uri-host server-name) - #:port (uri-port server-name) - #:path (derive-path - base-path - (string->uri - "https://www.w3.org/ns/iana/link-relations/relation#describedby"))) - (rel . "describedby")))) + (make <link> + #:target-iri + (build-uri + 'https + #:userinfo (uri-userinfo server-name) + #:host (uri-host server-name) + #:port (uri-port server-name) + #:path (derive-path + base-path + (string->uri + "https://www.w3.org/ns/iana/link-relations/relation#describedby"))) + #:relation-type "describedby"))) (describes (and needs-meta? - `(,(build-uri - 'https - #:userinfo (uri-userinfo server-name) - #:host (uri-host server-name) - #:port (uri-port server-name) - #:path base-path) - (rel . "https://www.w3.org/ns/iana/link-relations/relation#describes")))) + (make <link> + #:target-iri + (build-uri + 'https + #:userinfo (uri-userinfo server-name) + #:host (uri-host server-name) + #:port (uri-port server-name) + #:path base-path) + #:relation-type + "https://www.w3.org/ns/iana/link-relations/relation#describes"))) (storage (and root? - `((,(string->uri "http://www.w3.org/ns/pim/space#Storage") - (rel . "type")) - (,owner - (rel . "http://www.w3.org/ns/solid/terms#owner")))))) + (list + (make <link> + #:target-iri + "http://www.w3.org/ns/pim/space#Storage" + #:relation-type "type") + (make <link> + #:target-iri owner + #:relation-type "http://www.w3.org/ns/solid/terms#owner"))))) (append (list type) (if acl (list acl) '()) |