diff options
Diffstat (limited to '')
| -rw-r--r-- | module/vcomponent/util/instance.scm | 4 | ||||
| -rw-r--r-- | module/vcomponent/util/instance/methods.scm | 6 |
2 files changed, 6 insertions, 4 deletions
diff --git a/module/vcomponent/util/instance.scm b/module/vcomponent/util/instance.scm index 2004f13e..a18085eb 100644 --- a/module/vcomponent/util/instance.scm +++ b/module/vcomponent/util/instance.scm @@ -2,7 +2,7 @@ :use-module (hnh util) :use-module (calp translation) :use-module ((vcomponent util instance methods) :select (make-instance)) - :export (global-event-object) + :export (global-event-object reload) ) @@ -14,6 +14,6 @@ (define-once global-event-object (make-instance ((@ (vcomponent config) calendar-files)))) -(define-public (reload) +(define (reload) (begin (set! global-event-object (make-instance ((@ (vcomponent config) calendar-files)))) (format (current-error-port) (_ "Reload done~%")))) diff --git a/module/vcomponent/util/instance/methods.scm b/module/vcomponent/util/instance/methods.scm index 7a1d2fc8..193a0304 100644 --- a/module/vcomponent/util/instance/methods.scm +++ b/module/vcomponent/util/instance/methods.scm @@ -15,7 +15,9 @@ :use-module (calp translation) - :export (add-event + :export (load-calendars + + add-event remove-event make-instance @@ -33,7 +35,7 @@ add-calendars )) -(define-public (load-calendars calendar-files) +(define (load-calendars calendar-files) (map parse-cal-path calendar-files)) |