From fdbaeccd09afa0db9f7122c3b42c360d15d13b69 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 17 Feb 2020 11:11:04 +0100
Subject: Add some TODO's.

---
 TODO.org               | 2 ++
 module/output/html.scm | 4 +++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/TODO.org b/TODO.org
index 5ea592de..fa59af52 100644
--- a/TODO.org
+++ b/TODO.org
@@ -8,6 +8,8 @@ date := <year, month, date ?tz>
 time := <hour, minute, second>
 datetime := <date, time>
 
+Event 17:30 - 00:00 klassas som "långt" event
+
 * Att göra
 ** Tester
 *** Object utan DTEND
diff --git a/module/output/html.scm b/module/output/html.scm
index 39172318..fe877ca0 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -243,7 +243,9 @@
                            (class "hidelink")) ,d))))))
 
     `(table (@ (class "small-calendar"))
-            (thead (tr ,@(map (lambda (d) `(td ,d)) '(MÅ TI ON TO FR LÖ SÖ))))
+            ;; NOTE Sunday first since my code assumes that is the first day of the week.
+            ;; TODO make displayed first day of the week configurable.
+            (thead (tr ,@(map (lambda (d) `(td ,d)) '(SÖ MÅ TI ON TO FR LÖ))))
             (tbody ,@(let recur
                          ((lst (let* ((month (month date))
                                       (month-len (days-in-month date))
-- 
cgit v1.2.3