blob: 5844c1b63b94fec55240153243b6d5bd86fe8f9f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
(cond-expand
(guile-3
(define-module (calp load-config)
:declarative? #f))
(else
(define-module (calp load-config)
)))
(use-modules (srfi srfi-1)
(calp translation)
(hnh util path)
((xdg basedir) :prefix xdg-))
(export load-config find-config-file)
(define (load-config config-file)
;; Load config
;; Sandbox and "stuff" not for security from the user. The config script is
;; assumed to be "safe". Instead it's so we can control the environment in
;; which it is executed.
(catch #t
(lambda () (load config-file))
(lambda args
(format (current-error-port)
;; Two arguments:
;; Configuration file path,
;; thrown error arguments
(G_ "Failed loading config file ~a~%~s~%")
config-file
args
))))
(define (find-config-file altconfig)
(cond [altconfig
(if (file-exists? altconfig)
altconfig
(scm-error 'misc-error
"wrapped-main"
(G_ "Configuration file ~a missing")
(list altconfig)
#f))]
;; altconfig could be placed in the list below. But I want to raise an error
;; if an explicitly given config is missing.
[(find file-exists?
(list
(path-append (xdg-config-home) "calp" "config.scm")
(path-append (xdg-sysconfdir) "calp" "config.scm")))
=> identity])
)
|
