1 files changed, 44 insertions, 0 deletions

diff --git a/src/tg/chat-administrator-rights.lisp b/src/tg/chat-administrator-rights.lisp
new file mode 100644
index 0000000..2c37757
--- /dev/null
+++ b/src/tg/chat-administrator-rights.lisp
@@ -0,0 +1,44 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg/chat-administrator-rights
+  (:use :c2cl :ukkoclot/tg/macros)
+  (:export
+   #:chat-administrator-rights
+   #:make-chat-administrator-rights
+   #:chat-administrator-rights-p
+   #:copy-chat-administrator-rights
+   #:chat-administrator-rights-is-anonymous
+   #:chat-administrator-rights-can-manage-chat
+   #:chat-administrator-rights-can-delete-messages
+   #:chat-administrator-rights-can-manage-video-chats
+   #:chat-administrator-rights-can-restrict-members
+   #:chat-administrator-rights-can-promote-members
+   #:chat-administrator-rights-can-change-info
+   #:chat-administrator-rights-can-invite-users
+   #:chat-administrator-rights-can-post-stories
+   #:chat-administrator-rights-can-edit-stories
+   #:chat-administrator-rights-can-delete-stories
+   #:chat-administrator-rights-can-post-messages
+   #:chat-administrator-rights-can-edit-messages
+   #:chat-administrator-rights-can-pin-messages
+   #:chat-administrator-rights-can-manage-topics
+   #:chat-administrator-rights-can-manage-direct-messages))
+(in-package :ukkoclot/tg/chat-administrator-rights)
+
+(define-tg-type chat-administrator-rights
+  (is-anonymous boolean)
+  (can-manage-chat boolean)
+  (can-delete-messages boolean)
+  (can-manage-video-chats boolean)
+  (can-restrict-members boolean)
+  (can-promote-members boolean)
+  (can-change-info boolean)
+  (can-invite-users boolean)
+  (can-post-stories boolean)
+  (can-edit-stories boolean)
+  (can-delete-stories boolean)
+  (can-post-messages boolean nil)
+  (can-edit-messages boolean nil)
+  (can-pin-messages boolean nil)
+  (can-manage-topics boolean nil)
+  (can-manage-direct-messages boolean nil))