blob: 04fe7c4af625eb166f45c7474907ffc2fd581063 (
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
|
;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/tg-types/business-connection
(:use
:c2cl
:ukkoclot/tg-types/macros
:ukkoclot/tg-types/business-bot-rights
:ukkoclot/tg-types/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-types/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))
|
