From 6a4ca54f8e533ece589d03a6fd4fb291faceb777 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 9 Apr 2019 23:34:18 +0200
Subject: Start using multi-set!

---
 module/main.scm | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/module/main.scm b/module/main.scm
index 909bac15..0e3c23be 100755
--- a/module/main.scm
+++ b/module/main.scm
@@ -109,9 +109,15 @@
 
       (let ((char (read-char)))
         (case char
-          ((#\L #\l) (mod! time add-day)    (set! cur-event 0))
-          ((#\h #\H) (mod! time remove-day) (set! cur-event 0))
-          ((#\t)     (set! time (now))      (set! cur-event 0))
+          ((#\L #\l)
+           (set! time (add-day time)
+                 cur-event 0))
+          ((#\h #\H)
+           (set! time (remove-day time)
+                 cur-event 0))
+          ((#\t)
+           (set! time (now)
+                 cur-event 0))
           ((#\j #\J) (unless (= cur-event (1- (length events)))
 		       (mod! cur-event 1+)))
           ((#\k #\K) (unless (= cur-event 0)
@@ -136,8 +142,8 @@
 
   (let* ((repeating regular (partition repeating? events)))
 
-    (set! repeating (sort*! repeating time<? (extract 'DTSTART)))
-    (set! regular   (sort*! regular   time<? (extract 'DTSTART)))
+    (set! repeating (sort*! repeating time<? (extract 'DTSTART))
+          regular   (sort*! regular   time<? (extract 'DTSTART)))
 
     (let ((repeating (interleave-streams ev-time<?
                       (map generate-recurrence-set repeating))))
-- 
cgit v1.2.3