From 41b98082f89be38a377df6f543973566b2266747 Mon Sep 17 00:00:00 2001
From: David Florness <david@florness.com>
Date: Sat, 7 Mar 2020 13:18:52 -0700
Subject: [PATCH] Allow kicking of peers from bulletin repl

---
 bulletin.rkt | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/bulletin.rkt b/bulletin.rkt
index 507a050..7c8a4f9 100644
--- a/bulletin.rkt
+++ b/bulletin.rkt
@@ -226,6 +226,16 @@
             ['register
              (transition 'registering)
              (reset)]
+            ['kick (if (eq? state 'closed)
+                       (let* ([peer-uname (read sp)]
+                              [peer-uname (if (symbol? peer-uname)
+                                        (symbol->string peer-uname)
+                                        peer-uname)])
+                         (for ([peer _peers]
+                               #:when (equal? (hash-ref peer 'username)
+                                              peer-uname))
+                           (set-remove! _peers peer)))
+                       (displayln "close the election first"))]
             [else (displayln "unknown command")])
           (when (not (equal? line ""))
             (add-history line))
-- 
2.38.4