blob: 445b1fdaac1990dccffc7e207a414b44093ed99b (
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
|
;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/src/tg/chat
(:documentation "Chat Telegram type")
(:use :c2cl :ukkoclot/src/tg/chat-type :ukkoclot/src/tg/type-macros)
(:export
#:chat
#:make-chat
#:chat-p
#:copy-chat
#:chat-id
#:chat-type
#:chat-title
#:chat-username
#:chat-first-name
#:chat-last-name
#:chat-is-forum
#:chat-is-direct-messages))
(in-package :ukkoclot/src/tg/chat)
(define-tg-type chat
(id integer)
(type chat-type)
(title (or string null) nil)
(username (or string null) nil)
(first-name (or string null) nil)
(last-name (or string null) nil)
(is-forum boolean nil)
(is-direct-messages boolean nil))
|
