Move bot/methods to tg/*

1 files changed, 15 insertions, 0 deletions

diff --git a/src/tg/get-me.lisp b/src/tg/get-me.lisp
new file mode 100644
index 0000000..ae00717
--- /dev/null
+++ b/src/tg/get-me.lisp
@@ -0,0 +1,15 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg/get-me
+  (:use :c2cl :ukkoclot/bot/method-macros :ukkoclot/tg/user)
+  (:import-from :ukkoclot/state :bot-id% :bot-username%)
+  (:export :get-me))
+(in-package :ukkoclot/tg/get-me)
+
+(define-tg-method (get-me% user :GET))
+
+(defun get-me (bot)
+  (let ((res (get-me% bot)))
+    (setf (bot-id% bot) (user-id res))
+    (setf (bot-username% bot) (user-username res))
+    res))