diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-21 16:17:28 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-22 22:58:30 +0100 |
| commit | d00fea566004e67161ee45246b239fff5d416b0e (patch) | |
| tree | 5641c0c0d0e78b046b6045ed2440512f12259560 /module/vcomponent/instance.scm | |
| parent | Complete rewrite of use2dot (diff) | |
| download | calp-d00fea566004e67161ee45246b239fff5d416b0e.tar.gz calp-d00fea566004e67161ee45246b239fff5d416b0e.tar.xz | |
Cleanup modules.
Primarly this moves all vcompenent input and output code to clearly
labeled modules, instead of being spread out. At the same time it also
removes a handfull of unused procedures.
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))) |