Rename tg-types to just tg

1 files changed, 40 insertions, 0 deletions

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