From 8bb51556b8870fd894f12085171165ac82794eee Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 19 Mar 2020 14:16:12 +0100 Subject: Change calendar table to be css grid. --- module/output/html.scm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'module/output') diff --git a/module/output/html.scm b/module/output/html.scm index 4fbe0a4d..5380d354 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -289,16 +289,16 @@ ;; each day. It should show all the actual events. ;; (stream event-group) -> sxml (define (render-calendar-table event-groups) - `(table (@ (border 1)) - (thead (tr ,@(map (lambda (d) `(th ,(week-day-name d))) - (weekday-list (week-start))))) - (tbody - ,@(tablify (stream->list (stream-map - (match-lambda - [(day-date . events) - `(td ,(stream-length events))]) - event-groups)) - 7)))) + `(div (@ (class "caltable")) + ,@(map (lambda (d) `(div (@ (class "thead")) ,(week-day-name d))) + (weekday-list (week-start))) + ,@(stream->list + (stream-map + (match-lambda + [(day-date . events) + `(div (@ (class "tbody")) + ,(stream-length events))]) + event-groups)))) ;;; NOTE -- cgit v1.2.3