git.iko.soy/elk
on 4bb23bc help sign in
elk/libraries/Native/Signal/WebSocket.js
38 lines 975 B history raw
2Elm.Native.WebSocket = function(elm) {
3 'use strict';
5 elm.Native = elm.Native || {};
6 if (elm.Native.WebSocket) return elm.Native.WebSocket;
8 var Signal = Elm.Signal(elm);
9 var JS = Elm.JavaScript(elm);
10 var List = Elm.Native.List(elm);
12 function open(url, outgoing) {
13 var incoming = Signal.constant(List.Nil);
14 var ws = new WebSocket(JS.fromString(url));
16 var pending = [];
17 var ready = false;
19 ws.onopen = function(e) {
20 var len = pending.length;
21 for (var i = 0; i < len; ++i) { ws.send(pending[i]); }
22 ready = true;
23 };
24 ws.onmessage = function(event) {
25 elm.notify(incoming.id, JS.toString(event.data));
26 };
28 function send(msg) {
29 var s = JS.fromString(msg);
30 ready ? ws.send(s) : pending.push(s);
31 }
33 function take1(x,y) { return x }
34 return A3(Signal.lift2, F2(take1), incoming, A2(Signal.lift, send, outgoing));
35 }
37 return elm.Native.WebSocket = { open: F2(open) };
38};