diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-10 22:51:42 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-10 22:51:42 +0100 |
| commit | cc86fde3655198b5b5d89143985ae32b85c93b26 (patch) | |
| tree | 4b227bb1d0cf86453549a9f5f6284a753de3ce8e /module/output | |
| parent | HTML tiny cal fix fragment links. (diff) | |
| download | calp-cc86fde3655198b5b5d89143985ae32b85c93b26.tar.gz calp-cc86fde3655198b5b5d89143985ae32b85c93b26.tar.xz | |
HTML Add list of calendars.
Diffstat (limited to 'module/output')
| -rw-r--r-- | module/output/html.scm | 8 |
1 files changed, 8 insertions, 0 deletions
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")) |