From bae1843f1a1d644fb3bd4f8c40b1dbb900aa3325 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Sun, 1 Aug 2021 14:51:28 +0200 Subject: 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. --- src/scm/webid-oidc/stubs.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/scm/webid-oidc/stubs.scm') 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 -- cgit v1.2.3