From 6a27bd5e2fa51fd9507ab28b33d8738aaffa028d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 23 May 2020 00:06:09 +0200
Subject: Minor cleanup.

---
 module/output/html.scm     | 4 ----
 module/output/ical.scm     | 3 ++-
 module/output/terminal.scm | 1 -
 3 files changed, 2 insertions(+), 6 deletions(-)

(limited to 'module')

diff --git a/module/output/html.scm b/module/output/html.scm
index b011da15..a80b26e9 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -241,9 +241,6 @@
    ev `((class
           ,(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))))
@@ -531,7 +528,6 @@
               ;; We are before our time interval
               [(date< date start-date)
                ;; TODO find a prettier way to generate links to previous and next time intervals
-               ;; TODO also, it would do good with a bit of testing for off-by-one errors
                `((class "prev")
                  (href ,(date->string
                          (stream-find (lambda (d) (date<= d date (next-start d)))
diff --git a/module/output/ical.scm b/module/output/ical.scm
index 2edde8c1..d3f26d02 100644
--- a/module/output/ical.scm
+++ b/module/output/ical.scm
@@ -207,7 +207,8 @@ CALSCALE:GREGORIAN\r
 
   (let ((tz-names (get-tz-names events)))
     (for-each component->ical-string
-              ;; TODO we realy should send the earliest event from each timezone here.
+              ;; TODO we realy should send the earliest event from each timezone here,
+              ;; instead of just the first.
               (map (lambda (name) (zoneinfo->vtimezone (getf 'zoneinfo) name (car events)))
                    tz-names)))
 
diff --git a/module/output/terminal.scm b/module/output/terminal.scm
index bb0377ea..691dcde8 100644
--- a/module/output/terminal.scm
+++ b/module/output/terminal.scm
@@ -19,7 +19,6 @@
   #:use-module (vcomponent datetime)
 
   #:use-module (ice-9 format)
-  ;; #:use-module (parameters)
 
   #:export (main-loop))
 
-- 
cgit v1.2.3