gistfile1.txt

 (defn ws-reject! [req]
    (hk/with-channel req channel
      (hk/send! channel (pr-str {:tag :closed}))
      (hk/close channel)))

  (defn ws-allow! [req]
    (let [msg-chan (chan 100)
          signal-chan (chan 1)]
      (hk/with-channel req channel
        (let [queue (tome/g-in [:server :http :queue])]
          (hk/on-close channel (fn [status]
                                 (close msg-chan)
                                 (put! signal-chan {:tag :websocket-close
                                                    :status status})))
          (hk/on-receive
           channel
           (fn [msg]
             (let [msg (clojure.edn/read-string msg)
                   rslts (alts!! [authorized-chan msg]
                                 :default :chan-full)]
               (if (= rslt :chan-full)
                 (do (hk/send! channel (pr-str {:tag :chan-full}))
                     (hk/close channel))
                 ))))))))