summaryrefslogtreecommitdiff
path: root/src/tg/chat.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/tg/chat.lisp')
-rw-r--r--src/tg/chat.lisp28
1 files changed, 28 insertions, 0 deletions
diff --git a/src/tg/chat.lisp b/src/tg/chat.lisp
new file mode 100644
index 0000000..1fa3f7e
--- /dev/null
+++ b/src/tg/chat.lisp
@@ -0,0 +1,28 @@
1;; SPDX-License-Identifier: EUPL-1.2
2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
3(defpackage :ukkoclot/tg/chat
4 (:use :c2cl :ukkoclot/tg/chat-type :ukkoclot/tg/macros)
5 (:export
6 #:chat
7 #:make-chat
8 #:chat-p
9 #:copy-chat
10 #:chat-id
11 #:chat-type
12 #:chat-title
13 #:chat-username
14 #:chat-first-name
15 #:chat-last-name
16 #:chat-is-forum
17 #:chat-is-direct-messages))
18(in-package :ukkoclot/tg/chat)
19
20(define-tg-type chat
21 (id integer)
22 (type chat-type)
23 (title (or string null) nil)
24 (username (or string null) nil)
25 (first-name (or string null) nil)
26 (last-name (or string null) nil)
27 (is-forum boolean nil)
28 (is-direct-messages boolean nil))