summaryrefslogtreecommitdiff
path: root/src/tg-types/user.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/user.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/user.lisp')
-rw-r--r--src/tg-types/user.lisp23
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