blob: cc5237169dbf8a4a3dcb31fab7e6356a7adc1e8c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/src/tg/delete-message
(: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)
(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)))))
|
