Parcourir la Source

Enabled UTF-8 when reading the configuration file

Clement Gerouville il y a 11 ans
Parent
commit
e4ec9bd1ae
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  1. 1 1
      src/config.lisp

+ 1 - 1
src/config.lisp

@@ -51,7 +51,7 @@ doesn't exist, use the .coleslawrc in the home directory."
51 51
 (defun load-config (&optional (config-key ""))
52 52
   "Load the coleslaw configuration from DIR/.coleslawrc, using CONFIG-KEY
53 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 55
     (let ((config-form (read in)))
56 56
       (if (symbolp (car config-form))
57 57
           ;; Single site config: ignore CONFIG-KEY.