aboutsummaryrefslogtreecommitdiff
path: root/example
diff options
context:
space:
mode:
Diffstat (limited to 'example')
-rw-r--r--example/echo.scm10
-rw-r--r--example/guess.scm62
2 files changed, 29 insertions, 43 deletions
diff --git a/example/echo.scm b/example/echo.scm
index 2e190a7..90d0af5 100644
--- a/example/echo.scm
+++ b/example/echo.scm
@@ -25,8 +25,8 @@
chat_id: chat_id
text: text)))
-(telebot:pollUpdates token
- (lambda (u)
- (if (telebot:is-message? u)
- (begin (print-message u)
- (echo-message u)))))
+(telebot:poll-updates token
+ (lambda (u)
+ (if (telebot:is-message? u)
+ (begin (print-message u)
+ (echo-message u)))))
diff --git a/example/guess.scm b/example/guess.scm
index e1b419c..fd200fa 100644
--- a/example/guess.scm
+++ b/example/guess.scm
@@ -1,51 +1,37 @@
(require-extension telebot
(prefix telebot telebot:))
-(use srfi-69)
-(use extras)
-(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 conversations (make-hash-table))
-
-(define (send chat_id text)
- (print chat_id " <- \"" text "\"")
- (telebot:sendMessage token
- chat_id: chat_id
- text: text))
+(define (make-sender token chat_id)
+ (lambda (text)
+ (print chat_id " <- \"" text "\"")
+ (telebot:sendMessage token
+ chat_id: chat_id
+ text: text)))
-(define (make-conversation chat_id)
- (let ((chat_id chat_id)
- (answer (random 100)))
- (send chat_id
- "Hi there! I just generated a random number for you to guess!")
- (lambda (text)
- (let ((guess (string->number text)))
+(define (make-conversation token chat_id)
+ (let* ((chat_id chat_id)
+ (send (make-sender token chat_id))
+ (answer (random 100)))
+ (send "Hi there! I just generated a random number for you to guess!")
+ (lambda (update)
+ (let* ((text (resolve-query '(message text) update))
+ (guess (string->number text)))
+ (print chat_id " -> \"" text "\"")
(if (number? guess)
(cond ((= guess answer)
- (begin (send chat_id "Correct! Feel free to guess the next number.")
+ (begin (send "Correct! Feel free to guess the next number.")
(set! answer (random 100))))
- ((< guess answer) (send chat_id "Too small. Try again."))
- ((> guess answer) (send chat_id "Too large. Try again.")))
- (send chat_id
- "This is not a number - please provide your guess in base 10."))))))
-
-(define (handle-message m)
- (let ((chat_id (resolve-query '(message from id) m))
- (text (resolve-query '(message text) m)))
- (print chat_id " -> \"" text "\"")
- (if (hash-table-exists? conversations chat_id)
- ((hash-table-ref conversations chat_id) text)
- (hash-table-set! conversations
- chat_id
- (make-conversation chat_id)))))
+ ((< guess answer) (send "Too small. Try again."))
+ ((> guess answer) (send "Too large. Try again.")))
+ (send "This is not a number - please provide your guess in base 10."))))))
-(randomize)
-(telebot:pollUpdates token
- (lambda (u) (if (telebot:is-message? u)
- (handle-message u))))
+(let* ((token (car (command-line-arguments)))
+ (converse (telebot:make-conversation-manager token
+ make-conversation)))
+ (randomize)
+ (telebot:poll-updates token converse))