diff options
Diffstat (limited to 'src/tg/send-animation.lisp')
| -rw-r--r-- | src/tg/send-animation.lisp | 7 |
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 |