diff options
Diffstat (limited to '')
-rwxr-xr-x | code.scm | 35 |
1 files changed, 18 insertions, 17 deletions
@@ -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))) |