From 8b8bd2b811ed4097a3aaf8785d233bd012d22ac0 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Mon, 13 Oct 2025 06:48:00 +0300
Subject: Move bot/adanced to tg/*

---
 src/tg/delete-message.lisp | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 'src/tg/delete-message.lisp')

diff --git a/src/tg/delete-message.lisp b/src/tg/delete-message.lisp
index 3e79de7..fd6f323 100644
--- a/src/tg/delete-message.lisp
+++ b/src/tg/delete-message.lisp
@@ -1,10 +1,21 @@
 ;; SPDX-License-Identifier: EUPL-1.2
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/tg/delete-message
-  (:use :c2cl :ukkoclot/bot/method-macros)
-  (:export :delete-message))
+  (:use :c2cl :ukkoclot/tg/message :ukkoclot/bot/method-macros :ukkoclot/tg/send-animation)
+  (:export :delete-message :try-delete-message))
 (in-package :ukkoclot/tg/delete-message)
 
 (define-tg-method (delete-message boolean)
   (chat-id (or integer string))
   (message-id integer))
+
+(defun try-delete-message (bot msg)
+  (handler-case
+      (delete-message bot
+                      :chat-id (message-chat-id msg)
+                      :message-id (message-id msg))
+    (error ()
+      (handler-case
+          (reply-animation bot msg #P"blob/do-not.mp4"
+                           :allow-sending-without-reply nil)
+        (error () nil)))))
-- 
cgit v1.2.3