diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-05 22:43:12 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-05 22:43:12 +0200 |
| commit | 7300fa5ce1e1a5993d06ebcc2766113179b9dcf2 (patch) | |
| tree | dca20c7fb23ae1430d657dfa522d97c9bb841e46 /module/vcomponent/load.scm | |
| parent | Made dates in month-view slightly smaller. (diff) | |
| download | calp-7300fa5ce1e1a5993d06ebcc2766113179b9dcf2.tar.gz calp-7300fa5ce1e1a5993d06ebcc2766113179b9dcf2.tar.xz | |
Minor changes.
Diffstat (limited to 'module/vcomponent/load.scm')
| -rw-r--r-- | module/vcomponent/load.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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 |