From 9b786efd46e23890f4195ff2616add916edf6741 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 8 Mar 2019 10:12:16 +0100 Subject: Varius minor fixes. --- vcalendar/recur.scm | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'vcalendar') diff --git a/vcalendar/recur.scm b/vcalendar/recur.scm index d4d88593..15afdd26 100644 --- a/vcalendar/recur.scm +++ b/vcalendar/recur.scm @@ -1,9 +1,13 @@ (define-module (vcalendar recur) #:use-module (srfi srfi-1) - #:use-module (srfi srfi-9 gnu) + #:use-module (srfi srfi-8) ; Recieve + #:use-module (srfi srfi-9 gnu) ; Records + #:use-module (srfi srfi-19) ; Datetime #:use-module (srfi srfi-19 util) - #:use-module (srfi srfi-26) - #:use-module (srfi srfi-41) + #:use-module (srfi srfi-26) ; Cut + #:use-module (srfi srfi-41) ; Streams + #:use-module (ice-9 match) + #:use-module (vcalendar) #:use-module (vcalendar datetime) #:use-module (util) #:export ( build-recur-rules)) @@ -124,7 +128,7 @@ ((WEEKLY) ;; TODO implement copy-event (let ((new-event (copy-event event))) - (transform-attr! (date new-event) + (transform-attr! new-event "DTSTART" (cut date-add <> 1 weeks))))) )) @@ -133,7 +137,7 @@ (define-stream (recur-event-stream event rule-obj) (stream-cons event - (receive (next-event next-obj) (generate-next event rule-obj) + (receive (next-event next-rule) (generate-next event rule-obj) (recur-event-stream next-event next-rule)))) (define (recur-event event) -- cgit v1.2.3