diff options
Diffstat (limited to 'src/tg-types/chat.lisp')
| -rw-r--r-- | src/tg-types/chat.lisp | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/src/tg-types/chat.lisp b/src/tg-types/chat.lisp new file mode 100644 index 0000000..4010f7b --- /dev/null +++ b/src/tg-types/chat.lisp | |||
| @@ -0,0 +1,31 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | ||
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | ||
| 3 | (defpackage :ukkoclot/tg-types/chat | ||
| 4 | (:use :c2cl :ukkoclot/tg-types/macros :ukkoclot/tg-types/parsers) | ||
| 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 | |||
| 19 | hash->chat | ||
| 20 | parse-chat-array)) | ||
| 21 | (in-package :ukkoclot/tg-types/chat) | ||
| 22 | |||
| 23 | (define-tg-type chat | ||
| 24 | (id integer) | ||
| 25 | (type keyword nil :parser tg-string->keyword) | ||
| 26 | (title (or string null) nil) | ||
| 27 | (username (or string null) nil) | ||
| 28 | (first-name (or string null) nil) | ||
| 29 | (last-name (or string null) nil) | ||
| 30 | (is-forum boolean nil) | ||
| 31 | (is-direct-messages boolean nil)) | ||