diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-27 10:59:45 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-27 13:40:09 +0200 |
commit | e150c1b232294d9352b61df22e82e2d4513b615e (patch) | |
tree | 22ab5b13caed5c5ec942fde2e13c475e19b97e9b /src/scm/webid-oidc/serve.scm | |
parent | 4d9a10165a6c7bf8df6f86f032bf7b3412e83ae6 (diff) |
Support for json-ld
Diffstat (limited to 'src/scm/webid-oidc/serve.scm')
-rw-r--r-- | src/scm/webid-oidc/serve.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/scm/webid-oidc/serve.scm b/src/scm/webid-oidc/serve.scm index 4f54495..c46ab8c 100644 --- a/src/scm/webid-oidc/serve.scm +++ b/src/scm/webid-oidc/serve.scm @@ -28,6 +28,8 @@ #:use-module (rdf rdf) #:use-module (turtle fromrdf) #:use-module (nquads fromrdf) + #:use-module (json) + #:use-module (jsonld) #:export ( convert @@ -66,6 +68,11 @@ (values request (rdf->nquads (make-rdf-dataset data-as-rdf '())))) + ((and (eq? request 'application/ld+json) data-as-rdf) + (values 'application/ld+json + (scm->json-string + (rdf->jsonld + (make-rdf-dataset data-as-rdf '()))))) ;; Add other conversion strategies here (else (try-satisfy (cdr accepts))))))) |