1 files changed, 13 insertions, 0 deletions
diff --git a/module/vcomponent/recurrence/generate-alt.scm b/module/vcomponent/recurrence/generate-alt.scm
index 7337ddaa..d48e471d 100644
--- a/module/vcomponent/recurrence/generate-alt.scm
+++ b/module/vcomponent/recurrence/generate-alt.scm
@@ -292,6 +292,19 @@
                                       date-stream))]
           [else date-stream])))
 
+
+(define-public (final-event-occurence event)
+  (define rrule  (parse-recurrence-rule
+                  (attr event 'RRULE)
+                  (if (date? (attr event 'DTSTART))
+                      parse-ics-date parse-ics-datetime)))
+
+  (if (or (count rrule) (until rrule))
+      (let ((instances (rrule-instances event)))
+        (stream-ref instances (1- (stream-length instances))))
+      #f))
+
+
 (define (generate-recurrence-set base-event)