From 376bd6ab78276fe7e33662bd89cfdb5fac6052b4 Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Thu, 10 Mar 2016 14:11:36 +0100
Subject: Basic example query of the Telegram Bot API using Scheme

---
 bot.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 bot.scm

(limited to 'bot.scm')

diff --git a/bot.scm b/bot.scm
new file mode 100644
index 0000000..62b45a8
--- /dev/null
+++ b/bot.scm
@@ -0,0 +1,24 @@
+(include "telebot.scm")
+(import (prefix telebot telebot:))
+
+(define (assure-list value)
+  (if (list? value)
+    value
+    (list)))
+
+(define (find-pair symbol nodes)
+  (find (lambda (x) (equal? symbol (car x)))
+        (filter pair? nodes)))
+
+(define (resolve-query query tree)
+  (fold-right (lambda (x y) (find-pair x (assure-list y)))
+              tree
+              (reverse query)))
+
+(define token (car (command-line-arguments)))
+
+(print (resolve-query (list 'result 'username)
+                      (telebot:get-me token)))
+
+(pretty-print (resolve-query (list 'result)
+                             (telebot:get-updates token)))
-- 
cgit v1.2.3