HttpKit websocket handler

gistfile1.txt

(defn handler [req]
  (with-channel req channel
    (if (websocket? channel)
      (do
        (on-close channel (fn [status]
                              (process/close-connection channel)))
        (on-receive channel (fn [msg]
                              (process/data-connection channel msg)))
        (when (open? channel)
          (process/new-connection channel)))
      (close channel))))