gui: Add a client widget

1 files changed, 4 insertions, 17 deletions

diff --git a/src/scm/webid-oidc/client/gui.scm b/src/scm/webid-oidc/client/gui.scm
index 45910e3..be557bd 100644
--- a/src/scm/webid-oidc/client/gui.scm
+++ b/src/scm/webid-oidc/client/gui.scm
@@ -36,6 +36,7 @@
   #:use-module (webid-oidc client)
   #:use-module (webid-oidc client accounts)
   #:use-module ((webid-oidc client gui settings) #:prefix settings:)
+  #:use-module ((webid-oidc client gui application) #:prefix app:)
   #:use-module (web uri)
   #:use-module (web response)
   #:use-module (rnrs bytevectors)
@@ -57,27 +58,13 @@
 
 (add-hook! settings:client-changed-hook
            (lambda (client)
-             (format #t (G_ "The client changed: it is now ~a.\n") client)))
+             (format #t (G_ "The client changed: it is now ~a.\n") client)
+             ((@ (webid-oidc client) client) 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")))
-
-(define (on-activate application)
-  (let ((window (make <GtkApplicationWindow>
-                  #:application application))
-        (button (make <GtkButton> #:label (G_ "Hello, world!"))))
-    (connect button clicked print-hello)
-    (add window button)
-    (show-all window)))
-
 (define (main)
-  (let ((app (application:new
-              "eu.planete_kraus.Disfluid"
-              (list->application-flags '(flags-none)))))
-    (connect app activate on-activate)
-    (run app (command-line))))
+  (run app:application (command-line)))