summaryrefslogtreecommitdiff
path: root/src/bot/methods.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/bot/methods.lisp')
-rw-r--r--src/bot/methods.lisp15
1 files changed, 2 insertions, 13 deletions
diff --git a/src/bot/methods.lisp b/src/bot/methods.lisp
index b0eca5c..99b6411 100644
--- a/src/bot/methods.lisp
+++ b/src/bot/methods.lisp
@@ -2,7 +2,7 @@
2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> 2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
3(defpackage :ukkoclot/bot/methods 3(defpackage :ukkoclot/bot/methods
4 (:use :c2cl :ukkoclot/bot/impl :ukkoclot/tg-types :ukkoclot/tg-types/macros) 4 (:use :c2cl :ukkoclot/bot/impl :ukkoclot/tg-types :ukkoclot/tg-types/macros)
5 (:export :answer-callback-query :bot-id :bot-username :delete-message :edit-message-text :get-me :get-updates :send-message :set-my-name)) 5 (:export :answer-callback-query :delete-message :edit-message-text :get-me :get-updates :send-message :set-my-name))
6(in-package :ukkoclot/bot/methods) 6(in-package :ukkoclot/bot/methods)
7 7
8(define-tg-method (answer-callback-query boolean "answerCallbackQuery" #'identity) 8(define-tg-method (answer-callback-query boolean "answerCallbackQuery" #'identity)
@@ -12,22 +12,11 @@
12 (url (or string null) nil) 12 (url (or string null) nil)
13 (cache-time (or integer null) nil)) 13 (cache-time (or integer null) nil))
14 14
15(defun bot-id (bot)
16 (or (bot-id% bot)
17 (progn
18 (get-me bot)
19 (bot-id% bot))))
20
21(defun bot-username (bot)
22 (or (bot-username% bot)
23 (progn
24 (get-me bot)
25 (bot-username% bot))))
26
27(define-tg-method (delete-message boolean "deleteMessage" #'identity) 15(define-tg-method (delete-message boolean "deleteMessage" #'identity)
28 (chat-id (or integer string)) 16 (chat-id (or integer string))
29 (message-id integer)) 17 (message-id integer))
30 18
19;; TODO: Add a way to simply specify :message msg :)
31(define-tg-method (edit-message-text message "editMessageText" #'hash->message) 20(define-tg-method (edit-message-text message "editMessageText" #'hash->message)
32 (business-connection-id (or string null) nil) 21 (business-connection-id (or string null) nil)
33 (chat-id (or integer string null) nil) 22 (chat-id (or integer string null) nil)