       (ref-set chat-channel ch)
       (chat-handler ch "iyye"))
     (enqueue ch (wrapped-sync-app request))))
+
 (defroutes app-routes
            "Routes requests to their handler function. Captures dynamic variables."
            (GET ["/chat/iyye"] {}

(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."
  (start-http-server (wrap-ring-handler app-routes)
                     {:host "localhost" :port 8080 :websocket true}))

; move to iyye!
(defn chat-init [ch]
  "register callback for receive msg"
  (receive-all ch lispy-chat-process-input))



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