   "Handle inbound events."
   []
   (go (loop [{:keys [client-uuid ring-req event] :as data} (<! ch-chsk)]
+        (println "-" event)
         (handle-event event ring-req)
         (recur (<! ch-chsk)))))
 

  (def ring-ajax-get-ws ajax-get-or-ws-handshake-fn)
  (def ch-chsk          ch-recv)
  (def chsk-send!       send-fn))

(defn root
  "Return the absolute (root-relative) version of the given path."

(ns om-sente.server
  (:require [clojure.core.async :as async
             :refer [<! <!! chan go]]
            [clojure.core.cache :as cache]
            [compojure.core :refer [defroutes GET POST routes]]
            [compojure.handler :as h]
            [compojure.route :as r]
