diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-30 22:51:45 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-30 22:51:45 +0100 |
commit | f852c30bcef530d18a474ab6ab8350a3ef93d563 (patch) | |
tree | 00fc29a6ff1a8c842d0a526f04d4124977dd6e46 /module/vcomponent/load.scm | |
parent | Update recurrence generate to new date obj. (diff) | |
download | calp-f852c30bcef530d18a474ab6ab8350a3ef93d563.tar.gz calp-f852c30bcef530d18a474ab6ab8350a3ef93d563.tar.xz |
Once again compiles.
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/load.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/module/vcomponent/load.scm b/module/vcomponent/load.scm index 2e69d1f5..72200b32 100644 --- a/module/vcomponent/load.scm +++ b/module/vcomponent/load.scm @@ -3,6 +3,7 @@ :use-module (util) :use-module (srfi srfi-1) :use-module (srfi srfi-19 alt) + :use-module (srfi srfi-19 alt util) :use-module (srfi srfi-41) :use-module (srfi srfi-41 util) :use-module (parameters) @@ -19,10 +20,15 @@ (let* ((calendars regular repeating (load-calendars* #:calendar-files calendar-files))) (values calendars + (list->stream regular) + #; (interleave-streams ev-time<? (cons (list->stream regular) - (map generate-recurrence-set repeating)))))) + '() + ;; TODO reactivate this + #; (map generate-recurrence-set repeating) + ))))) ;; Basic version, loads calendrs, sorts the events, and returns ;; regular and repeating events separated from each other. |