diff options
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 |