From 3a77e5fd21e6bc0f9062fbfd734d5dcc5fda8f1e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 5 Apr 2020 23:04:41 +0200 Subject: Fix JS for current time. --- module/output/html.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'module') diff --git a/module/output/html.scm b/module/output/html.scm index 80a5798b..64621e54 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -222,7 +222,7 @@ (fix-event-widths! short-events event-length-key: (lambda (e) (event-length/day day-date e))) - `(div (@ (class "events")) + `(div (@ (class "events") (id ,(date-link day-date))) ,@(map (lambda (time) `(div (@ (class "clock clock-" ,time)) "")) (iota 12 0 2)) @@ -286,8 +286,7 @@ ,@(lay-out-long-events start-date end-date long-events)) ,@(map (lambda (day-date) `(div (@ (class "meta")) - ,(let ((str (date-link day-date))) - `(span (@ (id ,str) (class "daydate")) ,str)) + (span (@ (class "daydate")) ,(date->string day-date "~Y-~m-~d")) (span (@ (class "dayname")) ,(string-titlecase (date->string day-date "~a")))) ) range) ,@(stream->list -- cgit v1.2.3