From 327d4cce81f091d034b6ed216a7a67a824363247 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 25 Mar 2019 13:55:56 +0100
Subject: Fix events being dropped by sorting them.

---
 module/main.scm | 5 +++--
 module/util.scm | 2 +-
 2 files changed, 4 insertions(+), 3 deletions(-)

(limited to 'module')

diff --git a/module/main.scm b/module/main.scm
index 30fd4542..e29ae2c0 100755
--- a/module/main.scm
+++ b/module/main.scm
@@ -128,8 +128,9 @@
   (define events (concatenate (map (cut children <> 'VEVENT) calendars)))
 
   (let* ((repeating regular (partition repeating? events)))
-    (sort*! repeating time<? (extract 'DTSTART))
-    (sort*! regular   time<? (extract 'DTSTART))
+
+    (set! repeating (sort*! repeating time<? (extract 'DTSTART)))
+    (set! regular (sort*! regular   time<? (extract 'DTSTART)))
 
     (let ((repeating (interleave-streams ev-time<?
                       (map generate-recurrence-set repeating))))
diff --git a/module/util.scm b/module/util.scm
index f60986ed..82c2ddc0 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -129,7 +129,7 @@
                 (comperator (get a)
                             (get b)))))
 
-;;; This function borrowed from web-ics (calendar util)
+;; Sorts the list @var{items}. @em{May} destroy the input list in the process
 (define* (sort*! items comperator #:optional (get identity))
   "A sort function more in line with how python's sorted works"
   (sort! items (lambda (a b)
-- 
cgit v1.2.3