diff options
| author | 2025-10-10 12:30:46 +0300 | |
|---|---|---|
| committer | 2025-10-10 12:30:46 +0300 | |
| commit | b4c1f66e1631f40d8a7d0f80523470677a91381f (patch) | |
| tree | ef3aa478cfca05dc27e0777f9c42813d4268e54a /src/tg-types/chat.lisp | |
| parent | Add a helper reply-message function (diff) | |
| download | ukkoclot-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.lisp | 31 |
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) |