diff options
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"))))) |