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/reply-parameters.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/reply-parameters.lisp')
| -rw-r--r-- | src/tg-types/reply-parameters.lisp | 27 |
1 files changed, 12 insertions, 15 deletions
diff --git a/src/tg-types/reply-parameters.lisp b/src/tg-types/reply-parameters.lisp index 29d21f7..ac38db7 100644 --- a/src/tg-types/reply-parameters.lisp +++ b/src/tg-types/reply-parameters.lisp | |||
| @@ -3,21 +3,18 @@ | |||
| 3 | (defpackage :ukkoclot/tg-types/reply-parameters | 3 | (defpackage :ukkoclot/tg-types/reply-parameters |
| 4 | (:use :c2cl :ukkoclot/tg-types/macros :ukkoclot/tg-types/message-entity) | 4 | (:use :c2cl :ukkoclot/tg-types/macros :ukkoclot/tg-types/message-entity) |
| 5 | (:export | 5 | (:export |
| 6 | reply-parameters | 6 | #:reply-parameters |
| 7 | make-reply-parameters | 7 | #:make-reply-parameters |
| 8 | reply-parameters-p | 8 | #:reply-parameters-p |
| 9 | copy-reply-parameters | 9 | #:copy-reply-parameters |
| 10 | reply-parameters-message-id | 10 | #:reply-parameters-message-id |
| 11 | reply-parameters-chat-id | 11 | #:reply-parameters-chat-id |
| 12 | reply-parameters-allow-sending-without-reply | 12 | #:reply-parameters-allow-sending-without-reply |
| 13 | reply-parameters-quote | 13 | #:reply-parameters-quote |
| 14 | reply-parameters-quote-parse-mode | 14 | #:reply-parameters-quote-parse-mode |
| 15 | reply-parameters-quote-entities | 15 | #:reply-parameters-quote-entities |
| 16 | reply-parameters-quote-position | 16 | #:reply-parameters-quote-position |
| 17 | reply-parameters-checklist-task-id | 17 | #:reply-parameters-checklist-task-id)) |
| 18 | |||
| 19 | hash->reply-parameters | ||
| 20 | parse-reply-parameters-array)) | ||
| 21 | (in-package :ukkoclot/tg-types/reply-parameters) | 18 | (in-package :ukkoclot/tg-types/reply-parameters) |
| 22 | 19 | ||
| 23 | (define-tg-type reply-parameters | 20 | (define-tg-type reply-parameters |