diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-19 02:33:52 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-19 02:33:54 +0100 |
| commit | 9049ccfed337251a9afebbe5c6db06ffa3fa6afb (patch) | |
| tree | 72802d710107550714e46f026c8c493936d7ce02 /module/output | |
| parent | Rewamp HTML-main to allow for more styles. (diff) | |
| download | calp-9049ccfed337251a9afebbe5c6db06ffa3fa6afb.tar.gz calp-9049ccfed337251a9afebbe5c6db06ffa3fa6afb.tar.xz | |
HTML fix big table week day start.
Diffstat (limited to 'module/output')
| -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 |