diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-19 14:16:12 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-19 14:16:12 +0100 |
commit | 8bb51556b8870fd894f12085171165ac82794eee (patch) | |
tree | 2a9e239894101aa153337172443eb4bf87aef114 /module/output | |
parent | HTML fix big table week day start. (diff) | |
download | calp-8bb51556b8870fd894f12085171165ac82794eee.tar.gz calp-8bb51556b8870fd894f12085171165ac82794eee.tar.xz |
Change calendar table to be css grid.
Diffstat (limited to '')
-rw-r--r-- | module/output/html.scm | 20 |
1 files changed, 10 insertions, 10 deletions
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 |