diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-06 03:51:59 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-06 03:51:59 +0100 |
commit | 6646b21d3f0f2e09a5450dd4be7b4935d146db2c (patch) | |
tree | 407f6a1bb0086b06da1bedc99fdf08fe94c99266 /module | |
parent | Add assoc-ref-all family of procedures. (diff) | |
download | calp-6646b21d3f0f2e09a5450dd4be7b4935d146db2c.tar.gz calp-6646b21d3f0f2e09a5450dd4be7b4935d146db2c.tar.xz |
Add clarifying comments.
Diffstat (limited to '')
-rw-r--r-- | module/calp/html/view/calendar.scm | 5 | ||||
-rw-r--r-- | module/vcomponent/recurrence/generate.scm | 2 |
2 files changed, 5 insertions, 2 deletions
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 diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index 3b0f7083..1d262202 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -364,9 +364,9 @@ #f)) +;; <vevent> -> (stream <vevent>) (define-public (generate-recurrence-set base-event) - (define duration ;; NOTE DTEND is an optional field. (let ((end (prop base-event 'DTEND))) |