diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-05 11:25:18 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-07 12:34:19 +0200 |
| commit | 381a7d0399434aa277aa86a30e742ee215f2576a (patch) | |
| tree | 561589e60e93420aa831eb180c378f0e0ec4170b /src/scm/webid-oidc/client/gui/clock.scm | |
| parent | dd18ea62055a95733db6c7bc507e01783e526858 (diff) | |
gui: use the application API
Diffstat (limited to 'src/scm/webid-oidc/client/gui/clock.scm')
| -rw-r--r-- | src/scm/webid-oidc/client/gui/clock.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/scm/webid-oidc/client/gui/clock.scm b/src/scm/webid-oidc/client/gui/clock.scm index efb7ce8..87d6b48 100644 --- a/src/scm/webid-oidc/client/gui/clock.scm +++ b/src/scm/webid-oidc/client/gui/clock.scm @@ -20,7 +20,10 @@ #:use-module (gi util) #:use-module (ice-9 atomic) #:use-module (webid-oidc client gui application-hooks) + #:use-module (webid-oidc client application) + #:use-module ((webid-oidc client gui settings) #:prefix settings:) #:declarative? #t + #:duplicates (merge-generics) #:export (wait)) (use-typelibs ("GLib" "2.0")) @@ -37,6 +40,8 @@ (if (eq? old (atomic-box-compare-and-swap! pending-ops old '())) (begin (for-each (lambda (f) (f)) (reverse old)) + (settings:application-state + (join (settings:application-state))) #t) (run)))) |