Make state be a global special variable

1 files changed, 5 insertions, 4 deletions

diff --git a/src/tg/delete-message.lisp b/src/tg/delete-message.lisp
index cc52371..2b332df 100644
--- a/src/tg/delete-message.lisp
+++ b/src/tg/delete-message.lisp
@@ -1,6 +1,7 @@
 ;; SPDX-License-Identifier: EUPL-1.2
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/src/tg/delete-message
+  (:documentation "deleteMessage Telegram method")
   (:use :c2cl :ukkoclot/src/tg/message :ukkoclot/src/tg/method-macros :ukkoclot/src/tg/send-animation)
   (:export :delete-message :try-delete-message))
 (in-package :ukkoclot/src/tg/delete-message)
@@ -9,13 +10,13 @@
   (chat-id (or integer string))
   (message-id integer))
 
-(defun try-delete-message (bot msg)
+(defun try-delete-message (msg)
+  "Attempt to delete the MSG, on failure reply with a GIF of the DO NOT cat."
   (handler-case
-      (delete-message bot
-                      :chat-id (message-chat-id msg)
+      (delete-message :chat-id (message-chat-id msg)
                       :message-id (message-id msg))
     (error ()
       (handler-case
-          (reply-animation bot msg #P"blob/do-not.mp4"
+          (reply-animation msg #P"blob/do-not.mp4"
                            :allow-sending-without-reply nil)
         (error () nil)))))