aboutsummaryrefslogtreecommitdiff
path: root/telebot.scm
diff options
context:
space:
mode:
Diffstat (limited to 'telebot.scm')
-rw-r--r--telebot.scm154
1 files changed, 88 insertions, 66 deletions
diff --git a/telebot.scm b/telebot.scm
index 0db37c6..5c38fd3 100644
--- a/telebot.scm
+++ b/telebot.scm
@@ -38,68 +38,82 @@
;;; plain API wrappers, returning deserialized JSON
(define-syntax wrap-api-method
- (syntax-rules ()
- ((wrap-api-method method(parameters ...))
- (define (method
- token
- #!key parameters ...)
- (with-input-from-request
- (get-query-url token (symbol->string 'method))
- (clean-query-parameters
- (map (lambda (l) (cons (first l) (second l)))
- (zip '(parameters ...)
- (list parameters ...))))
- read-json)))))
-
- (wrap-api-method getMe())
-
- (wrap-api-method getUpdates(offset limit timeout))
-
- (wrap-api-method sendMessage(chat_id
- text
- parse_mode
- disable_web_page_preview
- disable_notification
- 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
+ (syntax-rules (required optional)
+ ((wrap-api-method method
+ (required required_params ...)
+ (optional optional_params ...))
+ (define (method token
+ #!key required_params ...
+ optional_params ...)
+ (if (any (lambda (x) (equal? #f x))
+ (list required_params ...))
+ (abort 'required-parameter-missing)
+ (with-input-from-request
+ (get-query-url token (symbol->string 'method))
+ (clean-query-parameters
+ (map (lambda (l) (cons (first l) (second l)))
+ (zip '(required_params ... optional_params ...)
+ (list required_params ... optional_params ...))))
+ read-json))))))
+
+ (wrap-api-method getMe (required) (optional))
+
+ (wrap-api-method getUpdates
+ (required)
+ (optional offset limit timeout))
+
+ (wrap-api-method sendMessage
+ (required chat_id
+ text)
+ (optional parse_mode
+ disable_web_page_preview
+ disable_notification
+ reply_to_message_id
+ reply_markup))
+
+ (wrap-api-method forwardMessage
+ (required chat_id
+ from_chat_id
+ message_id)
+ (optional disable_notification))
+
+ (wrap-api-method sendPhoto
+ (required chat_id
+ photo)
+ (optional caption
disable_notification
reply_to_message_id
reply_markup))
- (wrap-api-method sendAudio(chat_id
- audio
- duration
+ (wrap-api-method sendAudio
+ (required chat_id
+ audio)
+ (optional 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
+ (wrap-api-method sendDocument
+ (required chat_id
+ document)
+ (optional caption
+ disable_notification
+ reply_to_message_id
+ reply_markup))
+
+ (wrap-api-method sendSticker
+ (required chat_id
+ sticker)
+ (optional disable_notification
+ reply_to_message_id
+ reply_markup))
+
+ (wrap-api-method sendVideo
+ (required chat_id
+ video)
+ (optional duration
width
height
caption
@@ -107,27 +121,35 @@
reply_to_message_id
reply_markup))
- (wrap-api-method sendVoice(chat_id
- voice
- duration
+ (wrap-api-method sendVoice
+ (required chat_id
+ voice)
+ (optional duration
disable_notification
reply_to_message_id
reply_markup))
- (wrap-api-method sendLocation(chat_id
- latitude
- longitude
- disable_notification
- reply_to_message_id
- reply_markup))
+ (wrap-api-method sendLocation
+ (required chat_id
+ latitude
+ longitude)
+ (optional disable_notification
+ reply_to_message_id
+ reply_markup))
- (wrap-api-method sendChatAction(chat_id action))
+ (wrap-api-method sendChatAction
+ (required chat_id
+ action)
+ (optional))
- (wrap-api-method getUserProfilePhotos(user_id
- offset
- limit))
+ (wrap-api-method getUserProfilePhotos
+ (required user_id)
+ (optional offset
+ limit))
- (wrap-api-method getFile(file_id))
+ (wrap-api-method getFile
+ (required file_id)
+ (optional))
;;; framework