diff options
Diffstat (limited to 'src/tg/reply-parameters.lisp')
| -rw-r--r-- | src/tg/reply-parameters.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/tg/reply-parameters.lisp b/src/tg/reply-parameters.lisp index d9c7b3b..152b57b 100644 --- a/src/tg/reply-parameters.lisp +++ b/src/tg/reply-parameters.lisp | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | 1 | ;; SPDX-License-Identifier: EUPL-1.2 |
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> |
| 3 | (defpackage :ukkoclot/src/tg/reply-parameters | 3 | (defpackage :ukkoclot/src/tg/reply-parameters |
| 4 | (:documentation "ReplyParameters Telegram type") | ||
| 4 | (:use :c2cl :ukkoclot/src/tg/type-macros :ukkoclot/src/tg/message-entity) | 5 | (:use :c2cl :ukkoclot/src/tg/type-macros :ukkoclot/src/tg/message-entity) |
| 5 | (:export | 6 | (:export |
| 6 | #:reply-parameters | 7 | #:reply-parameters |
| @@ -21,7 +22,7 @@ | |||
| 21 | (message-id integer) | 22 | (message-id integer) |
| 22 | (chat-id (or integer string null) nil) | 23 | (chat-id (or integer string null) nil) |
| 23 | ;; TODO: This should be a ternary true, false, default | 24 | ;; TODO: This should be a ternary true, false, default |
| 24 | (allow-sending-without-reply boolean nil) | 25 | (allow-sending-without-reply boolean nil :skip-if-default nil) |
| 25 | (quote (or string null) nil) | 26 | (quote (or string null) nil) |
| 26 | (quote-parse-mode (or string null) nil) | 27 | (quote-parse-mode (or string null) nil) |
| 27 | (quote-entities (or (array message-entity) null) nil) | 28 | (quote-entities (or (array message-entity) null) nil) |