blob: 2128b30304ec97358275fdfb61fb1b300ac4de3b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(define-module (vcomponent instance)
:use-module (util)
:use-module ((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)))
|