diff options
Diffstat (limited to '')
| -rw-r--r-- | vcalendar.scm | 2 | ||||
| -rw-r--r-- | vcalendar/primitive.scm | 1 |
2 files changed, 3 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)))) diff --git a/vcalendar/primitive.scm b/vcalendar/primitive.scm index e575115c..fdce550c 100644 --- a/vcalendar/primitive.scm +++ b/vcalendar/primitive.scm @@ -3,6 +3,7 @@ (define-module (vcalendar primitive) #:export (%vcomponent-children %vcomponent-push-child! + %vcomponent-filter-children! %vcomponent-parent |