blob: 3c6ebbb031c3f2439f01431cda5041f57e7f1903 (
plain)
1
2
3
4
5
6
7
8
9
10
11
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))))))))
|