 
   (def s (http/start-server #'app-routes {:port 10001}))
   (.close s)
+  
   )

    (let [room (site/get-room @site room-name)]
      (f room))))

(defn with-websocket-check [req exp]
  (d/let-flow [conn (d/catch (http/websocket-connection req) (fn [_] nil))]
      (if-not conn
        #'json-non-websocket-response)
      (exp conn)))

;;; HANDLERS


      (do (println e)
          message))))

(defn connect! [room-name user-name]
  (fn [conn]
    ;; handler for disconnects
    (s/on-closed conn #(remove-user! room-name user-name))
    
    ;; chatrooms bus -> websocket
    (s/connect (bus/subscribe chatrooms room-name) conn)
    
    ;; websocket -> chatrooms bus (kind of doseq for streams)
    (s/consume
     #(bus/publish! chatrooms room-name (pack-room-shift! user-name room-name %))
     (s/throttle 10 conn))))

;; HELPERS

(defn filter-empty-vals [params]
