michael/grub-fork
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Refactor client websocket code into own file

Browse source
This commit is contained in:
Nicholas Kariniemi 2013-08-06 21:30:43 +03:00
parent fb38e8d1f6
commit 0cc5cc5dc8
2 changed files with 27 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src-cljs/grub_client/core.cljs
View file

@ -2,32 +2,17 @@
(:require [grub-client.async-utils (:require [grub-client.async-utils
:refer [fan-in fan-out event-chan filter-chan do-chan do-chan! map-chan]] :refer [fan-in fan-out event-chan filter-chan do-chan do-chan! map-chan]]
[grub-client.view :as view] [grub-client.view :as view]
[grub-client.websocket :as ws]
[cljs.core.async :refer [<! >! >!! chan close! timeout]] [cljs.core.async :refer [<! >! >!! chan close! timeout]]
[cljs.reader]) [cljs.reader])
(:require-macros [grub-client.macros :refer [log logs go-loop]] (:require-macros [grub-client.macros :refer [log logs go-loop]]
[cljs.core.async.macros :refer [go]])) [cljs.core.async.macros :refer [go]]))
(def websocket* (atom nil))
(defn connect-to-server []
(reset! websocket* (js/WebSocket. "ws://localhost:3000/ws")))
(defn get-local-events [] (defn get-local-events []
(fan-in [(view/get-added-events) (fan-in [(view/get-added-events)
(view/get-completed-events) (view/get-completed-events)
(view/get-deleted-events)])) (view/get-deleted-events)]))
(defn get-remote-events []
(let [out (chan)]
(aset @websocket* "onmessage" (fn [event]
(let [grub-event (cljs.reader/read-string (.-data event))]
(logs "Received:" grub-event)
(go (>! out grub-event)))))
out))
(defn send-to-server [event]
(.send @websocket* event))
(defmulti handle-event :event :default :unknown-event) (defmulti handle-event :event :default :unknown-event)
(defmethod handle-event :create [event] (defmethod handle-event :create [event]
@ -48,14 +33,14 @@
(defn handle-grub-events [] (defn handle-grub-events []
(let [local-events (get-local-events) (let [local-events (get-local-events)
[local-events' local-events''] (fan-out local-events 2) [local-events' local-events''] (fan-out local-events 2)
remote-events (get-remote-events) remote-events (ws/get-remote-events)
events (fan-in [local-events' remote-events])] events (fan-in [local-events' remote-events])]
(do-chan! send-to-server local-events'') (do-chan! ws/send-to-server local-events'')
(go-loop (handle-event (<! events))))) (go-loop (handle-event (<! events)))))
(defn init [] (defn init []
(view/render-body) (view/render-body)
(connect-to-server) (ws/connect-to-server)
(handle-grub-events)) (handle-grub-events))
(init) (init)

23
src-cljs/grub_client/websocket.cljs Normal file
View file

@ -0,0 +1,23 @@
(ns grub-client.websocket
(:require [grub-client.async-utils
:refer [fan-in fan-out event-chan filter-chan do-chan do-chan! map-chan]]
[cljs.core.async :refer [<! >! >!! chan close! timeout]]
[cljs.reader])
(:require-macros [grub-client.macros :refer [log logs go-loop]]
[cljs.core.async.macros :refer [go]]))
(def websocket* (atom nil))
(defn connect-to-server []
(reset! websocket* (js/WebSocket. "ws://localhost:3000/ws")))
(defn get-remote-events []
(let [out (chan)]
(aset @websocket* "onmessage" (fn [event]
(let [grub-event (cljs.reader/read-string (.-data event))]
(logs "Received:" grub-event)
(go (>! out grub-event)))))
out))
(defn send-to-server [event]
(.send @websocket* event))