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 | |
| parent | Made dates in month-view slightly smaller. (diff) | |
| download | calp-7300fa5ce1e1a5993d06ebcc2766113179b9dcf2.tar.gz calp-7300fa5ce1e1a5993d06ebcc2766113179b9dcf2.tar.xz | |
Minor changes.
Diffstat (limited to 'module')
| -rw-r--r-- | module/entry-points/html.scm | 1 | ||||
| -rwxr-xr-x | module/main.scm | 2 | ||||
| -rw-r--r-- | module/vcomponent/load.scm | 4 |
3 files changed, 4 insertions, 3 deletions
diff --git a/module/entry-points/html.scm b/module/entry-points/html.scm index 34ecc2dd..18b1c0ea 100644 --- a/module/entry-points/html.scm +++ b/module/entry-points/html.scm @@ -3,6 +3,7 @@ :use-module (output html) :use-module (util) :use-module (util time) + :use-module (util config) :use-module (vcomponent) :use-module (datetime) :use-module (datetime util) diff --git a/module/main.scm b/module/main.scm index c34c41b2..4b47025a 100755 --- a/module/main.scm +++ b/module/main.scm @@ -3,7 +3,7 @@ . $(dirname $(dirname $(realpath $0)))/env -exec guile --listen -e main -s $0 "$@" +exec guile -e main -s $0 "$@" !# (use-modules (srfi srfi-1) 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 |