From 30de9b8bf04430ba69c3cbd50a3dada265c2c902 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sun, 16 Feb 2020 17:21:35 +0100
Subject: Minor cleanup.

---
 module/entry-points/html.scm | 2 --
 module/output/html.scm       | 8 ++++----
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/module/entry-points/html.scm b/module/entry-points/html.scm
index a5cd7303..eaf6cd62 100644
--- a/module/entry-points/html.scm
+++ b/module/entry-points/html.scm
@@ -32,8 +32,6 @@
      calendar-files: (cond [(option-ref opts 'file #f) => list]
                            [else (calendar-files)]) ))
 
-  ((@ (srfi srfi-41) stream->list) events)
-
   (if (option-ref opts 'chunked #f)
       (html-chunked-main count calendars events start)
       (html-generate calendars events start end)))
diff --git a/module/output/html.scm b/module/output/html.scm
index ba09c0ed..39172318 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -83,10 +83,7 @@
             (if (date= date (as-date (attr ev 'DTSTART)))
                 (* 100/24
                    (time->decimal-hour
-                    (as-time (attr ev 'DTSTART))
-                    #;
-                    (time- (as-time (attr ev 'DTSTART))
-                           (start-of-day* (attr ev 'DTSTART)))))
+                    (as-time (attr ev 'DTSTART))))
                 0)
 
             ;; height
@@ -97,6 +94,9 @@
       (div (@ (class "event CAL_" ,(html-attr (attr (parent ev) 'NAME))
                 ,(when (date<? (as-date (attr ev 'DTSTART)) date)
                    " continued")
+                ;; TODO all day events usually have the day after as DTEND.
+                ;; So a whole day event the 6 june would have a DTEND of the
+                ;; 7 june.
                 ,(when (date<? date (as-date (attr ev 'DTEND)))
                    " continuing"))
               (style ,style))
-- 
cgit v1.2.3