From f05b67f3ea2e336375579f856a76e447306232c2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 7 Oct 2019 02:42:43 +0200
Subject: Thoughts about how to fix repeating of tz.

---
 module/vcomponent/timezone.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/module/vcomponent/timezone.scm b/module/vcomponent/timezone.scm
index a89c8c5c..6a1e3130 100644
--- a/module/vcomponent/timezone.scm
+++ b/module/vcomponent/timezone.scm
@@ -79,6 +79,16 @@
 ;; further condition. That feels like something that should be impossible, but
 ;; this is (human) time we are talking about.
 (define-public (make-tz-set tz)
+
+  (let* ((repeating regular (partition repeating? events)))
+    (set! repeating (sort*! repeating time<? (extract 'DTSTART))
+          regular   (sort*! regular   time<? (extract 'DTSTART)))
+    (interleave-streams
+     ev-time<?
+     (cons (list->stream regular)
+           (map generate-recurrence-set repeating))))
+
+
   (let ((strm (interleave-streams
                ev-time<?
                ;; { DAYLIGHT, STANDARD }
-- 
cgit v1.2.3