Move bot/methods to tg/*

1 files changed, 31 insertions, 0 deletions

diff --git a/src/tg/send-message.lisp b/src/tg/send-message.lisp
new file mode 100644
index 0000000..d2e7248
--- /dev/null
+++ b/src/tg/send-message.lisp
@@ -0,0 +1,31 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg/send-message
+  (:use
+   :c2cl
+   :ukkoclot/tg/force-reply
+   :ukkoclot/tg/inline-keyboard-markup
+   :ukkoclot/tg/link-preview-options
+   :ukkoclot/tg/message
+   :ukkoclot/tg/message-entity
+   :ukkoclot/bot/method-macros
+   :ukkoclot/tg/parse-mode
+   :ukkoclot/tg/reply-keyboard-markup
+   :ukkoclot/tg/reply-keyboard-remove
+   :ukkoclot/tg/reply-parameters)
+  (:export :send-message))
+(in-package :ukkoclot/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))