diff options
Diffstat (limited to 'module/output/html.scm')
| -rw-r--r-- | module/output/html.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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 |