From f8db5c3e3c4bb426e76e10993b09debdb84b0b57 Mon Sep 17 00:00:00 2001 From: Uko Kokņevičs Date: Mon, 13 Oct 2025 05:51:01 +0300 Subject: Move bot/impl to state --- src/bot/impl.lisp | 23 ----------------------- 1 file changed, 23 deletions(-) delete mode 100644 src/bot/impl.lisp (limited to 'src/bot/impl.lisp') 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 @@ -;; SPDX-License-Identifier: EUPL-1.2 -;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs -(defpackage :ukkoclot/bot/impl - (:use :c2cl :iterate :ukkoclot/config) - (:export - :bot :bot-p :make-bot - - :bot-config :bot-db :bot-base-uri :bot-power-on :bot-username% :bot-id%)) -(in-package :ukkoclot/bot/impl) - -(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))) -- cgit v1.2.3