diff options
Diffstat (limited to 'test.scm')
-rwxr-xr-x | test.scm | 15 |
1 files changed, 7 insertions, 8 deletions
@@ -6,11 +6,11 @@ (use-modules (rnrs base) ; assert (srfi srfi-1) (srfi srfi-19) + (srfi srfi-19 util) (srfi srfi-41) (code) (vcalendar) - (vcalendar recur) - (vcalendar datetime)) + (vcalendar recur)) (define cal (make-vcomponent "testcal/repeating-event.ics")) @@ -22,16 +22,15 @@ (assert (equal? (children ev) (children ev-copy))) -(transform-attr! ev "DTSTART" parse-datetime) - - (stream-for-each (lambda (ev) - (display (date->string (attr ev "DTSTART") "~1 ~3")) (newline)) + (format #t "~a -- ~a~%" + (time->string (attr ev "DTSTART") "~1 ~3") + (time->string (attr ev "DTEND") "~1 ~3"))) (stream-take 10 (recur-event ev))) (define stream-cadr (compose stream-car stream-cdr)) (newline) -(display (date->string (attr ev "DTSTART") "~1 ~3")) (newline) -(display (date->string (attr (stream-cadr (recur-event ev)) "DTSTART") "~1 ~3")) (newline) +(display (time->string (attr ev "DTSTART") "~1 ~3")) (newline) +(display (time->string (attr (stream-cadr (recur-event ev)) "DTSTART") "~1 ~3")) (newline) |