git.iko.soy/elk
on ecaa5bd help sign in
elk/libraries/Native/Signal/Window.js
37 lines 1.1 kB history raw
2Elm.Native.Window = function(elm) {
3 'use strict';
5 elm.Native = elm.Native || {};
6 if (elm.Native.Window) return elm.Native.Window;
8 var Signal = Elm.Signal(elm);
9 var Tuple2 = Elm.Native.Utils(elm).Tuple2;
11 var dimensions = Signal.constant(Tuple2(elm.node.clientWidth,
12 elm.node.clientHeight));
13 dimensions.defaultNumberOfKids = 2;
15 // Do not move width and height into Elm. By setting the default number of kids,
16 // the resize listener can be detached.
17 var width = A2(Signal.lift, function(p){return p._0}, dimensions);
18 width.defaultNumberOfKids = 0;
20 var height = A2(Signal.lift, function(p){return p._1}, dimensions);
21 height.defaultNumberOfKids = 0;
23 function resize(e) {
24 console.log('use the base node (should happen after resize)');
25 var hasListener = elm.notify(dimensions.id, Tuple2(elm.node.clientWidth,
26 elm.node.clientHeight));
27 if (!hasListener) window.removeEventListener('resize', resize);
28 }
29 window.addEventListener('resize', resize);
31 return elm.Native.Window = {
32 dimensions:dimensions,
33 width:width,
34 height:height
35 };
37};