Basic example query of the Telegram Bot API using Scheme

1 files changed, 27 insertions, 0 deletions

diff --git a/telebot.scm b/telebot.scm
new file mode 100644
index 0000000..6d6792d
--- /dev/null
+++ b/telebot.scm
@@ -0,0 +1,27 @@
+(module telebot (get-me get-updates send-message)
+  (import chicken scheme)
+  (use openssl)
+  (use http-client)
+  (use medea)
+
+  (define api-base "https://api.telegram.org/bot")
+
+  (define (get-query-url token method)
+    (string-append api-base token "/" method))
+
+  (define (get-me token)
+    (with-input-from-request (get-query-url token "getMe")
+                             #f
+                             read-json))
+
+  (define (get-updates token)
+    (with-input-from-request (get-query-url token "getUpdates")
+                             #f
+                             read-json))
+
+  (define (send-message token user message)
+    (with-input-from-request (get-query-url token "sendMessage")
+                             (list (cons 'chat_id user)
+                                   (cons 'text    message))
+                             read-json))
+)