From 4e23b8a01ce387dc6533d6b14d64ae5ccc86f584 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Sun, 12 Oct 2025 23:35:11 +0300
Subject: Added BusinessBotRights and BusinessConnection

---
 src/tg-types.lisp                     |  2 ++
 src/tg-types/business-bot-rights.lisp | 40 +++++++++++++++++++++++++++++++++++
 src/tg-types/business-connection.lisp | 28 ++++++++++++++++++++++++
 src/tg-types/update.lisp              |  8 +++++--
 4 files changed, 76 insertions(+), 2 deletions(-)
 create mode 100644 src/tg-types/business-bot-rights.lisp
 create mode 100644 src/tg-types/business-connection.lisp

(limited to 'src')

diff --git a/src/tg-types.lisp b/src/tg-types.lisp
index 68c5735..15dd7d6 100644
--- a/src/tg-types.lisp
+++ b/src/tg-types.lisp
@@ -5,6 +5,8 @@
   (:use-reexport
    :ukkoclot/tg-types/animation
    :ukkoclot/tg-types/bot-name
+   :ukkoclot/tg-types/business-bot-rights
+   :ukkoclot/tg-types/business-connection
    :ukkoclot/tg-types/callback-query
    :ukkoclot/tg-types/chat
    :ukkoclot/tg-types/chat-type
diff --git a/src/tg-types/business-bot-rights.lisp b/src/tg-types/business-bot-rights.lisp
new file mode 100644
index 0000000..7a65dcd
--- /dev/null
+++ b/src/tg-types/business-bot-rights.lisp
@@ -0,0 +1,40 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg-types/business-bot-rights
+  (:use :c2cl :ukkoclot/tg-types/macros)
+  (:export
+   #:business-bot-rights
+   #:make-business-bot-rights
+   #:business-bot-rights-p
+   #:copy-business-bot-rights
+   #:business-bot-rights-can-reply
+   #:business-bot-rights-can-read-messages
+   #:business-bot-rights-can-delete-sent-messages
+   #:business-bot-rights-can-delete-all-messages
+   #:business-bot-rights-can-edit-name
+   #:business-bot-rights-can-edit-bio
+   #:business-bot-rights-can-edit-profile-photo
+   #:business-bot-rights-can-edit-username
+   #:business-bot-rights-can-change-gift-settings
+   #:business-bot-rights-can-view-gifts-and-stars
+   #:business-bot-rights-can-convert-gifts-to-stars
+   #:business-bot-rights-can-transfer-and-upgrade-gifts
+   #:business-bot-rights-can-transfer-stars
+   #:business-bot-rights-can-manage-stories))
+(in-package :ukkoclot/tg-types/business-bot-rights)
+
+(define-tg-type business-bot-rights
+  (can-reply boolean nil)
+  (can-read-messages boolean nil)
+  (can-delete-sent-messages boolean nil)
+  (can-delete-all-messages boolean nil)
+  (can-edit-name boolean nil)
+  (can-edit-bio boolean nil)
+  (can-edit-profile-photo boolean nil)
+  (can-edit-username boolean nil)
+  (can-change-gift-settings boolean nil)
+  (can-view-gifts-and-stars boolean nil)
+  (can-convert-gifts-to-stars boolean nil)
+  (can-transfer-and-upgrade-gifts boolean nil)
+  (can-transfer-stars boolean nil)
+  (can-manage-stories boolean nil))
diff --git a/src/tg-types/business-connection.lisp b/src/tg-types/business-connection.lisp
new file mode 100644
index 0000000..04fe7c4
--- /dev/null
+++ b/src/tg-types/business-connection.lisp
@@ -0,0 +1,28 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg-types/business-connection
+  (:use
+   :c2cl
+   :ukkoclot/tg-types/macros
+   :ukkoclot/tg-types/business-bot-rights
+   :ukkoclot/tg-types/user)
+  (:export
+   #:business-connection
+   #:make-business-connection
+   #:business-connection-p
+   #:copy-business-connection
+   #:business-connection-id
+   #:business-connection-user
+   #:business-connection-user-chat-id
+   #:business-connection-date
+   #:business-connection-rights
+   #:business-connection-is-enabled))
+(in-package :ukkoclot/tg-types/business-connection)
+
+(define-tg-type business-connection
+  (id string)
+  (user user)
+  (user-chat-id integer)
+  (date integer)
+  (rights (or business-bot-rights null) nil)
+  (is-enabled boolean))
diff --git a/src/tg-types/update.lisp b/src/tg-types/update.lisp
index c259553..bc08984 100644
--- a/src/tg-types/update.lisp
+++ b/src/tg-types/update.lisp
@@ -1,7 +1,10 @@
 ;; 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
+  (:use
+   :c2cl
+   :ukkoclot/tg-types/macros
+   :ukkoclot/tg-types/business-connection
    :ukkoclot/tg-types/callback-query
    :ukkoclot/tg-types/message)
   (:export
@@ -14,6 +17,7 @@
    #:update-edited-message
    #:update-channel-post
    #:update-edited-channel-post
+   #:update-business-connection
    #:update-business-message
    #:update-edited-business-message
    #:update-callback-query))
@@ -25,7 +29,7 @@
   (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-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)
-- 
cgit v1.2.3