From 941835c331f16846da6c65f466728e2ed807ca4d Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Sun, 13 Mar 2016 23:07:59 +0100
Subject: Add extension build and install instructions

---
 bot.scm | 31 -------------------------------
 1 file changed, 31 deletions(-)
 delete mode 100644 bot.scm

(limited to 'bot.scm')

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))))
-- 
cgit v1.2.3