diff options
| -rw-r--r-- | module/vcomponent/util.scm | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/module/vcomponent/util.scm b/module/vcomponent/util.scm deleted file mode 100644 index 81330c17..00000000 --- a/module/vcomponent/util.scm +++ /dev/null @@ -1,11 +0,0 @@ -(define-module (vcomponent util) - #:use-module (vcomponent util) - #:export (search)) - -(define-public (search cal term) - (cdr (let ((events (filter (lambda (ev) (eq? 'VEVENT (type ev))) - (children cal)))) - (find (lambda (ev) (string-contains-ci (car ev) term)) - (map cons (map (extract "SUMMARY") - events) - events))))) |