src/tg/set-my-name.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/src/tg/set-my-name
  (: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)

(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"))))