From 8b8bd2b811ed4097a3aaf8785d233bd012d22ac0 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Mon, 13 Oct 2025 06:48:00 +0300
Subject: Move bot/adanced to tg/*

---
 src/tg/send-message.lisp | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'src/tg/send-message.lisp')

diff --git a/src/tg/send-message.lisp b/src/tg/send-message.lisp
index d2e7248..7cd91d9 100644
--- a/src/tg/send-message.lisp
+++ b/src/tg/send-message.lisp
@@ -13,7 +13,7 @@
    :ukkoclot/tg/reply-keyboard-markup
    :ukkoclot/tg/reply-keyboard-remove
    :ukkoclot/tg/reply-parameters)
-  (:export :send-message))
+  (:export :reply-message :send-message))
 (in-package :ukkoclot/tg/send-message)
 
 (define-tg-method (send-message message)
@@ -29,3 +29,14 @@
   (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))))
-- 
cgit v1.2.3