From 6646b21d3f0f2e09a5450dd4be7b4935d146db2c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 6 Dec 2021 03:51:59 +0100 Subject: Add clarifying comments. --- module/calp/html/view/calendar.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'module/calp') diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm index cd262088..7d15816c 100644 --- a/module/calp/html/view/calendar.scm +++ b/module/calp/html/view/calendar.scm @@ -49,7 +49,10 @@ (define*-public (html-generate key: (intervaltype 'all) ; 'week | 'month | 'all - calendars events start-date end-date + calendars ; All calendars to work on, probably (get-calendars global-event-object) + events ; All events which can be worked on, probably (get-event-set global-event-object) + start-date ; First date in interval to show + end-date ; Last date in interval to show render-calendar ; (bunch of kv args) → (list sxml) next-start ; date → date prev-start ; date → date -- cgit v1.2.3