blob: a53cd3b3e4a9554adc20a5c93f46f388341c86b2 (
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)
)
;; 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)))
|
