diff options
Diffstat (limited to 'module')
-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 " |