From d387f2878687b3663adf645261371f8937ea2acb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 5 Nov 2019 11:21:34 +0100 Subject: Remove old next-event. --- module/vcomponent/recurrence/generate.scm | 42 ------------------------------- 1 file changed, 42 deletions(-) (limited to 'module/vcomponent/recurrence/generate.scm') diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index 3988141c..6e022bcc 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -69,48 +69,6 @@ e)) -#; -(define (next-event ev r) - (let* ((e (copy-vcomponent ev)) - (d (time-utc->date - (attr e 'DTSTART) - (if (prop (attr* ev 'DTSTART) 'TZID) - (get-tz-offset e) - 0)))) - - (set! (attr ev 'DTSTART) - (copy-time (attr ev 'DTSTART))) - - (let ((i (interval r))) - (case (freq r) - ((SECONDLY) (mod! (second d) = (+ i))) - ((MINUTELY) (mod! (minute d) = (+ i))) - ((HOURLY) (mod! (hour d) = (+ i))) - ((DAILY) (mod! (day d) = (+ i))) - ((WEEKLY) (mod! (day d) = (+ (* i 7)))) - ((MONTHLY) (mod! (month d) = (+ i))) - ((YEARLY) (mod! (year d) = (+ i))))) - - (set! (attr e 'DTSTART) - (date->time-utc d)) - - (when (prop (attr* e 'DTSTART) 'TZID) - ;; (list "Europe/Stockholm"), or similar - ;; (format (current-error-port) "TZID = ~a~%" (prop (attr* e 'DTSTART) 'TZID)) - (let ((of (get-tz-offset e))) - ;; This addition works, but we still get lunch at 13 - (set! (zone-offset d) of))) - - (set! (attr e 'DTSTART) - (date->time-utc d)) - - (when (attr e 'DTEND) - (set! (attr e 'DTEND) - (add-duration (attr e 'DTSTART) (attr e 'DURATION)))) - - ;; Return - e)) - ;; BYDAY and the like depend on the freq? ;; Line 7100 ;; Table @@ 2430 -- cgit v1.2.3