     )
   )
 
+(def wsd-sessions (atom {}))
+
 (defn init-wsd 
   [bind-address port]
   (let [wsd (proxy [NanoWSD] [bind-address port]

    (log/i "staring httpd server")
    (.start httpd)
    (log/i "starting wsd server")
    (.start wsd)
    (neko.debug/keep-screen-on this)
    (on-ui
      (set-content-view! (*a)

                                   (onPong [pong]
                                     (log/i "onPong"))
                                   (onException [exception]
                                     (log/i "onException")
                                     (log/i exception)
                                     ))]
                  web-socket)
                )
              )]
    wsd
