gui: listen for settings changes

1 files changed, 12 insertions, 2 deletions

diff --git a/src/scm/webid-oidc/client/gui.scm b/src/scm/webid-oidc/client/gui.scm
index c446fc7..45910e3 100644
--- a/src/scm/webid-oidc/client/gui.scm
+++ b/src/scm/webid-oidc/client/gui.scm
@@ -33,8 +33,9 @@
   #:use-module ((webid-oidc oidc-id-token) #:prefix id:)
   #:use-module ((webid-oidc jwk) #:prefix jwk:)
   #:use-module ((webid-oidc dpop-proof) #:prefix dpop:)
-  #:use-module ((webid-oidc client client) #:prefix client:)
-  #:use-module ((webid-oidc client gui settings) #:prefix settings)
+  #:use-module (webid-oidc client)
+  #:use-module (webid-oidc client accounts)
+  #:use-module ((webid-oidc client gui settings) #:prefix settings:)
   #:use-module (web uri)
   #:use-module (web response)
   #:use-module (rnrs bytevectors)
@@ -54,6 +55,15 @@
 (use-typelibs (("Gio" "2.0") #:renamer (protect 'application:new))
               ("Gtk" "3.0"))
 
+(add-hook! settings:client-changed-hook
+           (lambda (client)
+             (format #t (G_ "The client changed: it is now ~a.\n") client)))
+
+(add-hook! settings:accounts-changed-hook
+           (lambda (main other)
+             (format #t (G_ "The accounts changed: the main account is ~a, and the others are ~a.\n")
+                     main other)))
+
 (define (print-hello button)
   (format #t (G_ "Hello, world!\n")))