1 files changed, 52 insertions, 0 deletions

diff --git a/src/tg/update.lisp b/src/tg/update.lisp
new file mode 100644
index 0000000..1f0a463
--- /dev/null
+++ b/src/tg/update.lisp
@@ -0,0 +1,52 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg/update
+  (:use
+   :c2cl
+   :ukkoclot/tg/macros
+   :ukkoclot/tg/business-connection
+   :ukkoclot/tg/callback-query
+   :ukkoclot/tg/message
+   :ukkoclot/tg/message-reaction-updated)
+  (: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-message-reaction
+   #:update-callback-query))
+(in-package :ukkoclot/tg/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)
+  )