diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-08 13:14:34 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-08 13:14:34 +0100 |
commit | e7c471cb50bf92debc6e28ef5e45d0c5e4b3da3c (patch) | |
tree | c6f59fc9464d5c9ea704c1c05a6b6f57be13bd2f /test.scm | |
parent | Got DAILY repeating event! (diff) | |
download | calp-e7c471cb50bf92debc6e28ef5e45d0c5e4b3da3c.tar.gz calp-e7c471cb50bf92debc6e28ef5e45d0c5e4b3da3c.tar.xz |
Made DTSTART have <time> instead of <date> type.
Diffstat (limited to '')
-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) |