blob: 05f5fb765dc5980c2ab66ef4caf6c9cc970136ac (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/src/tg/chat-administrator-rights
(:use :c2cl :ukkoclot/src/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/src/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))
|
