diff options
Diffstat (limited to 'src/tg/message-reaction-updated.lisp')
| -rw-r--r-- | src/tg/message-reaction-updated.lisp | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/src/tg/message-reaction-updated.lisp b/src/tg/message-reaction-updated.lisp new file mode 100644 index 0000000..f91a8f1 --- /dev/null +++ b/src/tg/message-reaction-updated.lisp | |||
| @@ -0,0 +1,31 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | ||
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | ||
| 3 | (defpackage :ukkoclot/tg/message-reaction-updated | ||
| 4 | (:use | ||
| 5 | :c2cl | ||
| 6 | :ukkoclot/tg/chat | ||
| 7 | :ukkoclot/tg/macros | ||
| 8 | :ukkoclot/tg/reaction-type | ||
| 9 | :ukkoclot/tg/user) | ||
| 10 | (:export | ||
| 11 | #:message-reaction-updated | ||
| 12 | #:make-message-reaction-updated | ||
| 13 | #:message-reaction-updated-p | ||
| 14 | #:copy-message-reaction-updated | ||
| 15 | #:message-reaction-updated-chat | ||
| 16 | #:message-reaction-updated-message-id | ||
| 17 | #:message-reaction-updated-user | ||
| 18 | #:message-reaction-updated-actor-chat | ||
| 19 | #:message-reaction-updated-date | ||
| 20 | #:message-reaction-updated-old-reaction | ||
| 21 | #:message-reaction-updated-new-reaction)) | ||
| 22 | (in-package :ukkoclot/tg/message-reaction-updated) | ||
| 23 | |||
| 24 | (define-tg-type message-reaction-updated | ||
| 25 | (chat chat) | ||
| 26 | (message-id integer) | ||
| 27 | (user (or user null) nil) | ||
| 28 | (actor-chat (or chat null) nil) | ||
| 29 | (date integer) | ||
| 30 | (old-reaction (array reaction-type)) | ||
| 31 | (new-reaction (array reaction-type))) | ||