From d00fea566004e67161ee45246b239fff5d416b0e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 21 Dec 2021 16:17:28 +0100 Subject: 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. --- module/vcomponent/instance.scm | 22 ---------------------- 1 file changed, 22 deletions(-) delete mode 100644 module/vcomponent/instance.scm (limited to 'module/vcomponent/instance.scm') 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) ) - calendar-files: (get-config 'calendar-files))) - -(define-public (reload) - (let ((new-value (make (@@ (vcomponent instance methods) ) - calendar-files: (get-config 'calendar-files)))) - (display "Reload done\n" (current-error-port)) - (set! global-event-object new-value))) -- cgit v1.2.3