aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAdrian Kummerlaender2016-03-13 14:00:11 +0100
committerAdrian Kummerlaender2016-03-13 14:00:11 +0100
commit9786703f5602d53acceae972909fce4184cb4142 (patch)
tree72cdad1b3791787fa45e78f5d3991b6f9677ebfa
parentcbe9488ff46b05f196708c25d15bfa3c0b5ab0a0 (diff)
downloadTelebot-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.scm67
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)