1 files changed, 7 insertions, 3 deletions

diff --git a/src/config.lisp b/src/config.lisp
index 1bac762..55575bb 100644
--- a/src/config.lisp
+++ b/src/config.lisp
@@ -2,13 +2,16 @@
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/config
   (:use :c2cl :ukkoclot/hash-tables)
+  (:documentation
+   "Stuff for loading the configuration of the bot")
   (:export
    :config-load :config-merge
    :config-p
-   :config-bot-name :config-bot-token :config-db-path :config-dev-group :config-owner :config-swank-port))
+   :config-bot-name :config-bot-token :config-db-path :config-dev-group :config-owner))
 (in-package :ukkoclot/config)
 
 (defmacro defconfig (&rest slots-and-types)
+  "Macro to make the config struct creation easier."
   `(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))))
@@ -18,12 +21,13 @@
   :bot-token string
   :db-path string
   :dev-group integer
-  :owner integer
-  :swank-port (integer 1 65536))
+  :owner integer)
 
 (defun config-load (filename)
+  "Load the config from the given `filename'.  All entries must be specified."
   (apply #'make-config (with-open-file (f filename) (read f))))
 
 (defun config-merge (config filename)
+  "Merge the current config with new entries from `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)))