From 7300fa5ce1e1a5993d06ebcc2766113179b9dcf2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 5 Apr 2020 22:43:12 +0200 Subject: Minor changes. --- module/vcomponent/load.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module/vcomponent/load.scm') diff --git a/module/vcomponent/load.scm b/module/vcomponent/load.scm index 065cafcb..5fbb5553 100644 --- a/module/vcomponent/load.scm +++ b/module/vcomponent/load.scm @@ -21,7 +21,7 @@ ;; and returns a list of calendars, and a stream of all events "ready" for display. (define* (load-calendars #:optional (calendar-files (get-config 'calendar-files))) (report-time! "Parsing ~a calendars" (length calendar-files)) - (let* ((calendars regular repeating (load-calendars* #:calendar-files calendar-files))) + (let* ((calendars regular repeating (load-calendars* calendar-files))) (report-time! "Calendars loaded, interleaving and reccurring") (values calendars @@ -35,7 +35,7 @@ ;; regular and repeating events separated from each other. ;; ;; (list string) → (list calendar), (list event), (list event) -(define* (load-calendars* #:key (calendar-files (get-config 'calendar-files))) +(define* (load-calendars* #:optional (calendar-files (get-config 'calendar-files))) (define calendars (map parse-cal-path calendar-files)) (define events (concatenate -- cgit v1.2.3