blob: 32cd382ab2f6824193910c811b4a7f9142af6fdf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(define-module (directories)
:use-module (util))
(define-public runtime-directory
(or (getenv "XDG_RUNTIME_DIR")
"/tmp"))
(define-public system-config-directory "/etc/calp")
(define user-config-directory
(path-append
(or (getenv "XDG_CONFIG_HOME")
(and=> (getenv "HOME")
(lambda (s) (path-append s "/.config"))))
"/calp"))
|
