cljfmt

src/dev/user.clj

@@ -2,18 +2,14 @@
   (:require
    [clj-reload.core :as reload]))
 
-
 (alter-var-root #'*warn-on-reflection* (constantly true))
 
-
 (reload/init
  {:no-reload ['user]})
 
-
 (defn reload! []
   (reload/reload))
 
-
 (comment
   (reload!)
   *e)

src/main/example/core.clj

@@ -56,6 +56,8 @@
 
 ;; repl it up ;P
 (comment
+  routes
+
   (u/broadcast-signals! {:msg "hi franz"})
   (u/broadcast-signals! {:msg "hi ty"})
   (u/broadcast! d*/console-log! "hi franz")
@@ -64,7 +66,6 @@
 
   (u/kill-broadcast!)
 
-
   (clojure.repl/dir d*)
   (clojure.repl/doc d*/patch-signals!))
 

src/main/example/main.clj

@@ -3,7 +3,6 @@
    [example.core :as c]
    [example.server :as server]))
 
-
 (defn -main [& _]
   (let [server (server/start! c/handler)]
     (.addShutdownHook (Runtime/getRuntime)

src/main/example/server.clj

@@ -5,23 +5,19 @@
   (:import
    org.eclipse.jetty.server.Server))
 
-
 (defonce !jetty-server (atom nil))
 
-
 (defn start! [handler & {:as opts}]
   (let [opts (merge {:port 80 :join? false}
                     opts)]
     (println "Starting server on port:" (:port opts))
     (jetty/run-jetty handler opts)))
 
-
 (defn stop! [server]
   (println "Stopping server")
   (println server)
   (.stop ^Server server))
 
-
 (defn reboot-jetty-server! [handler & {:as opts}]
   (swap! !jetty-server
          (fn [server]

src/main/example/utils.clj

@@ -64,7 +64,6 @@
     (sse-page request respond view url)
     (text-html-page request respond view)))
 
-
 ;; d* api utils
 (defn patch-signals-edn! [sse edn]
   (d*/patch-signals! sse (json/write-str edn)))
@@ -76,15 +75,14 @@
   (d*/patch-elements! sse elems #:d*.elements{:patch-mode "replace"
                                               :selector "main"}))
 
-
 ;; broadcast utils
 (defn try!
   [d*-f! sse & args]
-  (try (apply d*-f! sse args)
+  (try (when (not (apply d*-f! sse args))
+         (disconnect-sse! sse))
        (catch Exception e
          (println "exception occured. dropping connection. error:" e)
-         (d*/close-sse! sse)
+         (disconnect-sse! sse))))
-         (swap! conns disj sse))))
 
 (defonce conns (atom #{}))