summaryrefslogtreecommitdiff
path: root/src/tg/send-animation.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/tg/send-animation.lisp')
-rw-r--r--src/tg/send-animation.lisp7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/tg/send-animation.lisp b/src/tg/send-animation.lisp
index a0b2d57..560b331 100644
--- a/src/tg/send-animation.lisp
+++ b/src/tg/send-animation.lisp
@@ -1,6 +1,7 @@
1;; SPDX-License-Identifier: EUPL-1.2 1;; SPDX-License-Identifier: EUPL-1.2
2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> 2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
3(defpackage :ukkoclot/src/tg/send-animation 3(defpackage :ukkoclot/src/tg/send-animation
4 (:documentation "sendAnimation Telegram method")
4 (:use 5 (:use
5 :c2cl 6 :c2cl
6 :ukkoclot/src/tg/force-reply 7 :ukkoclot/src/tg/force-reply
@@ -40,9 +41,9 @@
40 (reply-markup (or inline-keyboard-markup reply-keyboard-markup reply-keyboard-remove force-reply null) nil)) 41 (reply-markup (or inline-keyboard-markup reply-keyboard-markup reply-keyboard-remove force-reply null) nil))
41 42
42;; TODO: Some kind of caching for files? 43;; TODO: Some kind of caching for files?
43(defun reply-animation (bot msg animation &key allow-sending-without-reply text parse-mode caption-above) 44(defun reply-animation (msg animation &key allow-sending-without-reply text parse-mode caption-above)
44 (send-animation bot 45 "Shortcut to reply to a given MSG with an animation."
45 :chat-id (message-chat-id msg) 46 (send-animation :chat-id (message-chat-id msg)
46 :animation animation 47 :animation animation
47 :caption text 48 :caption text
48 :parse-mode parse-mode 49 :parse-mode parse-mode