Add a helper reply-message function

1 files changed, 29 insertions, 0 deletions

diff --git a/src/bot/advanced.lisp b/src/bot/advanced.lisp
new file mode 100644
index 0000000..a6ad9ba
--- /dev/null
+++ b/src/bot/advanced.lisp
@@ -0,0 +1,29 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/bot/advanced
+  (:use :c2cl :ukkoclot/bot/impl :ukkoclot/bot/methods :ukkoclot/tg-types)
+  (:export :bot-id :bot-username :reply-message))
+(in-package :ukkoclot/bot/advanced)
+
+(defun bot-id (bot)
+  (or (bot-id% bot)
+      (progn
+        (get-me bot)
+        (bot-id% bot))))
+
+(defun bot-username (bot)
+  (or (bot-username% bot)
+      (progn
+        (get-me bot)
+        (bot-username% bot))))
+
+(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))))