diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-23 12:21:03 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-01 12:32:20 +0200 |
commit | 98de254d3c77feadad464f77f51f9cad5993a9f8 (patch) | |
tree | 95d959724e449588e1707075263b9d25719f10d2 /src/scm/webid-oidc/oidc-configuration.scm | |
parent | ca67854900dbf0f7200e75c73f32900a8fe0b63e (diff) |
Define an XML-loadable meta-class
Diffstat (limited to 'src/scm/webid-oidc/oidc-configuration.scm')
-rw-r--r-- | src/scm/webid-oidc/oidc-configuration.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/scm/webid-oidc/oidc-configuration.scm b/src/scm/webid-oidc/oidc-configuration.scm index d0d1e20..094bf8a 100644 --- a/src/scm/webid-oidc/oidc-configuration.scm +++ b/src/scm/webid-oidc/oidc-configuration.scm @@ -18,6 +18,7 @@ #:use-module (webid-oidc jwk) #:use-module (webid-oidc errors) #:use-module (webid-oidc web-i18n) + #:use-module (webid-oidc serializable) #:use-module ((webid-oidc stubs) #:prefix stubs:) #:use-module ((webid-oidc parameters) #:prefix p:) #:use-module (web uri) @@ -53,9 +54,11 @@ invalid-oidc-configuration?) (define-class <oidc-configuration> () - (jwks-uri #:init-keyword #:jwks-uri #:accessor jwks-uri) - (authorization-endpoint #:init-keyword #:authorization-endpoint #:accessor authorization-endpoint) - (token-endpoint #:init-keyword #:token-endpoint #:accessor token-endpoint)) + (jwks-uri #:init-keyword #:jwks-uri #:accessor jwks-uri #:->jwks uri->string) + (authorization-endpoint #:init-keyword #:authorization-endpoint #:accessor authorization-endpoint #:->jwks uri->string) + (token-endpoint #:init-keyword #:token-endpoint #:accessor token-endpoint #:->jwks uri->string) + #:metaclass <plugin-class> + #:module-name '(webid-oidc oidc-configuration)) (define-method (initialize (cfg <oidc-configuration>) initargs) (next-method) |