;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/tg/reply-parameters
  (:use :c2cl :ukkoclot/tg/type-macros :ukkoclot/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/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)
  (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))