From a7536c3af8318014a60d8c07562200d7488e9c6e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 17 Oct 2022 19:02:23 +0200 Subject: Add /everything.ics endpoint. Endpoint returns all events in interval. Used to sync to other calendars. --- module/vcomponent/formats/ical/output.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'module/vcomponent/formats') diff --git a/module/vcomponent/formats/ical/output.scm b/module/vcomponent/formats/ical/output.scm index e4fad90a..4d37dff6 100644 --- a/module/vcomponent/formats/ical/output.scm +++ b/module/vcomponent/formats/ical/output.scm @@ -168,7 +168,9 @@ ;; If we have alternatives, splice them in here. (cond [(prop component '-X-HNH-ALTERNATIVES) - => (lambda (alts) (hash-map->list (lambda (_ comp) (component->ical-string comp)) + => (lambda (alts) (hash-map->list (lambda (_ comp) + (unless (eq? component comp) + (component->ical-string comp))) alts))])) -- cgit v1.2.3