Add extension build and install instructions

1 files changed, 0 insertions, 31 deletions

diff --git a/bot.scm b/bot.scm
deleted file mode 100644
index 79b1b6e..0000000
--- a/bot.scm
+++ /dev/null
@@ -1,31 +0,0 @@
-(include "telebot.scm")
-(import (prefix telebot telebot:))
-
-(use data-structures)
-
-(define (resolve-query query tree)
-  (fold (lambda (x y) (alist-ref x y))
-        tree
-        query))
-
-(define token (car (command-line-arguments)))
-
-(define (print-message msg)
-  (print (resolve-query '(message from first_name) msg)
-         ": "
-         (resolve-query '(message text) msg)
-         " ("
-         (resolve-query '(update_id) msg)
-         ")"))
-
-(define (echo-message msg)
-  (let ((chat_id    (resolve-query '(message from id) msg))
-        (text       (resolve-query '(message text)    msg)))
-    (telebot:sendMessage token
-                         chat_id: chat_id
-                         text:    text)))
-
-(telebot:pollUpdates token
-                     (lambda (u)
-                       (begin (print-message u)
-                              (echo-message  u))))