1 files changed, 28 insertions, 0 deletions

diff --git a/src/config.lisp b/src/config.lisp
new file mode 100644
index 0000000..86a0f33
--- /dev/null
+++ b/src/config.lisp
@@ -0,0 +1,28 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/config
+  (:use :c2cl :ukkoclot/hash-tables :ukkoclot/log)
+  (:export
+   :config-load :config-merge
+   :config-p
+   :config-bot-name :config-bot-token :config-db-path :config-dev-group :config-owner))
+(in-package :ukkoclot/config)
+
+(defmacro defconfig (&rest slots-and-types)
+  `(defstruct config
+     ,@(loop for (name type) on slots-and-types by #'cddr
+             collect `(,(intern (symbol-name name)) (error "No value given for ~A" ,name) :type ,type :read-only t))))
+
+(defconfig
+  :bot-name string
+  :bot-token string
+  :db-path string
+  :dev-group integer
+  :owner integer)
+
+(defun config-load (filename)
+  (apply #'make-config (with-open-file (f filename) (read f))))
+
+(defun config-merge (config filename)
+  (loop for (name value) on (with-open-file (f filename) (read f)) by #'cddr do
+    (setf (slot-value config (intern (symbol-name name) :ukkoclot/config)) value)))