diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-25 13:39:52 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-25 13:39:52 +0200 |
commit | 7b9029485ddf2f7963cf5c75ff01818ca324450b (patch) | |
tree | 5d938be7acbe0ae1ba28d8d433c06a1bbb7fc516 /module/output/html.scm | |
parent | Fix loading of empty vdir. (diff) | |
download | calp-7b9029485ddf2f7963cf5c75ff01818ca324450b.tar.gz calp-7b9029485ddf2f7963cf5c75ff01818ca324450b.tar.xz |
Update HTML output, and CSS.
Updated CSS to scroll fancier, and display better.
But since I don't really know how to do stuff properly in CSS (as if
anyone does) it's a bit of a mess.
Diffstat (limited to '')
-rw-r--r-- | module/output/html.scm | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 197b0735..d68d8bab 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -106,15 +106,23 @@ (span (@ (class "dayname")) ,(date->string date "~a")) (span (@ (class "daydate")) ,(date->string date "~Y-~m-~d"))) (div (@ (class "events")) - " " + ,@(map (lambda (time) + `(div (@ (id ,(string-append "clock-" time)) + (class "clock")) " ")) + (map number->string (iota 12 0 2))) ,@(stream->list (stream-map (lambda (e) (vevent->sxml date e)) events)))))) (define (time-marker-div) - (map (lambda (time) - `(div (@ (id ,(string-append "clock-" time)) - (class "clock")) - ,(string-append time ":00"))) - (map number->string (iota 12 0 2)))) + `(div (@ (class "sideclock")) + (div (@ (class "day")) + (div (@ (class "meta")) #\space) + (div (@ (class "clockbar")) + ,@(map (lambda (time) + `(div (@ (id ,(string-append "clock-" time)) + (class "clock")) + (span (@ (class "clocktext")) + ,(string-append time ":00")))) + (map number->string (iota 12 0 2))))))) (define (include-css path) `(link (@ (type "text/css") @@ -153,6 +161,6 @@ (or (and=> (attr c 'COLOR) calculate-fg-color) "black"))) calendars)))) (body (div (@ (class "calendar")) - ,@(time-marker-div) + ,(time-marker-div) (div (@ (class "days")) ,@(stream->list (stream-map lay-out-day evs)))))))) |