;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/tg/update
  (:use
   :c2cl
   :ukkoclot/tg/type-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)
  )