diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-05 11:25:18 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-07 12:34:19 +0200 |
commit | 381a7d0399434aa277aa86a30e742ee215f2576a (patch) | |
tree | 561589e60e93420aa831eb180c378f0e0ec4170b /src/scm/webid-oidc/client/gui/accounts-widget-logic.scm | |
parent | dd18ea62055a95733db6c7bc507e01783e526858 (diff) |
gui: use the application API
Diffstat (limited to 'src/scm/webid-oidc/client/gui/accounts-widget-logic.scm')
-rw-r--r-- | src/scm/webid-oidc/client/gui/accounts-widget-logic.scm | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/src/scm/webid-oidc/client/gui/accounts-widget-logic.scm b/src/scm/webid-oidc/client/gui/accounts-widget-logic.scm index 2ea9024..8121b10 100644 --- a/src/scm/webid-oidc/client/gui/accounts-widget-logic.scm +++ b/src/scm/webid-oidc/client/gui/accounts-widget-logic.scm @@ -33,6 +33,7 @@ #:use-module (webid-oidc offloading) #:use-module (webid-oidc client client) #:use-module (webid-oidc client accounts) + #:use-module (webid-oidc client application) #:use-module (webid-oidc client gui account-widget) #:use-module ((webid-oidc client gui settings) #:prefix settings:) #:use-module ((webid-oidc client gui clock) #:prefix clock:) @@ -59,17 +60,7 @@ ((or (? string? (= string->uri (? uri? uri))) (? string? (= as-host-name (? uri? uri)))) (clear-issuer-entry!) - (use-authorizations-widget - (lambda () - (let ((new-account - (make <account> - #:issuer uri))) - (clock:wait - (lambda () - (let ((old (settings:main-account)) - (other (settings:other-accounts))) - (if old - (settings:other-accounts `(,new-account ,@other)) - (settings:main-account new-account))))))))) + (settings:application-state + (add-account (settings:application-state) uri))) (else (format (current-error-port) (G_ "Stub: please enter an URI or a host name...\n"))))) |