From 0b31d60e9aab818081534775bb90a0108d327d86 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 20 Mar 2020 01:43:45 +0100 Subject: Fix HTML wide alignment. --- module/output/html.scm | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) (limited to 'module') 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)))))) -- cgit v1.2.3