Move bot/adanced to tg/*

1 files changed, 15 insertions, 1 deletions

diff --git a/src/tg/send-animation.lisp b/src/tg/send-animation.lisp
index e9558fa..97dd9f0 100644
--- a/src/tg/send-animation.lisp
+++ b/src/tg/send-animation.lisp
@@ -13,7 +13,7 @@
    :ukkoclot/tg/reply-keyboard-remove
    :ukkoclot/tg/reply-parameters
    :ukkoclot/tg/suggested-post-parameters)
-  (:export :send-animation))
+  (:export :reply-animation :send-animation))
 (in-package :ukkoclot/tg/send-animation)
 
 (define-tg-method (send-animation message)
@@ -38,3 +38,17 @@
   (suggested-post-parameters (or suggested-post-parameters null) nil)
   (reply-parameters (or reply-parameters null) nil)
   (reply-markup (or inline-keyboard-markup reply-keyboard-markup reply-keyboard-remove force-reply null) nil))
+
+;; TODO: Some kind of caching for files?
+(defun reply-animation (bot msg animation &key allow-sending-without-reply text parse-mode caption-above)
+  (send-animation bot
+                  :chat-id (message-chat-id msg)
+                  :animation animation
+                  :caption text
+                  :parse-mode parse-mode
+                  :show-caption-above-media caption-above
+                  :reply-parameters
+                  (make-reply-parameters
+                   :allow-sending-without-reply allow-sending-without-reply
+                   :message-id (message-id msg)
+                   :chat-id (message-chat-id msg))))