blob: fd6f323254554b9ac4d456c2cc066005d6008290 (
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/tg/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)))))
|
