2024-01-31 04:30:34 +00:00
|
|
|
#!/home/vv/.guix-profile/bin/guile --no-auto-compile
|
|
|
|
-*- scheme -*-
|
|
|
|
!#
|
|
|
|
|
|
|
|
(use-modules
|
|
|
|
(goblins)
|
|
|
|
(goblins ocapn ids)
|
|
|
|
(fibers conditions)
|
|
|
|
(bugafriend listener))
|
|
|
|
|
|
|
|
;; So far nothing triggers this for listener
|
|
|
|
(define can-quit? (make-condition))
|
|
|
|
|
|
|
|
(with-vat (spawn-vat #:name "Listener UI")
|
2024-01-31 23:00:13 +00:00
|
|
|
(listen-chat (string->ocapn-id (list-ref (command-line) 1))))
|
2024-01-31 04:30:34 +00:00
|
|
|
|
|
|
|
(wait can-quit?)
|