diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-03-10 23:30:27 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-03-10 23:34:28 +0100 |
commit | 974405a7ad177965551a9ec5b4bf68b7fe4517aa (patch) | |
tree | 60e3587236859d41cfcd43377e1586d1d22b5674 /vcalendar.scm | |
parent | Add parsing for all RRULEs except BYDAY. (diff) | |
download | calp-974405a7ad177965551a9ec5b4bf68b7fe4517aa.tar.gz calp-974405a7ad177965551a9ec5b4bf68b7fe4517aa.tar.xz |
Add filter-children!
Diffstat (limited to 'vcalendar.scm')
-rw-r--r-- | vcalendar.scm | 2 |
1 files changed, 2 insertions, 0 deletions
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)))) |