diff options
Diffstat (limited to 'src/tg/chat.lisp')
| -rw-r--r-- | src/tg/chat.lisp | 28 |
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)) | ||