summaryrefslogtreecommitdiff
path: root/src/inline-bots.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/inline-bots.lisp')
-rw-r--r--src/inline-bots.lisp7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/inline-bots.lisp b/src/inline-bots.lisp
index 6001cb2..47dd81b 100644
--- a/src/inline-bots.lisp
+++ b/src/inline-bots.lisp
@@ -2,11 +2,12 @@
2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> 2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
3(defpackage :ukkoclot/inline-bots 3(defpackage :ukkoclot/inline-bots
4 (:documentation "This package deals with removing unwanted inline bot usage") 4 (:documentation "This package deals with removing unwanted inline bot usage")
5 (:use :c2cl :ukkoclot/config :ukkoclot/tg) 5 (:use :c2cl :ukkoclot/tg)
6 (:import-from :com.dieggsy.f-string :enable-f-strings) 6 (:import-from :com.dieggsy.f-string :enable-f-strings)
7 (:import-from :conf)
7 (:import-from :log) 8 (:import-from :log)
8 (:import-from :ukkoclot/tg :send-message :try-delete-message) 9 (:import-from :ukkoclot/tg :send-message :try-delete-message)
9 (:import-from :ukkoclot/state :bot-config :bot-db) 10 (:import-from :ukkoclot/state :bot-db)
10 (:local-nicknames (:db :ukkoclot/db)) 11 (:local-nicknames (:db :ukkoclot/db))
11 (:export :blacklist-inline-bot :on-inline-bot :whitelist-inline-bot)) 12 (:export :blacklist-inline-bot :on-inline-bot :whitelist-inline-bot))
12(in-package :ukkoclot/inline-bots) 13(in-package :ukkoclot/inline-bots)
@@ -41,7 +42,7 @@ Its messages will no longer be deleted."
41 :callback-data #f"bbl:{(user-id via)}"))) 42 :callback-data #f"bbl:{(user-id via)}")))
42 (send-message 43 (send-message
43 bot 44 bot
44 :chat-id (config-dev-group (bot-config bot)) 45 :chat-id (conf:dev-group)
45 :text #f"Deleted a message sent via inline bot @{(user-username via)} <code>{(user-id via)}</code>" 46 :text #f"Deleted a message sent via inline bot @{(user-username via)} <code>{(user-id via)}</code>"
46 :parse-mode html 47 :parse-mode html
47 :reply-markup (make-inline-keyboard-markup 48 :reply-markup (make-inline-keyboard-markup