From 2994bef5120d9425c42beb0dfe3f568e80c9771f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 1 Mar 2019 15:34:41 +0100 Subject: Fix setters for date types. --- main.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'main.scm') diff --git a/main.scm b/main.scm index 9469e955..87be8bdf 100755 --- a/main.scm +++ b/main.scm @@ -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")) -- cgit v1.2.3