diff options
| author | Adrian Kummerlaender | 2016-03-13 14:00:11 +0100 |
|---|---|---|
| committer | Adrian Kummerlaender | 2016-03-13 14:00:11 +0100 |
| commit | 9786703f5602d53acceae972909fce4184cb4142 (patch) | |
| tree | 72cdad1b3791787fa45e78f5d3991b6f9677ebfa | |
| parent | cbe9488ff46b05f196708c25d15bfa3c0b5ab0a0 (diff) | |
| download | Telebot-9786703f5602d53acceae972909fce4184cb4142.tar Telebot-9786703f5602d53acceae972909fce4184cb4142.tar.gz Telebot-9786703f5602d53acceae972909fce4184cb4142.tar.bz2 Telebot-9786703f5602d53acceae972909fce4184cb4142.tar.lz Telebot-9786703f5602d53acceae972909fce4184cb4142.tar.xz Telebot-9786703f5602d53acceae972909fce4184cb4142.tar.zst Telebot-9786703f5602d53acceae972909fce4184cb4142.zip | |
Implement further non-inline API methods
| -rw-r--r-- | telebot.scm | 67 |
1 files changed, 61 insertions, 6 deletions
diff --git a/telebot.scm b/telebot.scm index d419c79..0db37c6 100644 --- a/telebot.scm +++ b/telebot.scm @@ -1,10 +1,17 @@ (module telebot (getMe getUpdates sendMessage + forwardMessage + sendPhoto + sendAudio + sendDocument + sendSticker + sendVideo + sendVoice sendLocation sendChatAction - forwardMessage getUserProfilePhotos + getFile pollUpdates) (import chicken scheme) (use srfi-1) @@ -56,6 +63,57 @@ reply_to_message_id reply_markup)) + (wrap-api-method forwardMessage(chat_id + from_chat_id + message_id + disable_notification)) + + (wrap-api-method sendPhoto(chat_id + photo + caption + disable_notification + reply_to_message_id + reply_markup)) + + (wrap-api-method sendAudio(chat_id + audio + duration + performer + title + disable_notification + reply_to_message_id + reply_markup)) + + (wrap-api-method sendDocument(chat_id + document + caption + disable_notification + reply_to_message_id + reply_markup)) + + (wrap-api-method sendSticker(chat_id + sticker + disable_notification + reply_to_message_id + reply_markup)) + + (wrap-api-method sendVideo(chat_id + video + duration + width + height + caption + disable_notification + reply_to_message_id + reply_markup)) + + (wrap-api-method sendVoice(chat_id + voice + duration + disable_notification + reply_to_message_id + reply_markup)) + (wrap-api-method sendLocation(chat_id latitude longitude @@ -65,15 +123,12 @@ (wrap-api-method sendChatAction(chat_id action)) - (wrap-api-method forwardMessage(chat_id - from_chat_id - message_id - disable_notification)) - (wrap-api-method getUserProfilePhotos(user_id offset limit)) + (wrap-api-method getFile(file_id)) + ;;; framework (define (pollUpdates token handler) |