From a2b7e8ce331a05d099f05c261ec36dc235caa222 Mon Sep 17 00:00:00 2001
From: Christoph Lange
Date: Thu, 19 Apr 2018 16:12:02 +0200
Subject: is-edited_message? -- check if message is edited

---
 telebot.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/telebot.scm b/telebot.scm
index 34fc466..292151c 100644
--- a/telebot.scm
+++ b/telebot.scm
@@ -24,6 +24,7 @@
                  answerInlineQuery
                  ;;; framework
                  is-message?
+		 is-edited_message?
                  is-inline_query?
                  is-chosen_inline_result?
                  poll-updates
@@ -248,6 +249,7 @@
       (not (equal? #f (alist-ref type update)))))
 
   (define is-message?              (update-predicate 'message))
+  (define is-edited_message?       (update-predicate 'edited_message))
   (define is-inline_query?         (update-predicate 'inline_query))
   (define is-chosen_inline_result? (update-predicate 'chosen_inline_result))
 
-- 
cgit v1.2.3


From f80974375fb50d760920b6e2eda611fc6f63ac51 Mon Sep 17 00:00:00 2001
From: Christoph Lange
Date: Fri, 20 Apr 2018 14:39:44 +0200
Subject: Make 'resolve-query' available via the module

---
 telebot.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/telebot.scm b/telebot.scm
index 292151c..963b829 100644
--- a/telebot.scm
+++ b/telebot.scm
@@ -3,6 +3,7 @@
                  getUpdates
                  sendMessage
                  forwardMessage
+		 resolve-query
                  sendPhoto
                  sendAudio
                  sendDocument
-- 
cgit v1.2.3


From 94f572847c844608adf43bbac2bfc52838fc226b Mon Sep 17 00:00:00 2001
From: Christoph Lange
Date: Fri, 20 Apr 2018 15:00:53 +0200
Subject: Change 'update-predicate' to reach deeper into update

Using 'resolve-query' instead of pure alist-type, we can reach deeper into the update. Added:

  - is-text?
  - is-location?

using this. NB: since I use 'message' as key, those will fail when applied on e.g. 'updated_message'. Work left to do.
---
 telebot.scm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/telebot.scm b/telebot.scm
index 963b829..3970588 100644
--- a/telebot.scm
+++ b/telebot.scm
@@ -28,6 +28,8 @@
 		 is-edited_message?
                  is-inline_query?
                  is-chosen_inline_result?
+		 is-text?
+		 is-location?
                  poll-updates
                  make-conversation-manager)
   (import chicken scheme)
@@ -247,12 +249,15 @@
 
   (define (update-predicate type)
     (lambda (update)
-      (not (equal? #f (alist-ref type update)))))
+      (not (equal? #f (resolve-query type update)))))
 
-  (define is-message?              (update-predicate 'message))
-  (define is-edited_message?       (update-predicate 'edited_message))
-  (define is-inline_query?         (update-predicate 'inline_query))
-  (define is-chosen_inline_result? (update-predicate 'chosen_inline_result))
+  (define is-message?              (update-predicate '(message)))
+  (define is-edited_message?       (update-predicate '(edited_message)))
+  (define is-inline_query?         (update-predicate '(inline_query)))
+  (define is-chosen_inline_result? (update-predicate '(chosen_inline_result)))
+
+  (define is-text?                 (update-predicate '(message text)))
+  (define is-location?             (update-predicate '(message location)))
 
   (define (poll-updates token handler)
     (let ((offset 0))
-- 
cgit v1.2.3