From e51124d48a7579607a3ab7f61eb05db24b072dff Mon Sep 17 00:00:00 2001
From: Vivianne Langdon <puttabutta@gmail.com>
Date: Sat, 3 Feb 2024 05:58:18 -0500
Subject: [PATCH] remove dead code

---
 bugafriend/listener.scm | 16 ----------------
 hall.scm                |  1 -
 scripts/listen          | 17 -----------------
 scripts/listen.in       | 17 -----------------
 scripts/say             | 11 -----------
 scripts/say.in          | 11 -----------
 6 files changed, 73 deletions(-)
 delete mode 100644 bugafriend/listener.scm
 delete mode 100755 scripts/listen
 delete mode 100644 scripts/listen.in
 delete mode 100755 scripts/say
 delete mode 100644 scripts/say.in

diff --git a/bugafriend/listener.scm b/bugafriend/listener.scm
deleted file mode 100644
index dc09543..0000000
--- a/bugafriend/listener.scm
+++ /dev/null
@@ -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)))))
diff --git a/hall.scm b/hall.scm
index 4f980c4..8a28679 100644
--- a/hall.scm
+++ b/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")))
diff --git a/scripts/listen b/scripts/listen
deleted file mode 100755
index ed30236..0000000
--- a/scripts/listen
+++ /dev/null
@@ -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?)
diff --git a/scripts/listen.in b/scripts/listen.in
deleted file mode 100644
index 439ee9e..0000000
--- a/scripts/listen.in
+++ /dev/null
@@ -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?)
\ No newline at end of file
diff --git a/scripts/say b/scripts/say
deleted file mode 100755
index 1c67f4a..0000000
--- a/scripts/say
+++ /dev/null
@@ -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))
diff --git a/scripts/say.in b/scripts/say.in
deleted file mode 100644
index a814d0c..0000000
--- a/scripts/say.in
+++ /dev/null
@@ -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))