summaryrefslogtreecommitdiff
path: root/src/tg/chat.lisp
diff options
context:
space:
mode:
authorGravatar Uko Kokņevičs2025-10-13 00:05:43 +0300
committerGravatar Uko Kokņevičs2025-10-13 00:05:43 +0300
commit5a941f218b918ca3b301d661942f0911c5153a12 (patch)
tree2846be6d3428342d1a1f9f1cd7bc5058a4d4fe1a /src/tg/chat.lisp
parentSome more TG types (diff)
downloadukkoclot-5a941f218b918ca3b301d661942f0911c5153a12.tar.gz
ukkoclot-5a941f218b918ca3b301d661942f0911c5153a12.tar.xz
ukkoclot-5a941f218b918ca3b301d661942f0911c5153a12.zip
Rename tg-types to just tg
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))