diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 22:00:42 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 22:00:42 +0200 |
commit | 2afd9819bf69e2ee34ab4fa34ee2ea9388659e4b (patch) | |
tree | ed5fb7e7a9a99edded4d6d07ecb592c15cb47bc8 /module | |
parent | Remove deprecated read-tree. (diff) | |
download | calp-2afd9819bf69e2ee34ab4fa34ee2ea9388659e4b.tar.gz calp-2afd9819bf69e2ee34ab4fa34ee2ea9388659e4b.tar.xz |
Remove (vcomponent util).
Diffstat (limited to '')
-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))))) |