diff options
| -rw-r--r-- | TODO | 24 | ||||
| -rw-r--r-- | module/output/html.scm | 8 | ||||
| -rw-r--r-- | static/style.css | 7 |
3 files changed, 15 insertions, 24 deletions
@@ -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; } |