blob: a18085eb01e026827d6cc7511c87d401031d470c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(define-module (vcomponent util instance)
:use-module (hnh util)
:use-module (calp translation)
:use-module ((vcomponent util instance methods) :select (make-instance))
:export (global-event-object reload)
)
;; TODO this is loaded on compile, meaning that Guile's auto-compiler may
;; evaluate this to early.
(define-once global-event-object
(make-instance ((@ (vcomponent config) calendar-files))))
(define (reload)
(begin (set! global-event-object (make-instance ((@ (vcomponent config) calendar-files))))
(format (current-error-port) (_ "Reload done~%"))))
|
