From 9049ccfed337251a9afebbe5c6db06ffa3fa6afb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 19 Mar 2020 02:33:52 +0100 Subject: HTML fix big table week day start. --- module/output/html.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module/output/html.scm') diff --git a/module/output/html.scm b/module/output/html.scm index ed2baa44..4fbe0a4d 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -290,8 +290,8 @@ ;; (stream event-group) -> sxml (define (render-calendar-table event-groups) `(table (@ (border 1)) - (thead (tr ,@(map (lambda (d) `(th ,d)) - '(Måndag Tisdag Onsdag Torsdag Fredag Lördag Söndag)))) + (thead (tr ,@(map (lambda (d) `(th ,(week-day-name d))) + (weekday-list (week-start))))) (tbody ,@(tablify (stream->list (stream-map (match-lambda -- cgit v1.2.3