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/user.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/user.lisp')
| -rw-r--r-- | src/tg-types/user.lisp | 23 |
1 files changed, 17 insertions, 6 deletions
diff --git a/src/tg-types/user.lisp b/src/tg-types/user.lisp index c5ed499..b5be417 100644 --- a/src/tg-types/user.lisp +++ b/src/tg-types/user.lisp | |||
| @@ -4,13 +4,24 @@ | |||
| 4 | (:use :c2cl :ukkoclot/tg-types/macros) | 4 | (:use :c2cl :ukkoclot/tg-types/macros) |
| 5 | (:import-from :ukkoclot/strings :escape-xml) | 5 | (:import-from :ukkoclot/strings :escape-xml) |
| 6 | (:export | 6 | (:export |
| 7 | user user-p | 7 | #:user |
| 8 | #:make-user | ||
| 9 | #:user-p | ||
| 10 | #:copy-user | ||
| 11 | #:user-id | ||
| 12 | #:user-is-bot | ||
| 13 | #:user-first-name | ||
| 14 | #:user-last-name | ||
| 15 | #:user-username | ||
| 16 | #:user-language-code | ||
| 17 | #:user-is-premium | ||
| 18 | #:user-added-to-attachment-menu | ||
| 19 | #:user-can-join-groups | ||
| 20 | #:user-can-read-all-group-messages | ||
| 21 | #:user-supports-inline-queries | ||
| 22 | #:user-can-connect-to-business | ||
| 8 | 23 | ||
| 9 | hash->user make-user parse-user-array user-format-name | 24 | #:user-format-name)) |
| 10 | |||
| 11 | user-id user-is-bot user-first-name user-last-name user-username user-language-code user-is-premium | ||
| 12 | user-added-to-attachment-menu user-can-join-groups user-can-read-all-group-messages user-supports-inline-queries | ||
| 13 | user-can-connect-to-business)) | ||
| 14 | (in-package :ukkoclot/tg-types/user) | 25 | (in-package :ukkoclot/tg-types/user) |
| 15 | 26 | ||
| 16 | (define-tg-type user | 27 | (define-tg-type user |