From 64ea347e6026d24060982f2ae52dfe09526d42a9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 28 Apr 2020 01:43:05 +0200 Subject: Comment on marks in small calendar. --- module/output/html.scm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'module/output') diff --git a/module/output/html.scm b/module/output/html.scm index 3f2025cd..3969b574 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -509,6 +509,10 @@ "#" ,(date-link date)))] ;; We are in our time interval [else `((href "#" ,(date-link date)))])) + ;; NOTE This time object is the correct place to show the existance + ;; of an event on a given day in this small calendar. For example + ;; making the text red for all holidays, or creating a yellow background + ;; for events from a specific source. (time (@ (datetime ,(date->string date "~Y-~m-~d"))) ,(day date)))) (let* ((last-months current next (month-days (start-of-month start-date) week-start)) -- cgit v1.2.3