From daded7e491b01cf38177ee91adacf6558dad3733 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 26 Apr 2020 21:19:31 +0200
Subject: Add export as ics button.

---
 module/vcomponent/load.scm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'module/vcomponent')

diff --git a/module/vcomponent/load.scm b/module/vcomponent/load.scm
index 5fbb5553..37d57b56 100644
--- a/module/vcomponent/load.scm
+++ b/module/vcomponent/load.scm
@@ -17,6 +17,13 @@
 
 (define-config calendar-files '() "" list?)
 
+(define-public (calculate-recurrence-set regular repeating)
+ (interleave-streams
+  ev-time<?
+  (cons (list->stream regular)
+        (map generate-recurrence-set repeating)
+        )))
+
 ;; Reads all calendar files from disk, generate recurence-sets for all repeating events,
 ;; and returns a list of calendars, and a stream of all events "ready" for display.
 (define* (load-calendars #:optional (calendar-files (get-config 'calendar-files)))
@@ -25,11 +32,7 @@
     (report-time! "Calendars loaded, interleaving and reccurring")
     (values
      calendars
-     (interleave-streams
-      ev-time<?
-      (cons (list->stream regular)
-            (map generate-recurrence-set repeating)
-            )))))
+     (calculate-recurrence-set regular repeating))))
 
 ;; Basic version, loads calendrs, sorts the events, and returns
 ;; regular and repeating events separated from each other.
-- 
cgit v1.2.3