From 060f31bab987ca20df5977f9351ee87dc44e423b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 1 Jun 2020 13:09:19 +0200
Subject: Modify config to store return of #:pre.

---
 module/vcomponent.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'module/vcomponent.scm')

diff --git a/module/vcomponent.scm b/module/vcomponent.scm
index e4a0141a..61168e70 100644
--- a/module/vcomponent.scm
+++ b/module/vcomponent.scm
@@ -16,8 +16,12 @@
 
 (re-export-modules (vcomponent base))
 
-(define-config calendar-files '() ""
-  pre: list?)
+(define-config calendar-files '()
+  "Which files to parse. Takes a list of paths or a single string which will be globbed."
+  pre: (lambda (v)
+         (cond [(list? v) v]
+               [(string? v) ((@ (glob) glob) v)]
+               [else #f])))
 
 (define-public (load-calendars calendar-files)
   (map parse-cal-path calendar-files))
-- 
cgit v1.2.3