diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-04 01:58:52 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-07 13:10:38 +0200 |
| commit | 27884c59318895bdaf9073944eb7e2037875ec0b (patch) | |
| tree | 15f9d508fe67d9d738a692588cdca13535eb091f /module/entry-points/import.scm | |
| parent | Add insert-ordered. (diff) | |
| download | calp-27884c59318895bdaf9073944eb7e2037875ec0b.tar.gz calp-27884c59318895bdaf9073944eb7e2037875ec0b.tar.xz | |
Add live import of event.
Diffstat (limited to '')
| -rw-r--r-- | module/entry-points/import.scm | 4 |
1 files changed, 3 insertions, 1 deletions
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))) |