From 974405a7ad177965551a9ec5b4bf68b7fe4517aa Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 10 Mar 2019 23:30:27 +0100 Subject: Add filter-children! --- vcalendar.scm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'vcalendar.scm') diff --git a/vcalendar.scm b/vcalendar.scm index 143d9e79..2ce5a438 100644 --- a/vcalendar.scm +++ b/vcalendar.scm @@ -59,6 +59,8 @@ (define-public copy-vcomponent %vcomponent-shallow-copy) +(define-public filter-children! %vcomponent-filter-children!) + (define-public (search cal term) (cdr (let ((events (filter (lambda (ev) (eq? 'VEVENT (type ev))) (children cal)))) -- cgit v1.2.3