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

                (log/i "openWebSocket")
                (let [web-socket (proxy [NanoWSD$WebSocket] [handshake]
                                   (onOpen []
                                     (log/i "onOpen"))
                                   (onClose [code, reason, initiated-by-remote]
                                     (log/i "onClose"))
                                   (onMessage [message]

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