96 lines
3.1 KiB
JavaScript
96 lines
3.1 KiB
JavaScript
|
|
||
|
Elm.Native.Show = function(elm) {
|
||
|
'use strict';
|
||
|
|
||
|
if (elm.Native.Show) return elm.Native.Show;
|
||
|
|
||
|
var NList = Elm.Native.List(elm);
|
||
|
var List = Elm.List(elm);
|
||
|
var Maybe = Elm.Maybe(elm);
|
||
|
var JS = Elm.JavaScript(elm);
|
||
|
var Dict = Elm.Dict(elm);
|
||
|
var Json = Elm.Json(elm);
|
||
|
|
||
|
elm.node.addEventListener('log', function(e) { console.log(e.value); });
|
||
|
elm.node.addEventListener('title', function(e) {document.title = e.value;});
|
||
|
elm.node.addEventListener('redirect', function(e) {
|
||
|
if (e.value.length > 0) { window.location = e.value; }
|
||
|
});
|
||
|
elm.node.addEventListener('viewport', function(e) {
|
||
|
var node = document.getElementById('elm_viewport');
|
||
|
if (!node) {
|
||
|
node = document.createElement('meta');
|
||
|
node.id = 'elm_viewport';
|
||
|
node.name = 'viewport';
|
||
|
document.head.appendChild(node);
|
||
|
}
|
||
|
node.content = e.value;
|
||
|
Dispatcher.notify(elm.Window.dimensions.id,
|
||
|
Tuple2(elm.node.clientWidth, elm.node.clientHeight));
|
||
|
});
|
||
|
|
||
|
var toString = function(v) {
|
||
|
if (typeof v === "function") {
|
||
|
return "<function>";
|
||
|
} else if (typeof v === "boolean") {
|
||
|
return v ? "True" : "False";
|
||
|
} else if (typeof v === "number") {
|
||
|
return v+"";
|
||
|
} else if (typeof v === "string" && v.length < 2) {
|
||
|
return "'"+v+"'";
|
||
|
} else if (typeof v === "object" && ('_' in v)) {
|
||
|
var output = [];
|
||
|
for (var k in v._) {
|
||
|
console.log(k,v._[k]);
|
||
|
for (var i = v._[k].length; i--; ) {
|
||
|
output.push(k + " = " + toString(v._[k][i]));
|
||
|
}
|
||
|
}
|
||
|
for (var k in v) {
|
||
|
if (k === '_') continue;
|
||
|
output.push(k + " = " + toString(v[k]));
|
||
|
}
|
||
|
if (output.length === 0) return "{}";
|
||
|
return "{ " + output.join(", ") + " }";
|
||
|
} else if ('ctor' in v) {
|
||
|
if (v.ctor.substring(0,5) === "Tuple") {
|
||
|
var output = new Array(v.length-1);
|
||
|
for (var i = v.length; --i; ) { output[i-1] = toString(v[i]); }
|
||
|
return "(" + output.join(",") + ")";
|
||
|
} else if (v.ctor === "Cons") {
|
||
|
var isStr = typeof v._0 === "string";
|
||
|
var start = isStr ? '"' : "[";
|
||
|
var end = isStr ? '"' : "]";
|
||
|
var sep = isStr ? "" : ",";
|
||
|
var f = isStr ? function(x){return x} : toString;
|
||
|
var output = start + f(v._0);
|
||
|
v = v._1;
|
||
|
while (v.ctor === "Cons") {
|
||
|
output += sep + f(v._0);
|
||
|
v = v._1;
|
||
|
}
|
||
|
return output + end;
|
||
|
} else if (v.ctor === "Nil") {
|
||
|
return "[]";
|
||
|
} else if (v.ctor === "RBNode" || v.ctor === "RBEmpty") {
|
||
|
function cons(k){ return function(v) { return function(acc) { return NList.Cons(Tuple2(k,v),acc); }; }; }
|
||
|
var list = Dict.foldr(cons)(NList.Nil)(v);
|
||
|
var name = "Dict";
|
||
|
if (list.ctor === "Cons" && list._0._1.ctor === "Tuple0") {
|
||
|
name = "Set";
|
||
|
list = A2(List.map, function(x){return x._0}, list);
|
||
|
}
|
||
|
return "(" + name + ".fromList " + toString(list) + ")";
|
||
|
} else {
|
||
|
var output = "";
|
||
|
for (var i = v.length; --i; ) { output = ' ' + toString(v[i]) + output; }
|
||
|
output = v.ctor + output;
|
||
|
return (v.length > 1) ? "(" + output + ")" : output;
|
||
|
}
|
||
|
}
|
||
|
return v+"";
|
||
|
};
|
||
|
function show(v) { return NList.fromArray(toString(v)); }
|
||
|
|
||
|
return elm.Native.Show = { show:show };
|
||
|
};
|