✨ Add improved REPL support

backend/src/app/srepl.clj

@@ -36,7 +36,9 @@
         lock (locks/create)]
     (ccs/prepl *in*
                (fn [m]
-                 (binding [*out* out, *flush-on-newline* true, *print-readably* true]
+                 (binding [*out* out,
+                           *flush-on-newline* true,
+                           *print-readably* true]
                    (locks/locking lock
                      (println (json/encode-str m))))))))
 
@@ -44,13 +46,10 @@
 
 (s/def ::port ::us/integer)
 (s/def ::host ::us/not-empty-string)
-(s/def ::flag #{:urepl-server :prepl-server})
-(s/def ::type #{::prepl ::urepl})
-(s/def ::key (s/tuple ::type ::us/keyword))
 
 (defmethod ig/pre-init-spec ::server
   [_]
-  (s/keys :req [::flag ::host ::port]))
+  (s/keys :req [::host ::port]))
 
 (defmethod ig/prep-key ::server
   [[type _] cfg]
@@ -59,6 +58,12 @@
 (defmethod ig/init-key ::server
   [[type _] {:keys [::flag ::port ::host] :as cfg}]
   (when (contains? cf/flags flag)
+
+    (l/inf :hint "initializing repl server"
+           :name (name type)
+           :port port
+           :host host)
+
     (let [accept (case type
                    ::prepl 'app.srepl/json-repl
                    ::urepl 'app.srepl/user-repl)
@@ -67,14 +72,8 @@
                   :name (name type)
                   :accept accept}]
 
-      (l/info :msg "initializing repl server"
-              :name (name type)
-              :port port
-              :host host)
-
       (ccs/start-server params)
-
-      params)))
+      (assoc params :type type))))
 
 (defmethod ig/halt-key! ::server
   [_ params]