summaryrefslogtreecommitdiff
path: root/src/tg-types/chat.lisp
diff options
context:
space:
mode:
authorGravatar Uko Kokņevičs2025-10-10 12:30:46 +0300
committerGravatar Uko Kokņevičs2025-10-10 12:30:46 +0300
commitb4c1f66e1631f40d8a7d0f80523470677a91381f (patch)
treeef3aa478cfca05dc27e0777f9c42813d4268e54a /src/tg-types/chat.lisp
parentAdd a helper reply-message function (diff)
downloadukkoclot-b4c1f66e1631f40d8a7d0f80523470677a91381f.tar.gz
ukkoclot-b4c1f66e1631f40d8a7d0f80523470677a91381f.tar.xz
ukkoclot-b4c1f66e1631f40d8a7d0f80523470677a91381f.zip
Bunch of changes
- Animations - Rewrite of serialization deserialization - Bunch of new TG types
Diffstat (limited to 'src/tg-types/chat.lisp')
-rw-r--r--src/tg-types/chat.lisp31
1 files changed, 14 insertions, 17 deletions
diff --git a/src/tg-types/chat.lisp b/src/tg-types/chat.lisp
index 4010f7b..3ad42ef 100644
--- a/src/tg-types/chat.lisp
+++ b/src/tg-types/chat.lisp
@@ -1,28 +1,25 @@
1;; SPDX-License-Identifier: EUPL-1.2 1;; SPDX-License-Identifier: EUPL-1.2
2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> 2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
3(defpackage :ukkoclot/tg-types/chat 3(defpackage :ukkoclot/tg-types/chat
4 (:use :c2cl :ukkoclot/tg-types/macros :ukkoclot/tg-types/parsers) 4 (:use :c2cl :ukkoclot/tg-types/macros)
5 (:export 5 (:export
6 chat 6 #:chat
7 make-chat 7 #:make-chat
8 chat-p 8 #:chat-p
9 copy-chat 9 #:copy-chat
10 chat-id 10 #:chat-id
11 chat-type 11 #:chat-type
12 chat-title 12 #:chat-title
13 chat-username 13 #:chat-username
14 chat-first-name 14 #:chat-first-name
15 chat-last-name 15 #:chat-last-name
16 chat-is-forum 16 #:chat-is-forum
17 chat-is-direct-messages 17 #:chat-is-direct-messages))
18
19 hash->chat
20 parse-chat-array))
21(in-package :ukkoclot/tg-types/chat) 18(in-package :ukkoclot/tg-types/chat)
22 19
23(define-tg-type chat 20(define-tg-type chat
24 (id integer) 21 (id integer)
25 (type keyword nil :parser tg-string->keyword) 22 (type string nil) ;TODO: member of keywords
26 (title (or string null) nil) 23 (title (or string null) nil)
27 (username (or string null) nil) 24 (username (or string null) nil)
28 (first-name (or string null) nil) 25 (first-name (or string null) nil)