From 78c9575acca2ad461f2b6cbae1bbc92e939ef6d6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 18 Aug 2020 19:58:26 +0200 Subject: SIGUSR1 to reload calendars. --- module/vcomponent/instance.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'module/vcomponent') 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) ) calendar-files: (get-config 'calendar-files))) + +(define-public (reload) + (let ((new-value (make (@@ (vcomponent instance methods) ) + calendar-files: (get-config 'calendar-files)))) + (display "Reload done\n" (current-error-port)) + (set! global-event-object new-value))) -- cgit v1.2.3