diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-18 19:58:26 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-18 19:59:21 +0200 |
| commit | 78c9575acca2ad461f2b6cbae1bbc92e939ef6d6 (patch) | |
| tree | 22d559fc39b9771d9d4bd2a1209544ad1f22c836 /module/vcomponent | |
| parent | CPP, rename 'atom?' to 'immediate?'. (diff) | |
| download | calp-78c9575acca2ad461f2b6cbae1bbc92e939ef6d6.tar.gz calp-78c9575acca2ad461f2b6cbae1bbc92e939ef6d6.tar.xz | |
SIGUSR1 to reload calendars.
Diffstat (limited to 'module/vcomponent')
| -rw-r--r-- | module/vcomponent/instance.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/module/vcomponent/instance.scm b/module/vcomponent/instance.scm index 2128b303..88858709 100644 --- a/module/vcomponent/instance.scm +++ b/module/vcomponent/instance.scm @@ -14,3 +14,9 @@ (define-once global-event-object (make (@@ (vcomponent instance methods) <events>) calendar-files: (get-config 'calendar-files))) + +(define-public (reload) + (let ((new-value (make (@@ (vcomponent instance methods) <events>) + calendar-files: (get-config 'calendar-files)))) + (display "Reload done\n" (current-error-port)) + (set! global-event-object new-value))) |