diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-01 15:34:41 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-01 15:34:41 +0100 |
| commit | 2994bef5120d9425c42beb0dfe3f568e80c9771f (patch) | |
| tree | 99db92cbf2a1b8753f665a9cc27b8a323a811997 /main.scm | |
| parent | Add color-if and for-each-in macros. (diff) | |
| download | calp-2994bef5120d9425c42beb0dfe3f568e80c9771f.tar.gz calp-2994bef5120d9425c42beb0dfe3f568e80c9771f.tar.xz | |
Fix setters for date types.
Diffstat (limited to 'main.scm')
| -rwxr-xr-x | main.scm | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -4,11 +4,11 @@ (add-to-load-path ".") -(load "code.scm") (use-modules (srfi srfi-1) (srfi srfi-19) (srfi srfi-26) - (vcalendar)) + (vcalendar) + (code)) ;;; ------------------------------------------------------------ @@ -29,8 +29,9 @@ (cdr (let ((events (filter (lambda (ev) (eq? 'VEVENT (type ev))) (children cal)))) (find (lambda (ev) (string-contains-ci (car ev) term)) - (map-cons (cut get-attr <> "SUMMARY") - events))))) + (map cons (map (cut get-attr <> "SUMMARY") + events) + events))))) (define (main args) @@ -54,5 +55,4 @@ (get-attr ev "SUMMARY"))))) -k #; (define pizza-event (search cal "pizza")) |