From 8cb32b73d8d84402b63f94b612357f144c7a69e7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 8 Mar 2019 13:27:06 +0100
Subject: Fix main.

---
 main.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'main.scm')

diff --git a/main.scm b/main.scm
index 930535bc..dd45d68b 100755
--- a/main.scm
+++ b/main.scm
@@ -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")))))
 
 
-- 
cgit v1.2.3