1 files changed, 28 insertions, 0 deletions

diff --git a/src/tg/business-connection.lisp b/src/tg/business-connection.lisp
new file mode 100644
index 0000000..74f6c9e
--- /dev/null
+++ b/src/tg/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/business-connection
+  (:use
+   :c2cl
+   :ukkoclot/tg/macros
+   :ukkoclot/tg/business-bot-rights
+   :ukkoclot/tg/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/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))