1 files changed, 18 insertions, 17 deletions
diff --git a/code.scm b/code.scm
index 2c598c46..01832a05 100755
--- a/code.scm
+++ b/code.scm
@@ -11,23 +11,24 @@
 (begin
   ;; Supurflous begin block here to make sourcing into geiser easier.
   (setenv "LD_LIBRARY_PATH" (getcwd))
-  (load-extension "libguile-calendar" "init_calendar"))
-
-(define (get-properties calendar)
-  "Fancy wrappen around primitive-get-properties.
-Transforms character codes into actuall chcaracters."
-  (define (recur tree)
-    (let ((head (car tree)))
-      (cons (cons (integer->char (car head))
-                  (cdr head))
-            (map recur (cdr tree)))))
-  (let ((result (recur (primitive-get-properties calendar))))
-    (cons 'ROOT (cdr result))))
-
-(let* ((v (make-calendar "test-cal/alarm"))
-       (props (get-properties (cadr (get-components (car (get-components v)))))))
-  (pretty-print (beautify (flatten props)))
-  (newline))
+  (load-extension "libguile-calendar" "init_vcomponent"))
+
+(begin
+  (define root (make-vcomponent "test.ics"))
+  (define cal (car (vcomponent-children root)))
+  (define events (vcomponent-children cal)))
+
+(define (pp-list strs)
+  (for-each (lambda (i str)
+              (format #t "~3d | ~a~%"
+                      (1+ i)
+                      str))
+            (iota (length strs))
+            strs))
+
+(pp-list
+ (map (lambda (c) (car (vcomponent-get-attribute c "summary")))
+      events))
 
 #;
 (do ((i 0 (1+ i)))