diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-01 14:51:28 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-01 18:08:56 +0200 |
commit | bae1843f1a1d644fb3bd4f8c40b1dbb900aa3325 (patch) | |
tree | 00f590033af904a6a493e41bdebe9b3ddd73043b /src/scm/webid-oidc/stubs.scm | |
parent | d8c2ca930673da858d63f2dea9526c259a2dd936 (diff) |
Use guile parameters
With parameters, the API does not need to care about the directory
where to load files and how to get the time.
Diffstat (limited to 'src/scm/webid-oidc/stubs.scm')
-rw-r--r-- | src/scm/webid-oidc/stubs.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/stubs.scm b/src/scm/webid-oidc/stubs.scm index 0c6f0bc..08d15aa 100644 --- a/src/scm/webid-oidc/stubs.scm +++ b/src/scm/webid-oidc/stubs.scm @@ -17,6 +17,7 @@ (define-module (webid-oidc stubs) #:use-module (webid-oidc config) #:use-module (webid-oidc errors) + #:use-module (webid-oidc parameters) #:use-module (json)) (load-extension @@ -71,11 +72,16 @@ (lambda error (raise-unsupported-alg (cadr error))))) +(define (fix-random-init!) + (setenv "XDG_CACHE_HOME" (cache-home)) + (setenv "DISFLUID_APPLICATION_NAME" ".") + (random-init!)) + (export base64-encode (fix-base64-decode . base64-decode) random - random-init! + (fix-random-init! . random-init!) (fix-generate-key . generate-key) (fix-kty . kty) strip-key |