aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAdrian Kummerlaender2016-03-15 11:56:17 +0100
committerAdrian Kummerlaender2016-03-15 11:56:17 +0100
commit35611199093138ab8a35eee89aaf91fa41dbec34 (patch)
treeb3f15de27b068d9182a5df8884beb40a820da6f3
parent1c1825eee55ecb098e8b0ad6dba6bbaced7092cf (diff)
downloadTelebot-35611199093138ab8a35eee89aaf91fa41dbec34.tar
Telebot-35611199093138ab8a35eee89aaf91fa41dbec34.tar.gz
Telebot-35611199093138ab8a35eee89aaf91fa41dbec34.tar.bz2
Telebot-35611199093138ab8a35eee89aaf91fa41dbec34.tar.lz
Telebot-35611199093138ab8a35eee89aaf91fa41dbec34.tar.xz
Telebot-35611199093138ab8a35eee89aaf91fa41dbec34.tar.zst
Telebot-35611199093138ab8a35eee89aaf91fa41dbec34.zip
Add update type predicates
-rw-r--r--example/echo.scm5
-rw-r--r--telebot.scm11
2 files changed, 14 insertions, 2 deletions
diff --git a/example/echo.scm b/example/echo.scm
index 7afd5ae..2e190a7 100644
--- a/example/echo.scm
+++ b/example/echo.scm
@@ -27,5 +27,6 @@
(telebot:pollUpdates token
(lambda (u)
- (begin (print-message u)
- (echo-message u))))
+ (if (telebot:is-message? u)
+ (begin (print-message u)
+ (echo-message u)))))
diff --git a/telebot.scm b/telebot.scm
index 5e95e1d..9465e52 100644
--- a/telebot.scm
+++ b/telebot.scm
@@ -12,6 +12,9 @@
sendChatAction
getUserProfilePhotos
getFile
+ is-message?
+ is-inline_query?
+ is-chosen_inline_result?
pollUpdates)
(import chicken scheme)
(use srfi-1)
@@ -156,6 +159,14 @@
;;; framework
+ (define (update-predicate type)
+ (lambda (update)
+ (not (equal? #f (alist-ref type update)))))
+
+ (define is-message? (update-predicate 'message))
+ (define is-inline_query? (update-predicate 'inline_query))
+ (define is-chosen_inline_result? (update-predicate 'chosen_inline_result))
+
(define (pollUpdates token handler)
(let ((offset 0))
(do-forever