From d0d5dd92a4065dc03626e27e78f5469bb25aeebe Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 26 Apr 2019 10:43:17 +0200 Subject: Made HTML day headers better. --- module/output/html.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'module') 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 " -- cgit v1.2.3