;; 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/type-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))