;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/config
  (:use :c2cl :ukkoclot/hash-tables)
  (: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)))