diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-25 19:02:48 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-25 19:02:48 +0200 |
| commit | 363cb4578f799831a3bafd1c62a36eac3e9b45e3 (patch) | |
| tree | 4fdc8c45f7302eb9d33f1e69d5caf383bb02da63 /module/output/html.scm | |
| parent | Update HTML output, and CSS. (diff) | |
| download | calp-363cb4578f799831a3bafd1c62a36eac3e9b45e3.tar.gz calp-363cb4578f799831a3bafd1c62a36eac3e9b45e3.tar.xz | |
Change CSS date markers from id to class.
Diffstat (limited to 'module/output/html.scm')
| -rw-r--r-- | module/output/html.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index d68d8bab..34363367 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -107,8 +107,8 @@ (span (@ (class "daydate")) ,(date->string date "~Y-~m-~d"))) (div (@ (class "events")) ,@(map (lambda (time) - `(div (@ (id ,(string-append "clock-" time)) - (class "clock")) " ")) + `(div (@ (class "clock " + ,(string-append "clock-" time))) " ")) (map number->string (iota 12 0 2))) ,@(stream->list (stream-map (lambda (e) (vevent->sxml date e)) events)))))) @@ -118,8 +118,8 @@ (div (@ (class "meta")) #\space) (div (@ (class "clockbar")) ,@(map (lambda (time) - `(div (@ (id ,(string-append "clock-" time)) - (class "clock")) + `(div (@ (class "clock " + ,(string-append "clock-" time))) (span (@ (class "clocktext")) ,(string-append time ":00")))) (map number->string (iota 12 0 2))))))) |