From 38077f7748d0c06b6eac5bbb95e38dc521269292 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 12 Mar 2019 19:07:10 +0100
Subject: Add interactive terminal UI.

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

(limited to 'config.scm')

diff --git a/config.scm b/config.scm
new file mode 100644
index 00000000..3c6ebbb0
--- /dev/null
+++ b/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