blob: 152b57b201f4de2d8fd1efb16285817944aafcb1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/src/tg/reply-parameters
(:documentation "ReplyParameters Telegram type")
(:use :c2cl :ukkoclot/src/tg/type-macros :ukkoclot/src/tg/message-entity)
(:export
#:reply-parameters
#:make-reply-parameters
#:reply-parameters-p
#:copy-reply-parameters
#:reply-parameters-message-id
#:reply-parameters-chat-id
#:reply-parameters-allow-sending-without-reply
#:reply-parameters-quote
#:reply-parameters-quote-parse-mode
#:reply-parameters-quote-entities
#:reply-parameters-quote-position
#:reply-parameters-checklist-task-id))
(in-package :ukkoclot/src/tg/reply-parameters)
(define-tg-type reply-parameters
(message-id integer)
(chat-id (or integer string null) nil)
;; TODO: This should be a ternary true, false, default
(allow-sending-without-reply boolean nil :skip-if-default nil)
(quote (or string null) nil)
(quote-parse-mode (or string null) nil)
(quote-entities (or (array message-entity) null) nil)
(quote-position (or integer null) nil)
(checklist-task-id (or integer null) nil))
|
