 (defn start-lispy-chat-server [& args]
   "Main thread for the server which starts an async server with
   all the routes we specified and is websocket ready."
+  (log/info "start http server")
   (start-http-server (wrap-ring-handler app-routes)
                      {:host "localhost" :port 8080 :websocket true}))
 
-; move to iyye!
+(def lispy-chat-IO (bios/create-IO "lispy-chat" start-lispy-chat-server (bios/create-InputSources false []) (bios/->OutputActuators false [send-msg])))
+
+(def lispy-chat-process-input (partial bios/process-input lispy-chat-IO))
+
 (defn chat-init [ch]
   "register callback for receive msg"
   (receive-all ch lispy-chat-process-input))

(ns extras.lispychat
  (:use lamina.core
        aleph.http

      (wrap-resource "public")
      (wrap-file-info)))

(def chat-channel (ref ()))
(defn send-msg [msg]
  (enqueue @chat-channel (str "iyye> " msg)))


(defn chat-init [ch])
(defn chat-handler [ch room]
