blob: bc08984c9c1ab89274caede7d4ffb3615f42496d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/tg-types/update
(:use
:c2cl
:ukkoclot/tg-types/macros
:ukkoclot/tg-types/business-connection
:ukkoclot/tg-types/callback-query
:ukkoclot/tg-types/message)
(:export
#:update
#:make-update
#:update-p
#:copy-update
#:update-update-id
#:update-message
#:update-edited-message
#:update-channel-post
#:update-edited-channel-post
#:update-business-connection
#:update-business-message
#:update-edited-business-message
#:update-callback-query))
(in-package :ukkoclot/tg-types/update)
(define-tg-type update
(update-id integer)
(message (or message null) nil)
(edited-message (or message null) nil)
(channel-post (or message null) nil)
(edited-channel-post (or message null) nil)
(business-connection (or business-connection null) nil)
(business-message (or message null) nil)
(edited-business-message (or message null) nil)
;; (deleted-business-messages (or business-messages-deleted null) nil)
;; (message-reaction (or message-reaction-updated null) nil)
;; (message-reaction-count (or message-reaction-count-updated null) nil)
;; (inline-query (or inline-query null) nil)
;; (chosen-inline-result (or chosen-inline-result null) nil)
(callback-query (or callback-query null) nil)
;; (shipping-query (or shipping-query null) nil)
;; (pre-checkout-query (or pre-checkout-query null) nil)
;; (poll (or poll null) nil)
;; (poll-answer (or poll-answer null) nil)
;; (my-chat-member (or chat-member-updated null) nil)
;; (chat-member (or chat-member-updated null) nil)
;; (chat-join-request (or chat-join-request null) nil)
;; (chat-boost (or chat-boost-updated null) nil)
;; (removed-chat-boost (or chat-boost-removed) nil)
)
|
