;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/src/tg/send-message
  (:use
   :c2cl
   :ukkoclot/src/tg/force-reply
   :ukkoclot/src/tg/inline-keyboard-markup
   :ukkoclot/src/tg/link-preview-options
   :ukkoclot/src/tg/message
   :ukkoclot/src/tg/message-entity
   :ukkoclot/src/tg/method-macros
   :ukkoclot/src/tg/parse-mode
   :ukkoclot/src/tg/reply-keyboard-markup
   :ukkoclot/src/tg/reply-keyboard-remove
   :ukkoclot/src/tg/reply-parameters)
  (:export :reply-message :send-message))
(in-package :ukkoclot/src/tg/send-message)

(define-tg-method (send-message message)
  (business-connection-id (or string null) nil)
  (chat-id (or integer string))
  (message-thread-id (or integer null) nil)
  (text string)
  (parse-mode (or parse-mode null) nil)
  (entities (or (array message-entity) null) nil)
  (link-preview-options (or link-preview-options null) nil)
  (disable-notification (or boolean null) nil)
  (protect-content (or boolean null) nil)
  (message-effect-id (or string null) nil)
  (reply-parameters (or reply-parameters null) nil)
  (reply-markup (or inline-keyboard-markup reply-keyboard-markup reply-keyboard-remove force-reply null) nil))

(defun reply-message (bot msg text &key parse-mode allow-sending-without-reply)
  (send-message bot
                :chat-id (message-chat-id msg)
                :text text
                :parse-mode parse-mode
                :reply-parameters
                (make-reply-parameters
                 :allow-sending-without-reply allow-sending-without-reply
                 :message-id (message-id msg)
                 :chat-id (message-chat-id msg))))