Make state be a global special variable

1 files changed, 7 insertions, 3 deletions

diff --git a/src/tg/set-my-name.lisp b/src/tg/set-my-name.lisp
index 67c698d..2b3869a 100644
--- a/src/tg/set-my-name.lisp
+++ b/src/tg/set-my-name.lisp
@@ -1,6 +1,7 @@
 ;; SPDX-License-Identifier: EUPL-1.2
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/src/tg/set-my-name
+  (:documentation "setMyName Telegram method.")
   (:use :c2cl :ukkoclot/src/tg/bot-name :ukkoclot/src/tg/get-my-name :ukkoclot/src/tg/method-macros)
   (:export :set-my-name))
 (in-package :ukkoclot/src/tg/set-my-name)
@@ -9,11 +10,14 @@
   (name (or string null) nil)
   (language-code (or string null) nil))
 
-(defun set-my-name (bot &key (name nil) (language-code nil))
+(defun set-my-name (&key (name nil) (language-code nil))
+  "setMyName Telegram method.
+
+We also first check if the name is already set because setMyName has a very heavy rate limiting impact."
   (block nil
     (when name
-      (let ((curr-name (get-my-name bot :language-code language-code)))
+      (let ((curr-name (get-my-name :language-code language-code)))
         (when (string= name (bot-name-name curr-name))
           (return))))
-    (unless (set-my-name% bot :name name :language-code language-code)
+    (unless (set-my-name% :name name :language-code language-code)
       (error "Failed to set name"))))