From cc86fde3655198b5b5d89143985ae32b85c93b26 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 10 Mar 2020 22:51:42 +0100 Subject: HTML Add list of calendars. --- module/output/html.scm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'module') 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")) -- cgit v1.2.3