diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-08 13:27:06 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-08 13:27:06 +0100 |
| commit | 8cb32b73d8d84402b63f94b612357f144c7a69e7 (patch) | |
| tree | fb6c7756c8359e397214058354624d332407aa32 /main.scm | |
| parent | Made DTSTART have <time> instead of <date> type. (diff) | |
| download | calp-8cb32b73d8d84402b63f94b612357f144c7a69e7.tar.gz calp-8cb32b73d8d84402b63f94b612357f144c7a69e7.tar.xz | |
Fix main.
Diffstat (limited to 'main.scm')
| -rwxr-xr-x | main.scm | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -27,7 +27,7 @@ (define (main args) (define path (if (null? (cdr (command-line))) - "testcal/d1-b.ics" + "testcal/repeating-event.ics" (cadr (command-line)))) (define cal (make-vcomponent path)) @@ -38,8 +38,8 @@ time<? (extract "DTSTART")) (lambda (ev) (format #t "~a | ~a~%" (let ((start (get-attr ev "DTSTART"))) - (color-if (date-today? start) STR-YELLOW - (date->string (time-utc->date start) "~1 ~H:~M"))) + (color-if (today? start) STR-YELLOW + (time->string start "~1 ~H:~M"))) (get-attr ev "SUMMARY"))))) |