diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-20 01:43:45 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-20 01:43:45 +0100 |
commit | 0b31d60e9aab818081534775bb90a0108d327d86 (patch) | |
tree | 0bfd7045539c9fdd7d2907d0cea9780979e1a212 /module | |
parent | Re-merge create-block{,-general}. (diff) | |
download | calp-0b31d60e9aab818081534775bb90a0108d327d86.tar.gz calp-0b31d60e9aab818081534775bb90a0108d327d86.tar.xz |
Fix HTML wide alignment.
Diffstat (limited to 'module')
-rw-r--r-- | module/output/html.scm | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 4079d3ce..d3edf08f 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -248,23 +248,22 @@ event-groups)) (define (time-marker-div) - `(div (@ (class "sideclock")) - (div (@ (class "day")) - (div (@ (class "meta")) "") - (div (@ (class "wholeday")) "") - (div (@ (class "events clockbar")) - ,@(map (lambda (time) - `(div (@ (class "clock clock-" ,time)) - (span (@ (class "clocktext")) - ,time ":00"))) - (iota 12 0 2)))))) + ;; element to make rest of grid align correct. + ;; Could be extended to contain something fun. + `((div (@ (style "grid-row: 1 / span 2")) "") + (div (@ (class "events sideclock")) + ,@(map (lambda (time) + `(div (@ (class "clock clock-" ,time)) + (span (@ (class "clocktext")) + ,time ":00"))) + (iota 12 0 2))))) (define-public (render-calendar event-groups) `(div (@ (class "calendar")) - ;; ,(time-marker-div) (div (@ (class "days")) + ,@(time-marker-div) (div (@ (class "longevents") - (style "grid-column-end:" ,(1+ (stream-length event-groups)))) + (style "grid-column-end: span " ,(stream-length event-groups))) "" ; prevent self-closing ,@(stream->list (lay-out-long-events event-groups))) ,@(concatenate (stream->list (stream-map lay-out-day event-groups)))))) |