remove dead code
This commit is contained in:
parent
8f63e0b492
commit
e51124d48a
|
@ -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)))))
|
|
1
hall.scm
1
hall.scm
|
@ -34,7 +34,6 @@
|
||||||
(scheme-file "user")
|
(scheme-file "user")
|
||||||
(scheme-file "room")
|
(scheme-file "room")
|
||||||
(scheme-file "hconfig")
|
(scheme-file "hconfig")
|
||||||
(scheme-file "listener")
|
|
||||||
(scheme-file "ui")))
|
(scheme-file "ui")))
|
||||||
(directory "scripts" ((in-file "run-client")))
|
(directory "scripts" ((in-file "run-client")))
|
||||||
(scheme-file "bugafriend")))
|
(scheme-file "bugafriend")))
|
||||||
|
|
|
@ -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?)
|
|
|
@ -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?)
|
|
11
scripts/say
11
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))
|
|
|
@ -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))
|
|
Loading…
Reference in New Issue