git.iko.soy/elk
on 06503fe help sign in
elk/runtime/Init.js
184 lines 5.9 kB history raw
2(function() {
3'use strict';
5Elm.fullscreen = function(module, ports) {
6 var style = document.createElement('style');
7 style.type = 'text/css';
8 style.innerHTML = "html,head,body { padding:0; margin:0; }" +
9 "body { font-family: calibri, helvetica, arial, sans-serif; }";
10 document.head.appendChild(style);
11 var container = document.createElement('div');
12 document.body.appendChild(container);
13 return init(ElmRuntime.Display.FULLSCREEN, container, module, ports);
14};
16Elm.embed = function(module, container, ports) {
17 var tag = container.tagName;
18 if (tag !== 'DIV') {
19 throw new Error('Elm.node must be given a DIV, not a ' + tag + '.');
20 } else if (container.hasChildNodes()) {
21 throw new Error('Elm.node must be given an empty DIV. No children allowed!');
22 }
23 return init(ElmRuntime.Display.COMPONENT, container, module, ports);
24};
26Elm.worker = function(module, ports) {
27 return init(ElmRuntime.Display.NONE, {}, module, ports);
28};
30function init(display, container, module, moduleToReplace, ports) {
31 // defining state needed for an instance of the Elm RTS
32 var inputs = [];
34 var updateInProgress = false;
35 function notify(id, v) {
36 if (updateInProgress) {
37 throw new Error(
38 'The notify function has been called synchronously!\n' +
39 'This can lead to frames being dropped.\n' +
40 'Definitely report this to <https://github.com/evancz/Elm/issues>\n');
41 }
42 updateInProgress = true;
43 var timestep = Date.now();
44 for (var i = inputs.length; i--; ) {
45 inputs[i].recv(timestep, id, v);
46 }
47 updateInProgress = false;
48 }
50 var listeners = [];
51 function addListener(relevantInputs, domNode, eventName, func) {
52 domNode.addEventListener(eventName, func);
53 var listener = {
54 relevantInputs: relevantInputs,
55 domNode: domNode,
56 eventName: eventName,
57 func: func
58 };
59 listeners.push(listener);
60 }
62 // create the actual RTS. Any impure modules will attach themselves to this
63 // object. This permits many Elm programs to be embedded per document.
64 var elm = {
65 notify:notify,
66 node:container,
67 display:display,
68 id:ElmRuntime.guid(),
69 addListener:addListener,
70 inputs:inputs,
71 ports_in:ports
72 };
74 // Set up methods to communicate with Elm program from JS.
75 function send(name, value) {
76 if (typeof value === 'undefined') return function(v) { return send(name,v); };
77 var e = document.createEvent('Event');
78 e.initEvent(name + '_' + elm.id, true, true);
79 e.value = value;
80 document.dispatchEvent(e);
81 }
82 function recv(name, handler) {
83 document.addEventListener(name + '_' + elm.id, handler);
84 }
86 recv('log', function(e) {console.log(e.value)});
87 recv('title', function(e) {document.title = e.value});
88 recv('redirect', function(e) {
89 if (e.value.length > 0) { window.location = e.value; }
90 });
92 function swap(newModule) {
93 removeListeners(listeners);
94 var div = document.createElement('div');
95 var newElm = init(display, div, newModule, elm);
96 inputs = [];
97 // elm.send = newElm.send;
98 // elm.recv = newElm.recv;
99 // elm.swap = newElm.swap;
100 return newElm;
101 }
103 var Module = {};
104 var reportAnyErrors = function() {};
105 try {
106 Module = module.make(elm);
107 } catch(e) {
108 var directions = "<br/>&nbsp; &nbsp; Open the developer console for more details."
109 Module.main = Elm.Text.make(elm).text('<code>' + e.message + directions + '</code>');
110 reportAnyErrors = function() { throw e; }
111 }
112 inputs = ElmRuntime.filterDeadInputs(inputs);
113 filterListeners(inputs, listeners);
114 if (display !== ElmRuntime.Display.NONE) {
115 var graphicsNode = initGraphics(elm, Module);
116 }
117 if (typeof moduleToReplace !== 'undefined') {
118 ElmRuntime.swap(moduleToReplace, elm);
120 // rerender scene if graphics are enabled.
121 if (typeof graphicsNode !== 'undefined') {
122 graphicsNode.recv(0, true, 0);
123 }
124 }
126 reportAnyErrors();
127 return { send:send, recv:recv, swap:swap, ports:elm.ports_out };
128};
130function filterListeners(inputs, listeners) {
131 loop:
132 for (var i = listeners.length; i--; ) {
133 var listener = listeners[i];
134 for (var j = inputs.length; j--; ) {
135 if (listener.relevantInputs.indexOf(inputs[j].id) >= 0) {
136 continue loop;
137 }
138 }
139 listener.domNode.removeEventListener(listener.eventName, listener.func);
140 }
143function removeListeners(listeners) {
144 for (var i = listeners.length; i--; ) {
145 var listener = listeners[i];
146 listener.domNode.removeEventListener(listener.eventName, listener.func);
147 }
150function initGraphics(elm, Module) {
151 if (!('main' in Module))
152 throw new Error("'main' is missing! What do I display?!");
154 var signalGraph = Module.main;
156 // make sure the signal graph is actually a signal & extract the visual model
157 var Signal = Elm.Signal.make(elm);
158 if (!('recv' in signalGraph)) {
159 signalGraph = Signal.constant(signalGraph);
160 }
161 var currentScene = signalGraph.value;
163 // Add the currentScene to the DOM
164 var Render = ElmRuntime.use(ElmRuntime.Render.Element);
165 elm.node.appendChild(Render.render(currentScene));
167 // set up updates so that the DOM is adjusted as necessary.
168 function domUpdate(newScene, currentScene) {
169 ElmRuntime.draw(function(_) {
170 Render.update(elm.node.firstChild, currentScene, newScene);
171 if (elm.Native.Window) elm.Native.Window.values.resizeIfNeeded();
172 });
173 return newScene;
174 }
175 var renderer = A3(Signal.foldp, F2(domUpdate), currentScene, signalGraph);
177 // must check for resize after 'renderer' is created so
178 // that changes show up.
179 if (elm.Native.Window) elm.Native.Window.values.resizeIfNeeded();
181 return renderer;
184}());