|
|
|
|
51
|
(defun load-config (&optional (config-key ""))
|
51
|
(defun load-config (&optional (config-key ""))
|
52
|
"Load the coleslaw configuration from DIR/.coleslawrc, using CONFIG-KEY
|
52
|
"Load the coleslaw configuration from DIR/.coleslawrc, using CONFIG-KEY
|
53
|
if necessary. DIR is ~ by default."
|
53
|
if necessary. DIR is ~ by default."
|
54
|
- (with-open-file (in (discover-config-path config-key))
|
|
|
|
|
54
|
+ (with-open-file (in (discover-config-path config-key) :external-format '(:utf-8))
|
55
|
(let ((config-form (read in)))
|
55
|
(let ((config-form (read in)))
|
56
|
(if (symbolp (car config-form))
|
56
|
(if (symbolp (car config-form))
|
57
|
;; Single site config: ignore CONFIG-KEY.
|
57
|
;; Single site config: ignore CONFIG-KEY.
|