diff options
Diffstat (limited to 'src/inline-bots.lisp')
| -rw-r--r-- | src/inline-bots.lisp | 7 |
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 |