git.iko.soy/elk
on 29dfd5a help sign in
elk/core-js/runtime/Signal.js
254 lines 8.2 kB history raw
2var Signal = function() {
3 function toElmString(str) {
4 var out = ["Nil"];
5 for (var i = str.length; i--; ) {
6 out = ["Cons", str[i], out];
7 }
8 return out;
9 }
10 var addListener = function() {
11 if(document.addEventListener) {
12 return function(element, event, handler) {
13 element.addEventListener(event, handler, false);
14 };
15 }
16 else {
17 return function(element, event, handler) {
18 element.attachEvent('on' + event, handler);
19 };
20 }
21 }();
23 var Mouse = function() {
24 var position = Elm.Input(Value.Tuple(0,0));
25 var isDown = Elm.Input(false);
26 var isClicked = Elm.Input(false);
28 function getXY(e) {
29 var posx = 0;
30 var posy = 0;
31 if (!e) var e = window.event;
32 if (e.pageX || e.pageY) {
33 posx = e.pageX;
34 posy = e.pageY;
35 } else if (e.clientX || e.clientY) {
36 posx = e.clientX + document.body.scrollLeft +
37 document.documentElement.scrollLeft;
38 posy = e.clientY + document.body.scrollTop +
39 document.documentElement.scrollTop;
40 }
41 return Value.Tuple(posx, posy);
42 }
44 addListener(document, 'click', function(e) {
45 Dispatcher.notify(isClicked.id, true);
46 Dispatcher.notify(isClicked.id, false);
47 });
48 addListener(document, 'mousedown', function(e) {
49 Dispatcher.notify(isDown.id, true); });
50 addListener(document, 'mouseup', function(e) {
51 Dispatcher.notify(isDown.id, false); });
52 addListener(document, 'mousemove', function(e) {
53 Dispatcher.notify(position.id, getXY(e)); });
54 var clickedOn = function(elem) {
55 var click = Elm.Input(false);
56 addListener(elem, 'click', function(e) {
57 Dispatcher.notify(click.id, true);
58 Dispatcher.notify(click.id, false);
59 });
60 return Value.Tuple(elem, click);
61 };
62 return {position: position,
63 x: Elm.Lift(function(p){return p[1];},[position]),
64 y: Elm.Lift(function(p){return p[2];},[position]),
65 isClicked: isClicked,
66 isDown: isDown,
67 clickedOn: clickedOn
68 };
69 }();
71 var Time = function() {
72 var every = function(t) {
73 t *= 1000;
74 var clock = Elm.Input(0);
75 var time = 0;
76 setInterval(function() {
77 time += t;
78 Dispatcher.notify(clock.id, time/1000);
79 }, t);
80 return clock;
81 };
82 var after = function(t) {
83 t *= 1000;
84 var thread = Elm.Input(false);
85 setTimeout(function() { Dispatcher.notify(thread.id, true); }, t);
86 return thread;
87 };
88 var before = function(t) {
89 t *= 1000;
90 var thread = Elm.Input(true);
91 setTimeout(function() { Dispatcher.notify(thread.id, false); }, t);
92 return thread;
93 };
94 return {every:every,after:after,before:before};
95 }();
97 var Window = function() {
98 var dimensions = Elm.Input(Value.Tuple(window.innerWidth,window.innerHeight));
99 addListener(window, 'resize', function(e) {
100 var w = document.getElementById('widthChecker').offsetWidth;
101 Dispatcher.notify(dimensions.id, Value.Tuple(w, window.innerHeight));
102 });
103 return {dimensions:dimensions,
104 width : Elm.Lift(function(p){return p[1];},[dimensions]),
105 height: Elm.Lift(function(p){return p[2];},[dimensions]) };
106 }();
108 var HTTP = function() {
109 var fetch = function(how) { return function(url) {
110 var thread = Elm.Input(["Waiting"]);
111 var request = {};
112 if (window.XMLHttpRequest) { request = new XMLHttpRequest(); }
113 else if (window.ActiveXObject) { request = new ActiveXObject("Microsoft.XMLHTTP"); }
114 request.onreadystatechange = function(e) {
115 if (request.readyState === 4) {
116 Dispatcher.notify(thread.id,
117 request.status === 200
118 ? ["Success", toElmString(request.responseText)]
119 : ["Failure", request.status, toElmString(request.statusText)]);
120 }
121 };
122 request.open(how, String.toText(url), true);
123 request.send(null);
124 return thread;
125 };
126 };
127 var fetches = function(how) { return function(input) {
128 var output = Elm.Input(["Nothing"]);
129 var fetcher = Elm.Lift(update, [input]);
130 var combine = Elm.Lift(function(x) { return function(y) { return x; } }, [output,fetcher]);
131 function update(strOpt) {
132 if (strOpt[0] !== "Just") {
133 try { Dispatcher.notify(output.id, ["Nothing"]); } catch(e) {}
134 return [];
135 }
136 try {
137 Dispatcher.notify(output.id, ["Just", ["Waiting"]]);
138 } catch(e) { output.value = ["Just", ["Waiting"]]; }
139 var request = {};
140 if (window.XMLHttpRequest) { request = new XMLHttpRequest(); }
141 else if (window.ActiveXObject) { request = new ActiveXObject("Microsoft.XMLHTTP"); }
142 request.onreadystatechange = function(e) {
143 if (request.readyState === 4) {
144 Dispatcher.notify(output.id,
145 ["Just", request.status === 200
146 ? ["Success", toElmString(request.responseText)]
147 : ["Failure", request.status, toElmString(request.statusText)]]);
148 }
149 };
150 request.open(how, String.toText(strOpt[1]), true);
151 request.send(null);
152 return [];
153 }
154 return combine;
155 };
156 };
157 return {get : fetch("GET"), post : fetch("POST"),
158 gets : fetches("GET"), posts : fetches("POST") };
159 }();
160 var Random = function() {
161 var inRange = function(min) { return function(max) {
162 return Elm.Input(Math.floor(Math.random() * (max-min+1)) + min);
163 };
164 };
165 var randomize = function(min) { return function(max) { return function(signal) {
166 return Elm.Lift(function(x) { return Math.floor(Math.random() * (max-min+1)) + min;},[signal]);
167 };
168 };
169 };
170 return { inRange:inRange, randomize:randomize };
171 }();
172 var Input = function() {
173 var newTextInput = function(elem, ghostText) {
174 elem.isElmLeaf = true;
175 var str = Elm.Input(["Nil"]);
176 addListener(elem, 'keyup', function(e) {
177 Dispatcher.notify(str.id, toElmString(elem.value));
178 elem.focus();
179 });
180 return Value.Tuple(elem, str);
181 };
182 var newElement = function(name) {
183 var e = document.createElement(name);
184 e.id = Guid.guid();
185 return e;
186 };
187 var textArea = function(cols) { return function(rows) {
188 var textarea = newElement('textarea');
189 textarea.rows = rows;
190 textarea.cols = cols;
191 return newTextInput(textarea, "");
192 };
193 };
194 var textField = function(ghostText) {
195 var field = newElement('input');
196 field.type = 'text';
197 return newTextInput(field, ghostText);
198 };
199 var password = function(ghostText) {
200 var field = newElement('input');
201 field.type = 'password';
202 return newTextInput(field, ghostText);
203 };
204 var checkbox = function(checked) {
205 var box = newElement('input');
206 box.type = 'checkbox';
207 box.checked = checked;
208 var status = Elm.Input(checked);
209 addListener(box, 'change', function(e) {
210 Dispatcher.notify(status.id, box.checked);
211 });
212 return Value.Tuple(box, status);
213 };
214 var dropDown = function(options) {
215 var slct = newElement('select');
216 var opts = [];
217 while (options[0] === "Cons") {
218 var opt = newElement('option');
219 var str = Text.toText(options[1][1]);
220 opt.value = str;
221 opt.innerHTML = str;
222 slct.appendChild(opt);
223 opts.push(options[1][2]);
224 options = options[2];
225 }
226 var status = Elm.Input(opts[0]);
227 addListener(slct, 'change', function(e) {
228 Dispatcher.notify(status.id, opts[slct.selectedIndex]);
229 });
230 return Value.Tuple(slct, status);
231 };
232 var stringDropDown = function(opts) {
233 return dropDown(List.map (function(x) {return Value.Tuple(x,x);}) (opts));
234 };
235 var button = function(name) {
236 var b = newElement('input');
237 b.type = "button";
238 b.value = Text.toText(name);
239 var press = Elm.Input(false);
240 addListener(b, 'click', function(e) {
241 Dispatcher.notify(press.id, true);
242 Dispatcher.notify(press.id, false);
243 });
244 return Value.Tuple(b,press);
245 };
246 return {textArea:textArea, textField:textField,
247 password:password, checkbox:checkbox,
248 dropDown:dropDown, stringDropDown:stringDropDown,
249 button:button};
250 }();
252 return {Mouse:Mouse, Time:Time, Window:Window,
253 HTTP:HTTP, Random:Random, Input:Input };
254}();