Move bot/methods to tg/*

1 files changed, 19 insertions, 0 deletions

diff --git a/src/tg/set-my-name.lisp b/src/tg/set-my-name.lisp
new file mode 100644
index 0000000..5638a92
--- /dev/null
+++ b/src/tg/set-my-name.lisp
@@ -0,0 +1,19 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg/set-my-name
+  (:use :c2cl :ukkoclot/tg/bot-name :ukkoclot/tg/get-my-name :ukkoclot/bot/method-macros)
+  (:export :set-my-name))
+(in-package :ukkoclot/tg/set-my-name)
+
+(define-tg-method (set-my-name% boolean)
+  (name (or string null) nil)
+  (language-code (or string null) nil))
+
+(defun set-my-name (bot &key (name nil) (language-code nil))
+  (block nil
+    (when name
+      (let ((curr-name (get-my-name bot :language-code language-code)))
+        (when (string= name (bot-name-name curr-name))
+          (return))))
+    (unless (set-my-name% bot :name name :language-code language-code)
+      (error "Failed to set name"))))