diff options
Diffstat (limited to 'bot.scm')
-rw-r--r-- | bot.scm | 20 |
1 files changed, 15 insertions, 5 deletions
@@ -1,6 +1,8 @@ (include "telebot.scm") (import (prefix telebot telebot:)) +(use vector-lib) + (define (assure-list value) (if (list? value) value @@ -15,10 +17,18 @@ tree (reverse query))) -(define token (car (command-line-arguments))) +(define (updates-for-each func updates) + (vector-for-each (lambda (i u) (func u)) + (cdr updates))) -(print (resolve-query (list 'result 'username) - (telebot:get-me token))) +(define token (car (command-line-arguments))) -(pretty-print (resolve-query (list 'result) - (telebot:get-updates token))) +(updates-for-each (lambda (u) + (print (cdr (resolve-query (list 'message 'from 'first_name) u)) + ": " + (cdr (resolve-query (list 'message 'text) u)) + " (" + (cdr (resolve-query (list 'update_id) u)) + ")")) + (resolve-query (list 'result) + (telebot:get-updates token))) |