From d46183860c1f3f10095e95023adcb79b1896ab0e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 22 Mar 2019 20:11:11 +0100
Subject: Move C and Scheme code into subdirs.

---
 module/config.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 module/config.scm

(limited to 'module/config.scm')

diff --git a/module/config.scm b/module/config.scm
new file mode 100644
index 00000000..3c6ebbb0
--- /dev/null
+++ b/module/config.scm
@@ -0,0 +1,12 @@
+;;; Preliminary config file for the system.
+;;; Currently loaded by main, and requires that `calendar-files`
+;;; is set to a list of files (or directories).
+
+
+(use-modules (srfi srfi-26)
+             (ice-9 ftw))
+
+(define calendar-files
+    (let ((path (string-append (getenv "HOME") "/.calendars/")))
+      (map (cut string-append path <>)
+           (scandir path (lambda (str) (not (char=? #\. (string-ref str 0))))))))
-- 
cgit v1.2.3