From 7300fa5ce1e1a5993d06ebcc2766113179b9dcf2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 5 Apr 2020 22:43:12 +0200
Subject: Minor changes.

---
 module/entry-points/html.scm | 1 +
 module/main.scm              | 2 +-
 module/vcomponent/load.scm   | 4 ++--
 3 files changed, 4 insertions(+), 3 deletions(-)

(limited to 'module')

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
-- 
cgit v1.2.3