Add missing parameters of `getUpdates` and `(send|forward)Message`

Switch to Chicken's `#!key` parameters for better readability and flexibility due to named parameters.

1 files changed, 15 insertions, 5 deletions

diff --git a/bot.scm b/bot.scm
index 62b45a8..1bc357b 100644
--- a/bot.scm
+++ b/bot.scm
@@ -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)))