diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-04 16:06:47 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-04 23:22:15 +0200 |
commit | dd18ea62055a95733db6c7bc507e01783e526858 (patch) | |
tree | b97c9f2a7162293783647642cdc414e4c89052b2 /src/scm/webid-oidc/client/gui/accounts-widget.scm | |
parent | 99e06ec6d2e38abd28e2a3110676108de5700406 (diff) |
gui: add an account when the account adding button is clicked
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)))) |