;; 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/tg/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)))))