Sample of translating sente web socket upgrade request handlers into fnhouse routes

sente-fnhouse-handlers.clj

(defnk $chsk$GET
  {:responses {200 {:what? s/Int}}}
  ;; Note the way to just access the full request
  [request
   [:resources [:web-sock-handler ch-sock]]]
  (let [handler (:ring-ajax-get-or-ws-handshake ch-sock)
        response (handler request)]
    response))

(defnk $chsk$POST
  {:responses {200 {}}}
  [request
   [:resources [:web-sock-handler chsk]]]
  ;; Q: When is this supposed to happen?
  (log/debug "chsk post:\n"
             (util/pretty request))
  (let [handler (:ring-ajax-post chsk)]
    (handler request)))