remove dead code

bugafriend/listener.scm

@@ -1,16 +0,0 @@
-(define-module (bugafriend listener)
-  #:use-module (bugafriend utils registry)
-  #:use-module (goblins)
-  #:use-module (goblins ocapn ids)
-  #:export (listen-chat))
-
-;; Code for the listener
-(define (^listener bcom)
-  (lambda (text) (format #t "~a\n" text)))
-
-(define (listen-chat setup-sref)
-(on (prelay-sref->mycapn-registry setup-sref)
-    (lambda (registry)
-      (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)))))

hall.scm

@@ -34,7 +34,6 @@
                (scheme-file "user")
                (scheme-file "room")
                (scheme-file "hconfig")
-               (scheme-file "listener")
                (scheme-file "ui")))
             (directory "scripts" ((in-file "run-client")))
             (scheme-file "bugafriend")))

scripts/listen

@@ -1,17 +0,0 @@
-#!/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")
-  (listen-chat (string->ocapn-id (list-ref (command-line) 1))))
-
-(wait can-quit?)

scripts/listen.in

@@ -1,17 +0,0 @@
-#!@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")
-  (listen-chat (string->ocapn-id (list-ref (command-line) 1))))
-
-(wait can-quit?)

scripts/say

@@ -1,11 +0,0 @@
-#!/home/vv/.guix-profile/bin/guile --no-auto-compile
--*- scheme -*-
-!#
-
-(use-modules
- (goblins)
- (goblins ocapn ids)
- (fibers conditions)
- (bugafriend ui))
-
-(say (string->ocapn-id (list-ref (command-line) 1)) (list-ref (command-line) 2))

scripts/say.in

@@ -1,11 +0,0 @@
-#!@GUILE@ --no-auto-compile
--*- scheme -*-
-!#
-
-(use-modules
- (goblins)
- (goblins ocapn ids)
- (fibers conditions)
- (bugafriend ui))
-
-(say (string->ocapn-id (list-ref (command-line) 1)) (list-ref (command-line) 2))