summaryrefslogtreecommitdiff
path: root/src/tg/message-reaction-updated.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/tg/message-reaction-updated.lisp')
-rw-r--r--src/tg/message-reaction-updated.lisp31
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)))