From 90b6d836f777665240a3f535890cd22f93c1aebf Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 30 Apr 2019 12:36:02 +0200 Subject: Fix horizontal stripes. --- module/output/html.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/output/html.scm b/module/output/html.scm index 6fb23a9c..841acd97 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -95,7 +95,7 @@ (span (@ (class "dayname")) ,(date->string date "~a"))) (div (@ (class "events")) ,@(map (lambda (time) - `(div (@ (class "clock clock-" time)) "")) + `(div (@ (class "clock clock-" ,time)) "")) (iota 12 0 2)) ,@(stream->list (stream-map (lambda (e) (vevent->sxml date e)) events)))))) -- cgit v1.2.3