1 files changed, 9 insertions, 0 deletions

diff --git a/src/tg/send-animation.lisp b/src/tg/send-animation.lisp
index 560b331..acddb21 100644
--- a/src/tg/send-animation.lisp
+++ b/src/tg/send-animation.lisp
@@ -2,6 +2,7 @@
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/src/tg/send-animation
   (:documentation "sendAnimation Telegram method")
+  (:import-from :serapeum :->)
   (:use
    :c2cl
    :ukkoclot/src/tg/force-reply
@@ -41,6 +42,14 @@
   (reply-markup (or inline-keyboard-markup reply-keyboard-markup reply-keyboard-remove force-reply null) nil))
 
 ;; TODO: Some kind of caching for files?
+(-> reply-animation (message
+                     pathname
+                     &key
+                     (:allow-sending-without-reply boolean)
+                     (:text (or string null))
+                     (:parse-mode (or parse-mode null))
+                     (:caption-above boolean))
+    message)
 (defun reply-animation (msg animation &key allow-sending-without-reply text parse-mode caption-above)
   "Shortcut to reply to a given MSG with an animation."
   (send-animation :chat-id (message-chat-id msg)