summaryrefslogtreecommitdiff
path: root/src/bot/impl.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/bot/impl.lisp')
-rw-r--r--src/bot/impl.lisp23
1 files changed, 0 insertions, 23 deletions
diff --git a/src/bot/impl.lisp b/src/bot/impl.lisp
deleted file mode 100644
index ea1aa03..0000000
--- a/src/bot/impl.lisp
+++ /dev/null
@@ -1,23 +0,0 @@
1;; SPDX-License-Identifier: EUPL-1.2
2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
3(defpackage :ukkoclot/bot/impl
4 (:use :c2cl :iterate :ukkoclot/config)
5 (:export
6 :bot :bot-p :make-bot
7
8 :bot-config :bot-db :bot-base-uri :bot-power-on :bot-username% :bot-id%))
9(in-package :ukkoclot/bot/impl)
10
11(defstruct (bot (:constructor make-bot%))
12 (config (error "No value given for config") :read-only t)
13 (db (error "No value given for DB") :read-only t)
14 (base-uri (error "No value given for base-uri") :read-only t)
15 (power-on t :type boolean)
16 (username% nil :type (or string null))
17 (id% nil :type (or integer null)))
18
19(defun make-bot (config db)
20 (let ((base-uri (concatenate 'string
21 "https://api.telegram.org/bot"
22 (config-bot-token config) "/")))
23 (make-bot% :config config :db db :base-uri base-uri)))