diff options
Diffstat (limited to 'src/config.lisp')
| -rw-r--r-- | src/config.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/config.lisp b/src/config.lisp index 03ded98..cf04c1c 100644 --- a/src/config.lisp +++ b/src/config.lisp | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | 1 | ;; SPDX-License-Identifier: EUPL-1.2 |
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> |
| 3 | (defpackage :ukkoclot/config | 3 | (defpackage :ukkoclot/src/config |
| 4 | (:documentation "Stuff for loading the configuration of the bot") | 4 | (:documentation "Stuff for loading the configuration of the bot") |
| 5 | (:nicknames :conf) | 5 | (:nicknames :conf) |
| 6 | (:use :c2cl :iterate) | 6 | (:use :c2cl :iterate) |
| @@ -17,7 +17,7 @@ | |||
| 17 | #:db-path | 17 | #:db-path |
| 18 | #:dev-group | 18 | #:dev-group |
| 19 | #:owner)) | 19 | #:owner)) |
| 20 | (in-package :ukkoclot/config) | 20 | (in-package :ukkoclot/src/config) |
| 21 | 21 | ||
| 22 | (defstruct config | 22 | (defstruct config |
| 23 | (bot-name "Ukko's Clot" :type string) | 23 | (bot-name "Ukko's Clot" :type string) |
| @@ -55,7 +55,7 @@ | |||
| 55 | (let ((data (with-open-file (f filename) (read f)))) | 55 | (let ((data (with-open-file (f filename) (read f)))) |
| 56 | (iter | 56 | (iter |
| 57 | (for (kw-name value) on data by #'cddr) | 57 | (for (kw-name value) on data by #'cddr) |
| 58 | (let ((name (intern (symbol-name kw-name) :ukkoclot/config))) | 58 | (let ((name (intern (symbol-name kw-name) :ukkoclot/src/config))) |
| 59 | (setf (slot-value config name) value)))))) | 59 | (setf (slot-value config name) value)))))) |
| 60 | 60 | ||
| 61 | (defun serialize (config) | 61 | (defun serialize (config) |