diff options
Diffstat (limited to 'bot.scm')
| -rw-r--r-- | bot.scm | 31 |
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)))) |