1 files changed, 30 insertions, 0 deletions

diff --git a/src/state.lisp b/src/state.lisp
new file mode 100644
index 0000000..98e2048
--- /dev/null
+++ b/src/state.lisp
@@ -0,0 +1,30 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/state
+  (:use :c2cl :ukkoclot/config)
+  (:export
+   #:bot
+   #:make-bot
+   #:bot-p
+   #:copy-bot
+   #:bot-config
+   #:bot-db
+   #:bot-base-uri
+   #:bot-power-on
+   #:bot-username%
+   #:bot-id%))
+(in-package :ukkoclot/state)
+
+(defstruct (bot (:constructor make-bot%))
+  (config (error "No value given for config") :read-only t)
+  (db (error "No value given for DB") :read-only t)
+  (base-uri (error "No value given for base-uri") :read-only t)
+  (power-on t :type boolean)
+  (username% nil :type (or string null))
+  (id% nil :type (or integer null)))
+
+(defun make-bot (config db)
+  (let ((base-uri (concatenate 'string
+                               "https://api.telegram.org/bot"
+                               (config-bot-token config) "/")))
+    (make-bot% :config config :db db :base-uri base-uri)))