From cc86fde3655198b5b5d89143985ae32b85c93b26 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 10 Mar 2020 22:51:42 +0100
Subject: HTML Add list of calendars.

---
 TODO                   | 24 ------------------------
 module/output/html.scm |  8 ++++++++
 static/style.css       |  7 +++++++
 3 files changed, 15 insertions(+), 24 deletions(-)

diff --git a/TODO b/TODO
index 29e48882..00f16509 100644
--- a/TODO
+++ b/TODO
@@ -36,30 +36,6 @@ Handle systems with bad `cal' programs
 
 HTML
 ====
-output lista alla kalendrar
----------------------------
-
-Motsvarande =calp info='s output
-
-	Found 17 calendars, named:
-	 - [ 526] Calendar
-	 - [  46] D3.b
-	 - [ 479] d_sektionen
-	 - [  35] Facebook
-	 - [  66] formulastudent
-	 - [  28] formulastudent_management
-	 - [   0] [NAMELESS]
-	 - [  78] lithekod
-	 - [ 144] lithekod_styrelse
-	 - [  56] STABEN
-	 - [   1] TDDB68
-	 - [   5] TDDC78
-	 - [   5] TDDE04
-	 - [  16] TDDI41_TDP031
-	 - [   7] test
-	 - [   2] TSRT04
-	 - [   1] TSTE24
-
 
 Månadsvy
 --------
diff --git a/module/output/html.scm b/module/output/html.scm
index 74ed2f97..d59574a0 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -388,8 +388,16 @@
                             ;; next button
                             ,(nav-link "»" (month+ start-date)))
 
+
                        ;; List of events
                        (div (@ (class "eventlist"))
+                            ;; List of calendars
+                            (div (@ (class "calendarlist"))
+                                 (ul ,@(map (lambda (calendar)
+                                              `(li (@ (class "CAL_bg_" ,(html-attr (attr calendar 'NAME))))
+                                                   ,(attr calendar 'NAME)))
+                                            calendars)))
+
                             ;; Events which started before our start point, but "spill" into our time span.
                             (section (@ (class "text-day"))
                                      (header (h2 "Tidigare"))
diff --git a/static/style.css b/static/style.css
index ec249956..59d94f89 100644
--- a/static/style.css
+++ b/static/style.css
@@ -36,6 +36,13 @@ body {
 	color: red;
 }
 
+.calendarlist li {
+    list-style-type: none;
+    border-left-width: 1em;
+    border-left-style: solid;
+    padding-left: 1ex;
+}
+
 .small-calendar .today {
 	border: 1px solid black;
 }
-- 
cgit v1.2.3