diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-26 10:43:17 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-26 10:43:17 +0200 |
| commit | d0d5dd92a4065dc03626e27e78f5469bb25aeebe (patch) | |
| tree | fee6e95baa1220cd0fcbff17ce0010969ae630f7 /module/output/html.scm | |
| parent | Remove weird file helper. (diff) | |
| download | calp-d0d5dd92a4065dc03626e27e78f5469bb25aeebe.tar.gz calp-d0d5dd92a4065dc03626e27e78f5469bb25aeebe.tar.xz | |
Made HTML day headers better.
Diffstat (limited to 'module/output/html.scm')
| -rw-r--r-- | module/output/html.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 851f9b54..f72122bb 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -84,8 +84,9 @@ (fix-event-widths! (date->time-utc date) (stream->list events)) `(div (@ (class "day")) (div (@ (class "meta")) - (span (@ (class "dayname")) ,(date->string date "~a")) - (span (@ (class "daydate")) ,(date->string date "~Y-~m-~d"))) + ,(let ((str (date->string date "~Y-~m-~d"))) + `(span (@ (id ,str) (class "daydate")) ,str)) + (span (@ (class "dayname")) ,(date->string date "~a"))) (div (@ (class "events")) ,@(map (lambda (time) `(div (@ (class "clock " |