2024-01-31 04:30:34 +00:00
|
|
|
(define-module (bugafriend listener)
|
|
|
|
#:use-module (bugafriend utils registry)
|
|
|
|
#:use-module (goblins)
|
|
|
|
#:use-module (goblins ocapn ids)
|
2024-01-31 23:00:13 +00:00
|
|
|
#:export (listen-chat))
|
2024-01-31 04:30:34 +00:00
|
|
|
|
|
|
|
;; Code for the listener
|
|
|
|
(define (^listener bcom)
|
|
|
|
(lambda (text) (format #t "~a\n" text)))
|
|
|
|
|
2024-01-31 23:00:13 +00:00
|
|
|
(define (listen-chat setup-sref)
|
2024-01-31 04:30:34 +00:00
|
|
|
(on (prelay-sref->mycapn-registry setup-sref)
|
|
|
|
(lambda (registry)
|
2024-01-31 23:00:13 +00:00
|
|
|
(define chat-listener (spawn ^listener))
|
|
|
|
(define listener-id ($ registry 'register chat-listener))
|
|
|
|
(format #t "Share this with a friend so they can send a message: ~a\n" (ocapn-id->string listener-id)))))
|