diff options
Diffstat (limited to 'module/vcomponent/recurrence/generate.scm')
| -rw-r--r-- | module/vcomponent/recurrence/generate.scm | 21 |
1 files changed, 5 insertions, 16 deletions
diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index a274ecfa..c2863954 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -73,10 +73,8 @@ (date->time-utc d)) (when (attr e 'DTEND) - (format #t "file = ~a~%dtstart = ~a~%duration = ~a~%" - (attr e 'X-HNH-FILENAME) (attr e 'DTSTART) (attr e 'DURATION)) - (set! (attr e 'DTEND) - (add-duration (attr e 'DTSTART) (attr e 'DURATION)))) + (set! (attr e 'DTEND) + (add-duration (attr e 'DTSTART) (attr e 'DURATION)))) ;; Return e)) @@ -126,21 +124,12 @@ (if (not (attr event 'RRULE)) (stream event) (begin - (format #t "!!! DURATION = ~a~%" (attr event 'DURATION)) (when (and (attr event 'DTEND) (not (attr event 'DURATION))) - (let ((dt (time-difference (attr event "DTEND") (attr event "DTSTART") ))) - (format #t "duration = ~a~%start = ~a, end = ~a~%diff = ~a~%" - (attr event "DURATION") - (attr event "DTSTART") (attr event "DTEND") - dt) - (set! (attr event "DURATION") - dt - #; - (time-difference + (set! (attr event "DURATION") + (time-difference (attr event "DTEND") - (attr event "DTSTART"))))) - (format #t "||| DURATION = ~a~%" (attr* event "DURATION")) + (attr event "DTSTART")))) (if (attr event "RRULE") (recur-event-stream event (parse-recurrence-rule (attr event "RRULE"))) ;; TODO some events STANDARD and DAYLIGT doesn't have RRULE's, but rather |