gered/clj-browserchannel
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

add server-side helper functions

Browse source
This commit is contained in:
Gered 2016-05-08 19:01:08 -04:00
parent 0fb68755fe
commit 49409cac62
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
clj-browserchannel/src/net/thegeez/browserchannel/server.clj
View file

@ -543,6 +543,20 @@
(defn send-map [session-id map]
(send-string session-id (json/write-str map)))
(defn send-map-to-all
[m]
(doseq [[session-id _] @sessions]
(send-map session-id m)))
(defn connected?
[session-id]
(contains? @sessions session-id))
(defn disconnect!
[session-id & [reason]]
(if-let [session-agent (get @sessions session-id)]
(send-off session-agent close nil (or reason "Disconnected"))))
;; wrap the respond function from :reactor with the proper
;; responsewrapper for either IE or other clients
(defn wrap-continuation-writers [handler options]