diff options
Diffstat (limited to 'module/vcomponent/instance.scm')
-rw-r--r-- | module/vcomponent/instance.scm | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/module/vcomponent/instance.scm b/module/vcomponent/instance.scm deleted file mode 100644 index 206d7f19..00000000 --- a/module/vcomponent/instance.scm +++ /dev/null @@ -1,22 +0,0 @@ -(define-module (vcomponent instance) - :use-module (calp util) - :use-module ((calp util config) :select (get-config)) - :use-module ((oop goops) :select (make)) - :export (global-event-object) -) - - - - - -;; TODO this is loaded on compile, meaning that Guile's auto-compiler may -;; evaluate this to early. -(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))) |