From 27884c59318895bdaf9073944eb7e2037875ec0b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 4 Jul 2020 01:58:52 +0200
Subject: Add live import of event.

---
 module/entry-points/import.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'module/entry-points/import.scm')

diff --git a/module/entry-points/import.scm b/module/entry-points/import.scm
index cc67b448..3fa20055 100644
--- a/module/entry-points/import.scm
+++ b/module/entry-points/import.scm
@@ -49,7 +49,9 @@
       (let loop ((c #\space))
         (case c
           [(#\n #\N) (throw 'return)]
-          [(#\y #\Y) (map (lambda (e) (calendar-import calendar e))
+          [(#\y #\Y) (map (lambda (e)
+                            (add-event calendar e)
+                            (save-event e))
                           (children new-events))]
           [else
            (let ((line (read-line)))
-- 
cgit v1.2.3