diff options
Diffstat (limited to 'src/bot/methods.lisp')
| -rw-r--r-- | src/bot/methods.lisp | 15 |
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) |