Start on propper vcalendar scheme library.

1 files changed, 5 insertions, 21 deletions

diff --git a/code.scm b/code.scm
index 5ad6ad6c..4de59236 100755
--- a/code.scm
+++ b/code.scm
@@ -2,30 +2,14 @@
 -s
 !#
 
-(begin
-  ;; Supurflous begin block here to make sourcing into geiser easier.
-  (setenv "LD_LIBRARY_PATH" (getcwd))
-  (load-extension "libguile-calendar" "init_lib"))
-
-(define make-vcomponent %vcomponent-make)
-(define children %vcomponent-children)
-(define set-attr! %vcomponent-set-attribute!)
-(define get-attr %vcomponent-get-attribute)
-
-(define root (make-vcomponent "testcal/d1-b.ics"))
-(define cal (car (children root)))
-
-;; TODO flatten all calendars into root
-
+(add-to-load-path (dirname (current-filename)))
 (use-modules (srfi srfi-19)
-             (srfi srfi-26))
+             (srfi srfi-26)
+             (vcalendar))
 
-(define (mutate-attr! ev field transformer)
-  (set-attr! ev field
-             (transformer
-              (get-attr ev field))))
+(define cal (make-vcomponent "testcal/d1-b.ics"))
 
-(for-each (cut mutate-attr! <> "DTSTART"
+(for-each (cut transform-attr! <> "DTSTART"
                (cut string->date <> "~Y~m~dT~H~M~S"))
           (children cal))