From ff16d94cc56e4729d55936cd8460e1940081f03f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 24 Jul 2020 17:35:09 +0200
Subject: Use X-HNH-REMOVED to "remove" an event.

---
 module/vcomponent.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'module/vcomponent.scm')

diff --git a/module/vcomponent.scm b/module/vcomponent.scm
index 9b5f944c..215ab984 100644
--- a/module/vcomponent.scm
+++ b/module/vcomponent.scm
@@ -32,8 +32,10 @@
   (setf 'events
         (concatenate
          ;; TODO does this drop events?
-         (map (lambda (cal) (filter (lambda (o) (eq? 'VEVENT (type o)))
-                               (children cal)))
+         (map (lambda (cal) (remove
+                        (extract 'X-HNH-REMOVED)
+                        (filter (lambda (o) (eq? 'VEVENT (type o)))
+                                (children cal))))
               (getf 'calendars))))
 
   (let* ((repeating regular (partition repeating? (getf 'events))))
-- 
cgit v1.2.3