diff options
Diffstat (limited to 'src/scm/webid-oidc/client/gui/accounts-widget.scm')
-rw-r--r-- | src/scm/webid-oidc/client/gui/accounts-widget.scm | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/src/scm/webid-oidc/client/gui/accounts-widget.scm b/src/scm/webid-oidc/client/gui/accounts-widget.scm index 3064e9a..b9e5403 100644 --- a/src/scm/webid-oidc/client/gui/accounts-widget.scm +++ b/src/scm/webid-oidc/client/gui/accounts-widget.scm @@ -36,6 +36,8 @@ #:use-module (webid-oidc client gui account-widget) #:use-module ((webid-oidc client gui settings) #:prefix settings:) #:use-module (webid-oidc client gui application-hooks) + #:use-module (webid-oidc client gui authorizations-widget) + #:use-module (webid-oidc client gui accounts-widget-logic) #:use-module (webid-oidc jwk) #:use-module (webid-oidc oidc-id-token) #:use-module (web uri) @@ -126,20 +128,16 @@ other) ((@ (gi) connect) add-account-button clicked (lambda _ - (define (as-host-name host) - (false-if-exception - (build-uri 'https #:host host))) - (match (entry:get-text identity-provider-entry) - ((or (? string? (= string->uri (? uri? uri))) - (? string? (= as-host-name (? uri? uri)))) - ((@ (ice-9 format) format) (current-error-port) (G_ "Stub: adding an account with identity provider ~s...\n") - (uri->string uri)) - (entry:set-text identity-provider-entry "")) - (else - ((@ (ice-9 format) format) (current-error-port) (G_ "Stub: please enter an URI or a host name...\n")))))) + ((@ (webid-oidc client gui accounts-widget-logic) add-account-button-clicked) + (entry:get-text identity-provider-entry) + (lambda () + (entry:set-text identity-provider-entry ""))))) ((@ (gi) connect) identity-provider-entry activate (lambda _ - (button:clicked add-account-button)))) + ((@ (webid-oidc client gui accounts-widget-logic) add-account-button-clicked) + (entry:get-text identity-provider-entry) + (lambda () + (entry:set-text identity-provider-entry "")))))) (set-accounts (settings:main-account) (settings:other-accounts)) (add-hook! settings:accounts-changed-hook set-accounts)))) |