From d26df4317f3037a09bbab2ee148662003e4632ff Mon Sep 17 00:00:00 2001
From: Edward Sabinus <edward.sabinus@student.uni-halle.de>
Date: Wed, 8 Jul 2020 14:04:29 +0200
Subject: [PATCH] delete again index.html
---
index.html | 11038 ---------------------------------------------------
1 file changed, 11038 deletions(-)
delete mode 100644 index.html
diff --git a/index.html b/index.html
deleted file mode 100644
index 097673b..0000000
--- a/index.html
+++ /dev/null
@@ -1,11038 +0,0 @@
-<!DOCTYPE HTML>
-<html>
-<head>
- <meta charset="UTF-8">
- <title>ShapePicture_Editor</title>
- <style>body { padding: 0; margin: 0; }</style>
-</head>
-
-<body>
-
-<pre id="elm"></pre>
-
-<script>
-try {
-(function(scope){
-'use strict';
-
-function F(arity, fun, wrapper) {
- wrapper.a = arity;
- wrapper.f = fun;
- return wrapper;
-}
-
-function F2(fun) {
- return F(2, fun, function(a) { return function(b) { return fun(a,b); }; })
-}
-function F3(fun) {
- return F(3, fun, function(a) {
- return function(b) { return function(c) { return fun(a, b, c); }; };
- });
-}
-function F4(fun) {
- return F(4, fun, function(a) { return function(b) { return function(c) {
- return function(d) { return fun(a, b, c, d); }; }; };
- });
-}
-function F5(fun) {
- return F(5, fun, function(a) { return function(b) { return function(c) {
- return function(d) { return function(e) { return fun(a, b, c, d, e); }; }; }; };
- });
-}
-function F6(fun) {
- return F(6, fun, function(a) { return function(b) { return function(c) {
- return function(d) { return function(e) { return function(f) {
- return fun(a, b, c, d, e, f); }; }; }; }; };
- });
-}
-function F7(fun) {
- return F(7, fun, function(a) { return function(b) { return function(c) {
- return function(d) { return function(e) { return function(f) {
- return function(g) { return fun(a, b, c, d, e, f, g); }; }; }; }; }; };
- });
-}
-function F8(fun) {
- return F(8, fun, function(a) { return function(b) { return function(c) {
- return function(d) { return function(e) { return function(f) {
- return function(g) { return function(h) {
- return fun(a, b, c, d, e, f, g, h); }; }; }; }; }; }; };
- });
-}
-function F9(fun) {
- return F(9, fun, function(a) { return function(b) { return function(c) {
- return function(d) { return function(e) { return function(f) {
- return function(g) { return function(h) { return function(i) {
- return fun(a, b, c, d, e, f, g, h, i); }; }; }; }; }; }; }; };
- });
-}
-
-function A2(fun, a, b) {
- return fun.a === 2 ? fun.f(a, b) : fun(a)(b);
-}
-function A3(fun, a, b, c) {
- return fun.a === 3 ? fun.f(a, b, c) : fun(a)(b)(c);
-}
-function A4(fun, a, b, c, d) {
- return fun.a === 4 ? fun.f(a, b, c, d) : fun(a)(b)(c)(d);
-}
-function A5(fun, a, b, c, d, e) {
- return fun.a === 5 ? fun.f(a, b, c, d, e) : fun(a)(b)(c)(d)(e);
-}
-function A6(fun, a, b, c, d, e, f) {
- return fun.a === 6 ? fun.f(a, b, c, d, e, f) : fun(a)(b)(c)(d)(e)(f);
-}
-function A7(fun, a, b, c, d, e, f, g) {
- return fun.a === 7 ? fun.f(a, b, c, d, e, f, g) : fun(a)(b)(c)(d)(e)(f)(g);
-}
-function A8(fun, a, b, c, d, e, f, g, h) {
- return fun.a === 8 ? fun.f(a, b, c, d, e, f, g, h) : fun(a)(b)(c)(d)(e)(f)(g)(h);
-}
-function A9(fun, a, b, c, d, e, f, g, h, i) {
- return fun.a === 9 ? fun.f(a, b, c, d, e, f, g, h, i) : fun(a)(b)(c)(d)(e)(f)(g)(h)(i);
-}
-
-console.warn('Compiled in DEV mode. Follow the advice at https://elm-lang.org/0.19.1/optimize for better performance and smaller assets.');
-
-
-// EQUALITY
-
-function _Utils_eq(x, y)
-{
- for (
- var pair, stack = [], isEqual = _Utils_eqHelp(x, y, 0, stack);
- isEqual && (pair = stack.pop());
- isEqual = _Utils_eqHelp(pair.a, pair.b, 0, stack)
- )
- {}
-
- return isEqual;
-}
-
-function _Utils_eqHelp(x, y, depth, stack)
-{
- if (x === y)
- {
- return true;
- }
-
- if (typeof x !== 'object' || x === null || y === null)
- {
- typeof x === 'function' && _Debug_crash(5);
- return false;
- }
-
- if (depth > 100)
- {
- stack.push(_Utils_Tuple2(x,y));
- return true;
- }
-
- /**/
- if (x.$ === 'Set_elm_builtin')
- {
- x = $elm$core$Set$toList(x);
- y = $elm$core$Set$toList(y);
- }
- if (x.$ === 'RBNode_elm_builtin' || x.$ === 'RBEmpty_elm_builtin')
- {
- x = $elm$core$Dict$toList(x);
- y = $elm$core$Dict$toList(y);
- }
- //*/
-
- /**_UNUSED/
- if (x.$ < 0)
- {
- x = $elm$core$Dict$toList(x);
- y = $elm$core$Dict$toList(y);
- }
- //*/
-
- for (var key in x)
- {
- if (!_Utils_eqHelp(x[key], y[key], depth + 1, stack))
- {
- return false;
- }
- }
- return true;
-}
-
-var _Utils_equal = F2(_Utils_eq);
-var _Utils_notEqual = F2(function(a, b) { return !_Utils_eq(a,b); });
-
-
-
-// COMPARISONS
-
-// Code in Generate/JavaScript.hs, Basics.js, and List.js depends on
-// the particular integer values assigned to LT, EQ, and GT.
-
-function _Utils_cmp(x, y, ord)
-{
- if (typeof x !== 'object')
- {
- return x === y ? /*EQ*/ 0 : x < y ? /*LT*/ -1 : /*GT*/ 1;
- }
-
- /**/
- if (x instanceof String)
- {
- var a = x.valueOf();
- var b = y.valueOf();
- return a === b ? 0 : a < b ? -1 : 1;
- }
- //*/
-
- /**_UNUSED/
- if (typeof x.$ === 'undefined')
- //*/
- /**/
- if (x.$[0] === '#')
- //*/
- {
- return (ord = _Utils_cmp(x.a, y.a))
- ? ord
- : (ord = _Utils_cmp(x.b, y.b))
- ? ord
- : _Utils_cmp(x.c, y.c);
- }
-
- // traverse conses until end of a list or a mismatch
- for (; x.b && y.b && !(ord = _Utils_cmp(x.a, y.a)); x = x.b, y = y.b) {} // WHILE_CONSES
- return ord || (x.b ? /*GT*/ 1 : y.b ? /*LT*/ -1 : /*EQ*/ 0);
-}
-
-var _Utils_lt = F2(function(a, b) { return _Utils_cmp(a, b) < 0; });
-var _Utils_le = F2(function(a, b) { return _Utils_cmp(a, b) < 1; });
-var _Utils_gt = F2(function(a, b) { return _Utils_cmp(a, b) > 0; });
-var _Utils_ge = F2(function(a, b) { return _Utils_cmp(a, b) >= 0; });
-
-var _Utils_compare = F2(function(x, y)
-{
- var n = _Utils_cmp(x, y);
- return n < 0 ? $elm$core$Basics$LT : n ? $elm$core$Basics$GT : $elm$core$Basics$EQ;
-});
-
-
-// COMMON VALUES
-
-var _Utils_Tuple0_UNUSED = 0;
-var _Utils_Tuple0 = { $: '#0' };
-
-function _Utils_Tuple2_UNUSED(a, b) { return { a: a, b: b }; }
-function _Utils_Tuple2(a, b) { return { $: '#2', a: a, b: b }; }
-
-function _Utils_Tuple3_UNUSED(a, b, c) { return { a: a, b: b, c: c }; }
-function _Utils_Tuple3(a, b, c) { return { $: '#3', a: a, b: b, c: c }; }
-
-function _Utils_chr_UNUSED(c) { return c; }
-function _Utils_chr(c) { return new String(c); }
-
-
-// RECORDS
-
-function _Utils_update(oldRecord, updatedFields)
-{
- var newRecord = {};
-
- for (var key in oldRecord)
- {
- newRecord[key] = oldRecord[key];
- }
-
- for (var key in updatedFields)
- {
- newRecord[key] = updatedFields[key];
- }
-
- return newRecord;
-}
-
-
-// APPEND
-
-var _Utils_append = F2(_Utils_ap);
-
-function _Utils_ap(xs, ys)
-{
- // append Strings
- if (typeof xs === 'string')
- {
- return xs + ys;
- }
-
- // append Lists
- if (!xs.b)
- {
- return ys;
- }
- var root = _List_Cons(xs.a, ys);
- xs = xs.b
- for (var curr = root; xs.b; xs = xs.b) // WHILE_CONS
- {
- curr = curr.b = _List_Cons(xs.a, ys);
- }
- return root;
-}
-
-
-
-var _List_Nil_UNUSED = { $: 0 };
-var _List_Nil = { $: '[]' };
-
-function _List_Cons_UNUSED(hd, tl) { return { $: 1, a: hd, b: tl }; }
-function _List_Cons(hd, tl) { return { $: '::', a: hd, b: tl }; }
-
-
-var _List_cons = F2(_List_Cons);
-
-function _List_fromArray(arr)
-{
- var out = _List_Nil;
- for (var i = arr.length; i--; )
- {
- out = _List_Cons(arr[i], out);
- }
- return out;
-}
-
-function _List_toArray(xs)
-{
- for (var out = []; xs.b; xs = xs.b) // WHILE_CONS
- {
- out.push(xs.a);
- }
- return out;
-}
-
-var _List_map2 = F3(function(f, xs, ys)
-{
- for (var arr = []; xs.b && ys.b; xs = xs.b, ys = ys.b) // WHILE_CONSES
- {
- arr.push(A2(f, xs.a, ys.a));
- }
- return _List_fromArray(arr);
-});
-
-var _List_map3 = F4(function(f, xs, ys, zs)
-{
- for (var arr = []; xs.b && ys.b && zs.b; xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
- {
- arr.push(A3(f, xs.a, ys.a, zs.a));
- }
- return _List_fromArray(arr);
-});
-
-var _List_map4 = F5(function(f, ws, xs, ys, zs)
-{
- for (var arr = []; ws.b && xs.b && ys.b && zs.b; ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
- {
- arr.push(A4(f, ws.a, xs.a, ys.a, zs.a));
- }
- return _List_fromArray(arr);
-});
-
-var _List_map5 = F6(function(f, vs, ws, xs, ys, zs)
-{
- for (var arr = []; vs.b && ws.b && xs.b && ys.b && zs.b; vs = vs.b, ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
- {
- arr.push(A5(f, vs.a, ws.a, xs.a, ys.a, zs.a));
- }
- return _List_fromArray(arr);
-});
-
-var _List_sortBy = F2(function(f, xs)
-{
- return _List_fromArray(_List_toArray(xs).sort(function(a, b) {
- return _Utils_cmp(f(a), f(b));
- }));
-});
-
-var _List_sortWith = F2(function(f, xs)
-{
- return _List_fromArray(_List_toArray(xs).sort(function(a, b) {
- var ord = A2(f, a, b);
- return ord === $elm$core$Basics$EQ ? 0 : ord === $elm$core$Basics$LT ? -1 : 1;
- }));
-});
-
-
-
-var _JsArray_empty = [];
-
-function _JsArray_singleton(value)
-{
- return [value];
-}
-
-function _JsArray_length(array)
-{
- return array.length;
-}
-
-var _JsArray_initialize = F3(function(size, offset, func)
-{
- var result = new Array(size);
-
- for (var i = 0; i < size; i++)
- {
- result[i] = func(offset + i);
- }
-
- return result;
-});
-
-var _JsArray_initializeFromList = F2(function (max, ls)
-{
- var result = new Array(max);
-
- for (var i = 0; i < max && ls.b; i++)
- {
- result[i] = ls.a;
- ls = ls.b;
- }
-
- result.length = i;
- return _Utils_Tuple2(result, ls);
-});
-
-var _JsArray_unsafeGet = F2(function(index, array)
-{
- return array[index];
-});
-
-var _JsArray_unsafeSet = F3(function(index, value, array)
-{
- var length = array.length;
- var result = new Array(length);
-
- for (var i = 0; i < length; i++)
- {
- result[i] = array[i];
- }
-
- result[index] = value;
- return result;
-});
-
-var _JsArray_push = F2(function(value, array)
-{
- var length = array.length;
- var result = new Array(length + 1);
-
- for (var i = 0; i < length; i++)
- {
- result[i] = array[i];
- }
-
- result[length] = value;
- return result;
-});
-
-var _JsArray_foldl = F3(function(func, acc, array)
-{
- var length = array.length;
-
- for (var i = 0; i < length; i++)
- {
- acc = A2(func, array[i], acc);
- }
-
- return acc;
-});
-
-var _JsArray_foldr = F3(function(func, acc, array)
-{
- for (var i = array.length - 1; i >= 0; i--)
- {
- acc = A2(func, array[i], acc);
- }
-
- return acc;
-});
-
-var _JsArray_map = F2(function(func, array)
-{
- var length = array.length;
- var result = new Array(length);
-
- for (var i = 0; i < length; i++)
- {
- result[i] = func(array[i]);
- }
-
- return result;
-});
-
-var _JsArray_indexedMap = F3(function(func, offset, array)
-{
- var length = array.length;
- var result = new Array(length);
-
- for (var i = 0; i < length; i++)
- {
- result[i] = A2(func, offset + i, array[i]);
- }
-
- return result;
-});
-
-var _JsArray_slice = F3(function(from, to, array)
-{
- return array.slice(from, to);
-});
-
-var _JsArray_appendN = F3(function(n, dest, source)
-{
- var destLen = dest.length;
- var itemsToCopy = n - destLen;
-
- if (itemsToCopy > source.length)
- {
- itemsToCopy = source.length;
- }
-
- var size = destLen + itemsToCopy;
- var result = new Array(size);
-
- for (var i = 0; i < destLen; i++)
- {
- result[i] = dest[i];
- }
-
- for (var i = 0; i < itemsToCopy; i++)
- {
- result[i + destLen] = source[i];
- }
-
- return result;
-});
-
-
-
-// LOG
-
-var _Debug_log_UNUSED = F2(function(tag, value)
-{
- return value;
-});
-
-var _Debug_log = F2(function(tag, value)
-{
- console.log(tag + ': ' + _Debug_toString(value));
- return value;
-});
-
-
-// TODOS
-
-function _Debug_todo(moduleName, region)
-{
- return function(message) {
- _Debug_crash(8, moduleName, region, message);
- };
-}
-
-function _Debug_todoCase(moduleName, region, value)
-{
- return function(message) {
- _Debug_crash(9, moduleName, region, value, message);
- };
-}
-
-
-// TO STRING
-
-function _Debug_toString_UNUSED(value)
-{
- return '<internals>';
-}
-
-function _Debug_toString(value)
-{
- return _Debug_toAnsiString(false, value);
-}
-
-function _Debug_toAnsiString(ansi, value)
-{
- if (typeof value === 'function')
- {
- return _Debug_internalColor(ansi, '<function>');
- }
-
- if (typeof value === 'boolean')
- {
- return _Debug_ctorColor(ansi, value ? 'True' : 'False');
- }
-
- if (typeof value === 'number')
- {
- return _Debug_numberColor(ansi, value + '');
- }
-
- if (value instanceof String)
- {
- return _Debug_charColor(ansi, "'" + _Debug_addSlashes(value, true) + "'");
- }
-
- if (typeof value === 'string')
- {
- return _Debug_stringColor(ansi, '"' + _Debug_addSlashes(value, false) + '"');
- }
-
- if (typeof value === 'object' && '$' in value)
- {
- var tag = value.$;
-
- if (typeof tag === 'number')
- {
- return _Debug_internalColor(ansi, '<internals>');
- }
-
- if (tag[0] === '#')
- {
- var output = [];
- for (var k in value)
- {
- if (k === '$') continue;
- output.push(_Debug_toAnsiString(ansi, value[k]));
- }
- return '(' + output.join(',') + ')';
- }
-
- if (tag === 'Set_elm_builtin')
- {
- return _Debug_ctorColor(ansi, 'Set')
- + _Debug_fadeColor(ansi, '.fromList') + ' '
- + _Debug_toAnsiString(ansi, $elm$core$Set$toList(value));
- }
-
- if (tag === 'RBNode_elm_builtin' || tag === 'RBEmpty_elm_builtin')
- {
- return _Debug_ctorColor(ansi, 'Dict')
- + _Debug_fadeColor(ansi, '.fromList') + ' '
- + _Debug_toAnsiString(ansi, $elm$core$Dict$toList(value));
- }
-
- if (tag === 'Array_elm_builtin')
- {
- return _Debug_ctorColor(ansi, 'Array')
- + _Debug_fadeColor(ansi, '.fromList') + ' '
- + _Debug_toAnsiString(ansi, $elm$core$Array$toList(value));
- }
-
- if (tag === '::' || tag === '[]')
- {
- var output = '[';
-
- value.b && (output += _Debug_toAnsiString(ansi, value.a), value = value.b)
-
- for (; value.b; value = value.b) // WHILE_CONS
- {
- output += ',' + _Debug_toAnsiString(ansi, value.a);
- }
- return output + ']';
- }
-
- var output = '';
- for (var i in value)
- {
- if (i === '$') continue;
- var str = _Debug_toAnsiString(ansi, value[i]);
- var c0 = str[0];
- var parenless = c0 === '{' || c0 === '(' || c0 === '[' || c0 === '<' || c0 === '"' || str.indexOf(' ') < 0;
- output += ' ' + (parenless ? str : '(' + str + ')');
- }
- return _Debug_ctorColor(ansi, tag) + output;
- }
-
- if (typeof DataView === 'function' && value instanceof DataView)
- {
- return _Debug_stringColor(ansi, '<' + value.byteLength + ' bytes>');
- }
-
- if (typeof File !== 'undefined' && value instanceof File)
- {
- return _Debug_internalColor(ansi, '<' + value.name + '>');
- }
-
- if (typeof value === 'object')
- {
- var output = [];
- for (var key in value)
- {
- var field = key[0] === '_' ? key.slice(1) : key;
- output.push(_Debug_fadeColor(ansi, field) + ' = ' + _Debug_toAnsiString(ansi, value[key]));
- }
- if (output.length === 0)
- {
- return '{}';
- }
- return '{ ' + output.join(', ') + ' }';
- }
-
- return _Debug_internalColor(ansi, '<internals>');
-}
-
-function _Debug_addSlashes(str, isChar)
-{
- var s = str
- .replace(/\\/g, '\\\\')
- .replace(/\n/g, '\\n')
- .replace(/\t/g, '\\t')
- .replace(/\r/g, '\\r')
- .replace(/\v/g, '\\v')
- .replace(/\0/g, '\\0');
-
- if (isChar)
- {
- return s.replace(/\'/g, '\\\'');
- }
- else
- {
- return s.replace(/\"/g, '\\"');
- }
-}
-
-function _Debug_ctorColor(ansi, string)
-{
- return ansi ? '\x1b[96m' + string + '\x1b[0m' : string;
-}
-
-function _Debug_numberColor(ansi, string)
-{
- return ansi ? '\x1b[95m' + string + '\x1b[0m' : string;
-}
-
-function _Debug_stringColor(ansi, string)
-{
- return ansi ? '\x1b[93m' + string + '\x1b[0m' : string;
-}
-
-function _Debug_charColor(ansi, string)
-{
- return ansi ? '\x1b[92m' + string + '\x1b[0m' : string;
-}
-
-function _Debug_fadeColor(ansi, string)
-{
- return ansi ? '\x1b[37m' + string + '\x1b[0m' : string;
-}
-
-function _Debug_internalColor(ansi, string)
-{
- return ansi ? '\x1b[36m' + string + '\x1b[0m' : string;
-}
-
-function _Debug_toHexDigit(n)
-{
- return String.fromCharCode(n < 10 ? 48 + n : 55 + n);
-}
-
-
-// CRASH
-
-
-function _Debug_crash_UNUSED(identifier)
-{
- throw new Error('https://github.com/elm/core/blob/1.0.0/hints/' + identifier + '.md');
-}
-
-
-function _Debug_crash(identifier, fact1, fact2, fact3, fact4)
-{
- switch(identifier)
- {
- case 0:
- throw new Error('What node should I take over? In JavaScript I need something like:\n\n Elm.Main.init({\n node: document.getElementById("elm-node")\n })\n\nYou need to do this with any Browser.sandbox or Browser.element program.');
-
- case 1:
- throw new Error('Browser.application programs cannot handle URLs like this:\n\n ' + document.location.href + '\n\nWhat is the root? The root of your file system? Try looking at this program with `elm reactor` or some other server.');
-
- case 2:
- var jsonErrorString = fact1;
- throw new Error('Problem with the flags given to your Elm program on initialization.\n\n' + jsonErrorString);
-
- case 3:
- var portName = fact1;
- throw new Error('There can only be one port named `' + portName + '`, but your program has multiple.');
-
- case 4:
- var portName = fact1;
- var problem = fact2;
- throw new Error('Trying to send an unexpected type of value through port `' + portName + '`:\n' + problem);
-
- case 5:
- throw new Error('Trying to use `(==)` on functions.\nThere is no way to know if functions are "the same" in the Elm sense.\nRead more about this at https://package.elm-lang.org/packages/elm/core/latest/Basics#== which describes why it is this way and what the better version will look like.');
-
- case 6:
- var moduleName = fact1;
- throw new Error('Your page is loading multiple Elm scripts with a module named ' + moduleName + '. Maybe a duplicate script is getting loaded accidentally? If not, rename one of them so I know which is which!');
-
- case 8:
- var moduleName = fact1;
- var region = fact2;
- var message = fact3;
- throw new Error('TODO in module `' + moduleName + '` ' + _Debug_regionToString(region) + '\n\n' + message);
-
- case 9:
- var moduleName = fact1;
- var region = fact2;
- var value = fact3;
- var message = fact4;
- throw new Error(
- 'TODO in module `' + moduleName + '` from the `case` expression '
- + _Debug_regionToString(region) + '\n\nIt received the following value:\n\n '
- + _Debug_toString(value).replace('\n', '\n ')
- + '\n\nBut the branch that handles it says:\n\n ' + message.replace('\n', '\n ')
- );
-
- case 10:
- throw new Error('Bug in https://github.com/elm/virtual-dom/issues');
-
- case 11:
- throw new Error('Cannot perform mod 0. Division by zero error.');
- }
-}
-
-function _Debug_regionToString(region)
-{
- if (region.start.line === region.end.line)
- {
- return 'on line ' + region.start.line;
- }
- return 'on lines ' + region.start.line + ' through ' + region.end.line;
-}
-
-
-
-// MATH
-
-var _Basics_add = F2(function(a, b) { return a + b; });
-var _Basics_sub = F2(function(a, b) { return a - b; });
-var _Basics_mul = F2(function(a, b) { return a * b; });
-var _Basics_fdiv = F2(function(a, b) { return a / b; });
-var _Basics_idiv = F2(function(a, b) { return (a / b) | 0; });
-var _Basics_pow = F2(Math.pow);
-
-var _Basics_remainderBy = F2(function(b, a) { return a % b; });
-
-// https://www.microsoft.com/en-us/research/wp-content/uploads/2016/02/divmodnote-letter.pdf
-var _Basics_modBy = F2(function(modulus, x)
-{
- var answer = x % modulus;
- return modulus === 0
- ? _Debug_crash(11)
- :
- ((answer > 0 && modulus < 0) || (answer < 0 && modulus > 0))
- ? answer + modulus
- : answer;
-});
-
-
-// TRIGONOMETRY
-
-var _Basics_pi = Math.PI;
-var _Basics_e = Math.E;
-var _Basics_cos = Math.cos;
-var _Basics_sin = Math.sin;
-var _Basics_tan = Math.tan;
-var _Basics_acos = Math.acos;
-var _Basics_asin = Math.asin;
-var _Basics_atan = Math.atan;
-var _Basics_atan2 = F2(Math.atan2);
-
-
-// MORE MATH
-
-function _Basics_toFloat(x) { return x; }
-function _Basics_truncate(n) { return n | 0; }
-function _Basics_isInfinite(n) { return n === Infinity || n === -Infinity; }
-
-var _Basics_ceiling = Math.ceil;
-var _Basics_floor = Math.floor;
-var _Basics_round = Math.round;
-var _Basics_sqrt = Math.sqrt;
-var _Basics_log = Math.log;
-var _Basics_isNaN = isNaN;
-
-
-// BOOLEANS
-
-function _Basics_not(bool) { return !bool; }
-var _Basics_and = F2(function(a, b) { return a && b; });
-var _Basics_or = F2(function(a, b) { return a || b; });
-var _Basics_xor = F2(function(a, b) { return a !== b; });
-
-
-
-var _String_cons = F2(function(chr, str)
-{
- return chr + str;
-});
-
-function _String_uncons(string)
-{
- var word = string.charCodeAt(0);
- return !isNaN(word)
- ? $elm$core$Maybe$Just(
- 0xD800 <= word && word <= 0xDBFF
- ? _Utils_Tuple2(_Utils_chr(string[0] + string[1]), string.slice(2))
- : _Utils_Tuple2(_Utils_chr(string[0]), string.slice(1))
- )
- : $elm$core$Maybe$Nothing;
-}
-
-var _String_append = F2(function(a, b)
-{
- return a + b;
-});
-
-function _String_length(str)
-{
- return str.length;
-}
-
-var _String_map = F2(function(func, string)
-{
- var len = string.length;
- var array = new Array(len);
- var i = 0;
- while (i < len)
- {
- var word = string.charCodeAt(i);
- if (0xD800 <= word && word <= 0xDBFF)
- {
- array[i] = func(_Utils_chr(string[i] + string[i+1]));
- i += 2;
- continue;
- }
- array[i] = func(_Utils_chr(string[i]));
- i++;
- }
- return array.join('');
-});
-
-var _String_filter = F2(function(isGood, str)
-{
- var arr = [];
- var len = str.length;
- var i = 0;
- while (i < len)
- {
- var char = str[i];
- var word = str.charCodeAt(i);
- i++;
- if (0xD800 <= word && word <= 0xDBFF)
- {
- char += str[i];
- i++;
- }
-
- if (isGood(_Utils_chr(char)))
- {
- arr.push(char);
- }
- }
- return arr.join('');
-});
-
-function _String_reverse(str)
-{
- var len = str.length;
- var arr = new Array(len);
- var i = 0;
- while (i < len)
- {
- var word = str.charCodeAt(i);
- if (0xD800 <= word && word <= 0xDBFF)
- {
- arr[len - i] = str[i + 1];
- i++;
- arr[len - i] = str[i - 1];
- i++;
- }
- else
- {
- arr[len - i] = str[i];
- i++;
- }
- }
- return arr.join('');
-}
-
-var _String_foldl = F3(function(func, state, string)
-{
- var len = string.length;
- var i = 0;
- while (i < len)
- {
- var char = string[i];
- var word = string.charCodeAt(i);
- i++;
- if (0xD800 <= word && word <= 0xDBFF)
- {
- char += string[i];
- i++;
- }
- state = A2(func, _Utils_chr(char), state);
- }
- return state;
-});
-
-var _String_foldr = F3(function(func, state, string)
-{
- var i = string.length;
- while (i--)
- {
- var char = string[i];
- var word = string.charCodeAt(i);
- if (0xDC00 <= word && word <= 0xDFFF)
- {
- i--;
- char = string[i] + char;
- }
- state = A2(func, _Utils_chr(char), state);
- }
- return state;
-});
-
-var _String_split = F2(function(sep, str)
-{
- return str.split(sep);
-});
-
-var _String_join = F2(function(sep, strs)
-{
- return strs.join(sep);
-});
-
-var _String_slice = F3(function(start, end, str) {
- return str.slice(start, end);
-});
-
-function _String_trim(str)
-{
- return str.trim();
-}
-
-function _String_trimLeft(str)
-{
- return str.replace(/^\s+/, '');
-}
-
-function _String_trimRight(str)
-{
- return str.replace(/\s+$/, '');
-}
-
-function _String_words(str)
-{
- return _List_fromArray(str.trim().split(/\s+/g));
-}
-
-function _String_lines(str)
-{
- return _List_fromArray(str.split(/\r\n|\r|\n/g));
-}
-
-function _String_toUpper(str)
-{
- return str.toUpperCase();
-}
-
-function _String_toLower(str)
-{
- return str.toLowerCase();
-}
-
-var _String_any = F2(function(isGood, string)
-{
- var i = string.length;
- while (i--)
- {
- var char = string[i];
- var word = string.charCodeAt(i);
- if (0xDC00 <= word && word <= 0xDFFF)
- {
- i--;
- char = string[i] + char;
- }
- if (isGood(_Utils_chr(char)))
- {
- return true;
- }
- }
- return false;
-});
-
-var _String_all = F2(function(isGood, string)
-{
- var i = string.length;
- while (i--)
- {
- var char = string[i];
- var word = string.charCodeAt(i);
- if (0xDC00 <= word && word <= 0xDFFF)
- {
- i--;
- char = string[i] + char;
- }
- if (!isGood(_Utils_chr(char)))
- {
- return false;
- }
- }
- return true;
-});
-
-var _String_contains = F2(function(sub, str)
-{
- return str.indexOf(sub) > -1;
-});
-
-var _String_startsWith = F2(function(sub, str)
-{
- return str.indexOf(sub) === 0;
-});
-
-var _String_endsWith = F2(function(sub, str)
-{
- return str.length >= sub.length &&
- str.lastIndexOf(sub) === str.length - sub.length;
-});
-
-var _String_indexes = F2(function(sub, str)
-{
- var subLen = sub.length;
-
- if (subLen < 1)
- {
- return _List_Nil;
- }
-
- var i = 0;
- var is = [];
-
- while ((i = str.indexOf(sub, i)) > -1)
- {
- is.push(i);
- i = i + subLen;
- }
-
- return _List_fromArray(is);
-});
-
-
-// TO STRING
-
-function _String_fromNumber(number)
-{
- return number + '';
-}
-
-
-// INT CONVERSIONS
-
-function _String_toInt(str)
-{
- var total = 0;
- var code0 = str.charCodeAt(0);
- var start = code0 == 0x2B /* + */ || code0 == 0x2D /* - */ ? 1 : 0;
-
- for (var i = start; i < str.length; ++i)
- {
- var code = str.charCodeAt(i);
- if (code < 0x30 || 0x39 < code)
- {
- return $elm$core$Maybe$Nothing;
- }
- total = 10 * total + code - 0x30;
- }
-
- return i == start
- ? $elm$core$Maybe$Nothing
- : $elm$core$Maybe$Just(code0 == 0x2D ? -total : total);
-}
-
-
-// FLOAT CONVERSIONS
-
-function _String_toFloat(s)
-{
- // check if it is a hex, octal, or binary number
- if (s.length === 0 || /[\sxbo]/.test(s))
- {
- return $elm$core$Maybe$Nothing;
- }
- var n = +s;
- // faster isNaN check
- return n === n ? $elm$core$Maybe$Just(n) : $elm$core$Maybe$Nothing;
-}
-
-function _String_fromList(chars)
-{
- return _List_toArray(chars).join('');
-}
-
-
-
-
-function _Char_toCode(char)
-{
- var code = char.charCodeAt(0);
- if (0xD800 <= code && code <= 0xDBFF)
- {
- return (code - 0xD800) * 0x400 + char.charCodeAt(1) - 0xDC00 + 0x10000
- }
- return code;
-}
-
-function _Char_fromCode(code)
-{
- return _Utils_chr(
- (code < 0 || 0x10FFFF < code)
- ? '\uFFFD'
- :
- (code <= 0xFFFF)
- ? String.fromCharCode(code)
- :
- (code -= 0x10000,
- String.fromCharCode(Math.floor(code / 0x400) + 0xD800, code % 0x400 + 0xDC00)
- )
- );
-}
-
-function _Char_toUpper(char)
-{
- return _Utils_chr(char.toUpperCase());
-}
-
-function _Char_toLower(char)
-{
- return _Utils_chr(char.toLowerCase());
-}
-
-function _Char_toLocaleUpper(char)
-{
- return _Utils_chr(char.toLocaleUpperCase());
-}
-
-function _Char_toLocaleLower(char)
-{
- return _Utils_chr(char.toLocaleLowerCase());
-}
-
-
-
-/**/
-function _Json_errorToString(error)
-{
- return $elm$json$Json$Decode$errorToString(error);
-}
-//*/
-
-
-// CORE DECODERS
-
-function _Json_succeed(msg)
-{
- return {
- $: 0,
- a: msg
- };
-}
-
-function _Json_fail(msg)
-{
- return {
- $: 1,
- a: msg
- };
-}
-
-function _Json_decodePrim(decoder)
-{
- return { $: 2, b: decoder };
-}
-
-var _Json_decodeInt = _Json_decodePrim(function(value) {
- return (typeof value !== 'number')
- ? _Json_expecting('an INT', value)
- :
- (-2147483647 < value && value < 2147483647 && (value | 0) === value)
- ? $elm$core$Result$Ok(value)
- :
- (isFinite(value) && !(value % 1))
- ? $elm$core$Result$Ok(value)
- : _Json_expecting('an INT', value);
-});
-
-var _Json_decodeBool = _Json_decodePrim(function(value) {
- return (typeof value === 'boolean')
- ? $elm$core$Result$Ok(value)
- : _Json_expecting('a BOOL', value);
-});
-
-var _Json_decodeFloat = _Json_decodePrim(function(value) {
- return (typeof value === 'number')
- ? $elm$core$Result$Ok(value)
- : _Json_expecting('a FLOAT', value);
-});
-
-var _Json_decodeValue = _Json_decodePrim(function(value) {
- return $elm$core$Result$Ok(_Json_wrap(value));
-});
-
-var _Json_decodeString = _Json_decodePrim(function(value) {
- return (typeof value === 'string')
- ? $elm$core$Result$Ok(value)
- : (value instanceof String)
- ? $elm$core$Result$Ok(value + '')
- : _Json_expecting('a STRING', value);
-});
-
-function _Json_decodeList(decoder) { return { $: 3, b: decoder }; }
-function _Json_decodeArray(decoder) { return { $: 4, b: decoder }; }
-
-function _Json_decodeNull(value) { return { $: 5, c: value }; }
-
-var _Json_decodeField = F2(function(field, decoder)
-{
- return {
- $: 6,
- d: field,
- b: decoder
- };
-});
-
-var _Json_decodeIndex = F2(function(index, decoder)
-{
- return {
- $: 7,
- e: index,
- b: decoder
- };
-});
-
-function _Json_decodeKeyValuePairs(decoder)
-{
- return {
- $: 8,
- b: decoder
- };
-}
-
-function _Json_mapMany(f, decoders)
-{
- return {
- $: 9,
- f: f,
- g: decoders
- };
-}
-
-var _Json_andThen = F2(function(callback, decoder)
-{
- return {
- $: 10,
- b: decoder,
- h: callback
- };
-});
-
-function _Json_oneOf(decoders)
-{
- return {
- $: 11,
- g: decoders
- };
-}
-
-
-// DECODING OBJECTS
-
-var _Json_map1 = F2(function(f, d1)
-{
- return _Json_mapMany(f, [d1]);
-});
-
-var _Json_map2 = F3(function(f, d1, d2)
-{
- return _Json_mapMany(f, [d1, d2]);
-});
-
-var _Json_map3 = F4(function(f, d1, d2, d3)
-{
- return _Json_mapMany(f, [d1, d2, d3]);
-});
-
-var _Json_map4 = F5(function(f, d1, d2, d3, d4)
-{
- return _Json_mapMany(f, [d1, d2, d3, d4]);
-});
-
-var _Json_map5 = F6(function(f, d1, d2, d3, d4, d5)
-{
- return _Json_mapMany(f, [d1, d2, d3, d4, d5]);
-});
-
-var _Json_map6 = F7(function(f, d1, d2, d3, d4, d5, d6)
-{
- return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6]);
-});
-
-var _Json_map7 = F8(function(f, d1, d2, d3, d4, d5, d6, d7)
-{
- return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6, d7]);
-});
-
-var _Json_map8 = F9(function(f, d1, d2, d3, d4, d5, d6, d7, d8)
-{
- return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6, d7, d8]);
-});
-
-
-// DECODE
-
-var _Json_runOnString = F2(function(decoder, string)
-{
- try
- {
- var value = JSON.parse(string);
- return _Json_runHelp(decoder, value);
- }
- catch (e)
- {
- return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, 'This is not valid JSON! ' + e.message, _Json_wrap(string)));
- }
-});
-
-var _Json_run = F2(function(decoder, value)
-{
- return _Json_runHelp(decoder, _Json_unwrap(value));
-});
-
-function _Json_runHelp(decoder, value)
-{
- switch (decoder.$)
- {
- case 2:
- return decoder.b(value);
-
- case 5:
- return (value === null)
- ? $elm$core$Result$Ok(decoder.c)
- : _Json_expecting('null', value);
-
- case 3:
- if (!_Json_isArray(value))
- {
- return _Json_expecting('a LIST', value);
- }
- return _Json_runArrayDecoder(decoder.b, value, _List_fromArray);
-
- case 4:
- if (!_Json_isArray(value))
- {
- return _Json_expecting('an ARRAY', value);
- }
- return _Json_runArrayDecoder(decoder.b, value, _Json_toElmArray);
-
- case 6:
- var field = decoder.d;
- if (typeof value !== 'object' || value === null || !(field in value))
- {
- return _Json_expecting('an OBJECT with a field named `' + field + '`', value);
- }
- var result = _Json_runHelp(decoder.b, value[field]);
- return ($elm$core$Result$isOk(result)) ? result : $elm$core$Result$Err(A2($elm$json$Json$Decode$Field, field, result.a));
-
- case 7:
- var index = decoder.e;
- if (!_Json_isArray(value))
- {
- return _Json_expecting('an ARRAY', value);
- }
- if (index >= value.length)
- {
- return _Json_expecting('a LONGER array. Need index ' + index + ' but only see ' + value.length + ' entries', value);
- }
- var result = _Json_runHelp(decoder.b, value[index]);
- return ($elm$core$Result$isOk(result)) ? result : $elm$core$Result$Err(A2($elm$json$Json$Decode$Index, index, result.a));
-
- case 8:
- if (typeof value !== 'object' || value === null || _Json_isArray(value))
- {
- return _Json_expecting('an OBJECT', value);
- }
-
- var keyValuePairs = _List_Nil;
- // TODO test perf of Object.keys and switch when support is good enough
- for (var key in value)
- {
- if (value.hasOwnProperty(key))
- {
- var result = _Json_runHelp(decoder.b, value[key]);
- if (!$elm$core$Result$isOk(result))
- {
- return $elm$core$Result$Err(A2($elm$json$Json$Decode$Field, key, result.a));
- }
- keyValuePairs = _List_Cons(_Utils_Tuple2(key, result.a), keyValuePairs);
- }
- }
- return $elm$core$Result$Ok($elm$core$List$reverse(keyValuePairs));
-
- case 9:
- var answer = decoder.f;
- var decoders = decoder.g;
- for (var i = 0; i < decoders.length; i++)
- {
- var result = _Json_runHelp(decoders[i], value);
- if (!$elm$core$Result$isOk(result))
- {
- return result;
- }
- answer = answer(result.a);
- }
- return $elm$core$Result$Ok(answer);
-
- case 10:
- var result = _Json_runHelp(decoder.b, value);
- return (!$elm$core$Result$isOk(result))
- ? result
- : _Json_runHelp(decoder.h(result.a), value);
-
- case 11:
- var errors = _List_Nil;
- for (var temp = decoder.g; temp.b; temp = temp.b) // WHILE_CONS
- {
- var result = _Json_runHelp(temp.a, value);
- if ($elm$core$Result$isOk(result))
- {
- return result;
- }
- errors = _List_Cons(result.a, errors);
- }
- return $elm$core$Result$Err($elm$json$Json$Decode$OneOf($elm$core$List$reverse(errors)));
-
- case 1:
- return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, decoder.a, _Json_wrap(value)));
-
- case 0:
- return $elm$core$Result$Ok(decoder.a);
- }
-}
-
-function _Json_runArrayDecoder(decoder, value, toElmValue)
-{
- var len = value.length;
- var array = new Array(len);
- for (var i = 0; i < len; i++)
- {
- var result = _Json_runHelp(decoder, value[i]);
- if (!$elm$core$Result$isOk(result))
- {
- return $elm$core$Result$Err(A2($elm$json$Json$Decode$Index, i, result.a));
- }
- array[i] = result.a;
- }
- return $elm$core$Result$Ok(toElmValue(array));
-}
-
-function _Json_isArray(value)
-{
- return Array.isArray(value) || (typeof FileList !== 'undefined' && value instanceof FileList);
-}
-
-function _Json_toElmArray(array)
-{
- return A2($elm$core$Array$initialize, array.length, function(i) { return array[i]; });
-}
-
-function _Json_expecting(type, value)
-{
- return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, 'Expecting ' + type, _Json_wrap(value)));
-}
-
-
-// EQUALITY
-
-function _Json_equality(x, y)
-{
- if (x === y)
- {
- return true;
- }
-
- if (x.$ !== y.$)
- {
- return false;
- }
-
- switch (x.$)
- {
- case 0:
- case 1:
- return x.a === y.a;
-
- case 2:
- return x.b === y.b;
-
- case 5:
- return x.c === y.c;
-
- case 3:
- case 4:
- case 8:
- return _Json_equality(x.b, y.b);
-
- case 6:
- return x.d === y.d && _Json_equality(x.b, y.b);
-
- case 7:
- return x.e === y.e && _Json_equality(x.b, y.b);
-
- case 9:
- return x.f === y.f && _Json_listEquality(x.g, y.g);
-
- case 10:
- return x.h === y.h && _Json_equality(x.b, y.b);
-
- case 11:
- return _Json_listEquality(x.g, y.g);
- }
-}
-
-function _Json_listEquality(aDecoders, bDecoders)
-{
- var len = aDecoders.length;
- if (len !== bDecoders.length)
- {
- return false;
- }
- for (var i = 0; i < len; i++)
- {
- if (!_Json_equality(aDecoders[i], bDecoders[i]))
- {
- return false;
- }
- }
- return true;
-}
-
-
-// ENCODE
-
-var _Json_encode = F2(function(indentLevel, value)
-{
- return JSON.stringify(_Json_unwrap(value), null, indentLevel) + '';
-});
-
-function _Json_wrap(value) { return { $: 0, a: value }; }
-function _Json_unwrap(value) { return value.a; }
-
-function _Json_wrap_UNUSED(value) { return value; }
-function _Json_unwrap_UNUSED(value) { return value; }
-
-function _Json_emptyArray() { return []; }
-function _Json_emptyObject() { return {}; }
-
-var _Json_addField = F3(function(key, value, object)
-{
- object[key] = _Json_unwrap(value);
- return object;
-});
-
-function _Json_addEntry(func)
-{
- return F2(function(entry, array)
- {
- array.push(_Json_unwrap(func(entry)));
- return array;
- });
-}
-
-var _Json_encodeNull = _Json_wrap(null);
-
-
-
-// TASKS
-
-function _Scheduler_succeed(value)
-{
- return {
- $: 0,
- a: value
- };
-}
-
-function _Scheduler_fail(error)
-{
- return {
- $: 1,
- a: error
- };
-}
-
-function _Scheduler_binding(callback)
-{
- return {
- $: 2,
- b: callback,
- c: null
- };
-}
-
-var _Scheduler_andThen = F2(function(callback, task)
-{
- return {
- $: 3,
- b: callback,
- d: task
- };
-});
-
-var _Scheduler_onError = F2(function(callback, task)
-{
- return {
- $: 4,
- b: callback,
- d: task
- };
-});
-
-function _Scheduler_receive(callback)
-{
- return {
- $: 5,
- b: callback
- };
-}
-
-
-// PROCESSES
-
-var _Scheduler_guid = 0;
-
-function _Scheduler_rawSpawn(task)
-{
- var proc = {
- $: 0,
- e: _Scheduler_guid++,
- f: task,
- g: null,
- h: []
- };
-
- _Scheduler_enqueue(proc);
-
- return proc;
-}
-
-function _Scheduler_spawn(task)
-{
- return _Scheduler_binding(function(callback) {
- callback(_Scheduler_succeed(_Scheduler_rawSpawn(task)));
- });
-}
-
-function _Scheduler_rawSend(proc, msg)
-{
- proc.h.push(msg);
- _Scheduler_enqueue(proc);
-}
-
-var _Scheduler_send = F2(function(proc, msg)
-{
- return _Scheduler_binding(function(callback) {
- _Scheduler_rawSend(proc, msg);
- callback(_Scheduler_succeed(_Utils_Tuple0));
- });
-});
-
-function _Scheduler_kill(proc)
-{
- return _Scheduler_binding(function(callback) {
- var task = proc.f;
- if (task.$ === 2 && task.c)
- {
- task.c();
- }
-
- proc.f = null;
-
- callback(_Scheduler_succeed(_Utils_Tuple0));
- });
-}
-
-
-/* STEP PROCESSES
-
-type alias Process =
- { $ : tag
- , id : unique_id
- , root : Task
- , stack : null | { $: SUCCEED | FAIL, a: callback, b: stack }
- , mailbox : [msg]
- }
-
-*/
-
-
-var _Scheduler_working = false;
-var _Scheduler_queue = [];
-
-
-function _Scheduler_enqueue(proc)
-{
- _Scheduler_queue.push(proc);
- if (_Scheduler_working)
- {
- return;
- }
- _Scheduler_working = true;
- while (proc = _Scheduler_queue.shift())
- {
- _Scheduler_step(proc);
- }
- _Scheduler_working = false;
-}
-
-
-function _Scheduler_step(proc)
-{
- while (proc.f)
- {
- var rootTag = proc.f.$;
- if (rootTag === 0 || rootTag === 1)
- {
- while (proc.g && proc.g.$ !== rootTag)
- {
- proc.g = proc.g.i;
- }
- if (!proc.g)
- {
- return;
- }
- proc.f = proc.g.b(proc.f.a);
- proc.g = proc.g.i;
- }
- else if (rootTag === 2)
- {
- proc.f.c = proc.f.b(function(newRoot) {
- proc.f = newRoot;
- _Scheduler_enqueue(proc);
- });
- return;
- }
- else if (rootTag === 5)
- {
- if (proc.h.length === 0)
- {
- return;
- }
- proc.f = proc.f.b(proc.h.shift());
- }
- else // if (rootTag === 3 || rootTag === 4)
- {
- proc.g = {
- $: rootTag === 3 ? 0 : 1,
- b: proc.f.b,
- i: proc.g
- };
- proc.f = proc.f.d;
- }
- }
-}
-
-
-
-function _Process_sleep(time)
-{
- return _Scheduler_binding(function(callback) {
- var id = setTimeout(function() {
- callback(_Scheduler_succeed(_Utils_Tuple0));
- }, time);
-
- return function() { clearTimeout(id); };
- });
-}
-
-
-
-
-// PROGRAMS
-
-
-var _Platform_worker = F4(function(impl, flagDecoder, debugMetadata, args)
-{
- return _Platform_initialize(
- flagDecoder,
- args,
- impl.init,
- impl.update,
- impl.subscriptions,
- function() { return function() {} }
- );
-});
-
-
-
-// INITIALIZE A PROGRAM
-
-
-function _Platform_initialize(flagDecoder, args, init, update, subscriptions, stepperBuilder)
-{
- var result = A2(_Json_run, flagDecoder, _Json_wrap(args ? args['flags'] : undefined));
- $elm$core$Result$isOk(result) || _Debug_crash(2 /**/, _Json_errorToString(result.a) /**/);
- var managers = {};
- var initPair = init(result.a);
- var model = initPair.a;
- var stepper = stepperBuilder(sendToApp, model);
- var ports = _Platform_setupEffects(managers, sendToApp);
-
- function sendToApp(msg, viewMetadata)
- {
- var pair = A2(update, msg, model);
- stepper(model = pair.a, viewMetadata);
- _Platform_enqueueEffects(managers, pair.b, subscriptions(model));
- }
-
- _Platform_enqueueEffects(managers, initPair.b, subscriptions(model));
-
- return ports ? { ports: ports } : {};
-}
-
-
-
-// TRACK PRELOADS
-//
-// This is used by code in elm/browser and elm/http
-// to register any HTTP requests that are triggered by init.
-//
-
-
-var _Platform_preload;
-
-
-function _Platform_registerPreload(url)
-{
- _Platform_preload.add(url);
-}
-
-
-
-// EFFECT MANAGERS
-
-
-var _Platform_effectManagers = {};
-
-
-function _Platform_setupEffects(managers, sendToApp)
-{
- var ports;
-
- // setup all necessary effect managers
- for (var key in _Platform_effectManagers)
- {
- var manager = _Platform_effectManagers[key];
-
- if (manager.a)
- {
- ports = ports || {};
- ports[key] = manager.a(key, sendToApp);
- }
-
- managers[key] = _Platform_instantiateManager(manager, sendToApp);
- }
-
- return ports;
-}
-
-
-function _Platform_createManager(init, onEffects, onSelfMsg, cmdMap, subMap)
-{
- return {
- b: init,
- c: onEffects,
- d: onSelfMsg,
- e: cmdMap,
- f: subMap
- };
-}
-
-
-function _Platform_instantiateManager(info, sendToApp)
-{
- var router = {
- g: sendToApp,
- h: undefined
- };
-
- var onEffects = info.c;
- var onSelfMsg = info.d;
- var cmdMap = info.e;
- var subMap = info.f;
-
- function loop(state)
- {
- return A2(_Scheduler_andThen, loop, _Scheduler_receive(function(msg)
- {
- var value = msg.a;
-
- if (msg.$ === 0)
- {
- return A3(onSelfMsg, router, value, state);
- }
-
- return cmdMap && subMap
- ? A4(onEffects, router, value.i, value.j, state)
- : A3(onEffects, router, cmdMap ? value.i : value.j, state);
- }));
- }
-
- return router.h = _Scheduler_rawSpawn(A2(_Scheduler_andThen, loop, info.b));
-}
-
-
-
-// ROUTING
-
-
-var _Platform_sendToApp = F2(function(router, msg)
-{
- return _Scheduler_binding(function(callback)
- {
- router.g(msg);
- callback(_Scheduler_succeed(_Utils_Tuple0));
- });
-});
-
-
-var _Platform_sendToSelf = F2(function(router, msg)
-{
- return A2(_Scheduler_send, router.h, {
- $: 0,
- a: msg
- });
-});
-
-
-
-// BAGS
-
-
-function _Platform_leaf(home)
-{
- return function(value)
- {
- return {
- $: 1,
- k: home,
- l: value
- };
- };
-}
-
-
-function _Platform_batch(list)
-{
- return {
- $: 2,
- m: list
- };
-}
-
-
-var _Platform_map = F2(function(tagger, bag)
-{
- return {
- $: 3,
- n: tagger,
- o: bag
- }
-});
-
-
-
-// PIPE BAGS INTO EFFECT MANAGERS
-//
-// Effects must be queued!
-//
-// Say your init contains a synchronous command, like Time.now or Time.here
-//
-// - This will produce a batch of effects (FX_1)
-// - The synchronous task triggers the subsequent `update` call
-// - This will produce a batch of effects (FX_2)
-//
-// If we just start dispatching FX_2, subscriptions from FX_2 can be processed
-// before subscriptions from FX_1. No good! Earlier versions of this code had
-// this problem, leading to these reports:
-//
-// https://github.com/elm/core/issues/980
-// https://github.com/elm/core/pull/981
-// https://github.com/elm/compiler/issues/1776
-//
-// The queue is necessary to avoid ordering issues for synchronous commands.
-
-
-// Why use true/false here? Why not just check the length of the queue?
-// The goal is to detect "are we currently dispatching effects?" If we
-// are, we need to bail and let the ongoing while loop handle things.
-//
-// Now say the queue has 1 element. When we dequeue the final element,
-// the queue will be empty, but we are still actively dispatching effects.
-// So you could get queue jumping in a really tricky category of cases.
-//
-var _Platform_effectsQueue = [];
-var _Platform_effectsActive = false;
-
-
-function _Platform_enqueueEffects(managers, cmdBag, subBag)
-{
- _Platform_effectsQueue.push({ p: managers, q: cmdBag, r: subBag });
-
- if (_Platform_effectsActive) return;
-
- _Platform_effectsActive = true;
- for (var fx; fx = _Platform_effectsQueue.shift(); )
- {
- _Platform_dispatchEffects(fx.p, fx.q, fx.r);
- }
- _Platform_effectsActive = false;
-}
-
-
-function _Platform_dispatchEffects(managers, cmdBag, subBag)
-{
- var effectsDict = {};
- _Platform_gatherEffects(true, cmdBag, effectsDict, null);
- _Platform_gatherEffects(false, subBag, effectsDict, null);
-
- for (var home in managers)
- {
- _Scheduler_rawSend(managers[home], {
- $: 'fx',
- a: effectsDict[home] || { i: _List_Nil, j: _List_Nil }
- });
- }
-}
-
-
-function _Platform_gatherEffects(isCmd, bag, effectsDict, taggers)
-{
- switch (bag.$)
- {
- case 1:
- var home = bag.k;
- var effect = _Platform_toEffect(isCmd, home, taggers, bag.l);
- effectsDict[home] = _Platform_insert(isCmd, effect, effectsDict[home]);
- return;
-
- case 2:
- for (var list = bag.m; list.b; list = list.b) // WHILE_CONS
- {
- _Platform_gatherEffects(isCmd, list.a, effectsDict, taggers);
- }
- return;
-
- case 3:
- _Platform_gatherEffects(isCmd, bag.o, effectsDict, {
- s: bag.n,
- t: taggers
- });
- return;
- }
-}
-
-
-function _Platform_toEffect(isCmd, home, taggers, value)
-{
- function applyTaggers(x)
- {
- for (var temp = taggers; temp; temp = temp.t)
- {
- x = temp.s(x);
- }
- return x;
- }
-
- var map = isCmd
- ? _Platform_effectManagers[home].e
- : _Platform_effectManagers[home].f;
-
- return A2(map, applyTaggers, value)
-}
-
-
-function _Platform_insert(isCmd, newEffect, effects)
-{
- effects = effects || { i: _List_Nil, j: _List_Nil };
-
- isCmd
- ? (effects.i = _List_Cons(newEffect, effects.i))
- : (effects.j = _List_Cons(newEffect, effects.j));
-
- return effects;
-}
-
-
-
-// PORTS
-
-
-function _Platform_checkPortName(name)
-{
- if (_Platform_effectManagers[name])
- {
- _Debug_crash(3, name)
- }
-}
-
-
-
-// OUTGOING PORTS
-
-
-function _Platform_outgoingPort(name, converter)
-{
- _Platform_checkPortName(name);
- _Platform_effectManagers[name] = {
- e: _Platform_outgoingPortMap,
- u: converter,
- a: _Platform_setupOutgoingPort
- };
- return _Platform_leaf(name);
-}
-
-
-var _Platform_outgoingPortMap = F2(function(tagger, value) { return value; });
-
-
-function _Platform_setupOutgoingPort(name)
-{
- var subs = [];
- var converter = _Platform_effectManagers[name].u;
-
- // CREATE MANAGER
-
- var init = _Process_sleep(0);
-
- _Platform_effectManagers[name].b = init;
- _Platform_effectManagers[name].c = F3(function(router, cmdList, state)
- {
- for ( ; cmdList.b; cmdList = cmdList.b) // WHILE_CONS
- {
- // grab a separate reference to subs in case unsubscribe is called
- var currentSubs = subs;
- var value = _Json_unwrap(converter(cmdList.a));
- for (var i = 0; i < currentSubs.length; i++)
- {
- currentSubs[i](value);
- }
- }
- return init;
- });
-
- // PUBLIC API
-
- function subscribe(callback)
- {
- subs.push(callback);
- }
-
- function unsubscribe(callback)
- {
- // copy subs into a new array in case unsubscribe is called within a
- // subscribed callback
- subs = subs.slice();
- var index = subs.indexOf(callback);
- if (index >= 0)
- {
- subs.splice(index, 1);
- }
- }
-
- return {
- subscribe: subscribe,
- unsubscribe: unsubscribe
- };
-}
-
-
-
-// INCOMING PORTS
-
-
-function _Platform_incomingPort(name, converter)
-{
- _Platform_checkPortName(name);
- _Platform_effectManagers[name] = {
- f: _Platform_incomingPortMap,
- u: converter,
- a: _Platform_setupIncomingPort
- };
- return _Platform_leaf(name);
-}
-
-
-var _Platform_incomingPortMap = F2(function(tagger, finalTagger)
-{
- return function(value)
- {
- return tagger(finalTagger(value));
- };
-});
-
-
-function _Platform_setupIncomingPort(name, sendToApp)
-{
- var subs = _List_Nil;
- var converter = _Platform_effectManagers[name].u;
-
- // CREATE MANAGER
-
- var init = _Scheduler_succeed(null);
-
- _Platform_effectManagers[name].b = init;
- _Platform_effectManagers[name].c = F3(function(router, subList, state)
- {
- subs = subList;
- return init;
- });
-
- // PUBLIC API
-
- function send(incomingValue)
- {
- var result = A2(_Json_run, converter, _Json_wrap(incomingValue));
-
- $elm$core$Result$isOk(result) || _Debug_crash(4, name, result.a);
-
- var value = result.a;
- for (var temp = subs; temp.b; temp = temp.b) // WHILE_CONS
- {
- sendToApp(temp.a(value));
- }
- }
-
- return { send: send };
-}
-
-
-
-// EXPORT ELM MODULES
-//
-// Have DEBUG and PROD versions so that we can (1) give nicer errors in
-// debug mode and (2) not pay for the bits needed for that in prod mode.
-//
-
-
-function _Platform_export_UNUSED(exports)
-{
- scope['Elm']
- ? _Platform_mergeExportsProd(scope['Elm'], exports)
- : scope['Elm'] = exports;
-}
-
-
-function _Platform_mergeExportsProd(obj, exports)
-{
- for (var name in exports)
- {
- (name in obj)
- ? (name == 'init')
- ? _Debug_crash(6)
- : _Platform_mergeExportsProd(obj[name], exports[name])
- : (obj[name] = exports[name]);
- }
-}
-
-
-function _Platform_export(exports)
-{
- scope['Elm']
- ? _Platform_mergeExportsDebug('Elm', scope['Elm'], exports)
- : scope['Elm'] = exports;
-}
-
-
-function _Platform_mergeExportsDebug(moduleName, obj, exports)
-{
- for (var name in exports)
- {
- (name in obj)
- ? (name == 'init')
- ? _Debug_crash(6, moduleName)
- : _Platform_mergeExportsDebug(moduleName + '.' + name, obj[name], exports[name])
- : (obj[name] = exports[name]);
- }
-}
-
-
-
-
-// HELPERS
-
-
-var _VirtualDom_divertHrefToApp;
-
-var _VirtualDom_doc = typeof document !== 'undefined' ? document : {};
-
-
-function _VirtualDom_appendChild(parent, child)
-{
- parent.appendChild(child);
-}
-
-var _VirtualDom_init = F4(function(virtualNode, flagDecoder, debugMetadata, args)
-{
- // NOTE: this function needs _Platform_export available to work
-
- /**_UNUSED/
- var node = args['node'];
- //*/
- /**/
- var node = args && args['node'] ? args['node'] : _Debug_crash(0);
- //*/
-
- node.parentNode.replaceChild(
- _VirtualDom_render(virtualNode, function() {}),
- node
- );
-
- return {};
-});
-
-
-
-// TEXT
-
-
-function _VirtualDom_text(string)
-{
- return {
- $: 0,
- a: string
- };
-}
-
-
-
-// NODE
-
-
-var _VirtualDom_nodeNS = F2(function(namespace, tag)
-{
- return F2(function(factList, kidList)
- {
- for (var kids = [], descendantsCount = 0; kidList.b; kidList = kidList.b) // WHILE_CONS
- {
- var kid = kidList.a;
- descendantsCount += (kid.b || 0);
- kids.push(kid);
- }
- descendantsCount += kids.length;
-
- return {
- $: 1,
- c: tag,
- d: _VirtualDom_organizeFacts(factList),
- e: kids,
- f: namespace,
- b: descendantsCount
- };
- });
-});
-
-
-var _VirtualDom_node = _VirtualDom_nodeNS(undefined);
-
-
-
-// KEYED NODE
-
-
-var _VirtualDom_keyedNodeNS = F2(function(namespace, tag)
-{
- return F2(function(factList, kidList)
- {
- for (var kids = [], descendantsCount = 0; kidList.b; kidList = kidList.b) // WHILE_CONS
- {
- var kid = kidList.a;
- descendantsCount += (kid.b.b || 0);
- kids.push(kid);
- }
- descendantsCount += kids.length;
-
- return {
- $: 2,
- c: tag,
- d: _VirtualDom_organizeFacts(factList),
- e: kids,
- f: namespace,
- b: descendantsCount
- };
- });
-});
-
-
-var _VirtualDom_keyedNode = _VirtualDom_keyedNodeNS(undefined);
-
-
-
-// CUSTOM
-
-
-function _VirtualDom_custom(factList, model, render, diff)
-{
- return {
- $: 3,
- d: _VirtualDom_organizeFacts(factList),
- g: model,
- h: render,
- i: diff
- };
-}
-
-
-
-// MAP
-
-
-var _VirtualDom_map = F2(function(tagger, node)
-{
- return {
- $: 4,
- j: tagger,
- k: node,
- b: 1 + (node.b || 0)
- };
-});
-
-
-
-// LAZY
-
-
-function _VirtualDom_thunk(refs, thunk)
-{
- return {
- $: 5,
- l: refs,
- m: thunk,
- k: undefined
- };
-}
-
-var _VirtualDom_lazy = F2(function(func, a)
-{
- return _VirtualDom_thunk([func, a], function() {
- return func(a);
- });
-});
-
-var _VirtualDom_lazy2 = F3(function(func, a, b)
-{
- return _VirtualDom_thunk([func, a, b], function() {
- return A2(func, a, b);
- });
-});
-
-var _VirtualDom_lazy3 = F4(function(func, a, b, c)
-{
- return _VirtualDom_thunk([func, a, b, c], function() {
- return A3(func, a, b, c);
- });
-});
-
-var _VirtualDom_lazy4 = F5(function(func, a, b, c, d)
-{
- return _VirtualDom_thunk([func, a, b, c, d], function() {
- return A4(func, a, b, c, d);
- });
-});
-
-var _VirtualDom_lazy5 = F6(function(func, a, b, c, d, e)
-{
- return _VirtualDom_thunk([func, a, b, c, d, e], function() {
- return A5(func, a, b, c, d, e);
- });
-});
-
-var _VirtualDom_lazy6 = F7(function(func, a, b, c, d, e, f)
-{
- return _VirtualDom_thunk([func, a, b, c, d, e, f], function() {
- return A6(func, a, b, c, d, e, f);
- });
-});
-
-var _VirtualDom_lazy7 = F8(function(func, a, b, c, d, e, f, g)
-{
- return _VirtualDom_thunk([func, a, b, c, d, e, f, g], function() {
- return A7(func, a, b, c, d, e, f, g);
- });
-});
-
-var _VirtualDom_lazy8 = F9(function(func, a, b, c, d, e, f, g, h)
-{
- return _VirtualDom_thunk([func, a, b, c, d, e, f, g, h], function() {
- return A8(func, a, b, c, d, e, f, g, h);
- });
-});
-
-
-
-// FACTS
-
-
-var _VirtualDom_on = F2(function(key, handler)
-{
- return {
- $: 'a0',
- n: key,
- o: handler
- };
-});
-var _VirtualDom_style = F2(function(key, value)
-{
- return {
- $: 'a1',
- n: key,
- o: value
- };
-});
-var _VirtualDom_property = F2(function(key, value)
-{
- return {
- $: 'a2',
- n: key,
- o: value
- };
-});
-var _VirtualDom_attribute = F2(function(key, value)
-{
- return {
- $: 'a3',
- n: key,
- o: value
- };
-});
-var _VirtualDom_attributeNS = F3(function(namespace, key, value)
-{
- return {
- $: 'a4',
- n: key,
- o: { f: namespace, o: value }
- };
-});
-
-
-
-// XSS ATTACK VECTOR CHECKS
-
-
-function _VirtualDom_noScript(tag)
-{
- return tag == 'script' ? 'p' : tag;
-}
-
-function _VirtualDom_noOnOrFormAction(key)
-{
- return /^(on|formAction$)/i.test(key) ? 'data-' + key : key;
-}
-
-function _VirtualDom_noInnerHtmlOrFormAction(key)
-{
- return key == 'innerHTML' || key == 'formAction' ? 'data-' + key : key;
-}
-
-function _VirtualDom_noJavaScriptUri_UNUSED(value)
-{
- return /^javascript:/i.test(value.replace(/\s/g,'')) ? '' : value;
-}
-
-function _VirtualDom_noJavaScriptUri(value)
-{
- return /^javascript:/i.test(value.replace(/\s/g,''))
- ? 'javascript:alert("This is an XSS vector. Please use ports or web components instead.")'
- : value;
-}
-
-function _VirtualDom_noJavaScriptOrHtmlUri_UNUSED(value)
-{
- return /^\s*(javascript:|data:text\/html)/i.test(value) ? '' : value;
-}
-
-function _VirtualDom_noJavaScriptOrHtmlUri(value)
-{
- return /^\s*(javascript:|data:text\/html)/i.test(value)
- ? 'javascript:alert("This is an XSS vector. Please use ports or web components instead.")'
- : value;
-}
-
-
-
-// MAP FACTS
-
-
-var _VirtualDom_mapAttribute = F2(function(func, attr)
-{
- return (attr.$ === 'a0')
- ? A2(_VirtualDom_on, attr.n, _VirtualDom_mapHandler(func, attr.o))
- : attr;
-});
-
-function _VirtualDom_mapHandler(func, handler)
-{
- var tag = $elm$virtual_dom$VirtualDom$toHandlerInt(handler);
-
- // 0 = Normal
- // 1 = MayStopPropagation
- // 2 = MayPreventDefault
- // 3 = Custom
-
- return {
- $: handler.$,
- a:
- !tag
- ? A2($elm$json$Json$Decode$map, func, handler.a)
- :
- A3($elm$json$Json$Decode$map2,
- tag < 3
- ? _VirtualDom_mapEventTuple
- : _VirtualDom_mapEventRecord,
- $elm$json$Json$Decode$succeed(func),
- handler.a
- )
- };
-}
-
-var _VirtualDom_mapEventTuple = F2(function(func, tuple)
-{
- return _Utils_Tuple2(func(tuple.a), tuple.b);
-});
-
-var _VirtualDom_mapEventRecord = F2(function(func, record)
-{
- return {
- message: func(record.message),
- stopPropagation: record.stopPropagation,
- preventDefault: record.preventDefault
- }
-});
-
-
-
-// ORGANIZE FACTS
-
-
-function _VirtualDom_organizeFacts(factList)
-{
- for (var facts = {}; factList.b; factList = factList.b) // WHILE_CONS
- {
- var entry = factList.a;
-
- var tag = entry.$;
- var key = entry.n;
- var value = entry.o;
-
- if (tag === 'a2')
- {
- (key === 'className')
- ? _VirtualDom_addClass(facts, key, _Json_unwrap(value))
- : facts[key] = _Json_unwrap(value);
-
- continue;
- }
-
- var subFacts = facts[tag] || (facts[tag] = {});
- (tag === 'a3' && key === 'class')
- ? _VirtualDom_addClass(subFacts, key, value)
- : subFacts[key] = value;
- }
-
- return facts;
-}
-
-function _VirtualDom_addClass(object, key, newClass)
-{
- var classes = object[key];
- object[key] = classes ? classes + ' ' + newClass : newClass;
-}
-
-
-
-// RENDER
-
-
-function _VirtualDom_render(vNode, eventNode)
-{
- var tag = vNode.$;
-
- if (tag === 5)
- {
- return _VirtualDom_render(vNode.k || (vNode.k = vNode.m()), eventNode);
- }
-
- if (tag === 0)
- {
- return _VirtualDom_doc.createTextNode(vNode.a);
- }
-
- if (tag === 4)
- {
- var subNode = vNode.k;
- var tagger = vNode.j;
-
- while (subNode.$ === 4)
- {
- typeof tagger !== 'object'
- ? tagger = [tagger, subNode.j]
- : tagger.push(subNode.j);
-
- subNode = subNode.k;
- }
-
- var subEventRoot = { j: tagger, p: eventNode };
- var domNode = _VirtualDom_render(subNode, subEventRoot);
- domNode.elm_event_node_ref = subEventRoot;
- return domNode;
- }
-
- if (tag === 3)
- {
- var domNode = vNode.h(vNode.g);
- _VirtualDom_applyFacts(domNode, eventNode, vNode.d);
- return domNode;
- }
-
- // at this point `tag` must be 1 or 2
-
- var domNode = vNode.f
- ? _VirtualDom_doc.createElementNS(vNode.f, vNode.c)
- : _VirtualDom_doc.createElement(vNode.c);
-
- if (_VirtualDom_divertHrefToApp && vNode.c == 'a')
- {
- domNode.addEventListener('click', _VirtualDom_divertHrefToApp(domNode));
- }
-
- _VirtualDom_applyFacts(domNode, eventNode, vNode.d);
-
- for (var kids = vNode.e, i = 0; i < kids.length; i++)
- {
- _VirtualDom_appendChild(domNode, _VirtualDom_render(tag === 1 ? kids[i] : kids[i].b, eventNode));
- }
-
- return domNode;
-}
-
-
-
-// APPLY FACTS
-
-
-function _VirtualDom_applyFacts(domNode, eventNode, facts)
-{
- for (var key in facts)
- {
- var value = facts[key];
-
- key === 'a1'
- ? _VirtualDom_applyStyles(domNode, value)
- :
- key === 'a0'
- ? _VirtualDom_applyEvents(domNode, eventNode, value)
- :
- key === 'a3'
- ? _VirtualDom_applyAttrs(domNode, value)
- :
- key === 'a4'
- ? _VirtualDom_applyAttrsNS(domNode, value)
- :
- ((key !== 'value' && key !== 'checked') || domNode[key] !== value) && (domNode[key] = value);
- }
-}
-
-
-
-// APPLY STYLES
-
-
-function _VirtualDom_applyStyles(domNode, styles)
-{
- var domNodeStyle = domNode.style;
-
- for (var key in styles)
- {
- domNodeStyle[key] = styles[key];
- }
-}
-
-
-
-// APPLY ATTRS
-
-
-function _VirtualDom_applyAttrs(domNode, attrs)
-{
- for (var key in attrs)
- {
- var value = attrs[key];
- typeof value !== 'undefined'
- ? domNode.setAttribute(key, value)
- : domNode.removeAttribute(key);
- }
-}
-
-
-
-// APPLY NAMESPACED ATTRS
-
-
-function _VirtualDom_applyAttrsNS(domNode, nsAttrs)
-{
- for (var key in nsAttrs)
- {
- var pair = nsAttrs[key];
- var namespace = pair.f;
- var value = pair.o;
-
- typeof value !== 'undefined'
- ? domNode.setAttributeNS(namespace, key, value)
- : domNode.removeAttributeNS(namespace, key);
- }
-}
-
-
-
-// APPLY EVENTS
-
-
-function _VirtualDom_applyEvents(domNode, eventNode, events)
-{
- var allCallbacks = domNode.elmFs || (domNode.elmFs = {});
-
- for (var key in events)
- {
- var newHandler = events[key];
- var oldCallback = allCallbacks[key];
-
- if (!newHandler)
- {
- domNode.removeEventListener(key, oldCallback);
- allCallbacks[key] = undefined;
- continue;
- }
-
- if (oldCallback)
- {
- var oldHandler = oldCallback.q;
- if (oldHandler.$ === newHandler.$)
- {
- oldCallback.q = newHandler;
- continue;
- }
- domNode.removeEventListener(key, oldCallback);
- }
-
- oldCallback = _VirtualDom_makeCallback(eventNode, newHandler);
- domNode.addEventListener(key, oldCallback,
- _VirtualDom_passiveSupported
- && { passive: $elm$virtual_dom$VirtualDom$toHandlerInt(newHandler) < 2 }
- );
- allCallbacks[key] = oldCallback;
- }
-}
-
-
-
-// PASSIVE EVENTS
-
-
-var _VirtualDom_passiveSupported;
-
-try
-{
- window.addEventListener('t', null, Object.defineProperty({}, 'passive', {
- get: function() { _VirtualDom_passiveSupported = true; }
- }));
-}
-catch(e) {}
-
-
-
-// EVENT HANDLERS
-
-
-function _VirtualDom_makeCallback(eventNode, initialHandler)
-{
- function callback(event)
- {
- var handler = callback.q;
- var result = _Json_runHelp(handler.a, event);
-
- if (!$elm$core$Result$isOk(result))
- {
- return;
- }
-
- var tag = $elm$virtual_dom$VirtualDom$toHandlerInt(handler);
-
- // 0 = Normal
- // 1 = MayStopPropagation
- // 2 = MayPreventDefault
- // 3 = Custom
-
- var value = result.a;
- var message = !tag ? value : tag < 3 ? value.a : value.message;
- var stopPropagation = tag == 1 ? value.b : tag == 3 && value.stopPropagation;
- var currentEventNode = (
- stopPropagation && event.stopPropagation(),
- (tag == 2 ? value.b : tag == 3 && value.preventDefault) && event.preventDefault(),
- eventNode
- );
- var tagger;
- var i;
- while (tagger = currentEventNode.j)
- {
- if (typeof tagger == 'function')
- {
- message = tagger(message);
- }
- else
- {
- for (var i = tagger.length; i--; )
- {
- message = tagger[i](message);
- }
- }
- currentEventNode = currentEventNode.p;
- }
- currentEventNode(message, stopPropagation); // stopPropagation implies isSync
- }
-
- callback.q = initialHandler;
-
- return callback;
-}
-
-function _VirtualDom_equalEvents(x, y)
-{
- return x.$ == y.$ && _Json_equality(x.a, y.a);
-}
-
-
-
-// DIFF
-
-
-// TODO: Should we do patches like in iOS?
-//
-// type Patch
-// = At Int Patch
-// | Batch (List Patch)
-// | Change ...
-//
-// How could it not be better?
-//
-function _VirtualDom_diff(x, y)
-{
- var patches = [];
- _VirtualDom_diffHelp(x, y, patches, 0);
- return patches;
-}
-
-
-function _VirtualDom_pushPatch(patches, type, index, data)
-{
- var patch = {
- $: type,
- r: index,
- s: data,
- t: undefined,
- u: undefined
- };
- patches.push(patch);
- return patch;
-}
-
-
-function _VirtualDom_diffHelp(x, y, patches, index)
-{
- if (x === y)
- {
- return;
- }
-
- var xType = x.$;
- var yType = y.$;
-
- // Bail if you run into different types of nodes. Implies that the
- // structure has changed significantly and it's not worth a diff.
- if (xType !== yType)
- {
- if (xType === 1 && yType === 2)
- {
- y = _VirtualDom_dekey(y);
- yType = 1;
- }
- else
- {
- _VirtualDom_pushPatch(patches, 0, index, y);
- return;
- }
- }
-
- // Now we know that both nodes are the same $.
- switch (yType)
- {
- case 5:
- var xRefs = x.l;
- var yRefs = y.l;
- var i = xRefs.length;
- var same = i === yRefs.length;
- while (same && i--)
- {
- same = xRefs[i] === yRefs[i];
- }
- if (same)
- {
- y.k = x.k;
- return;
- }
- y.k = y.m();
- var subPatches = [];
- _VirtualDom_diffHelp(x.k, y.k, subPatches, 0);
- subPatches.length > 0 && _VirtualDom_pushPatch(patches, 1, index, subPatches);
- return;
-
- case 4:
- // gather nested taggers
- var xTaggers = x.j;
- var yTaggers = y.j;
- var nesting = false;
-
- var xSubNode = x.k;
- while (xSubNode.$ === 4)
- {
- nesting = true;
-
- typeof xTaggers !== 'object'
- ? xTaggers = [xTaggers, xSubNode.j]
- : xTaggers.push(xSubNode.j);
-
- xSubNode = xSubNode.k;
- }
-
- var ySubNode = y.k;
- while (ySubNode.$ === 4)
- {
- nesting = true;
-
- typeof yTaggers !== 'object'
- ? yTaggers = [yTaggers, ySubNode.j]
- : yTaggers.push(ySubNode.j);
-
- ySubNode = ySubNode.k;
- }
-
- // Just bail if different numbers of taggers. This implies the
- // structure of the virtual DOM has changed.
- if (nesting && xTaggers.length !== yTaggers.length)
- {
- _VirtualDom_pushPatch(patches, 0, index, y);
- return;
- }
-
- // check if taggers are "the same"
- if (nesting ? !_VirtualDom_pairwiseRefEqual(xTaggers, yTaggers) : xTaggers !== yTaggers)
- {
- _VirtualDom_pushPatch(patches, 2, index, yTaggers);
- }
-
- // diff everything below the taggers
- _VirtualDom_diffHelp(xSubNode, ySubNode, patches, index + 1);
- return;
-
- case 0:
- if (x.a !== y.a)
- {
- _VirtualDom_pushPatch(patches, 3, index, y.a);
- }
- return;
-
- case 1:
- _VirtualDom_diffNodes(x, y, patches, index, _VirtualDom_diffKids);
- return;
-
- case 2:
- _VirtualDom_diffNodes(x, y, patches, index, _VirtualDom_diffKeyedKids);
- return;
-
- case 3:
- if (x.h !== y.h)
- {
- _VirtualDom_pushPatch(patches, 0, index, y);
- return;
- }
-
- var factsDiff = _VirtualDom_diffFacts(x.d, y.d);
- factsDiff && _VirtualDom_pushPatch(patches, 4, index, factsDiff);
-
- var patch = y.i(x.g, y.g);
- patch && _VirtualDom_pushPatch(patches, 5, index, patch);
-
- return;
- }
-}
-
-// assumes the incoming arrays are the same length
-function _VirtualDom_pairwiseRefEqual(as, bs)
-{
- for (var i = 0; i < as.length; i++)
- {
- if (as[i] !== bs[i])
- {
- return false;
- }
- }
-
- return true;
-}
-
-function _VirtualDom_diffNodes(x, y, patches, index, diffKids)
-{
- // Bail if obvious indicators have changed. Implies more serious
- // structural changes such that it's not worth it to diff.
- if (x.c !== y.c || x.f !== y.f)
- {
- _VirtualDom_pushPatch(patches, 0, index, y);
- return;
- }
-
- var factsDiff = _VirtualDom_diffFacts(x.d, y.d);
- factsDiff && _VirtualDom_pushPatch(patches, 4, index, factsDiff);
-
- diffKids(x, y, patches, index);
-}
-
-
-
-// DIFF FACTS
-
-
-// TODO Instead of creating a new diff object, it's possible to just test if
-// there *is* a diff. During the actual patch, do the diff again and make the
-// modifications directly. This way, there's no new allocations. Worth it?
-function _VirtualDom_diffFacts(x, y, category)
-{
- var diff;
-
- // look for changes and removals
- for (var xKey in x)
- {
- if (xKey === 'a1' || xKey === 'a0' || xKey === 'a3' || xKey === 'a4')
- {
- var subDiff = _VirtualDom_diffFacts(x[xKey], y[xKey] || {}, xKey);
- if (subDiff)
- {
- diff = diff || {};
- diff[xKey] = subDiff;
- }
- continue;
- }
-
- // remove if not in the new facts
- if (!(xKey in y))
- {
- diff = diff || {};
- diff[xKey] =
- !category
- ? (typeof x[xKey] === 'string' ? '' : null)
- :
- (category === 'a1')
- ? ''
- :
- (category === 'a0' || category === 'a3')
- ? undefined
- :
- { f: x[xKey].f, o: undefined };
-
- continue;
- }
-
- var xValue = x[xKey];
- var yValue = y[xKey];
-
- // reference equal, so don't worry about it
- if (xValue === yValue && xKey !== 'value' && xKey !== 'checked'
- || category === 'a0' && _VirtualDom_equalEvents(xValue, yValue))
- {
- continue;
- }
-
- diff = diff || {};
- diff[xKey] = yValue;
- }
-
- // add new stuff
- for (var yKey in y)
- {
- if (!(yKey in x))
- {
- diff = diff || {};
- diff[yKey] = y[yKey];
- }
- }
-
- return diff;
-}
-
-
-
-// DIFF KIDS
-
-
-function _VirtualDom_diffKids(xParent, yParent, patches, index)
-{
- var xKids = xParent.e;
- var yKids = yParent.e;
-
- var xLen = xKids.length;
- var yLen = yKids.length;
-
- // FIGURE OUT IF THERE ARE INSERTS OR REMOVALS
-
- if (xLen > yLen)
- {
- _VirtualDom_pushPatch(patches, 6, index, {
- v: yLen,
- i: xLen - yLen
- });
- }
- else if (xLen < yLen)
- {
- _VirtualDom_pushPatch(patches, 7, index, {
- v: xLen,
- e: yKids
- });
- }
-
- // PAIRWISE DIFF EVERYTHING ELSE
-
- for (var minLen = xLen < yLen ? xLen : yLen, i = 0; i < minLen; i++)
- {
- var xKid = xKids[i];
- _VirtualDom_diffHelp(xKid, yKids[i], patches, ++index);
- index += xKid.b || 0;
- }
-}
-
-
-
-// KEYED DIFF
-
-
-function _VirtualDom_diffKeyedKids(xParent, yParent, patches, rootIndex)
-{
- var localPatches = [];
-
- var changes = {}; // Dict String Entry
- var inserts = []; // Array { index : Int, entry : Entry }
- // type Entry = { tag : String, vnode : VNode, index : Int, data : _ }
-
- var xKids = xParent.e;
- var yKids = yParent.e;
- var xLen = xKids.length;
- var yLen = yKids.length;
- var xIndex = 0;
- var yIndex = 0;
-
- var index = rootIndex;
-
- while (xIndex < xLen && yIndex < yLen)
- {
- var x = xKids[xIndex];
- var y = yKids[yIndex];
-
- var xKey = x.a;
- var yKey = y.a;
- var xNode = x.b;
- var yNode = y.b;
-
- var newMatch = undefined;
- var oldMatch = undefined;
-
- // check if keys match
-
- if (xKey === yKey)
- {
- index++;
- _VirtualDom_diffHelp(xNode, yNode, localPatches, index);
- index += xNode.b || 0;
-
- xIndex++;
- yIndex++;
- continue;
- }
-
- // look ahead 1 to detect insertions and removals.
-
- var xNext = xKids[xIndex + 1];
- var yNext = yKids[yIndex + 1];
-
- if (xNext)
- {
- var xNextKey = xNext.a;
- var xNextNode = xNext.b;
- oldMatch = yKey === xNextKey;
- }
-
- if (yNext)
- {
- var yNextKey = yNext.a;
- var yNextNode = yNext.b;
- newMatch = xKey === yNextKey;
- }
-
-
- // swap x and y
- if (newMatch && oldMatch)
- {
- index++;
- _VirtualDom_diffHelp(xNode, yNextNode, localPatches, index);
- _VirtualDom_insertNode(changes, localPatches, xKey, yNode, yIndex, inserts);
- index += xNode.b || 0;
-
- index++;
- _VirtualDom_removeNode(changes, localPatches, xKey, xNextNode, index);
- index += xNextNode.b || 0;
-
- xIndex += 2;
- yIndex += 2;
- continue;
- }
-
- // insert y
- if (newMatch)
- {
- index++;
- _VirtualDom_insertNode(changes, localPatches, yKey, yNode, yIndex, inserts);
- _VirtualDom_diffHelp(xNode, yNextNode, localPatches, index);
- index += xNode.b || 0;
-
- xIndex += 1;
- yIndex += 2;
- continue;
- }
-
- // remove x
- if (oldMatch)
- {
- index++;
- _VirtualDom_removeNode(changes, localPatches, xKey, xNode, index);
- index += xNode.b || 0;
-
- index++;
- _VirtualDom_diffHelp(xNextNode, yNode, localPatches, index);
- index += xNextNode.b || 0;
-
- xIndex += 2;
- yIndex += 1;
- continue;
- }
-
- // remove x, insert y
- if (xNext && xNextKey === yNextKey)
- {
- index++;
- _VirtualDom_removeNode(changes, localPatches, xKey, xNode, index);
- _VirtualDom_insertNode(changes, localPatches, yKey, yNode, yIndex, inserts);
- index += xNode.b || 0;
-
- index++;
- _VirtualDom_diffHelp(xNextNode, yNextNode, localPatches, index);
- index += xNextNode.b || 0;
-
- xIndex += 2;
- yIndex += 2;
- continue;
- }
-
- break;
- }
-
- // eat up any remaining nodes with removeNode and insertNode
-
- while (xIndex < xLen)
- {
- index++;
- var x = xKids[xIndex];
- var xNode = x.b;
- _VirtualDom_removeNode(changes, localPatches, x.a, xNode, index);
- index += xNode.b || 0;
- xIndex++;
- }
-
- while (yIndex < yLen)
- {
- var endInserts = endInserts || [];
- var y = yKids[yIndex];
- _VirtualDom_insertNode(changes, localPatches, y.a, y.b, undefined, endInserts);
- yIndex++;
- }
-
- if (localPatches.length > 0 || inserts.length > 0 || endInserts)
- {
- _VirtualDom_pushPatch(patches, 8, rootIndex, {
- w: localPatches,
- x: inserts,
- y: endInserts
- });
- }
-}
-
-
-
-// CHANGES FROM KEYED DIFF
-
-
-var _VirtualDom_POSTFIX = '_elmW6BL';
-
-
-function _VirtualDom_insertNode(changes, localPatches, key, vnode, yIndex, inserts)
-{
- var entry = changes[key];
-
- // never seen this key before
- if (!entry)
- {
- entry = {
- c: 0,
- z: vnode,
- r: yIndex,
- s: undefined
- };
-
- inserts.push({ r: yIndex, A: entry });
- changes[key] = entry;
-
- return;
- }
-
- // this key was removed earlier, a match!
- if (entry.c === 1)
- {
- inserts.push({ r: yIndex, A: entry });
-
- entry.c = 2;
- var subPatches = [];
- _VirtualDom_diffHelp(entry.z, vnode, subPatches, entry.r);
- entry.r = yIndex;
- entry.s.s = {
- w: subPatches,
- A: entry
- };
-
- return;
- }
-
- // this key has already been inserted or moved, a duplicate!
- _VirtualDom_insertNode(changes, localPatches, key + _VirtualDom_POSTFIX, vnode, yIndex, inserts);
-}
-
-
-function _VirtualDom_removeNode(changes, localPatches, key, vnode, index)
-{
- var entry = changes[key];
-
- // never seen this key before
- if (!entry)
- {
- var patch = _VirtualDom_pushPatch(localPatches, 9, index, undefined);
-
- changes[key] = {
- c: 1,
- z: vnode,
- r: index,
- s: patch
- };
-
- return;
- }
-
- // this key was inserted earlier, a match!
- if (entry.c === 0)
- {
- entry.c = 2;
- var subPatches = [];
- _VirtualDom_diffHelp(vnode, entry.z, subPatches, index);
-
- _VirtualDom_pushPatch(localPatches, 9, index, {
- w: subPatches,
- A: entry
- });
-
- return;
- }
-
- // this key has already been removed or moved, a duplicate!
- _VirtualDom_removeNode(changes, localPatches, key + _VirtualDom_POSTFIX, vnode, index);
-}
-
-
-
-// ADD DOM NODES
-//
-// Each DOM node has an "index" assigned in order of traversal. It is important
-// to minimize our crawl over the actual DOM, so these indexes (along with the
-// descendantsCount of virtual nodes) let us skip touching entire subtrees of
-// the DOM if we know there are no patches there.
-
-
-function _VirtualDom_addDomNodes(domNode, vNode, patches, eventNode)
-{
- _VirtualDom_addDomNodesHelp(domNode, vNode, patches, 0, 0, vNode.b, eventNode);
-}
-
-
-// assumes `patches` is non-empty and indexes increase monotonically.
-function _VirtualDom_addDomNodesHelp(domNode, vNode, patches, i, low, high, eventNode)
-{
- var patch = patches[i];
- var index = patch.r;
-
- while (index === low)
- {
- var patchType = patch.$;
-
- if (patchType === 1)
- {
- _VirtualDom_addDomNodes(domNode, vNode.k, patch.s, eventNode);
- }
- else if (patchType === 8)
- {
- patch.t = domNode;
- patch.u = eventNode;
-
- var subPatches = patch.s.w;
- if (subPatches.length > 0)
- {
- _VirtualDom_addDomNodesHelp(domNode, vNode, subPatches, 0, low, high, eventNode);
- }
- }
- else if (patchType === 9)
- {
- patch.t = domNode;
- patch.u = eventNode;
-
- var data = patch.s;
- if (data)
- {
- data.A.s = domNode;
- var subPatches = data.w;
- if (subPatches.length > 0)
- {
- _VirtualDom_addDomNodesHelp(domNode, vNode, subPatches, 0, low, high, eventNode);
- }
- }
- }
- else
- {
- patch.t = domNode;
- patch.u = eventNode;
- }
-
- i++;
-
- if (!(patch = patches[i]) || (index = patch.r) > high)
- {
- return i;
- }
- }
-
- var tag = vNode.$;
-
- if (tag === 4)
- {
- var subNode = vNode.k;
-
- while (subNode.$ === 4)
- {
- subNode = subNode.k;
- }
-
- return _VirtualDom_addDomNodesHelp(domNode, subNode, patches, i, low + 1, high, domNode.elm_event_node_ref);
- }
-
- // tag must be 1 or 2 at this point
-
- var vKids = vNode.e;
- var childNodes = domNode.childNodes;
- for (var j = 0; j < vKids.length; j++)
- {
- low++;
- var vKid = tag === 1 ? vKids[j] : vKids[j].b;
- var nextLow = low + (vKid.b || 0);
- if (low <= index && index <= nextLow)
- {
- i = _VirtualDom_addDomNodesHelp(childNodes[j], vKid, patches, i, low, nextLow, eventNode);
- if (!(patch = patches[i]) || (index = patch.r) > high)
- {
- return i;
- }
- }
- low = nextLow;
- }
- return i;
-}
-
-
-
-// APPLY PATCHES
-
-
-function _VirtualDom_applyPatches(rootDomNode, oldVirtualNode, patches, eventNode)
-{
- if (patches.length === 0)
- {
- return rootDomNode;
- }
-
- _VirtualDom_addDomNodes(rootDomNode, oldVirtualNode, patches, eventNode);
- return _VirtualDom_applyPatchesHelp(rootDomNode, patches);
-}
-
-function _VirtualDom_applyPatchesHelp(rootDomNode, patches)
-{
- for (var i = 0; i < patches.length; i++)
- {
- var patch = patches[i];
- var localDomNode = patch.t
- var newNode = _VirtualDom_applyPatch(localDomNode, patch);
- if (localDomNode === rootDomNode)
- {
- rootDomNode = newNode;
- }
- }
- return rootDomNode;
-}
-
-function _VirtualDom_applyPatch(domNode, patch)
-{
- switch (patch.$)
- {
- case 0:
- return _VirtualDom_applyPatchRedraw(domNode, patch.s, patch.u);
-
- case 4:
- _VirtualDom_applyFacts(domNode, patch.u, patch.s);
- return domNode;
-
- case 3:
- domNode.replaceData(0, domNode.length, patch.s);
- return domNode;
-
- case 1:
- return _VirtualDom_applyPatchesHelp(domNode, patch.s);
-
- case 2:
- if (domNode.elm_event_node_ref)
- {
- domNode.elm_event_node_ref.j = patch.s;
- }
- else
- {
- domNode.elm_event_node_ref = { j: patch.s, p: patch.u };
- }
- return domNode;
-
- case 6:
- var data = patch.s;
- for (var i = 0; i < data.i; i++)
- {
- domNode.removeChild(domNode.childNodes[data.v]);
- }
- return domNode;
-
- case 7:
- var data = patch.s;
- var kids = data.e;
- var i = data.v;
- var theEnd = domNode.childNodes[i];
- for (; i < kids.length; i++)
- {
- domNode.insertBefore(_VirtualDom_render(kids[i], patch.u), theEnd);
- }
- return domNode;
-
- case 9:
- var data = patch.s;
- if (!data)
- {
- domNode.parentNode.removeChild(domNode);
- return domNode;
- }
- var entry = data.A;
- if (typeof entry.r !== 'undefined')
- {
- domNode.parentNode.removeChild(domNode);
- }
- entry.s = _VirtualDom_applyPatchesHelp(domNode, data.w);
- return domNode;
-
- case 8:
- return _VirtualDom_applyPatchReorder(domNode, patch);
-
- case 5:
- return patch.s(domNode);
-
- default:
- _Debug_crash(10); // 'Ran into an unknown patch!'
- }
-}
-
-
-function _VirtualDom_applyPatchRedraw(domNode, vNode, eventNode)
-{
- var parentNode = domNode.parentNode;
- var newNode = _VirtualDom_render(vNode, eventNode);
-
- if (!newNode.elm_event_node_ref)
- {
- newNode.elm_event_node_ref = domNode.elm_event_node_ref;
- }
-
- if (parentNode && newNode !== domNode)
- {
- parentNode.replaceChild(newNode, domNode);
- }
- return newNode;
-}
-
-
-function _VirtualDom_applyPatchReorder(domNode, patch)
-{
- var data = patch.s;
-
- // remove end inserts
- var frag = _VirtualDom_applyPatchReorderEndInsertsHelp(data.y, patch);
-
- // removals
- domNode = _VirtualDom_applyPatchesHelp(domNode, data.w);
-
- // inserts
- var inserts = data.x;
- for (var i = 0; i < inserts.length; i++)
- {
- var insert = inserts[i];
- var entry = insert.A;
- var node = entry.c === 2
- ? entry.s
- : _VirtualDom_render(entry.z, patch.u);
- domNode.insertBefore(node, domNode.childNodes[insert.r]);
- }
-
- // add end inserts
- if (frag)
- {
- _VirtualDom_appendChild(domNode, frag);
- }
-
- return domNode;
-}
-
-
-function _VirtualDom_applyPatchReorderEndInsertsHelp(endInserts, patch)
-{
- if (!endInserts)
- {
- return;
- }
-
- var frag = _VirtualDom_doc.createDocumentFragment();
- for (var i = 0; i < endInserts.length; i++)
- {
- var insert = endInserts[i];
- var entry = insert.A;
- _VirtualDom_appendChild(frag, entry.c === 2
- ? entry.s
- : _VirtualDom_render(entry.z, patch.u)
- );
- }
- return frag;
-}
-
-
-function _VirtualDom_virtualize(node)
-{
- // TEXT NODES
-
- if (node.nodeType === 3)
- {
- return _VirtualDom_text(node.textContent);
- }
-
-
- // WEIRD NODES
-
- if (node.nodeType !== 1)
- {
- return _VirtualDom_text('');
- }
-
-
- // ELEMENT NODES
-
- var attrList = _List_Nil;
- var attrs = node.attributes;
- for (var i = attrs.length; i--; )
- {
- var attr = attrs[i];
- var name = attr.name;
- var value = attr.value;
- attrList = _List_Cons( A2(_VirtualDom_attribute, name, value), attrList );
- }
-
- var tag = node.tagName.toLowerCase();
- var kidList = _List_Nil;
- var kids = node.childNodes;
-
- for (var i = kids.length; i--; )
- {
- kidList = _List_Cons(_VirtualDom_virtualize(kids[i]), kidList);
- }
- return A3(_VirtualDom_node, tag, attrList, kidList);
-}
-
-function _VirtualDom_dekey(keyedNode)
-{
- var keyedKids = keyedNode.e;
- var len = keyedKids.length;
- var kids = new Array(len);
- for (var i = 0; i < len; i++)
- {
- kids[i] = keyedKids[i].b;
- }
-
- return {
- $: 1,
- c: keyedNode.c,
- d: keyedNode.d,
- e: kids,
- f: keyedNode.f,
- b: keyedNode.b
- };
-}
-
-
-
-
-// ELEMENT
-
-
-var _Debugger_element;
-
-var _Browser_element = _Debugger_element || F4(function(impl, flagDecoder, debugMetadata, args)
-{
- return _Platform_initialize(
- flagDecoder,
- args,
- impl.init,
- impl.update,
- impl.subscriptions,
- function(sendToApp, initialModel) {
- var view = impl.view;
- /**_UNUSED/
- var domNode = args['node'];
- //*/
- /**/
- var domNode = args && args['node'] ? args['node'] : _Debug_crash(0);
- //*/
- var currNode = _VirtualDom_virtualize(domNode);
-
- return _Browser_makeAnimator(initialModel, function(model)
- {
- var nextNode = view(model);
- var patches = _VirtualDom_diff(currNode, nextNode);
- domNode = _VirtualDom_applyPatches(domNode, currNode, patches, sendToApp);
- currNode = nextNode;
- });
- }
- );
-});
-
-
-
-// DOCUMENT
-
-
-var _Debugger_document;
-
-var _Browser_document = _Debugger_document || F4(function(impl, flagDecoder, debugMetadata, args)
-{
- return _Platform_initialize(
- flagDecoder,
- args,
- impl.init,
- impl.update,
- impl.subscriptions,
- function(sendToApp, initialModel) {
- var divertHrefToApp = impl.setup && impl.setup(sendToApp)
- var view = impl.view;
- var title = _VirtualDom_doc.title;
- var bodyNode = _VirtualDom_doc.body;
- var currNode = _VirtualDom_virtualize(bodyNode);
- return _Browser_makeAnimator(initialModel, function(model)
- {
- _VirtualDom_divertHrefToApp = divertHrefToApp;
- var doc = view(model);
- var nextNode = _VirtualDom_node('body')(_List_Nil)(doc.body);
- var patches = _VirtualDom_diff(currNode, nextNode);
- bodyNode = _VirtualDom_applyPatches(bodyNode, currNode, patches, sendToApp);
- currNode = nextNode;
- _VirtualDom_divertHrefToApp = 0;
- (title !== doc.title) && (_VirtualDom_doc.title = title = doc.title);
- });
- }
- );
-});
-
-
-
-// ANIMATION
-
-
-var _Browser_cancelAnimationFrame =
- typeof cancelAnimationFrame !== 'undefined'
- ? cancelAnimationFrame
- : function(id) { clearTimeout(id); };
-
-var _Browser_requestAnimationFrame =
- typeof requestAnimationFrame !== 'undefined'
- ? requestAnimationFrame
- : function(callback) { return setTimeout(callback, 1000 / 60); };
-
-
-function _Browser_makeAnimator(model, draw)
-{
- draw(model);
-
- var state = 0;
-
- function updateIfNeeded()
- {
- state = state === 1
- ? 0
- : ( _Browser_requestAnimationFrame(updateIfNeeded), draw(model), 1 );
- }
-
- return function(nextModel, isSync)
- {
- model = nextModel;
-
- isSync
- ? ( draw(model),
- state === 2 && (state = 1)
- )
- : ( state === 0 && _Browser_requestAnimationFrame(updateIfNeeded),
- state = 2
- );
- };
-}
-
-
-
-// APPLICATION
-
-
-function _Browser_application(impl)
-{
- var onUrlChange = impl.onUrlChange;
- var onUrlRequest = impl.onUrlRequest;
- var key = function() { key.a(onUrlChange(_Browser_getUrl())); };
-
- return _Browser_document({
- setup: function(sendToApp)
- {
- key.a = sendToApp;
- _Browser_window.addEventListener('popstate', key);
- _Browser_window.navigator.userAgent.indexOf('Trident') < 0 || _Browser_window.addEventListener('hashchange', key);
-
- return F2(function(domNode, event)
- {
- if (!event.ctrlKey && !event.metaKey && !event.shiftKey && event.button < 1 && !domNode.target && !domNode.hasAttribute('download'))
- {
- event.preventDefault();
- var href = domNode.href;
- var curr = _Browser_getUrl();
- var next = $elm$url$Url$fromString(href).a;
- sendToApp(onUrlRequest(
- (next
- && curr.protocol === next.protocol
- && curr.host === next.host
- && curr.port_.a === next.port_.a
- )
- ? $elm$browser$Browser$Internal(next)
- : $elm$browser$Browser$External(href)
- ));
- }
- });
- },
- init: function(flags)
- {
- return A3(impl.init, flags, _Browser_getUrl(), key);
- },
- view: impl.view,
- update: impl.update,
- subscriptions: impl.subscriptions
- });
-}
-
-function _Browser_getUrl()
-{
- return $elm$url$Url$fromString(_VirtualDom_doc.location.href).a || _Debug_crash(1);
-}
-
-var _Browser_go = F2(function(key, n)
-{
- return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
- n && history.go(n);
- key();
- }));
-});
-
-var _Browser_pushUrl = F2(function(key, url)
-{
- return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
- history.pushState({}, '', url);
- key();
- }));
-});
-
-var _Browser_replaceUrl = F2(function(key, url)
-{
- return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
- history.replaceState({}, '', url);
- key();
- }));
-});
-
-
-
-// GLOBAL EVENTS
-
-
-var _Browser_fakeNode = { addEventListener: function() {}, removeEventListener: function() {} };
-var _Browser_doc = typeof document !== 'undefined' ? document : _Browser_fakeNode;
-var _Browser_window = typeof window !== 'undefined' ? window : _Browser_fakeNode;
-
-var _Browser_on = F3(function(node, eventName, sendToSelf)
-{
- return _Scheduler_spawn(_Scheduler_binding(function(callback)
- {
- function handler(event) { _Scheduler_rawSpawn(sendToSelf(event)); }
- node.addEventListener(eventName, handler, _VirtualDom_passiveSupported && { passive: true });
- return function() { node.removeEventListener(eventName, handler); };
- }));
-});
-
-var _Browser_decodeEvent = F2(function(decoder, event)
-{
- var result = _Json_runHelp(decoder, event);
- return $elm$core$Result$isOk(result) ? $elm$core$Maybe$Just(result.a) : $elm$core$Maybe$Nothing;
-});
-
-
-
-// PAGE VISIBILITY
-
-
-function _Browser_visibilityInfo()
-{
- return (typeof _VirtualDom_doc.hidden !== 'undefined')
- ? { hidden: 'hidden', change: 'visibilitychange' }
- :
- (typeof _VirtualDom_doc.mozHidden !== 'undefined')
- ? { hidden: 'mozHidden', change: 'mozvisibilitychange' }
- :
- (typeof _VirtualDom_doc.msHidden !== 'undefined')
- ? { hidden: 'msHidden', change: 'msvisibilitychange' }
- :
- (typeof _VirtualDom_doc.webkitHidden !== 'undefined')
- ? { hidden: 'webkitHidden', change: 'webkitvisibilitychange' }
- : { hidden: 'hidden', change: 'visibilitychange' };
-}
-
-
-
-// ANIMATION FRAMES
-
-
-function _Browser_rAF()
-{
- return _Scheduler_binding(function(callback)
- {
- var id = _Browser_requestAnimationFrame(function() {
- callback(_Scheduler_succeed(Date.now()));
- });
-
- return function() {
- _Browser_cancelAnimationFrame(id);
- };
- });
-}
-
-
-function _Browser_now()
-{
- return _Scheduler_binding(function(callback)
- {
- callback(_Scheduler_succeed(Date.now()));
- });
-}
-
-
-
-// DOM STUFF
-
-
-function _Browser_withNode(id, doStuff)
-{
- return _Scheduler_binding(function(callback)
- {
- _Browser_requestAnimationFrame(function() {
- var node = document.getElementById(id);
- callback(node
- ? _Scheduler_succeed(doStuff(node))
- : _Scheduler_fail($elm$browser$Browser$Dom$NotFound(id))
- );
- });
- });
-}
-
-
-function _Browser_withWindow(doStuff)
-{
- return _Scheduler_binding(function(callback)
- {
- _Browser_requestAnimationFrame(function() {
- callback(_Scheduler_succeed(doStuff()));
- });
- });
-}
-
-
-// FOCUS and BLUR
-
-
-var _Browser_call = F2(function(functionName, id)
-{
- return _Browser_withNode(id, function(node) {
- node[functionName]();
- return _Utils_Tuple0;
- });
-});
-
-
-
-// WINDOW VIEWPORT
-
-
-function _Browser_getViewport()
-{
- return {
- scene: _Browser_getScene(),
- viewport: {
- x: _Browser_window.pageXOffset,
- y: _Browser_window.pageYOffset,
- width: _Browser_doc.documentElement.clientWidth,
- height: _Browser_doc.documentElement.clientHeight
- }
- };
-}
-
-function _Browser_getScene()
-{
- var body = _Browser_doc.body;
- var elem = _Browser_doc.documentElement;
- return {
- width: Math.max(body.scrollWidth, body.offsetWidth, elem.scrollWidth, elem.offsetWidth, elem.clientWidth),
- height: Math.max(body.scrollHeight, body.offsetHeight, elem.scrollHeight, elem.offsetHeight, elem.clientHeight)
- };
-}
-
-var _Browser_setViewport = F2(function(x, y)
-{
- return _Browser_withWindow(function()
- {
- _Browser_window.scroll(x, y);
- return _Utils_Tuple0;
- });
-});
-
-
-
-// ELEMENT VIEWPORT
-
-
-function _Browser_getViewportOf(id)
-{
- return _Browser_withNode(id, function(node)
- {
- return {
- scene: {
- width: node.scrollWidth,
- height: node.scrollHeight
- },
- viewport: {
- x: node.scrollLeft,
- y: node.scrollTop,
- width: node.clientWidth,
- height: node.clientHeight
- }
- };
- });
-}
-
-
-var _Browser_setViewportOf = F3(function(id, x, y)
-{
- return _Browser_withNode(id, function(node)
- {
- node.scrollLeft = x;
- node.scrollTop = y;
- return _Utils_Tuple0;
- });
-});
-
-
-
-// ELEMENT
-
-
-function _Browser_getElement(id)
-{
- return _Browser_withNode(id, function(node)
- {
- var rect = node.getBoundingClientRect();
- var x = _Browser_window.pageXOffset;
- var y = _Browser_window.pageYOffset;
- return {
- scene: _Browser_getScene(),
- viewport: {
- x: x,
- y: y,
- width: _Browser_doc.documentElement.clientWidth,
- height: _Browser_doc.documentElement.clientHeight
- },
- element: {
- x: x + rect.left,
- y: y + rect.top,
- width: rect.width,
- height: rect.height
- }
- };
- });
-}
-
-
-
-// LOAD and RELOAD
-
-
-function _Browser_reload(skipCache)
-{
- return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function(callback)
- {
- _VirtualDom_doc.location.reload(skipCache);
- }));
-}
-
-function _Browser_load(url)
-{
- return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function(callback)
- {
- try
- {
- _Browser_window.location = url;
- }
- catch(err)
- {
- // Only Firefox can throw a NS_ERROR_MALFORMED_URI exception here.
- // Other browsers reload the page, so let's be consistent about that.
- _VirtualDom_doc.location.reload(false);
- }
- }));
-}
-
-
-function _Url_percentEncode(string)
-{
- return encodeURIComponent(string);
-}
-
-function _Url_percentDecode(string)
-{
- try
- {
- return $elm$core$Maybe$Just(decodeURIComponent(string));
- }
- catch (e)
- {
- return $elm$core$Maybe$Nothing;
- }
-}
-
-
-// SEND REQUEST
-
-var _Http_toTask = F3(function(router, toTask, request)
-{
- return _Scheduler_binding(function(callback)
- {
- function done(response) {
- callback(toTask(request.expect.a(response)));
- }
-
- var xhr = new XMLHttpRequest();
- xhr.addEventListener('error', function() { done($elm$http$Http$NetworkError_); });
- xhr.addEventListener('timeout', function() { done($elm$http$Http$Timeout_); });
- xhr.addEventListener('load', function() { done(_Http_toResponse(request.expect.b, xhr)); });
- $elm$core$Maybe$isJust(request.tracker) && _Http_track(router, xhr, request.tracker.a);
-
- try {
- xhr.open(request.method, request.url, true);
- } catch (e) {
- return done($elm$http$Http$BadUrl_(request.url));
- }
-
- _Http_configureRequest(xhr, request);
-
- request.body.a && xhr.setRequestHeader('Content-Type', request.body.a);
- xhr.send(request.body.b);
-
- return function() { xhr.c = true; xhr.abort(); };
- });
-});
-
-
-// CONFIGURE
-
-function _Http_configureRequest(xhr, request)
-{
- for (var headers = request.headers; headers.b; headers = headers.b) // WHILE_CONS
- {
- xhr.setRequestHeader(headers.a.a, headers.a.b);
- }
- xhr.timeout = request.timeout.a || 0;
- xhr.responseType = request.expect.d;
- xhr.withCredentials = request.allowCookiesFromOtherDomains;
-}
-
-
-// RESPONSES
-
-function _Http_toResponse(toBody, xhr)
-{
- return A2(
- 200 <= xhr.status && xhr.status < 300 ? $elm$http$Http$GoodStatus_ : $elm$http$Http$BadStatus_,
- _Http_toMetadata(xhr),
- toBody(xhr.response)
- );
-}
-
-
-// METADATA
-
-function _Http_toMetadata(xhr)
-{
- return {
- url: xhr.responseURL,
- statusCode: xhr.status,
- statusText: xhr.statusText,
- headers: _Http_parseHeaders(xhr.getAllResponseHeaders())
- };
-}
-
-
-// HEADERS
-
-function _Http_parseHeaders(rawHeaders)
-{
- if (!rawHeaders)
- {
- return $elm$core$Dict$empty;
- }
-
- var headers = $elm$core$Dict$empty;
- var headerPairs = rawHeaders.split('\r\n');
- for (var i = headerPairs.length; i--; )
- {
- var headerPair = headerPairs[i];
- var index = headerPair.indexOf(': ');
- if (index > 0)
- {
- var key = headerPair.substring(0, index);
- var value = headerPair.substring(index + 2);
-
- headers = A3($elm$core$Dict$update, key, function(oldValue) {
- return $elm$core$Maybe$Just($elm$core$Maybe$isJust(oldValue)
- ? value + ', ' + oldValue.a
- : value
- );
- }, headers);
- }
- }
- return headers;
-}
-
-
-// EXPECT
-
-var _Http_expect = F3(function(type, toBody, toValue)
-{
- return {
- $: 0,
- d: type,
- b: toBody,
- a: toValue
- };
-});
-
-var _Http_mapExpect = F2(function(func, expect)
-{
- return {
- $: 0,
- d: expect.d,
- b: expect.b,
- a: function(x) { return func(expect.a(x)); }
- };
-});
-
-function _Http_toDataView(arrayBuffer)
-{
- return new DataView(arrayBuffer);
-}
-
-
-// BODY and PARTS
-
-var _Http_emptyBody = { $: 0 };
-var _Http_pair = F2(function(a, b) { return { $: 0, a: a, b: b }; });
-
-function _Http_toFormData(parts)
-{
- for (var formData = new FormData(); parts.b; parts = parts.b) // WHILE_CONS
- {
- var part = parts.a;
- formData.append(part.a, part.b);
- }
- return formData;
-}
-
-var _Http_bytesToBlob = F2(function(mime, bytes)
-{
- return new Blob([bytes], { type: mime });
-});
-
-
-// PROGRESS
-
-function _Http_track(router, xhr, tracker)
-{
- // TODO check out lengthComputable on loadstart event
-
- xhr.upload.addEventListener('progress', function(event) {
- if (xhr.c) { return; }
- _Scheduler_rawSpawn(A2($elm$core$Platform$sendToSelf, router, _Utils_Tuple2(tracker, $elm$http$Http$Sending({
- sent: event.loaded,
- size: event.total
- }))));
- });
- xhr.addEventListener('progress', function(event) {
- if (xhr.c) { return; }
- _Scheduler_rawSpawn(A2($elm$core$Platform$sendToSelf, router, _Utils_Tuple2(tracker, $elm$http$Http$Receiving({
- received: event.loaded,
- size: event.lengthComputable ? $elm$core$Maybe$Just(event.total) : $elm$core$Maybe$Nothing
- }))));
- });
-}var $author$project$TypeHolder$LinkClicked = function (a) {
- return {$: 'LinkClicked', a: a};
-};
-var $author$project$TypeHolder$UrlChanged = function (a) {
- return {$: 'UrlChanged', a: a};
-};
-var $elm$core$Basics$EQ = {$: 'EQ'};
-var $elm$core$Basics$GT = {$: 'GT'};
-var $elm$core$Basics$LT = {$: 'LT'};
-var $elm$core$List$cons = _List_cons;
-var $elm$core$Dict$foldr = F3(
- function (func, acc, t) {
- foldr:
- while (true) {
- if (t.$ === 'RBEmpty_elm_builtin') {
- return acc;
- } else {
- var key = t.b;
- var value = t.c;
- var left = t.d;
- var right = t.e;
- var $temp$func = func,
- $temp$acc = A3(
- func,
- key,
- value,
- A3($elm$core$Dict$foldr, func, acc, right)),
- $temp$t = left;
- func = $temp$func;
- acc = $temp$acc;
- t = $temp$t;
- continue foldr;
- }
- }
- });
-var $elm$core$Dict$toList = function (dict) {
- return A3(
- $elm$core$Dict$foldr,
- F3(
- function (key, value, list) {
- return A2(
- $elm$core$List$cons,
- _Utils_Tuple2(key, value),
- list);
- }),
- _List_Nil,
- dict);
-};
-var $elm$core$Dict$keys = function (dict) {
- return A3(
- $elm$core$Dict$foldr,
- F3(
- function (key, value, keyList) {
- return A2($elm$core$List$cons, key, keyList);
- }),
- _List_Nil,
- dict);
-};
-var $elm$core$Set$toList = function (_v0) {
- var dict = _v0.a;
- return $elm$core$Dict$keys(dict);
-};
-var $elm$core$Elm$JsArray$foldr = _JsArray_foldr;
-var $elm$core$Array$foldr = F3(
- function (func, baseCase, _v0) {
- var tree = _v0.c;
- var tail = _v0.d;
- var helper = F2(
- function (node, acc) {
- if (node.$ === 'SubTree') {
- var subTree = node.a;
- return A3($elm$core$Elm$JsArray$foldr, helper, acc, subTree);
- } else {
- var values = node.a;
- return A3($elm$core$Elm$JsArray$foldr, func, acc, values);
- }
- });
- return A3(
- $elm$core$Elm$JsArray$foldr,
- helper,
- A3($elm$core$Elm$JsArray$foldr, func, baseCase, tail),
- tree);
- });
-var $elm$core$Array$toList = function (array) {
- return A3($elm$core$Array$foldr, $elm$core$List$cons, _List_Nil, array);
-};
-var $elm$core$Result$Err = function (a) {
- return {$: 'Err', a: a};
-};
-var $elm$json$Json$Decode$Failure = F2(
- function (a, b) {
- return {$: 'Failure', a: a, b: b};
- });
-var $elm$json$Json$Decode$Field = F2(
- function (a, b) {
- return {$: 'Field', a: a, b: b};
- });
-var $elm$json$Json$Decode$Index = F2(
- function (a, b) {
- return {$: 'Index', a: a, b: b};
- });
-var $elm$core$Result$Ok = function (a) {
- return {$: 'Ok', a: a};
-};
-var $elm$json$Json$Decode$OneOf = function (a) {
- return {$: 'OneOf', a: a};
-};
-var $elm$core$Basics$False = {$: 'False'};
-var $elm$core$Basics$add = _Basics_add;
-var $elm$core$Maybe$Just = function (a) {
- return {$: 'Just', a: a};
-};
-var $elm$core$Maybe$Nothing = {$: 'Nothing'};
-var $elm$core$String$all = _String_all;
-var $elm$core$Basics$and = _Basics_and;
-var $elm$core$Basics$append = _Utils_append;
-var $elm$json$Json$Encode$encode = _Json_encode;
-var $elm$core$String$fromInt = _String_fromNumber;
-var $elm$core$String$join = F2(
- function (sep, chunks) {
- return A2(
- _String_join,
- sep,
- _List_toArray(chunks));
- });
-var $elm$core$String$split = F2(
- function (sep, string) {
- return _List_fromArray(
- A2(_String_split, sep, string));
- });
-var $elm$json$Json$Decode$indent = function (str) {
- return A2(
- $elm$core$String$join,
- '\n ',
- A2($elm$core$String$split, '\n', str));
-};
-var $elm$core$List$foldl = F3(
- function (func, acc, list) {
- foldl:
- while (true) {
- if (!list.b) {
- return acc;
- } else {
- var x = list.a;
- var xs = list.b;
- var $temp$func = func,
- $temp$acc = A2(func, x, acc),
- $temp$list = xs;
- func = $temp$func;
- acc = $temp$acc;
- list = $temp$list;
- continue foldl;
- }
- }
- });
-var $elm$core$List$length = function (xs) {
- return A3(
- $elm$core$List$foldl,
- F2(
- function (_v0, i) {
- return i + 1;
- }),
- 0,
- xs);
-};
-var $elm$core$List$map2 = _List_map2;
-var $elm$core$Basics$le = _Utils_le;
-var $elm$core$Basics$sub = _Basics_sub;
-var $elm$core$List$rangeHelp = F3(
- function (lo, hi, list) {
- rangeHelp:
- while (true) {
- if (_Utils_cmp(lo, hi) < 1) {
- var $temp$lo = lo,
- $temp$hi = hi - 1,
- $temp$list = A2($elm$core$List$cons, hi, list);
- lo = $temp$lo;
- hi = $temp$hi;
- list = $temp$list;
- continue rangeHelp;
- } else {
- return list;
- }
- }
- });
-var $elm$core$List$range = F2(
- function (lo, hi) {
- return A3($elm$core$List$rangeHelp, lo, hi, _List_Nil);
- });
-var $elm$core$List$indexedMap = F2(
- function (f, xs) {
- return A3(
- $elm$core$List$map2,
- f,
- A2(
- $elm$core$List$range,
- 0,
- $elm$core$List$length(xs) - 1),
- xs);
- });
-var $elm$core$Char$toCode = _Char_toCode;
-var $elm$core$Char$isLower = function (_char) {
- var code = $elm$core$Char$toCode(_char);
- return (97 <= code) && (code <= 122);
-};
-var $elm$core$Char$isUpper = function (_char) {
- var code = $elm$core$Char$toCode(_char);
- return (code <= 90) && (65 <= code);
-};
-var $elm$core$Basics$or = _Basics_or;
-var $elm$core$Char$isAlpha = function (_char) {
- return $elm$core$Char$isLower(_char) || $elm$core$Char$isUpper(_char);
-};
-var $elm$core$Char$isDigit = function (_char) {
- var code = $elm$core$Char$toCode(_char);
- return (code <= 57) && (48 <= code);
-};
-var $elm$core$Char$isAlphaNum = function (_char) {
- return $elm$core$Char$isLower(_char) || ($elm$core$Char$isUpper(_char) || $elm$core$Char$isDigit(_char));
-};
-var $elm$core$List$reverse = function (list) {
- return A3($elm$core$List$foldl, $elm$core$List$cons, _List_Nil, list);
-};
-var $elm$core$String$uncons = _String_uncons;
-var $elm$json$Json$Decode$errorOneOf = F2(
- function (i, error) {
- return '\n\n(' + ($elm$core$String$fromInt(i + 1) + (') ' + $elm$json$Json$Decode$indent(
- $elm$json$Json$Decode$errorToString(error))));
- });
-var $elm$json$Json$Decode$errorToString = function (error) {
- return A2($elm$json$Json$Decode$errorToStringHelp, error, _List_Nil);
-};
-var $elm$json$Json$Decode$errorToStringHelp = F2(
- function (error, context) {
- errorToStringHelp:
- while (true) {
- switch (error.$) {
- case 'Field':
- var f = error.a;
- var err = error.b;
- var isSimple = function () {
- var _v1 = $elm$core$String$uncons(f);
- if (_v1.$ === 'Nothing') {
- return false;
- } else {
- var _v2 = _v1.a;
- var _char = _v2.a;
- var rest = _v2.b;
- return $elm$core$Char$isAlpha(_char) && A2($elm$core$String$all, $elm$core$Char$isAlphaNum, rest);
- }
- }();
- var fieldName = isSimple ? ('.' + f) : ('[\'' + (f + '\']'));
- var $temp$error = err,
- $temp$context = A2($elm$core$List$cons, fieldName, context);
- error = $temp$error;
- context = $temp$context;
- continue errorToStringHelp;
- case 'Index':
- var i = error.a;
- var err = error.b;
- var indexName = '[' + ($elm$core$String$fromInt(i) + ']');
- var $temp$error = err,
- $temp$context = A2($elm$core$List$cons, indexName, context);
- error = $temp$error;
- context = $temp$context;
- continue errorToStringHelp;
- case 'OneOf':
- var errors = error.a;
- if (!errors.b) {
- return 'Ran into a Json.Decode.oneOf with no possibilities' + function () {
- if (!context.b) {
- return '!';
- } else {
- return ' at json' + A2(
- $elm$core$String$join,
- '',
- $elm$core$List$reverse(context));
- }
- }();
- } else {
- if (!errors.b.b) {
- var err = errors.a;
- var $temp$error = err,
- $temp$context = context;
- error = $temp$error;
- context = $temp$context;
- continue errorToStringHelp;
- } else {
- var starter = function () {
- if (!context.b) {
- return 'Json.Decode.oneOf';
- } else {
- return 'The Json.Decode.oneOf at json' + A2(
- $elm$core$String$join,
- '',
- $elm$core$List$reverse(context));
- }
- }();
- var introduction = starter + (' failed in the following ' + ($elm$core$String$fromInt(
- $elm$core$List$length(errors)) + ' ways:'));
- return A2(
- $elm$core$String$join,
- '\n\n',
- A2(
- $elm$core$List$cons,
- introduction,
- A2($elm$core$List$indexedMap, $elm$json$Json$Decode$errorOneOf, errors)));
- }
- }
- default:
- var msg = error.a;
- var json = error.b;
- var introduction = function () {
- if (!context.b) {
- return 'Problem with the given value:\n\n';
- } else {
- return 'Problem with the value at json' + (A2(
- $elm$core$String$join,
- '',
- $elm$core$List$reverse(context)) + ':\n\n ');
- }
- }();
- return introduction + ($elm$json$Json$Decode$indent(
- A2($elm$json$Json$Encode$encode, 4, json)) + ('\n\n' + msg));
- }
- }
- });
-var $elm$core$Array$branchFactor = 32;
-var $elm$core$Array$Array_elm_builtin = F4(
- function (a, b, c, d) {
- return {$: 'Array_elm_builtin', a: a, b: b, c: c, d: d};
- });
-var $elm$core$Elm$JsArray$empty = _JsArray_empty;
-var $elm$core$Basics$ceiling = _Basics_ceiling;
-var $elm$core$Basics$fdiv = _Basics_fdiv;
-var $elm$core$Basics$logBase = F2(
- function (base, number) {
- return _Basics_log(number) / _Basics_log(base);
- });
-var $elm$core$Basics$toFloat = _Basics_toFloat;
-var $elm$core$Array$shiftStep = $elm$core$Basics$ceiling(
- A2($elm$core$Basics$logBase, 2, $elm$core$Array$branchFactor));
-var $elm$core$Array$empty = A4($elm$core$Array$Array_elm_builtin, 0, $elm$core$Array$shiftStep, $elm$core$Elm$JsArray$empty, $elm$core$Elm$JsArray$empty);
-var $elm$core$Elm$JsArray$initialize = _JsArray_initialize;
-var $elm$core$Array$Leaf = function (a) {
- return {$: 'Leaf', a: a};
-};
-var $elm$core$Basics$apL = F2(
- function (f, x) {
- return f(x);
- });
-var $elm$core$Basics$apR = F2(
- function (x, f) {
- return f(x);
- });
-var $elm$core$Basics$eq = _Utils_equal;
-var $elm$core$Basics$floor = _Basics_floor;
-var $elm$core$Elm$JsArray$length = _JsArray_length;
-var $elm$core$Basics$gt = _Utils_gt;
-var $elm$core$Basics$max = F2(
- function (x, y) {
- return (_Utils_cmp(x, y) > 0) ? x : y;
- });
-var $elm$core$Basics$mul = _Basics_mul;
-var $elm$core$Array$SubTree = function (a) {
- return {$: 'SubTree', a: a};
-};
-var $elm$core$Elm$JsArray$initializeFromList = _JsArray_initializeFromList;
-var $elm$core$Array$compressNodes = F2(
- function (nodes, acc) {
- compressNodes:
- while (true) {
- var _v0 = A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, nodes);
- var node = _v0.a;
- var remainingNodes = _v0.b;
- var newAcc = A2(
- $elm$core$List$cons,
- $elm$core$Array$SubTree(node),
- acc);
- if (!remainingNodes.b) {
- return $elm$core$List$reverse(newAcc);
- } else {
- var $temp$nodes = remainingNodes,
- $temp$acc = newAcc;
- nodes = $temp$nodes;
- acc = $temp$acc;
- continue compressNodes;
- }
- }
- });
-var $elm$core$Tuple$first = function (_v0) {
- var x = _v0.a;
- return x;
-};
-var $elm$core$Array$treeFromBuilder = F2(
- function (nodeList, nodeListSize) {
- treeFromBuilder:
- while (true) {
- var newNodeSize = $elm$core$Basics$ceiling(nodeListSize / $elm$core$Array$branchFactor);
- if (newNodeSize === 1) {
- return A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, nodeList).a;
- } else {
- var $temp$nodeList = A2($elm$core$Array$compressNodes, nodeList, _List_Nil),
- $temp$nodeListSize = newNodeSize;
- nodeList = $temp$nodeList;
- nodeListSize = $temp$nodeListSize;
- continue treeFromBuilder;
- }
- }
- });
-var $elm$core$Array$builderToArray = F2(
- function (reverseNodeList, builder) {
- if (!builder.nodeListSize) {
- return A4(
- $elm$core$Array$Array_elm_builtin,
- $elm$core$Elm$JsArray$length(builder.tail),
- $elm$core$Array$shiftStep,
- $elm$core$Elm$JsArray$empty,
- builder.tail);
- } else {
- var treeLen = builder.nodeListSize * $elm$core$Array$branchFactor;
- var depth = $elm$core$Basics$floor(
- A2($elm$core$Basics$logBase, $elm$core$Array$branchFactor, treeLen - 1));
- var correctNodeList = reverseNodeList ? $elm$core$List$reverse(builder.nodeList) : builder.nodeList;
- var tree = A2($elm$core$Array$treeFromBuilder, correctNodeList, builder.nodeListSize);
- return A4(
- $elm$core$Array$Array_elm_builtin,
- $elm$core$Elm$JsArray$length(builder.tail) + treeLen,
- A2($elm$core$Basics$max, 5, depth * $elm$core$Array$shiftStep),
- tree,
- builder.tail);
- }
- });
-var $elm$core$Basics$idiv = _Basics_idiv;
-var $elm$core$Basics$lt = _Utils_lt;
-var $elm$core$Array$initializeHelp = F5(
- function (fn, fromIndex, len, nodeList, tail) {
- initializeHelp:
- while (true) {
- if (fromIndex < 0) {
- return A2(
- $elm$core$Array$builderToArray,
- false,
- {nodeList: nodeList, nodeListSize: (len / $elm$core$Array$branchFactor) | 0, tail: tail});
- } else {
- var leaf = $elm$core$Array$Leaf(
- A3($elm$core$Elm$JsArray$initialize, $elm$core$Array$branchFactor, fromIndex, fn));
- var $temp$fn = fn,
- $temp$fromIndex = fromIndex - $elm$core$Array$branchFactor,
- $temp$len = len,
- $temp$nodeList = A2($elm$core$List$cons, leaf, nodeList),
- $temp$tail = tail;
- fn = $temp$fn;
- fromIndex = $temp$fromIndex;
- len = $temp$len;
- nodeList = $temp$nodeList;
- tail = $temp$tail;
- continue initializeHelp;
- }
- }
- });
-var $elm$core$Basics$remainderBy = _Basics_remainderBy;
-var $elm$core$Array$initialize = F2(
- function (len, fn) {
- if (len <= 0) {
- return $elm$core$Array$empty;
- } else {
- var tailLen = len % $elm$core$Array$branchFactor;
- var tail = A3($elm$core$Elm$JsArray$initialize, tailLen, len - tailLen, fn);
- var initialFromIndex = (len - tailLen) - $elm$core$Array$branchFactor;
- return A5($elm$core$Array$initializeHelp, fn, initialFromIndex, len, _List_Nil, tail);
- }
- });
-var $elm$core$Basics$True = {$: 'True'};
-var $elm$core$Result$isOk = function (result) {
- if (result.$ === 'Ok') {
- return true;
- } else {
- return false;
- }
-};
-var $elm$json$Json$Decode$map = _Json_map1;
-var $elm$json$Json$Decode$map2 = _Json_map2;
-var $elm$json$Json$Decode$succeed = _Json_succeed;
-var $elm$virtual_dom$VirtualDom$toHandlerInt = function (handler) {
- switch (handler.$) {
- case 'Normal':
- return 0;
- case 'MayStopPropagation':
- return 1;
- case 'MayPreventDefault':
- return 2;
- default:
- return 3;
- }
-};
-var $elm$browser$Browser$External = function (a) {
- return {$: 'External', a: a};
-};
-var $elm$browser$Browser$Internal = function (a) {
- return {$: 'Internal', a: a};
-};
-var $elm$core$Basics$identity = function (x) {
- return x;
-};
-var $elm$browser$Browser$Dom$NotFound = function (a) {
- return {$: 'NotFound', a: a};
-};
-var $elm$url$Url$Http = {$: 'Http'};
-var $elm$url$Url$Https = {$: 'Https'};
-var $elm$url$Url$Url = F6(
- function (protocol, host, port_, path, query, fragment) {
- return {fragment: fragment, host: host, path: path, port_: port_, protocol: protocol, query: query};
- });
-var $elm$core$String$contains = _String_contains;
-var $elm$core$String$length = _String_length;
-var $elm$core$String$slice = _String_slice;
-var $elm$core$String$dropLeft = F2(
- function (n, string) {
- return (n < 1) ? string : A3(
- $elm$core$String$slice,
- n,
- $elm$core$String$length(string),
- string);
- });
-var $elm$core$String$indexes = _String_indexes;
-var $elm$core$String$isEmpty = function (string) {
- return string === '';
-};
-var $elm$core$String$left = F2(
- function (n, string) {
- return (n < 1) ? '' : A3($elm$core$String$slice, 0, n, string);
- });
-var $elm$core$String$toInt = _String_toInt;
-var $elm$url$Url$chompBeforePath = F5(
- function (protocol, path, params, frag, str) {
- if ($elm$core$String$isEmpty(str) || A2($elm$core$String$contains, '@', str)) {
- return $elm$core$Maybe$Nothing;
- } else {
- var _v0 = A2($elm$core$String$indexes, ':', str);
- if (!_v0.b) {
- return $elm$core$Maybe$Just(
- A6($elm$url$Url$Url, protocol, str, $elm$core$Maybe$Nothing, path, params, frag));
- } else {
- if (!_v0.b.b) {
- var i = _v0.a;
- var _v1 = $elm$core$String$toInt(
- A2($elm$core$String$dropLeft, i + 1, str));
- if (_v1.$ === 'Nothing') {
- return $elm$core$Maybe$Nothing;
- } else {
- var port_ = _v1;
- return $elm$core$Maybe$Just(
- A6(
- $elm$url$Url$Url,
- protocol,
- A2($elm$core$String$left, i, str),
- port_,
- path,
- params,
- frag));
- }
- } else {
- return $elm$core$Maybe$Nothing;
- }
- }
- }
- });
-var $elm$url$Url$chompBeforeQuery = F4(
- function (protocol, params, frag, str) {
- if ($elm$core$String$isEmpty(str)) {
- return $elm$core$Maybe$Nothing;
- } else {
- var _v0 = A2($elm$core$String$indexes, '/', str);
- if (!_v0.b) {
- return A5($elm$url$Url$chompBeforePath, protocol, '/', params, frag, str);
- } else {
- var i = _v0.a;
- return A5(
- $elm$url$Url$chompBeforePath,
- protocol,
- A2($elm$core$String$dropLeft, i, str),
- params,
- frag,
- A2($elm$core$String$left, i, str));
- }
- }
- });
-var $elm$url$Url$chompBeforeFragment = F3(
- function (protocol, frag, str) {
- if ($elm$core$String$isEmpty(str)) {
- return $elm$core$Maybe$Nothing;
- } else {
- var _v0 = A2($elm$core$String$indexes, '?', str);
- if (!_v0.b) {
- return A4($elm$url$Url$chompBeforeQuery, protocol, $elm$core$Maybe$Nothing, frag, str);
- } else {
- var i = _v0.a;
- return A4(
- $elm$url$Url$chompBeforeQuery,
- protocol,
- $elm$core$Maybe$Just(
- A2($elm$core$String$dropLeft, i + 1, str)),
- frag,
- A2($elm$core$String$left, i, str));
- }
- }
- });
-var $elm$url$Url$chompAfterProtocol = F2(
- function (protocol, str) {
- if ($elm$core$String$isEmpty(str)) {
- return $elm$core$Maybe$Nothing;
- } else {
- var _v0 = A2($elm$core$String$indexes, '#', str);
- if (!_v0.b) {
- return A3($elm$url$Url$chompBeforeFragment, protocol, $elm$core$Maybe$Nothing, str);
- } else {
- var i = _v0.a;
- return A3(
- $elm$url$Url$chompBeforeFragment,
- protocol,
- $elm$core$Maybe$Just(
- A2($elm$core$String$dropLeft, i + 1, str)),
- A2($elm$core$String$left, i, str));
- }
- }
- });
-var $elm$core$String$startsWith = _String_startsWith;
-var $elm$url$Url$fromString = function (str) {
- return A2($elm$core$String$startsWith, 'http://', str) ? A2(
- $elm$url$Url$chompAfterProtocol,
- $elm$url$Url$Http,
- A2($elm$core$String$dropLeft, 7, str)) : (A2($elm$core$String$startsWith, 'https://', str) ? A2(
- $elm$url$Url$chompAfterProtocol,
- $elm$url$Url$Https,
- A2($elm$core$String$dropLeft, 8, str)) : $elm$core$Maybe$Nothing);
-};
-var $elm$core$Basics$never = function (_v0) {
- never:
- while (true) {
- var nvr = _v0.a;
- var $temp$_v0 = nvr;
- _v0 = $temp$_v0;
- continue never;
- }
-};
-var $elm$core$Task$Perform = function (a) {
- return {$: 'Perform', a: a};
-};
-var $elm$core$Task$succeed = _Scheduler_succeed;
-var $elm$core$Task$init = $elm$core$Task$succeed(_Utils_Tuple0);
-var $elm$core$List$foldrHelper = F4(
- function (fn, acc, ctr, ls) {
- if (!ls.b) {
- return acc;
- } else {
- var a = ls.a;
- var r1 = ls.b;
- if (!r1.b) {
- return A2(fn, a, acc);
- } else {
- var b = r1.a;
- var r2 = r1.b;
- if (!r2.b) {
- return A2(
- fn,
- a,
- A2(fn, b, acc));
- } else {
- var c = r2.a;
- var r3 = r2.b;
- if (!r3.b) {
- return A2(
- fn,
- a,
- A2(
- fn,
- b,
- A2(fn, c, acc)));
- } else {
- var d = r3.a;
- var r4 = r3.b;
- var res = (ctr > 500) ? A3(
- $elm$core$List$foldl,
- fn,
- acc,
- $elm$core$List$reverse(r4)) : A4($elm$core$List$foldrHelper, fn, acc, ctr + 1, r4);
- return A2(
- fn,
- a,
- A2(
- fn,
- b,
- A2(
- fn,
- c,
- A2(fn, d, res))));
- }
- }
- }
- }
- });
-var $elm$core$List$foldr = F3(
- function (fn, acc, ls) {
- return A4($elm$core$List$foldrHelper, fn, acc, 0, ls);
- });
-var $elm$core$List$map = F2(
- function (f, xs) {
- return A3(
- $elm$core$List$foldr,
- F2(
- function (x, acc) {
- return A2(
- $elm$core$List$cons,
- f(x),
- acc);
- }),
- _List_Nil,
- xs);
- });
-var $elm$core$Task$andThen = _Scheduler_andThen;
-var $elm$core$Task$map = F2(
- function (func, taskA) {
- return A2(
- $elm$core$Task$andThen,
- function (a) {
- return $elm$core$Task$succeed(
- func(a));
- },
- taskA);
- });
-var $elm$core$Task$map2 = F3(
- function (func, taskA, taskB) {
- return A2(
- $elm$core$Task$andThen,
- function (a) {
- return A2(
- $elm$core$Task$andThen,
- function (b) {
- return $elm$core$Task$succeed(
- A2(func, a, b));
- },
- taskB);
- },
- taskA);
- });
-var $elm$core$Task$sequence = function (tasks) {
- return A3(
- $elm$core$List$foldr,
- $elm$core$Task$map2($elm$core$List$cons),
- $elm$core$Task$succeed(_List_Nil),
- tasks);
-};
-var $elm$core$Platform$sendToApp = _Platform_sendToApp;
-var $elm$core$Task$spawnCmd = F2(
- function (router, _v0) {
- var task = _v0.a;
- return _Scheduler_spawn(
- A2(
- $elm$core$Task$andThen,
- $elm$core$Platform$sendToApp(router),
- task));
- });
-var $elm$core$Task$onEffects = F3(
- function (router, commands, state) {
- return A2(
- $elm$core$Task$map,
- function (_v0) {
- return _Utils_Tuple0;
- },
- $elm$core$Task$sequence(
- A2(
- $elm$core$List$map,
- $elm$core$Task$spawnCmd(router),
- commands)));
- });
-var $elm$core$Task$onSelfMsg = F3(
- function (_v0, _v1, _v2) {
- return $elm$core$Task$succeed(_Utils_Tuple0);
- });
-var $elm$core$Task$cmdMap = F2(
- function (tagger, _v0) {
- var task = _v0.a;
- return $elm$core$Task$Perform(
- A2($elm$core$Task$map, tagger, task));
- });
-_Platform_effectManagers['Task'] = _Platform_createManager($elm$core$Task$init, $elm$core$Task$onEffects, $elm$core$Task$onSelfMsg, $elm$core$Task$cmdMap);
-var $elm$core$Task$command = _Platform_leaf('Task');
-var $elm$core$Task$perform = F2(
- function (toMessage, task) {
- return $elm$core$Task$command(
- $elm$core$Task$Perform(
- A2($elm$core$Task$map, toMessage, task)));
- });
-var $elm$browser$Browser$application = _Browser_application;
-var $author$project$Util$ShapeManager$Empty = {$: 'Empty'};
-var $elm$json$Json$Encode$string = _Json_wrap;
-var $elm$html$Html$Attributes$stringProperty = F2(
- function (key, string) {
- return A2(
- _VirtualDom_property,
- key,
- $elm$json$Json$Encode$string(string));
- });
-var $elm$html$Html$Attributes$class = $elm$html$Html$Attributes$stringProperty('className');
-var $elm$core$List$append = F2(
- function (xs, ys) {
- if (!ys.b) {
- return xs;
- } else {
- return A3($elm$core$List$foldr, $elm$core$List$cons, ys, xs);
- }
- });
-var $elm$core$List$concat = function (lists) {
- return A3($elm$core$List$foldr, $elm$core$List$append, _List_Nil, lists);
-};
-var $author$project$Util$ShapeManager$ShapeStyle = function (hoveredFillColor) {
- return function (hoveredFillOpacity) {
- return function (hoveredStrokeColor) {
- return function (hoveredStrokeWidth) {
- return function (hoveredStrokeOpacity) {
- return function (unHoveredFillColor) {
- return function (unHoveredFillOpacity) {
- return function (unHoveredStrokeColor) {
- return function (unHoveredStrokeWidth) {
- return function (unHoveredStrokeOpacity) {
- return function (title) {
- return function (body) {
- return {body: body, hoveredFillColor: hoveredFillColor, hoveredFillOpacity: hoveredFillOpacity, hoveredStrokeColor: hoveredStrokeColor, hoveredStrokeOpacity: hoveredStrokeOpacity, hoveredStrokeWidth: hoveredStrokeWidth, title: title, unHoveredFillColor: unHoveredFillColor, unHoveredFillOpacity: unHoveredFillOpacity, unHoveredStrokeColor: unHoveredStrokeColor, unHoveredStrokeOpacity: unHoveredStrokeOpacity, unHoveredStrokeWidth: unHoveredStrokeWidth};
- };
- };
- };
- };
- };
- };
- };
- };
- };
- };
- };
-};
-var $author$project$Util$ShapeManager$defaultShapeStyle = $author$project$Util$ShapeManager$ShapeStyle('white')('0.5')('red')('3')('1.0')('white')('0.0')('red')('3')('1.0')('default')('default');
-var $elm$html$Html$div = _VirtualDom_node('div');
-var $elm$core$List$drop = F2(
- function (n, list) {
- drop:
- while (true) {
- if (n <= 0) {
- return list;
- } else {
- if (!list.b) {
- return list;
- } else {
- var x = list.a;
- var xs = list.b;
- var $temp$n = n - 1,
- $temp$list = xs;
- n = $temp$n;
- list = $temp$list;
- continue drop;
- }
- }
- }
- });
-var $author$project$Manager$ModalManager$NoModal = {$: 'NoModal'};
-var $author$project$Manager$StateManager$getModalFromState = function (state) {
- switch (state.$) {
- case 'Standby':
- return $author$project$Manager$ModalManager$NoModal;
- case 'ActiveModal':
- var modal = state.a;
- return modal;
- default:
- return $author$project$Manager$ModalManager$NoModal;
- }
-};
-var $elm$core$List$head = function (list) {
- if (list.b) {
- var x = list.a;
- var xs = list.b;
- return $elm$core$Maybe$Just(x);
- } else {
- return $elm$core$Maybe$Nothing;
- }
-};
-var $author$project$Util$Util$httpErrorToString = function (e) {
- return 'Http.Error: ' + function () {
- switch (e.$) {
- case 'BadUrl':
- var string = e.a;
- return 'BadUrl ' + string;
- case 'Timeout':
- return 'Timeout';
- case 'NetworkError':
- return 'NetworkError';
- case 'BadStatus':
- var _int = e.a;
- return 'badStatus ' + $elm$core$String$fromInt(_int);
- default:
- var string = e.a;
- return 'BadBody ' + string;
- }
- }();
-};
-var $elm$core$Tuple$second = function (_v0) {
- var y = _v0.b;
- return y;
-};
-var $elm$html$Html$section = _VirtualDom_node('section');
-var $elm$html$Html$Attributes$href = function (url) {
- return A2(
- $elm$html$Html$Attributes$stringProperty,
- 'href',
- _VirtualDom_noJavaScriptUri(url));
-};
-var $elm$virtual_dom$VirtualDom$node = function (tag) {
- return _VirtualDom_node(
- _VirtualDom_noScript(tag));
-};
-var $elm$html$Html$node = $elm$virtual_dom$VirtualDom$node;
-var $author$project$Util$Util$link = F2(
- function (attributes, children) {
- return A3($elm$html$Html$node, 'link', attributes, children);
- });
-var $elm$html$Html$Attributes$rel = _VirtualDom_attribute('rel');
-var $author$project$Util$ViewParts$standardViewPart = _List_fromArray(
- [
- A2(
- $author$project$Util$Util$link,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$rel('stylesheet'),
- $elm$html$Html$Attributes$href('https://cdn.jsdelivr.net/npm/bulma@0.8.0/css/bulma.min.css')
- ]),
- _List_Nil),
- A2(
- $author$project$Util$Util$link,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$rel('stylesheet'),
- $elm$html$Html$Attributes$href('https://cdnjs.cloudflare.com/ajax/libs/animate.css/3.7.2/animate.min.css')
- ]),
- _List_Nil),
- A2(
- $author$project$Util$Util$link,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$rel('stylesheet'),
- $elm$html$Html$Attributes$href('https://use.fontawesome.com/releases/v5.8.1/css/all.css')
- ]),
- _List_Nil)
- ]);
-var $elm$virtual_dom$VirtualDom$style = _VirtualDom_style;
-var $elm$html$Html$Attributes$style = $elm$virtual_dom$VirtualDom$style;
-var $elm$core$List$takeReverse = F3(
- function (n, list, kept) {
- takeReverse:
- while (true) {
- if (n <= 0) {
- return kept;
- } else {
- if (!list.b) {
- return kept;
- } else {
- var x = list.a;
- var xs = list.b;
- var $temp$n = n - 1,
- $temp$list = xs,
- $temp$kept = A2($elm$core$List$cons, x, kept);
- n = $temp$n;
- list = $temp$list;
- kept = $temp$kept;
- continue takeReverse;
- }
- }
- }
- });
-var $elm$core$List$takeTailRec = F2(
- function (n, list) {
- return $elm$core$List$reverse(
- A3($elm$core$List$takeReverse, n, list, _List_Nil));
- });
-var $elm$core$List$takeFast = F3(
- function (ctr, n, list) {
- if (n <= 0) {
- return _List_Nil;
- } else {
- var _v0 = _Utils_Tuple2(n, list);
- _v0$1:
- while (true) {
- _v0$5:
- while (true) {
- if (!_v0.b.b) {
- return list;
- } else {
- if (_v0.b.b.b) {
- switch (_v0.a) {
- case 1:
- break _v0$1;
- case 2:
- var _v2 = _v0.b;
- var x = _v2.a;
- var _v3 = _v2.b;
- var y = _v3.a;
- return _List_fromArray(
- [x, y]);
- case 3:
- if (_v0.b.b.b.b) {
- var _v4 = _v0.b;
- var x = _v4.a;
- var _v5 = _v4.b;
- var y = _v5.a;
- var _v6 = _v5.b;
- var z = _v6.a;
- return _List_fromArray(
- [x, y, z]);
- } else {
- break _v0$5;
- }
- default:
- if (_v0.b.b.b.b && _v0.b.b.b.b.b) {
- var _v7 = _v0.b;
- var x = _v7.a;
- var _v8 = _v7.b;
- var y = _v8.a;
- var _v9 = _v8.b;
- var z = _v9.a;
- var _v10 = _v9.b;
- var w = _v10.a;
- var tl = _v10.b;
- return (ctr > 1000) ? A2(
- $elm$core$List$cons,
- x,
- A2(
- $elm$core$List$cons,
- y,
- A2(
- $elm$core$List$cons,
- z,
- A2(
- $elm$core$List$cons,
- w,
- A2($elm$core$List$takeTailRec, n - 4, tl))))) : A2(
- $elm$core$List$cons,
- x,
- A2(
- $elm$core$List$cons,
- y,
- A2(
- $elm$core$List$cons,
- z,
- A2(
- $elm$core$List$cons,
- w,
- A3($elm$core$List$takeFast, ctr + 1, n - 4, tl)))));
- } else {
- break _v0$5;
- }
- }
- } else {
- if (_v0.a === 1) {
- break _v0$1;
- } else {
- break _v0$5;
- }
- }
- }
- }
- return list;
- }
- var _v1 = _v0.b;
- var x = _v1.a;
- return _List_fromArray(
- [x]);
- }
- });
-var $elm$core$List$take = F2(
- function (n, list) {
- return A3($elm$core$List$takeFast, 0, n, list);
- });
-var $elm$virtual_dom$VirtualDom$text = _VirtualDom_text;
-var $elm$html$Html$text = $elm$virtual_dom$VirtualDom$text;
-var $author$project$TypeHolder$ManageModal = F2(
- function (a, b) {
- return {$: 'ManageModal', a: a, b: b};
- });
-var $author$project$TypeHolder$ManageShapes = F2(
- function (a, b) {
- return {$: 'ManageShapes', a: a, b: b};
- });
-var $author$project$Manager$ModalManager$OpenEditShape = F4(
- function (a, b, c, d) {
- return {$: 'OpenEditShape', a: a, b: b, c: c, d: d};
- });
-var $author$project$Util$ShapeManager$SaveEditedShape = F2(
- function (a, b) {
- return {$: 'SaveEditedShape', a: a, b: b};
- });
-var $elm$html$Html$button = _VirtualDom_node('button');
-var $elm$html$Html$Attributes$cols = function (n) {
- return A2(
- _VirtualDom_attribute,
- 'cols',
- $elm$core$String$fromInt(n));
-};
-var $author$project$Util$ViewParts$modalCard = function (modalParts) {
- return A2(
- $elm$html$Html$div,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('modal is-active')
- ]),
- _List_fromArray(
- [
- A2(
- $elm$html$Html$div,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('modal-background')
- ]),
- _List_Nil),
- A2(
- $elm$html$Html$div,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('modal-card')
- ]),
- modalParts)
- ]));
-};
-var $author$project$Util$ViewParts$modalCardStrongBody = F2(
- function (attributes, children) {
- return A2(
- $elm$html$Html$section,
- _Utils_ap(
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('modal-card-body')
- ]),
- attributes),
- children);
- });
-var $author$project$Util$ViewParts$modalCardBody = function (bodyElements) {
- return A2($author$project$Util$ViewParts$modalCardStrongBody, _List_Nil, bodyElements);
-};
-var $author$project$Manager$ModalManager$CloseModal = {$: 'CloseModal'};
-var $elm$html$Html$footer = _VirtualDom_node('footer');
-var $elm$core$String$fromFloat = _String_fromNumber;
-var $elm$virtual_dom$VirtualDom$Normal = function (a) {
- return {$: 'Normal', a: a};
-};
-var $elm$virtual_dom$VirtualDom$on = _VirtualDom_on;
-var $elm$html$Html$Events$on = F2(
- function (event, decoder) {
- return A2(
- $elm$virtual_dom$VirtualDom$on,
- event,
- $elm$virtual_dom$VirtualDom$Normal(decoder));
- });
-var $elm$html$Html$Events$onClick = function (msg) {
- return A2(
- $elm$html$Html$Events$on,
- 'click',
- $elm$json$Json$Decode$succeed(msg));
-};
-var $author$project$Util$ViewParts$modalFooter = F2(
- function (footElements, footElementsWidth) {
- return A2(
- $elm$html$Html$footer,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('modal-card-foot')
- ]),
- A2(
- $elm$core$List$append,
- footElements,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$button,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('button'),
- A2(
- $elm$html$Html$Attributes$style,
- 'margin-left',
- $elm$core$String$fromFloat(83.0 - footElementsWidth) + '%'),
- $elm$html$Html$Events$onClick(
- A2($author$project$TypeHolder$ManageModal, $author$project$Manager$ModalManager$CloseModal, ''))
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Schließen')
- ]))
- ])));
- });
-var $elm$html$Html$header = _VirtualDom_node('header');
-var $elm$html$Html$p = _VirtualDom_node('p');
-var $author$project$Util$ViewParts$modalStrongHeader = F2(
- function (attributes, children) {
- return A2(
- $elm$html$Html$header,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('modal-card-head')
- ]),
- _List_fromArray(
- [
- A2(
- $elm$html$Html$p,
- _Utils_ap(
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('modal-card-title')
- ]),
- attributes),
- children),
- A2(
- $elm$html$Html$button,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('delete aria-label=close'),
- $elm$html$Html$Events$onClick(
- A2($author$project$TypeHolder$ManageModal, $author$project$Manager$ModalManager$CloseModal, ''))
- ]),
- _List_Nil)
- ]));
- });
-var $author$project$Util$ViewParts$modalHeader = function (title) {
- return A2(
- $author$project$Util$ViewParts$modalStrongHeader,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text(title)
- ]));
-};
-var $elm$html$Html$Events$alwaysStop = function (x) {
- return _Utils_Tuple2(x, true);
-};
-var $elm$virtual_dom$VirtualDom$MayStopPropagation = function (a) {
- return {$: 'MayStopPropagation', a: a};
-};
-var $elm$html$Html$Events$stopPropagationOn = F2(
- function (event, decoder) {
- return A2(
- $elm$virtual_dom$VirtualDom$on,
- event,
- $elm$virtual_dom$VirtualDom$MayStopPropagation(decoder));
- });
-var $elm$json$Json$Decode$field = _Json_decodeField;
-var $elm$json$Json$Decode$at = F2(
- function (fields, decoder) {
- return A3($elm$core$List$foldr, $elm$json$Json$Decode$field, decoder, fields);
- });
-var $elm$json$Json$Decode$string = _Json_decodeString;
-var $elm$html$Html$Events$targetValue = A2(
- $elm$json$Json$Decode$at,
- _List_fromArray(
- ['target', 'value']),
- $elm$json$Json$Decode$string);
-var $elm$html$Html$Events$onInput = function (tagger) {
- return A2(
- $elm$html$Html$Events$stopPropagationOn,
- 'input',
- A2(
- $elm$json$Json$Decode$map,
- $elm$html$Html$Events$alwaysStop,
- A2($elm$json$Json$Decode$map, tagger, $elm$html$Html$Events$targetValue)));
-};
-var $elm$json$Json$Encode$bool = _Json_wrap;
-var $elm$html$Html$Attributes$boolProperty = F2(
- function (key, bool) {
- return A2(
- _VirtualDom_property,
- key,
- $elm$json$Json$Encode$bool(bool));
- });
-var $elm$html$Html$Attributes$readonly = $elm$html$Html$Attributes$boolProperty('readOnly');
-var $elm$html$Html$Attributes$rows = function (n) {
- return A2(
- _VirtualDom_attribute,
- 'rows',
- $elm$core$String$fromInt(n));
-};
-var $author$project$Util$ShapeManager$DeleteShape = function (a) {
- return {$: 'DeleteShape', a: a};
-};
-var $author$project$Util$ViewParts$shapeDeleteButton = F2(
- function (id, size) {
- return A2(
- $elm$html$Html$button,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('button is-danger is-size-' + size),
- $elm$html$Html$Events$onClick(
- A2(
- $author$project$TypeHolder$ManageShapes,
- $author$project$Util$ShapeManager$DeleteShape(id),
- ''))
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Form löschen')
- ]));
- });
-var $elm$html$Html$table = _VirtualDom_node('table');
-var $elm$html$Html$td = _VirtualDom_node('td');
-var $elm$html$Html$textarea = _VirtualDom_node('textarea');
-var $elm$html$Html$th = _VirtualDom_node('th');
-var $elm$html$Html$tr = _VirtualDom_node('tr');
-var $author$project$Util$ViewParts$viewEditShapeModal = F2(
- function (id, shapeStyle) {
- return (id <= 0) ? A2($elm$html$Html$div, _List_Nil, _List_Nil) : $author$project$Util$ViewParts$modalCard(
- _List_fromArray(
- [
- $author$project$Util$ViewParts$modalHeader(
- 'Form ' + (((shapeStyle.title === 'default') ? $elm$core$String$fromInt(id) : shapeStyle.title) + ' bearbeiten')),
- $author$project$Util$ViewParts$modalCardBody(
- _List_fromArray(
- [
- A2(
- $elm$html$Html$div,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('control')
- ]),
- _List_fromArray(
- [
- A2(
- $elm$html$Html$table,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('table')
- ]),
- _List_fromArray(
- [
- A2(
- $elm$html$Html$tr,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$th,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text('Optionen')
- ])),
- A2(
- $elm$html$Html$th,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text('Werte')
- ]))
- ])),
- A2(
- $elm$html$Html$tr,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$td,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$textarea,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('textarea has-fixed-size is-medium'),
- $elm$html$Html$Attributes$rows(10),
- $elm$html$Html$Attributes$cols(20),
- $elm$html$Html$Attributes$readonly(true)
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('hoveredFillColor \n'),
- $elm$html$Html$text('hoveredFillOpacity \n'),
- $elm$html$Html$text('hoveredStrokeColor \n'),
- $elm$html$Html$text('hoveredStrokeWidth \n'),
- $elm$html$Html$text('hoveredStrokeOpacity\n'),
- $elm$html$Html$text('unHoveredFillColor \n'),
- $elm$html$Html$text('unHoveredFillOpacity\n'),
- $elm$html$Html$text('unHoveredStrokeColor\n'),
- $elm$html$Html$text('unHoveredStrokeWidth\n'),
- $elm$html$Html$text('unHoveredStrokeOpacity')
- ]))
- ])),
- A2(
- $elm$html$Html$td,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$textarea,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('textarea has-fixed-size is-medium'),
- $elm$html$Html$Attributes$rows(10),
- $elm$html$Html$Attributes$cols(10),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A4($author$project$Manager$ModalManager$OpenEditShape, id, shapeStyle, 'TA', '')))
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text(shapeStyle.hoveredFillColor + '\n'),
- $elm$html$Html$text(shapeStyle.hoveredFillOpacity + '\n'),
- $elm$html$Html$text(shapeStyle.hoveredStrokeColor + '\n'),
- $elm$html$Html$text(shapeStyle.hoveredStrokeWidth + '\n'),
- $elm$html$Html$text(shapeStyle.hoveredStrokeOpacity + '\n'),
- $elm$html$Html$text(shapeStyle.unHoveredFillColor + '\n'),
- $elm$html$Html$text(shapeStyle.unHoveredFillOpacity + '\n'),
- $elm$html$Html$text(shapeStyle.unHoveredStrokeColor + '\n'),
- $elm$html$Html$text(shapeStyle.unHoveredStrokeWidth + '\n'),
- $elm$html$Html$text(shapeStyle.unHoveredStrokeOpacity)
- ]))
- ]))
- ]))
- ]))
- ]))
- ])),
- A2(
- $author$project$Util$ViewParts$modalFooter,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$button,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('button is-success'),
- $elm$html$Html$Events$onClick(
- A2(
- $author$project$TypeHolder$ManageShapes,
- A2($author$project$Util$ShapeManager$SaveEditedShape, id, shapeStyle),
- ''))
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Speichern')
- ])),
- A2($author$project$Util$ViewParts$shapeDeleteButton, id, '6')
- ]),
- 41.1)
- ]));
- });
-var $author$project$Util$ShapeManager$AddShape = function (a) {
- return {$: 'AddShape', a: a};
-};
-var $author$project$Util$ShapeManager$Circle = F3(
- function (a, b, c) {
- return {$: 'Circle', a: a, b: b, c: c};
- });
-var $author$project$Util$ShapeManager$Ellipse = F4(
- function (a, b, c, d) {
- return {$: 'Ellipse', a: a, b: b, c: c, d: d};
- });
-var $author$project$TypeHolder$OpenDrawShape = function (a) {
- return {$: 'OpenDrawShape', a: a};
-};
-var $author$project$Manager$ModalManager$OpenManagePicture = F2(
- function (a, b) {
- return {$: 'OpenManagePicture', a: a, b: b};
- });
-var $author$project$Manager$ModalManager$OpenShowInput = {$: 'OpenShowInput'};
-var $author$project$Manager$ModalManager$OpenShowJson = {$: 'OpenShowJson'};
-var $author$project$Manager$ModalManager$OpenShowTable = {$: 'OpenShowTable'};
-var $author$project$Util$ShapeManager$Polygon = function (a) {
- return {$: 'Polygon', a: a};
-};
-var $author$project$Util$ShapeManager$Rectangle = F4(
- function (a, b, c, d) {
- return {$: 'Rectangle', a: a, b: b, c: c, d: d};
- });
-var $elm$html$Html$a = _VirtualDom_node('a');
-var $author$project$Util$ShapeManager$shapeNameToString = function (shape) {
- switch (shape.$) {
- case 'Empty':
- return '';
- case 'Circle':
- return 'Circle';
- case 'Rectangle':
- return 'Rectangle';
- case 'Ellipse':
- return 'Ellipse';
- default:
- return 'Polygon';
- }
-};
-var $author$project$Util$ShapeManager$eq_String_Shape = F2(
- function (string, shape) {
- return _Utils_eq(
- string,
- $author$project$Util$ShapeManager$shapeNameToString(shape));
- });
-var $author$project$Manager$StateManager$stateNameToString = function (state) {
- switch (state.$) {
- case 'Standby':
- return 'Standby';
- case 'ActiveModal':
- var modal = state.a;
- return 'ActiveModal';
- default:
- return 'DrawShape';
- }
-};
-var $author$project$Manager$StateManager$eq_String_State = F2(
- function (string, state) {
- return _Utils_eq(
- string,
- $author$project$Manager$StateManager$stateNameToString(state));
- });
-var $author$project$Manager$ModalManager$getInputShapeFromModal = function (modal) {
- switch (modal.$) {
- case 'NoModal':
- return $author$project$Util$ShapeManager$Empty;
- case 'ShowTable':
- return $author$project$Util$ShapeManager$Empty;
- case 'ShowInput':
- var shape = modal.a;
- return shape;
- case 'ShowShape':
- return $author$project$Util$ShapeManager$Empty;
- case 'ShowJson':
- return $author$project$Util$ShapeManager$Empty;
- case 'EditShape':
- return $author$project$Util$ShapeManager$Empty;
- default:
- return $author$project$Util$ShapeManager$Empty;
- }
-};
-var $author$project$Manager$StateManager$getInputShapeFromState = function (state) {
- switch (state.$) {
- case 'Standby':
- return $author$project$Util$ShapeManager$Empty;
- case 'ActiveModal':
- var modal = state.a;
- return $author$project$Manager$ModalManager$getInputShapeFromModal(modal);
- default:
- var shape = state.a;
- return shape;
- }
-};
-var $elm$html$Html$h1 = _VirtualDom_node('h1');
-var $author$project$Util$ShapeManager$shapeNameStringToGerman = function (shape) {
- switch (shape) {
- case 'Circle':
- return 'Kreis';
- case 'Rectangle':
- return 'Rechteck';
- case 'Polygon':
- return 'Vieleck';
- case 'Ellipse':
- return 'Ellipse';
- default:
- return '';
- }
-};
-var $elm$html$Html$i = _VirtualDom_node('i');
-var $elm$html$Html$span = _VirtualDom_node('span');
-var $author$project$Util$ViewParts$viewDropDownMenue = F5(
- function (header, isGreen, iconType, attributes, dropDownItems) {
- return A2(
- $elm$html$Html$div,
- A2(
- $elm$core$List$append,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('dropdown is-hoverable'),
- A2($elm$html$Html$Attributes$style, 'margin-right', '15px'),
- A2($elm$html$Html$Attributes$style, 'margin-bottom', '15px')
- ]),
- attributes),
- _List_fromArray(
- [
- A2(
- $elm$html$Html$div,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('dropdown-trigger')
- ]),
- _List_fromArray(
- [
- A2(
- $elm$html$Html$button,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class(
- 'button ' + ((isGreen ? 'is-success' : '') + ' aria-haspopup=true aria-controls=dropdown-menu'))
- ]),
- _List_fromArray(
- [
- A2(
- $elm$html$Html$span,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text(header)
- ])),
- A2(
- $elm$html$Html$span,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('icon is-small')
- ]),
- _List_fromArray(
- [
- A2(
- $elm$html$Html$i,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('fas fa-' + (iconType + ' aria-hidden=true'))
- ]),
- _List_Nil)
- ]))
- ]))
- ])),
- _Utils_eq(dropDownItems, _List_Nil) ? A2($elm$html$Html$div, _List_Nil, _List_Nil) : A2(
- $elm$html$Html$div,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('dropdown-menu role=menu')
- ]),
- _List_fromArray(
- [
- A2(
- $elm$html$Html$div,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('dropdown-content')
- ]),
- dropDownItems)
- ]))
- ]));
- });
-var $author$project$Util$ViewParts$viewHeader_Buttons = function (state) {
- return A2(
- $elm$html$Html$div,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$div,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('section')
- ]),
- _List_fromArray(
- [
- A2(
- $elm$html$Html$h1,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('title')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('ShapePicture Editor')
- ]))
- ])),
- A2(
- $elm$html$Html$div,
- _List_fromArray(
- [
- A2($elm$html$Html$Attributes$style, 'margin-left', '25px')
- ]),
- _List_fromArray(
- [
- A2(
- $elm$html$Html$button,
- _List_fromArray(
- [
- $elm$html$Html$Events$onClick(
- A2(
- $author$project$TypeHolder$ManageModal,
- A2($author$project$Manager$ModalManager$OpenManagePicture, '', ''),
- '')),
- $elm$html$Html$Attributes$class('button is-success is-pulled-left is-size-6'),
- A2($elm$html$Html$Attributes$style, 'margin-bottom', '15px'),
- A2($elm$html$Html$Attributes$style, 'margin-right', '15px')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Bild auswählen')
- ])),
- A2(
- $elm$html$Html$button,
- _List_fromArray(
- [
- $elm$html$Html$Events$onClick(
- A2($author$project$TypeHolder$ManageModal, $author$project$Manager$ModalManager$OpenShowJson, '')),
- $elm$html$Html$Attributes$class('button is-success is-pulled-left is-size-6'),
- A2($elm$html$Html$Attributes$style, 'margin-bottom', '15px'),
- A2($elm$html$Html$Attributes$style, 'margin-right', '15px')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Json Datei anzeigen')
- ])),
- A2(
- $elm$html$Html$button,
- _List_fromArray(
- [
- $elm$html$Html$Events$onClick(
- A2($author$project$TypeHolder$ManageModal, $author$project$Manager$ModalManager$OpenShowInput, '')),
- $elm$html$Html$Attributes$class('button is-success is-pulled-left is-size-6'),
- A2($elm$html$Html$Attributes$style, 'margin-bottom', '15px'),
- A2($elm$html$Html$Attributes$style, 'margin-right', '15px')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Neue Form hinzüfügen')
- ])),
- A2(
- $elm$html$Html$button,
- _List_fromArray(
- [
- $elm$html$Html$Events$onClick(
- A2($author$project$TypeHolder$ManageModal, $author$project$Manager$ModalManager$OpenShowTable, '')),
- $elm$html$Html$Attributes$class('button is-success is-pulled-left is-size-6'),
- A2($elm$html$Html$Attributes$style, 'margin-right', '15px'),
- A2($elm$html$Html$Attributes$style, 'margin-bottom', '15px')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Tabelle mit Formen zeigen')
- ])),
- function () {
- if (A2($author$project$Manager$StateManager$eq_String_State, 'DrawShape', state)) {
- var iShape = $author$project$Manager$StateManager$getInputShapeFromState(state);
- return A2($author$project$Util$ShapeManager$eq_String_Shape, 'Polygon', iShape) ? A5(
- $author$project$Util$ViewParts$viewDropDownMenue,
- 'Polygon wird gezeichnet',
- true,
- 'angle-down',
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$a,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('dropdown-item'),
- $elm$html$Html$Events$onClick(
- A2(
- $author$project$TypeHolder$ManageShapes,
- $author$project$Util$ShapeManager$AddShape($author$project$Util$ShapeManager$Empty),
- '')),
- $elm$html$Html$Attributes$href('')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Speichern')
- ])),
- A2(
- $elm$html$Html$a,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('dropdown-item'),
- $elm$html$Html$Events$onClick(
- A2($author$project$TypeHolder$ManageModal, $author$project$Manager$ModalManager$CloseModal, '')),
- $elm$html$Html$Attributes$href('')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Abbrechen')
- ]))
- ])) : A5(
- $author$project$Util$ViewParts$viewDropDownMenue,
- $author$project$Util$ShapeManager$shapeNameStringToGerman(
- $author$project$Util$ShapeManager$shapeNameToString(
- $author$project$Manager$StateManager$getInputShapeFromState(state))) + ' zeichnen: abbrechen ',
- false,
- 'times',
- _List_fromArray(
- [
- $elm$html$Html$Events$onClick(
- A2($author$project$TypeHolder$ManageModal, $author$project$Manager$ModalManager$CloseModal, ''))
- ]),
- _List_Nil);
- } else {
- return A5(
- $author$project$Util$ViewParts$viewDropDownMenue,
- 'Neue Form zeichnen',
- true,
- 'angle-down',
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$a,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('dropdown-item'),
- $elm$html$Html$Events$onClick(
- $author$project$TypeHolder$OpenDrawShape(
- A3($author$project$Util$ShapeManager$Circle, '', '', ''))),
- $elm$html$Html$Attributes$href('')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Kreis')
- ])),
- A2(
- $elm$html$Html$a,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('dropdown-item'),
- $elm$html$Html$Events$onClick(
- $author$project$TypeHolder$OpenDrawShape(
- A4($author$project$Util$ShapeManager$Rectangle, '', '', '', ''))),
- $elm$html$Html$Attributes$href('')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Rechteck')
- ])),
- A2(
- $elm$html$Html$a,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('dropdown-item'),
- $elm$html$Html$Events$onClick(
- $author$project$TypeHolder$OpenDrawShape(
- A4($author$project$Util$ShapeManager$Ellipse, '', '', '', ''))),
- $elm$html$Html$Attributes$href('')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Ellipse')
- ])),
- A2(
- $elm$html$Html$a,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('dropdown-item'),
- $elm$html$Html$Events$onClick(
- $author$project$TypeHolder$OpenDrawShape(
- $author$project$Util$ShapeManager$Polygon(_List_Nil))),
- $elm$html$Html$Attributes$href('')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Vieleck')
- ]))
- ]));
- }
- }()
- ]))
- ]));
-};
-var $author$project$TypeHolder$ImgLoaded = function (a) {
- return {$: 'ImgLoaded', a: a};
-};
-var $author$project$TypeHolder$InputDrawShape = {$: 'InputDrawShape'};
-var $author$project$TypeHolder$UpdateMousePos = function (a) {
- return {$: 'UpdateMousePos', a: a};
-};
-var $elm$core$Basics$pow = _Basics_pow;
-var $elm$core$Basics$round = _Basics_round;
-var $elm$core$Maybe$withDefault = F2(
- function (_default, maybe) {
- if (maybe.$ === 'Just') {
- var value = maybe.a;
- return value;
- } else {
- return _default;
- }
- });
-var $author$project$Util$Util$stringToInt = function (a) {
- return A2(
- $elm$core$Maybe$withDefault,
- 0,
- $elm$core$String$toInt(a));
-};
-var $author$project$Util$Util$abstand = F3(
- function (x, y, mPos) {
- return $elm$core$String$fromInt(
- $elm$core$Basics$round(
- A2(
- $elm$core$Basics$pow,
- A2(
- $elm$core$Basics$pow,
- $author$project$Util$Util$stringToInt(x) - mPos.x,
- 2) + A2(
- $elm$core$Basics$pow,
- $author$project$Util$Util$stringToInt(y) - mPos.y,
- 2),
- 0.5)));
- });
-var $author$project$Util$Util$abstand1D = F2(
- function (a, b) {
- return $elm$core$String$fromInt(a - b);
- });
-var $elm$svg$Svg$trustedNode = _VirtualDom_nodeNS('http://www.w3.org/2000/svg');
-var $elm$svg$Svg$circle = $elm$svg$Svg$trustedNode('circle');
-var $elm$svg$Svg$Attributes$cx = _VirtualDom_attribute('cx');
-var $elm$svg$Svg$Attributes$cy = _VirtualDom_attribute('cy');
-var $author$project$Util$Util$ImgDimensions = F2(
- function (width, height) {
- return {height: height, width: width};
- });
-var $elm$json$Json$Decode$int = _Json_decodeInt;
-var $author$project$Util$Util$decodeImgLoad = function (msg) {
- return A2(
- $elm$json$Json$Decode$map,
- msg,
- A2(
- $elm$json$Json$Decode$field,
- 'target',
- A3(
- $elm$json$Json$Decode$map2,
- $author$project$Util$Util$ImgDimensions,
- A2($elm$json$Json$Decode$field, 'width', $elm$json$Json$Decode$int),
- A2($elm$json$Json$Decode$field, 'height', $elm$json$Json$Decode$int))));
-};
-var $elm$svg$Svg$ellipse = $elm$svg$Svg$trustedNode('ellipse');
-var $elm$html$Html$figure = _VirtualDom_node('figure');
-var $elm$svg$Svg$Attributes$height = _VirtualDom_attribute('height');
-var $elm$svg$Svg$image = $elm$svg$Svg$trustedNode('image');
-var $elm$html$Html$img = _VirtualDom_node('img');
-var $elm$svg$Svg$line = $elm$svg$Svg$trustedNode('line');
-var $elm$core$Basics$negate = function (n) {
- return -n;
-};
-var $author$project$Util$Util$manageEllipseCoords = function (coords) {
- var ry = $author$project$Util$Util$stringToInt(coords.ry);
- var rx = $author$project$Util$Util$stringToInt(coords.rx);
- return (rx > 0) ? ((ry > 0) ? coords : _Utils_update(
- coords,
- {
- ry: $elm$core$String$fromInt(-ry)
- })) : ((ry > 0) ? _Utils_update(
- coords,
- {
- rx: $elm$core$String$fromInt(-rx)
- }) : _Utils_update(
- coords,
- {
- rx: $elm$core$String$fromInt(-rx),
- ry: $elm$core$String$fromInt(-ry)
- }));
-};
-var $author$project$Util$Util$manageRectCoords = function (coords) {
- var y = $author$project$Util$Util$stringToInt(coords.y);
- var x = $author$project$Util$Util$stringToInt(coords.x);
- var w = $author$project$Util$Util$stringToInt(coords.w);
- var h = $author$project$Util$Util$stringToInt(coords.h);
- return (w > 0) ? ((h > 0) ? coords : {
- h: $elm$core$String$fromInt(-h),
- w: $elm$core$String$fromInt(w),
- x: $elm$core$String$fromInt(x),
- y: $elm$core$String$fromInt(y + h)
- }) : ((h > 0) ? {
- h: $elm$core$String$fromInt(h),
- w: $elm$core$String$fromInt(-w),
- x: $elm$core$String$fromInt(x + w),
- y: $elm$core$String$fromInt(y)
- } : {
- h: $elm$core$String$fromInt(-h),
- w: $elm$core$String$fromInt(-w),
- x: $elm$core$String$fromInt(x + w),
- y: $elm$core$String$fromInt(y + h)
- });
-};
-var $elm$svg$Svg$Events$onClick = function (msg) {
- return A2(
- $elm$html$Html$Events$on,
- 'click',
- $elm$json$Json$Decode$succeed(msg));
-};
-var $author$project$Util$Util$MousePosition = F2(
- function (x, y) {
- return {x: x, y: y};
- });
-var $author$project$Util$Util$offsetMousePosition = A3(
- $elm$json$Json$Decode$map2,
- $author$project$Util$Util$MousePosition,
- A2($elm$json$Json$Decode$field, 'offsetX', $elm$json$Json$Decode$int),
- A2($elm$json$Json$Decode$field, 'offsetY', $elm$json$Json$Decode$int));
-var $elm$svg$Svg$Events$on = $elm$html$Html$Events$on;
-var $author$project$Util$Util$onMouseMove = function (mapMousePositionToMsg) {
- return A2(
- $elm$svg$Svg$Events$on,
- 'mousemove',
- A2($elm$json$Json$Decode$map, mapMousePositionToMsg, $author$project$Util$Util$offsetMousePosition));
-};
-var $elm$svg$Svg$Attributes$points = _VirtualDom_attribute('points');
-var $elm$svg$Svg$polygon = $elm$svg$Svg$trustedNode('polygon');
-var $elm$svg$Svg$Attributes$r = _VirtualDom_attribute('r');
-var $elm$svg$Svg$rect = $elm$svg$Svg$trustedNode('rect');
-var $elm$svg$Svg$Attributes$rx = _VirtualDom_attribute('rx');
-var $elm$svg$Svg$Attributes$ry = _VirtualDom_attribute('ry');
-var $author$project$Util$ShapeManager$shapeCoordsToString = function (shape) {
- switch (shape.$) {
- case 'Empty':
- return '';
- case 'Circle':
- var x_center = shape.a;
- var y_center = shape.b;
- var radius = shape.c;
- return x_center + (',' + (y_center + (',' + radius)));
- case 'Rectangle':
- var x_left = shape.a;
- var y_upper = shape.b;
- var x_right = shape.c;
- var y_lower = shape.d;
- return x_left + (',' + (y_upper + (',' + (x_right + (',' + y_lower)))));
- case 'Ellipse':
- var x_left = shape.a;
- var y_upper = shape.b;
- var x_right = shape.c;
- var y_lower = shape.d;
- return x_left + (',' + (y_upper + (',' + (x_right + (',' + y_lower)))));
- default:
- var pointList = shape.a;
- if (!pointList.b) {
- return '';
- } else {
- var _v2 = pointList.a;
- var x = _v2.a;
- var y = _v2.b;
- var xs = pointList.b;
- return '(' + (x + (',' + (y + (') ' + $author$project$Util$ShapeManager$shapeCoordsToString(
- $author$project$Util$ShapeManager$Polygon(xs))))));
- }
- }
-};
-var $author$project$Util$ShapeManager$shapeCoordsToHtmlCoordsHelper = function (shape) {
- switch (shape.$) {
- case 'Empty':
- return '';
- case 'Circle':
- return $author$project$Util$ShapeManager$shapeCoordsToString(shape);
- case 'Rectangle':
- return $author$project$Util$ShapeManager$shapeCoordsToString(shape);
- case 'Ellipse':
- return $author$project$Util$ShapeManager$shapeCoordsToString(shape);
- default:
- var pointList = shape.a;
- if (!pointList.b) {
- return '';
- } else {
- var _v2 = pointList.a;
- var x = _v2.a;
- var y = _v2.b;
- var xs = pointList.b;
- return x + (',' + (y + (',' + $author$project$Util$ShapeManager$shapeCoordsToHtmlCoordsHelper(
- $author$project$Util$ShapeManager$Polygon(xs)))));
- }
- }
-};
-var $author$project$Util$ShapeManager$shapeCoordsToHtmlCoords = function (shape) {
- switch (shape.$) {
- case 'Empty':
- return '';
- case 'Circle':
- return $author$project$Util$ShapeManager$shapeCoordsToString(shape);
- case 'Rectangle':
- return $author$project$Util$ShapeManager$shapeCoordsToString(shape);
- case 'Ellipse':
- return $author$project$Util$ShapeManager$shapeCoordsToString(shape);
- default:
- return A2(
- $elm$core$String$left,
- $elm$core$String$length(
- $author$project$Util$ShapeManager$shapeCoordsToHtmlCoordsHelper(shape)) - 1,
- $author$project$Util$ShapeManager$shapeCoordsToHtmlCoordsHelper(shape));
- }
-};
-var $elm$html$Html$Attributes$src = function (url) {
- return A2(
- $elm$html$Html$Attributes$stringProperty,
- 'src',
- _VirtualDom_noJavaScriptOrHtmlUri(url));
-};
-var $elm$svg$Svg$Attributes$style = _VirtualDom_attribute('style');
-var $elm$svg$Svg$svg = $elm$svg$Svg$trustedNode('svg');
-var $elm$url$Url$addPort = F2(
- function (maybePort, starter) {
- if (maybePort.$ === 'Nothing') {
- return starter;
- } else {
- var port_ = maybePort.a;
- return starter + (':' + $elm$core$String$fromInt(port_));
- }
- });
-var $elm$url$Url$addPrefixed = F3(
- function (prefix, maybeSegment, starter) {
- if (maybeSegment.$ === 'Nothing') {
- return starter;
- } else {
- var segment = maybeSegment.a;
- return _Utils_ap(
- starter,
- _Utils_ap(prefix, segment));
- }
- });
-var $elm$url$Url$toString = function (url) {
- var http = function () {
- var _v0 = url.protocol;
- if (_v0.$ === 'Http') {
- return 'http://';
- } else {
- return 'https://';
- }
- }();
- return A3(
- $elm$url$Url$addPrefixed,
- '#',
- url.fragment,
- A3(
- $elm$url$Url$addPrefixed,
- '?',
- url.query,
- _Utils_ap(
- A2(
- $elm$url$Url$addPort,
- url.port_,
- _Utils_ap(http, url.host)),
- url.path)));
-};
-var $elm$svg$Svg$Attributes$version = _VirtualDom_attribute('version');
-var $elm$svg$Svg$Attributes$viewBox = _VirtualDom_attribute('viewBox');
-var $author$project$Manager$ModalManager$OpenShowShape = F2(
- function (a, b) {
- return {$: 'OpenShowShape', a: a, b: b};
- });
-var $author$project$TypeHolder$SvgShapeHover = function (a) {
- return {$: 'SvgShapeHover', a: a};
-};
-var $elm$svg$Svg$Attributes$fill = _VirtualDom_attribute('fill');
-var $elm$svg$Svg$Attributes$fillOpacity = _VirtualDom_attribute('fill-opacity');
-var $elm$svg$Svg$Events$onMouseOut = function (msg) {
- return A2(
- $elm$html$Html$Events$on,
- 'mouseout',
- $elm$json$Json$Decode$succeed(msg));
-};
-var $elm$svg$Svg$Events$onMouseOver = function (msg) {
- return A2(
- $elm$html$Html$Events$on,
- 'mouseover',
- $elm$json$Json$Decode$succeed(msg));
-};
-var $elm$svg$Svg$Attributes$stroke = _VirtualDom_attribute('stroke');
-var $elm$svg$Svg$Attributes$strokeOpacity = _VirtualDom_attribute('stroke-opacity');
-var $elm$svg$Svg$Attributes$strokeWidth = _VirtualDom_attribute('stroke-width');
-var $author$project$Util$ViewParts$svgShapeStyle = F3(
- function (shapeStyle, activeShape, id) {
- return $elm$core$List$concat(
- _List_fromArray(
- [
- _Utils_eq(activeShape, id) ? _List_fromArray(
- [
- $elm$svg$Svg$Attributes$fill(shapeStyle.hoveredFillColor),
- $elm$svg$Svg$Attributes$fillOpacity(shapeStyle.hoveredFillOpacity),
- $elm$svg$Svg$Attributes$stroke(shapeStyle.hoveredStrokeColor),
- $elm$svg$Svg$Attributes$strokeWidth(shapeStyle.hoveredStrokeWidth),
- $elm$svg$Svg$Attributes$strokeOpacity(shapeStyle.hoveredStrokeOpacity)
- ]) : _List_fromArray(
- [
- $elm$svg$Svg$Attributes$fill(shapeStyle.unHoveredFillColor),
- $elm$svg$Svg$Attributes$fillOpacity(shapeStyle.unHoveredFillOpacity),
- $elm$svg$Svg$Attributes$stroke(shapeStyle.unHoveredStrokeColor),
- $elm$svg$Svg$Attributes$strokeWidth(shapeStyle.unHoveredStrokeWidth),
- $elm$svg$Svg$Attributes$strokeOpacity(shapeStyle.unHoveredStrokeOpacity)
- ]),
- _List_fromArray(
- [
- $elm$svg$Svg$Events$onMouseOver(
- $author$project$TypeHolder$SvgShapeHover(id)),
- $elm$svg$Svg$Events$onMouseOut(
- $author$project$TypeHolder$SvgShapeHover(0)),
- $elm$svg$Svg$Events$onClick(
- A2(
- $author$project$TypeHolder$ManageModal,
- A2($author$project$Manager$ModalManager$OpenShowShape, id, 0),
- ''))
- ])
- ]));
- });
-var $elm$svg$Svg$Attributes$width = _VirtualDom_attribute('width');
-var $elm$svg$Svg$Attributes$x = _VirtualDom_attribute('x');
-var $elm$svg$Svg$Attributes$y = _VirtualDom_attribute('y');
-var $author$project$Util$ViewParts$viewSvgShapes = F3(
- function (shapes, activeShape, id) {
- if (!shapes.b) {
- return _List_Nil;
- } else {
- var x = shapes.a;
- var xs = shapes.b;
- return A2(
- $elm$core$List$cons,
- function () {
- var s = x.b;
- var f = x.a;
- switch (f.$) {
- case 'Empty':
- return A2($elm$svg$Svg$rect, _List_Nil, _List_Nil);
- case 'Circle':
- var a = f.a;
- var b = f.b;
- var c = f.c;
- return A2(
- $elm$svg$Svg$circle,
- _Utils_ap(
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$cx(a),
- $elm$svg$Svg$Attributes$cy(b),
- $elm$svg$Svg$Attributes$r(c)
- ]),
- A3($author$project$Util$ViewParts$svgShapeStyle, s, activeShape, id)),
- _List_Nil);
- case 'Rectangle':
- var a = f.a;
- var b = f.b;
- var c = f.c;
- var d = f.d;
- return A2(
- $elm$svg$Svg$rect,
- _Utils_ap(
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$x(a),
- $elm$svg$Svg$Attributes$y(b),
- $elm$svg$Svg$Attributes$width(c),
- $elm$svg$Svg$Attributes$height(d)
- ]),
- A3($author$project$Util$ViewParts$svgShapeStyle, s, activeShape, id)),
- _List_Nil);
- case 'Ellipse':
- var a = f.a;
- var b = f.b;
- var c = f.c;
- var d = f.d;
- return A2(
- $elm$svg$Svg$ellipse,
- _Utils_ap(
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$cx(a),
- $elm$svg$Svg$Attributes$cy(b),
- $elm$svg$Svg$Attributes$rx(c),
- $elm$svg$Svg$Attributes$ry(d)
- ]),
- A3($author$project$Util$ViewParts$svgShapeStyle, s, activeShape, id)),
- _List_Nil);
- default:
- var pointList = f.a;
- return A2(
- $elm$svg$Svg$polygon,
- _Utils_ap(
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$points(
- $author$project$Util$ShapeManager$shapeCoordsToHtmlCoords(f))
- ]),
- A3($author$project$Util$ViewParts$svgShapeStyle, s, activeShape, id)),
- _List_Nil);
- }
- }(),
- A3($author$project$Util$ViewParts$viewSvgShapes, xs, activeShape, id + 1));
- }
- });
-var $elm$svg$Svg$Attributes$x1 = _VirtualDom_attribute('x1');
-var $elm$svg$Svg$Attributes$x2 = _VirtualDom_attribute('x2');
-var $elm$svg$Svg$Attributes$xlinkHref = function (value) {
- return A3(
- _VirtualDom_attributeNS,
- 'http://www.w3.org/1999/xlink',
- 'xlink:href',
- _VirtualDom_noJavaScriptUri(value));
-};
-var $elm$svg$Svg$Attributes$y1 = _VirtualDom_attribute('y1');
-var $elm$svg$Svg$Attributes$y2 = _VirtualDom_attribute('y2');
-var $author$project$Util$ViewParts$viewImage = function (model) {
- var picW = $elm$core$String$fromInt(model.picture.w);
- var picH = $elm$core$String$fromInt(model.picture.h);
- var loading = A2(
- $elm$html$Html$img,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$Events$on,
- 'load',
- $author$project$Util$Util$decodeImgLoad($author$project$TypeHolder$ImgLoaded)),
- $elm$html$Html$Attributes$src(
- $elm$url$Url$toString(model.picture.url))
- ]),
- _List_Nil);
- return A2(
- $elm$html$Html$div,
- _List_fromArray(
- [
- A2($elm$html$Html$Attributes$style, 'margin-left', '25px'),
- A2($elm$html$Html$Attributes$style, 'margin-top', '15px'),
- $elm$html$Html$Attributes$class('container')
- ]),
- _List_fromArray(
- [
- (picW === '0') ? loading : $elm$html$Html$text(''),
- A2(
- $elm$html$Html$figure,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('image')
- ]),
- _List_fromArray(
- [
- A2(
- $elm$svg$Svg$svg,
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$width('100%'),
- $elm$svg$Svg$Attributes$viewBox('0 0 ' + (picW + (' ' + picH))),
- $elm$svg$Svg$Attributes$version('1.1')
- ]),
- $elm$core$List$concat(
- _List_fromArray(
- [
- _List_fromArray(
- [
- A2(
- $elm$svg$Svg$image,
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$width(picW),
- $elm$svg$Svg$Attributes$height(picH),
- $elm$svg$Svg$Attributes$xlinkHref(
- $elm$url$Url$toString(model.picture.url))
- ]),
- _List_Nil)
- ]),
- A3($author$project$Util$ViewParts$viewSvgShapes, model.saved, model.svgShapeHover, 1),
- function () {
- var _v0 = model.state;
- switch (_v0.$) {
- case 'Standby':
- return _List_Nil;
- case 'ActiveModal':
- return _List_Nil;
- default:
- var iShape = _v0.a;
- var mPos = _v0.b;
- return _List_fromArray(
- [
- function () {
- switch (iShape.$) {
- case 'Empty':
- return A2($elm$svg$Svg$rect, _List_Nil, _List_Nil);
- case 'Circle':
- var x = iShape.a;
- var y = iShape.b;
- var rad = iShape.c;
- return (x === '') ? A2(
- $elm$svg$Svg$circle,
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$cx(
- $elm$core$String$fromInt(mPos.x)),
- $elm$svg$Svg$Attributes$cy(
- $elm$core$String$fromInt(mPos.y)),
- $elm$svg$Svg$Attributes$r('5')
- ]),
- _List_Nil) : A2(
- $elm$svg$Svg$circle,
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$cx(x),
- $elm$svg$Svg$Attributes$cy(y),
- $elm$svg$Svg$Attributes$r(
- A3($author$project$Util$Util$abstand, x, y, mPos))
- ]),
- _List_Nil);
- case 'Ellipse':
- var a = iShape.a;
- var b = iShape.b;
- var w = iShape.c;
- var h = iShape.d;
- if (a === '') {
- return A2(
- $elm$svg$Svg$ellipse,
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$cx(
- $elm$core$String$fromInt(mPos.x)),
- $elm$svg$Svg$Attributes$cy(
- $elm$core$String$fromInt(mPos.y)),
- $elm$svg$Svg$Attributes$rx('10'),
- $elm$svg$Svg$Attributes$ry('10')
- ]),
- _List_Nil);
- } else {
- var coords = $author$project$Util$Util$manageEllipseCoords(
- {
- cx: a,
- cy: b,
- rx: A2(
- $author$project$Util$Util$abstand1D,
- mPos.x,
- $author$project$Util$Util$stringToInt(a)),
- ry: A2(
- $author$project$Util$Util$abstand1D,
- mPos.y,
- $author$project$Util$Util$stringToInt(b))
- });
- return A2(
- $elm$svg$Svg$ellipse,
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$cx(coords.cx),
- $elm$svg$Svg$Attributes$cy(coords.cy),
- $elm$svg$Svg$Attributes$rx(coords.rx),
- $elm$svg$Svg$Attributes$ry(coords.ry)
- ]),
- _List_Nil);
- }
- case 'Rectangle':
- var a = iShape.a;
- var b = iShape.b;
- var w = iShape.c;
- var h = iShape.d;
- if (a === '') {
- return A2(
- $elm$svg$Svg$rect,
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$x(
- $elm$core$String$fromInt(mPos.x)),
- $elm$svg$Svg$Attributes$y(
- $elm$core$String$fromInt(mPos.y)),
- $elm$svg$Svg$Attributes$width('10'),
- $elm$svg$Svg$Attributes$height('10')
- ]),
- _List_Nil);
- } else {
- var coords = $author$project$Util$Util$manageRectCoords(
- {
- h: A2(
- $author$project$Util$Util$abstand1D,
- mPos.y,
- $author$project$Util$Util$stringToInt(b)),
- w: A2(
- $author$project$Util$Util$abstand1D,
- mPos.x,
- $author$project$Util$Util$stringToInt(a)),
- x: a,
- y: b
- });
- return A2(
- $elm$svg$Svg$rect,
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$x(coords.x),
- $elm$svg$Svg$Attributes$y(coords.y),
- $elm$svg$Svg$Attributes$width(coords.w),
- $elm$svg$Svg$Attributes$height(coords.h)
- ]),
- _List_Nil);
- }
- default:
- var pList = iShape.a;
- if (!pList.b) {
- return A2(
- $elm$svg$Svg$circle,
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$cx(
- $elm$core$String$fromInt(mPos.x)),
- $elm$svg$Svg$Attributes$cy(
- $elm$core$String$fromInt(mPos.y)),
- $elm$svg$Svg$Attributes$r('5')
- ]),
- _List_Nil);
- } else {
- if (!pList.b.b) {
- var p = pList.a;
- return A2(
- $elm$svg$Svg$line,
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$x1(p.a),
- $elm$svg$Svg$Attributes$y1(p.b),
- $elm$svg$Svg$Attributes$x2(
- $elm$core$String$fromInt(mPos.x)),
- $elm$svg$Svg$Attributes$y2(
- $elm$core$String$fromInt(mPos.y)),
- $elm$svg$Svg$Attributes$style('stroke:#000;stroke-width:2')
- ]),
- _List_Nil);
- } else {
- var p = pList.a;
- var ps = pList.b;
- return A2(
- $elm$svg$Svg$polygon,
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$points(
- $author$project$Util$ShapeManager$shapeCoordsToHtmlCoords(
- $author$project$Util$ShapeManager$Polygon(
- A2(
- $elm$core$List$cons,
- _Utils_Tuple2(
- $elm$core$String$fromInt(mPos.x),
- $elm$core$String$fromInt(mPos.y)),
- pList))))
- ]),
- _List_Nil);
- }
- }
- }
- }(),
- A2(
- $elm$svg$Svg$rect,
- _List_fromArray(
- [
- $elm$svg$Svg$Attributes$x('0'),
- $elm$svg$Svg$Attributes$y('0'),
- $elm$svg$Svg$Attributes$width(picW),
- $elm$svg$Svg$Attributes$height(picH),
- $elm$svg$Svg$Attributes$style('fill:blue;stroke:pink;stroke-width:5;fill-opacity:0.1;stroke-opacity:0.9'),
- $author$project$Util$Util$onMouseMove($author$project$TypeHolder$UpdateMousePos),
- $elm$svg$Svg$Events$onClick($author$project$TypeHolder$InputDrawShape)
- ]),
- _List_Nil)
- ]);
- }
- }()
- ])))
- ]))
- ]));
-};
-var $author$project$TypeHolder$GotJson = function (a) {
- return {$: 'GotJson', a: a};
-};
-var $elm$html$Html$pre = _VirtualDom_node('pre');
-var $elm$json$Json$Encode$object = function (pairs) {
- return _Json_wrap(
- A3(
- $elm$core$List$foldl,
- F2(
- function (_v0, obj) {
- var k = _v0.a;
- var v = _v0.b;
- return A3(_Json_addField, k, v, obj);
- }),
- _Json_emptyObject(_Utils_Tuple0),
- pairs));
-};
-var $elm$json$Json$Encode$list = F2(
- function (func, entries) {
- return _Json_wrap(
- A3(
- $elm$core$List$foldl,
- _Json_addEntry(func),
- _Json_emptyArray(_Utils_Tuple0),
- entries));
- });
-var $author$project$Util$ShapeManager$circToJson = F3(
- function (a, b, c) {
- var jsonObj = $elm$json$Json$Encode$object(
- _List_fromArray(
- [
- _Utils_Tuple2(
- 'circle',
- $elm$json$Json$Encode$object(
- _List_fromArray(
- [
- _Utils_Tuple2(
- 'cx',
- $elm$json$Json$Encode$string(a)),
- _Utils_Tuple2(
- 'cy',
- $elm$json$Json$Encode$string(b)),
- _Utils_Tuple2(
- 'r',
- $elm$json$Json$Encode$string(c))
- ])))
- ]));
- return jsonObj;
- });
-var $author$project$Util$ShapeManager$ellipseToJson = F4(
- function (a, b, c, d) {
- var jsonObj = $elm$json$Json$Encode$object(
- _List_fromArray(
- [
- _Utils_Tuple2(
- 'ellipse',
- $elm$json$Json$Encode$object(
- _List_fromArray(
- [
- _Utils_Tuple2(
- 'cx',
- $elm$json$Json$Encode$string(a)),
- _Utils_Tuple2(
- 'cy',
- $elm$json$Json$Encode$string(b)),
- _Utils_Tuple2(
- 'rx',
- $elm$json$Json$Encode$string(c)),
- _Utils_Tuple2(
- 'ry',
- $elm$json$Json$Encode$string(d))
- ])))
- ]));
- return jsonObj;
- });
-var $author$project$Util$ShapeManager$polyToJson = function (data) {
- var jsonObj = $elm$json$Json$Encode$object(
- _List_fromArray(
- [
- _Utils_Tuple2(
- 'polygon',
- A2(
- $elm$json$Json$Encode$list,
- function (_v0) {
- var i = _v0.a;
- var j = _v0.b;
- return $elm$json$Json$Encode$object(
- _List_fromArray(
- [
- _Utils_Tuple2(
- 'x',
- $elm$json$Json$Encode$string(i)),
- _Utils_Tuple2(
- 'y',
- $elm$json$Json$Encode$string(j))
- ]));
- },
- data))
- ]));
- return jsonObj;
-};
-var $author$project$Util$ShapeManager$rectToJson = F4(
- function (a, b, c, d) {
- var jsonObj = $elm$json$Json$Encode$object(
- _List_fromArray(
- [
- _Utils_Tuple2(
- 'rect',
- $elm$json$Json$Encode$object(
- _List_fromArray(
- [
- _Utils_Tuple2(
- 'x',
- $elm$json$Json$Encode$string(a)),
- _Utils_Tuple2(
- 'y',
- $elm$json$Json$Encode$string(b)),
- _Utils_Tuple2(
- 'width',
- $elm$json$Json$Encode$string(c)),
- _Utils_Tuple2(
- 'height',
- $elm$json$Json$Encode$string(d))
- ])))
- ]));
- return jsonObj;
- });
-var $author$project$Util$ShapeManager$shapePropertiestoJson = function (shapestyle) {
- var jsonObj = $elm$json$Json$Encode$object(
- _List_fromArray(
- [
- _Utils_Tuple2(
- 'hFC',
- $elm$json$Json$Encode$string(shapestyle.hoveredFillColor)),
- _Utils_Tuple2(
- 'hFO',
- $elm$json$Json$Encode$string(shapestyle.hoveredFillOpacity)),
- _Utils_Tuple2(
- 'hSC',
- $elm$json$Json$Encode$string(shapestyle.hoveredStrokeColor)),
- _Utils_Tuple2(
- 'hSW',
- $elm$json$Json$Encode$string(shapestyle.hoveredStrokeWidth)),
- _Utils_Tuple2(
- 'hSO',
- $elm$json$Json$Encode$string(shapestyle.hoveredStrokeOpacity)),
- _Utils_Tuple2(
- 'uFC',
- $elm$json$Json$Encode$string(shapestyle.unHoveredFillColor)),
- _Utils_Tuple2(
- 'uFO',
- $elm$json$Json$Encode$string(shapestyle.unHoveredFillOpacity)),
- _Utils_Tuple2(
- 'uSC',
- $elm$json$Json$Encode$string(shapestyle.unHoveredStrokeColor)),
- _Utils_Tuple2(
- 'uSW',
- $elm$json$Json$Encode$string(shapestyle.unHoveredStrokeWidth)),
- _Utils_Tuple2(
- 'uSO',
- $elm$json$Json$Encode$string(shapestyle.unHoveredStrokeOpacity)),
- _Utils_Tuple2(
- 'title',
- $elm$json$Json$Encode$string(shapestyle.title)),
- _Utils_Tuple2(
- 'body',
- $elm$json$Json$Encode$string(shapestyle.body))
- ]));
- return jsonObj;
-};
-var $author$project$Util$ShapeManager$shapeCoordsToJson = function (shapeWithProperties) {
- var _v0 = shapeWithProperties.a;
- switch (_v0.$) {
- case 'Empty':
- return $elm$json$Json$Encode$string('');
- case 'Circle':
- var x_center = _v0.a;
- var y_center = _v0.b;
- var radius = _v0.c;
- return $elm$json$Json$Encode$object(
- _List_fromArray(
- [
- _Utils_Tuple2(
- 'shape',
- A3($author$project$Util$ShapeManager$circToJson, x_center, y_center, radius)),
- _Utils_Tuple2(
- 'shapeprop',
- $author$project$Util$ShapeManager$shapePropertiestoJson(shapeWithProperties.b))
- ]));
- case 'Rectangle':
- var x_left = _v0.a;
- var y_upper = _v0.b;
- var x_right = _v0.c;
- var y_lower = _v0.d;
- return $elm$json$Json$Encode$object(
- _List_fromArray(
- [
- _Utils_Tuple2(
- 'shape',
- A4($author$project$Util$ShapeManager$rectToJson, x_left, y_upper, x_right, y_lower)),
- _Utils_Tuple2(
- 'shapeprop',
- $author$project$Util$ShapeManager$shapePropertiestoJson(shapeWithProperties.b))
- ]));
- case 'Ellipse':
- var x_left = _v0.a;
- var y_upper = _v0.b;
- var x_right = _v0.c;
- var y_lower = _v0.d;
- return $elm$json$Json$Encode$object(
- _List_fromArray(
- [
- _Utils_Tuple2(
- 'shape',
- A4($author$project$Util$ShapeManager$ellipseToJson, x_left, y_upper, x_right, y_lower)),
- _Utils_Tuple2(
- 'shapeprop',
- $author$project$Util$ShapeManager$shapePropertiestoJson(shapeWithProperties.b))
- ]));
- default:
- var pointList = _v0.a;
- return $elm$json$Json$Encode$object(
- _List_fromArray(
- [
- _Utils_Tuple2(
- 'shape',
- $author$project$Util$ShapeManager$polyToJson(pointList)),
- _Utils_Tuple2(
- 'shapeprop',
- $author$project$Util$ShapeManager$shapePropertiestoJson(shapeWithProperties.b))
- ]));
- }
-};
-var $author$project$Util$ShapeManager$writeShapeToJson = function (data) {
- return A2($elm$json$Json$Encode$list, $author$project$Util$ShapeManager$shapeCoordsToJson, data);
-};
-var $author$project$Util$ShapeManager$writeAlltoJson = F2(
- function (shapeWithProperties, picUrl) {
- var jsonObj = $elm$json$Json$Encode$object(
- _List_fromArray(
- [
- _Utils_Tuple2(
- 'pictureUrl',
- $elm$json$Json$Encode$string(picUrl)),
- _Utils_Tuple2(
- 'shapes',
- $author$project$Util$ShapeManager$writeShapeToJson(shapeWithProperties))
- ]));
- return jsonObj;
- });
-var $author$project$Util$ViewParts$viewJsonModal = function (model) {
- return $author$project$Util$ViewParts$modalCard(
- _List_fromArray(
- [
- $author$project$Util$ViewParts$modalHeader('Json Datei'),
- $author$project$Util$ViewParts$modalCardBody(
- _List_fromArray(
- [
- A2(
- $elm$html$Html$button,
- _List_fromArray(
- [
- $elm$html$Html$Events$onClick(
- $author$project$TypeHolder$GotJson(model.stringToShapes)),
- $elm$html$Html$Attributes$class('button is-success is-pulled-left is-size-6'),
- A2($elm$html$Html$Attributes$style, 'margin-right', '15px'),
- A2($elm$html$Html$Attributes$style, 'margin-bottom', '15px')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('string to shapes')
- ])),
- A2(
- $elm$html$Html$div,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$pre,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text(
- A2(
- $elm$json$Json$Encode$encode,
- 3,
- A2(
- $author$project$Util$ShapeManager$writeAlltoJson,
- model.saved,
- $elm$url$Url$toString(model.picture.url))))
- ]))
- ])),
- A2(
- $elm$html$Html$p,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text(model.errorString)
- ]))
- ])),
- A2($author$project$Util$ViewParts$modalFooter, _List_Nil, 0.0)
- ]));
-};
-var $author$project$Util$Util$Picture = F3(
- function (url, w, h) {
- return {h: h, url: url, w: w};
- });
-var $author$project$TypeHolder$SavePicture = function (a) {
- return {$: 'SavePicture', a: a};
-};
-var $elm$html$Html$Attributes$disabled = $elm$html$Html$Attributes$boolProperty('disabled');
-var $elm$html$Html$input = _VirtualDom_node('input');
-var $elm$html$Html$label = _VirtualDom_node('label');
-var $elm$html$Html$Attributes$placeholder = $elm$html$Html$Attributes$stringProperty('placeholder');
-var $elm$html$Html$Attributes$value = $elm$html$Html$Attributes$stringProperty('value');
-var $author$project$Util$ViewParts$viewManagePictureModal = F5(
- function (s, mayUrl, currentUrl, w, h) {
- var w1 = $elm$core$String$fromInt(w);
- var picUrlState = function () {
- if (mayUrl.$ === 'Just') {
- var url = mayUrl.a;
- return 'Url ist gültig.';
- } else {
- return 'Ungültige Url.';
- }
- }();
- var h1 = $elm$core$String$fromInt(h);
- return $author$project$Util$ViewParts$modalCard(
- _List_fromArray(
- [
- $author$project$Util$ViewParts$modalHeader('Bild auswählen'),
- $author$project$Util$ViewParts$modalCardBody(
- _List_fromArray(
- [
- $elm$html$Html$text(
- 'Aktuelles Bild: ' + $elm$url$Url$toString(currentUrl)),
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Url zum Bild')
- ])),
- A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$placeholder('Url zum Bild'),
- $elm$html$Html$Attributes$value(s),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A2($author$project$Manager$ModalManager$OpenManagePicture, 'i1', '')))
- ]),
- _List_Nil)
- ])),
- $elm$html$Html$text('Status: ' + picUrlState)
- ])),
- A2(
- $author$project$Util$ViewParts$modalFooter,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$button,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('button is-success'),
- function () {
- if (mayUrl.$ === 'Just') {
- var url = mayUrl.a;
- return $elm$html$Html$Events$onClick(
- $author$project$TypeHolder$SavePicture(
- A3($author$project$Util$Util$Picture, url, 0, 0)));
- } else {
- return $elm$html$Html$Attributes$disabled(true);
- }
- }()
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Ãœbernehmen')
- ]))
- ]),
- 22.0)
- ]));
- });
-var $author$project$Manager$ModalManager$Check = function (a) {
- return {$: 'Check', a: a};
-};
-var $author$project$Manager$ModalManager$Input = F2(
- function (a, b) {
- return {$: 'Input', a: a, b: b};
- });
-var $author$project$Manager$ModalManager$InputPoint = {$: 'InputPoint'};
-var $elm$core$Basics$ge = _Utils_ge;
-var $author$project$Util$Util$exists = function (value) {
- if (value.$ === 'Just') {
- var v = value.a;
- return true;
- } else {
- return false;
- }
-};
-var $elm$core$String$toFloat = _String_toFloat;
-var $author$project$Util$Util$isNumeric = function (s) {
- return $author$project$Util$Util$exists(
- $elm$core$String$toFloat(s)) || $author$project$Util$Util$exists(
- $elm$core$String$toInt(s));
-};
-var $author$project$Util$ShapeManager$isCorrectFilled = function (shape) {
- switch (shape.$) {
- case 'Empty':
- return false;
- case 'Circle':
- var x = shape.a;
- var y = shape.b;
- var r = shape.c;
- return $author$project$Util$Util$isNumeric(x) && ($author$project$Util$Util$isNumeric(y) && $author$project$Util$Util$isNumeric(r));
- case 'Rectangle':
- var a = shape.a;
- var b = shape.b;
- var c = shape.c;
- var d = shape.d;
- return $author$project$Util$Util$isNumeric(a) && ($author$project$Util$Util$isNumeric(b) && ($author$project$Util$Util$isNumeric(c) && $author$project$Util$Util$isNumeric(d)));
- case 'Ellipse':
- var a = shape.a;
- var b = shape.b;
- var c = shape.c;
- var d = shape.d;
- return $author$project$Util$Util$isNumeric(a) && ($author$project$Util$Util$isNumeric(b) && ($author$project$Util$Util$isNumeric(c) && $author$project$Util$Util$isNumeric(d)));
- default:
- var pList = shape.a;
- return $elm$core$List$length(pList) >= 3;
- }
-};
-var $author$project$Util$ViewParts$viewNewShapeInputModal = F3(
- function (iShape, ix, iy) {
- return $author$project$Util$ViewParts$modalCard(
- _List_fromArray(
- [
- $author$project$Util$ViewParts$modalHeader('Neue Form hinzufügen'),
- $author$project$Util$ViewParts$modalCardBody(
- A2(
- $elm$core$List$append,
- _List_fromArray(
- [
- A5(
- $author$project$Util$ViewParts$viewDropDownMenue,
- ($author$project$Util$ShapeManager$shapeNameToString(iShape) === '') ? 'Form auswählen' : $author$project$Util$ShapeManager$shapeNameStringToGerman(
- $author$project$Util$ShapeManager$shapeNameToString(iShape)),
- false,
- 'angle-down',
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$a,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('dropdown-item'),
- $elm$html$Html$Events$onClick(
- A2(
- $author$project$TypeHolder$ManageModal,
- $author$project$Manager$ModalManager$Check('Circle'),
- '')),
- $elm$html$Html$Attributes$href('')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Kreis')
- ])),
- A2(
- $elm$html$Html$a,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('dropdown-item'),
- $elm$html$Html$Events$onClick(
- A2(
- $author$project$TypeHolder$ManageModal,
- $author$project$Manager$ModalManager$Check('Rectangle'),
- '')),
- $elm$html$Html$Attributes$href('')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Rechteck')
- ])),
- A2(
- $elm$html$Html$a,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('dropdown-item'),
- $elm$html$Html$Events$onClick(
- A2(
- $author$project$TypeHolder$ManageModal,
- $author$project$Manager$ModalManager$Check('Ellipse'),
- '')),
- $elm$html$Html$Attributes$href('')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Ellipse')
- ])),
- A2(
- $elm$html$Html$a,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('dropdown-item'),
- $elm$html$Html$Events$onClick(
- A2(
- $author$project$TypeHolder$ManageModal,
- $author$project$Manager$ModalManager$Check('Polygon'),
- '')),
- $elm$html$Html$Attributes$href('')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Vieleck')
- ]))
- ])),
- ($author$project$Util$ShapeManager$shapeNameToString(iShape) === '') ? A2(
- $elm$html$Html$div,
- _List_fromArray(
- [
- A2($elm$html$Html$Attributes$style, 'margin-top', '120px')
- ]),
- _List_Nil) : A2($elm$html$Html$div, _List_Nil, _List_Nil)
- ]),
- function () {
- switch (iShape.$) {
- case 'Empty':
- return _List_Nil;
- case 'Circle':
- var a = iShape.a;
- var b = iShape.b;
- var c = iShape.c;
- return _List_fromArray(
- [
- A2(
- $elm$html$Html$div,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Mittelpunkt-X-Position')
- ])),
- A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$placeholder('Mittelpunkt-X-Position'),
- $elm$html$Html$Attributes$value(a),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A2(
- $author$project$Manager$ModalManager$Input,
- _Utils_chr('1'),
- '')))
- ]),
- _List_Nil)
- ])),
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Mittelpunkt-Y-Position')
- ])),
- A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$placeholder('Mittelpunkt-Y-Position'),
- $elm$html$Html$Attributes$value(b),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A2(
- $author$project$Manager$ModalManager$Input,
- _Utils_chr('2'),
- '')))
- ]),
- _List_Nil)
- ])),
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Radius')
- ])),
- A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$placeholder('Radius'),
- $elm$html$Html$Attributes$value(c),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A2(
- $author$project$Manager$ModalManager$Input,
- _Utils_chr('3'),
- '')))
- ]),
- _List_Nil)
- ]))
- ]))
- ]);
- case 'Rectangle':
- var a = iShape.a;
- var b = iShape.b;
- var c = iShape.c;
- var d = iShape.d;
- return _List_fromArray(
- [
- A2(
- $elm$html$Html$div,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('X-Position')
- ])),
- A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$placeholder('X-Position'),
- $elm$html$Html$Attributes$value(a),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A2(
- $author$project$Manager$ModalManager$Input,
- _Utils_chr('1'),
- '')))
- ]),
- _List_Nil)
- ])),
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Y-Position')
- ])),
- A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$placeholder('Y-Position'),
- $elm$html$Html$Attributes$value(b),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A2(
- $author$project$Manager$ModalManager$Input,
- _Utils_chr('2'),
- '')))
- ]),
- _List_Nil)
- ])),
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Breite')
- ])),
- A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$placeholder('Breite'),
- $elm$html$Html$Attributes$value(c),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A2(
- $author$project$Manager$ModalManager$Input,
- _Utils_chr('3'),
- '')))
- ]),
- _List_Nil)
- ])),
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Höhe')
- ])),
- A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$placeholder('Höhe'),
- $elm$html$Html$Attributes$value(d),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A2(
- $author$project$Manager$ModalManager$Input,
- _Utils_chr('4'),
- '')))
- ]),
- _List_Nil)
- ]))
- ]))
- ]);
- case 'Ellipse':
- var a = iShape.a;
- var b = iShape.b;
- var c = iShape.c;
- var d = iShape.d;
- return _List_fromArray(
- [
- A2(
- $elm$html$Html$div,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Mittelpunkt-X-Position')
- ])),
- A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$placeholder('Mittelpunkt-X-Position'),
- $elm$html$Html$Attributes$value(a),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A2(
- $author$project$Manager$ModalManager$Input,
- _Utils_chr('1'),
- '')))
- ]),
- _List_Nil)
- ])),
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Mittelpunkt-Y-Position')
- ])),
- A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$placeholder('Mittelpunkt-Y-Position'),
- $elm$html$Html$Attributes$value(b),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A2(
- $author$project$Manager$ModalManager$Input,
- _Utils_chr('2'),
- '')))
- ]),
- _List_Nil)
- ])),
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('X-Radius')
- ])),
- A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$placeholder('X-Radius'),
- $elm$html$Html$Attributes$value(c),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A2(
- $author$project$Manager$ModalManager$Input,
- _Utils_chr('3'),
- '')))
- ]),
- _List_Nil)
- ])),
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Y-Radius')
- ])),
- A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$placeholder('Y-Radius'),
- $elm$html$Html$Attributes$value(d),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A2(
- $author$project$Manager$ModalManager$Input,
- _Utils_chr('4'),
- '')))
- ]),
- _List_Nil)
- ]))
- ]))
- ]);
- default:
- return _List_fromArray(
- [
- A2(
- $elm$html$Html$div,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('X-Position')
- ])),
- A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$placeholder('X-Position'),
- $elm$html$Html$Attributes$value(ix),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A2(
- $author$project$Manager$ModalManager$Input,
- _Utils_chr('1'),
- '')))
- ]),
- _List_Nil)
- ])),
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Y-Position')
- ])),
- A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$placeholder('Y-Position'),
- $elm$html$Html$Attributes$value(iy),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageModal(
- A2(
- $author$project$Manager$ModalManager$Input,
- _Utils_chr('2'),
- '')))
- ]),
- _List_Nil)
- ])),
- A2(
- $elm$html$Html$label,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('label')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Eingegebene Vieleck Koordinaten: ')
- ])),
- $elm$html$Html$text(
- $author$project$Util$ShapeManager$shapeCoordsToString(iShape)),
- A2(
- $elm$html$Html$div,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$button,
- _List_fromArray(
- [
- ($author$project$Util$Util$isNumeric(ix) && $author$project$Util$Util$isNumeric(iy)) ? $elm$html$Html$Events$onClick(
- A2($author$project$TypeHolder$ManageModal, $author$project$Manager$ModalManager$InputPoint, '')) : $elm$html$Html$Attributes$disabled(true),
- $elm$html$Html$Attributes$class('button is-success is-size-7'),
- A2($elm$html$Html$Attributes$style, 'margin-top', '10px')
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Punkt hinzufügen')
- ]))
- ]))
- ]))
- ]);
- }
- }())),
- A2(
- $author$project$Util$ViewParts$modalFooter,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$button,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('button is-success'),
- $author$project$Util$ShapeManager$isCorrectFilled(iShape) ? $elm$html$Html$Events$onClick(
- A2(
- $author$project$TypeHolder$ManageShapes,
- $author$project$Util$ShapeManager$AddShape($author$project$Util$ShapeManager$Empty),
- '')) : $elm$html$Html$Attributes$disabled(true)
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Form hinzufügen')
- ]))
- ]),
- 27.0)
- ]));
- });
-var $author$project$Util$ShapeManager$SaveShapeStyle = F4(
- function (a, b, c, d) {
- return {$: 'SaveShapeStyle', a: a, b: b, c: c, d: d};
- });
-var $elm$html$Html$br = _VirtualDom_node('br');
-var $elm$html$Html$iframe = _VirtualDom_node('iframe');
-var $elm$html$Html$Events$onDoubleClick = function (msg) {
- return A2(
- $elm$html$Html$Events$on,
- 'dblclick',
- $elm$json$Json$Decode$succeed(msg));
-};
-var $elm$html$Html$Events$onMouseLeave = function (msg) {
- return A2(
- $elm$html$Html$Events$on,
- 'mouseleave',
- $elm$json$Json$Decode$succeed(msg));
-};
-var $author$project$Util$ViewParts$shapeEditButton = F3(
- function (id, shapeStyle, size) {
- return A2(
- $elm$html$Html$button,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('button is-size-' + size),
- $elm$html$Html$Events$onClick(
- A2(
- $author$project$TypeHolder$ManageModal,
- A4($author$project$Manager$ModalManager$OpenEditShape, id, shapeStyle, '', ''),
- ''))
- ]),
- _List_fromArray(
- [
- $elm$html$Html$text('Form bearbeiten')
- ]));
- });
-var $author$project$Util$ViewParts$viewShapeModal = F3(
- function (id, edit, shapeStyle) {
- return (id <= 0) ? A2($elm$html$Html$div, _List_Nil, _List_Nil) : $author$project$Util$ViewParts$modalCard(
- _List_fromArray(
- [
- A2(
- $author$project$Util$ViewParts$modalStrongHeader,
- _List_fromArray(
- [
- $elm$html$Html$Events$onDoubleClick(
- A2(
- $author$project$TypeHolder$ManageModal,
- A2($author$project$Manager$ModalManager$OpenShowShape, id, 1),
- '')),
- $elm$html$Html$Events$onMouseLeave(
- A2(
- $author$project$TypeHolder$ManageModal,
- A2($author$project$Manager$ModalManager$OpenShowShape, id, 0),
- ''))
- ]),
- _List_fromArray(
- [
- (edit === 1) ? A2(
- $elm$html$Html$label,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$input,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('input'),
- $elm$html$Html$Attributes$value(shapeStyle.title),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageShapes(
- A4($author$project$Util$ShapeManager$SaveShapeStyle, id, shapeStyle, 'T', '')))
- ]),
- _List_Nil)
- ])) : $elm$html$Html$text(
- (shapeStyle.title === 'default') ? ('Form ' + $elm$core$String$fromInt(id)) : shapeStyle.title)
- ])),
- A2(
- $author$project$Util$ViewParts$modalCardStrongBody,
- _List_fromArray(
- [
- $elm$html$Html$Events$onDoubleClick(
- A2(
- $author$project$TypeHolder$ManageModal,
- A2($author$project$Manager$ModalManager$OpenShowShape, id, 2),
- '')),
- $elm$html$Html$Events$onMouseLeave(
- A2(
- $author$project$TypeHolder$ManageModal,
- A2($author$project$Manager$ModalManager$OpenShowShape, id, 0),
- ''))
- ]),
- _List_fromArray(
- [
- function () {
- if (edit === 2) {
- return A2(
- $elm$html$Html$textarea,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('textarea has-fixed-size'),
- $elm$html$Html$Attributes$value(shapeStyle.body),
- $elm$html$Html$Events$onInput(
- $author$project$TypeHolder$ManageShapes(
- A4($author$project$Util$ShapeManager$SaveShapeStyle, id, shapeStyle, 'B', '')))
- ]),
- _List_Nil);
- } else {
- if (shapeStyle.body === 'default') {
- return $elm$html$Html$text(
- 'Form ' + ($elm$core$String$fromInt(id) + ' wurde gefunden!'));
- } else {
- var _v0 = $elm$url$Url$fromString(shapeStyle.body);
- if (_v0.$ === 'Just') {
- var url = _v0.a;
- return A2(
- $elm$html$Html$iframe,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$src(shapeStyle.body),
- A2($elm$html$Html$Attributes$style, 'width', '100%'),
- A2($elm$html$Html$Attributes$style, 'height', '100%')
- ]),
- _List_Nil);
- } else {
- var writeLines = function (lines2) {
- if (!lines2.b) {
- return _List_Nil;
- } else {
- var x = lines2.a;
- var xs = lines2.b;
- return A2(
- $elm$core$List$cons,
- A2(
- $elm$html$Html$div,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text(x),
- A2($elm$html$Html$br, _List_Nil, _List_Nil)
- ])),
- writeLines(xs));
- }
- };
- var lines = A2($elm$core$String$split, '\n', shapeStyle.body);
- return A2(
- $elm$html$Html$div,
- _List_Nil,
- writeLines(lines));
- }
- }
- }
- }()
- ])),
- A2(
- $author$project$Util$ViewParts$modalFooter,
- _List_fromArray(
- [
- A3($author$project$Util$ViewParts$shapeEditButton, id, shapeStyle, '6'),
- A2($author$project$Util$ViewParts$shapeDeleteButton, id, '6')
- ]),
- 49.1)
- ]));
- });
-var $elm$html$Html$Attributes$id = $elm$html$Html$Attributes$stringProperty('id');
-var $author$project$Util$ViewParts$writeShapeToTable = F2(
- function (shapes, id) {
- if (!shapes.b) {
- return _List_Nil;
- } else {
- var x = shapes.a;
- var xs = shapes.b;
- var s = x.b;
- var f = x.a;
- return A2(
- $elm$core$List$cons,
- A2(
- $elm$html$Html$tr,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$id(
- 'Shape' + $elm$core$String$fromInt(id))
- ]),
- _List_fromArray(
- [
- A2(
- $elm$html$Html$td,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text(
- (s.title === 'default') ? ('Form' + $elm$core$String$fromInt(id)) : s.title)
- ])),
- A2(
- $elm$html$Html$td,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text(
- $author$project$Util$ShapeManager$shapeNameStringToGerman(
- $author$project$Util$ShapeManager$shapeNameToString(f)))
- ])),
- A2(
- $elm$html$Html$td,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text(
- $author$project$Util$ShapeManager$shapeCoordsToString(f))
- ])),
- A2(
- $elm$html$Html$td,
- _List_Nil,
- _List_fromArray(
- [
- A2($author$project$Util$ViewParts$shapeDeleteButton, id, '7')
- ])),
- A2(
- $elm$html$Html$td,
- _List_Nil,
- _List_fromArray(
- [
- A3($author$project$Util$ViewParts$shapeEditButton, id, s, '7')
- ]))
- ])),
- A2($author$project$Util$ViewParts$writeShapeToTable, xs, id + 1));
- }
- });
-var $author$project$Util$ViewParts$viewTableModal = function (modelSaved) {
- return $author$project$Util$ViewParts$modalCard(
- _List_fromArray(
- [
- $author$project$Util$ViewParts$modalHeader('Tabelle mit Formen'),
- $author$project$Util$ViewParts$modalCardBody(
- (!$elm$core$List$length(modelSaved)) ? _List_fromArray(
- [
- A2(
- $elm$html$Html$div,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text('Es sind keine Formen vorhanden!')
- ]))
- ]) : _List_fromArray(
- [
- A2(
- $elm$html$Html$table,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('table')
- ]),
- A2(
- $elm$core$List$append,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$tr,
- _List_Nil,
- _List_fromArray(
- [
- A2(
- $elm$html$Html$th,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text('Name/ID')
- ])),
- A2(
- $elm$html$Html$th,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text('Form')
- ])),
- A2(
- $elm$html$Html$th,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text('Koordinaten')
- ])),
- A2(
- $elm$html$Html$th,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text('')
- ])),
- A2(
- $elm$html$Html$th,
- _List_Nil,
- _List_fromArray(
- [
- $elm$html$Html$text('')
- ]))
- ]))
- ]),
- A2($author$project$Util$ViewParts$writeShapeToTable, modelSaved, 1)))
- ])),
- A2($author$project$Util$ViewParts$modalFooter, _List_Nil, 0)
- ]));
-};
-var $author$project$Manager$ViewManager$viewEditor = function (model) {
- return A2(
- $elm$html$Html$div,
- _List_fromArray(
- [
- A2($elm$html$Html$Attributes$style, 'background-color', '#fff')
- ]),
- $elm$core$List$concat(
- _List_fromArray(
- [
- $author$project$Util$ViewParts$standardViewPart,
- _List_fromArray(
- [
- $author$project$Util$ViewParts$viewHeader_Buttons(model.state),
- A2(
- $elm$html$Html$section,
- _List_fromArray(
- [
- $elm$html$Html$Attributes$class('section')
- ]),
- _List_Nil),
- $author$project$Util$ViewParts$viewImage(model),
- function () {
- var _v0 = model.shapesLoadResult;
- if (_v0.$ === 'Ok') {
- var s = _v0.a;
- return $elm$html$Html$text('');
- } else {
- var e = _v0.a;
- return $elm$html$Html$text(
- 'Could not load shapes: ' + $author$project$Util$Util$httpErrorToString(e));
- }
- }()
- ]),
- function () {
- var _v1 = $author$project$Manager$StateManager$getModalFromState(model.state);
- switch (_v1.$) {
- case 'NoModal':
- return _List_Nil;
- case 'ShowInput':
- var iShape = _v1.a;
- var ix = _v1.b;
- var iy = _v1.c;
- return _List_fromArray(
- [
- A3($author$project$Util$ViewParts$viewNewShapeInputModal, iShape, ix, iy)
- ]);
- case 'ShowTable':
- return _List_fromArray(
- [
- $author$project$Util$ViewParts$viewTableModal(model.saved)
- ]);
- case 'ShowShape':
- var id = _v1.a;
- var edit = _v1.b;
- return _List_fromArray(
- [
- A3(
- $author$project$Util$ViewParts$viewShapeModal,
- id,
- edit,
- A2(
- $elm$core$Maybe$withDefault,
- _Utils_Tuple2($author$project$Util$ShapeManager$Empty, $author$project$Util$ShapeManager$defaultShapeStyle),
- $elm$core$List$head(
- A2(
- $elm$core$List$drop,
- id - 1,
- A2($elm$core$List$take, id, model.saved)))).b)
- ]);
- case 'ShowJson':
- return _List_fromArray(
- [
- $author$project$Util$ViewParts$viewJsonModal(model)
- ]);
- case 'EditShape':
- var id = _v1.a;
- var shapeStyle = _v1.b;
- return _List_fromArray(
- [
- A2($author$project$Util$ViewParts$viewEditShapeModal, id, shapeStyle)
- ]);
- default:
- var s = _v1.a;
- var url = _v1.b;
- var w = _v1.c;
- var h = _v1.d;
- return _List_fromArray(
- [
- A5($author$project$Util$ViewParts$viewManagePictureModal, s, url, model.picture.url, w, h)
- ]);
- }
- }()
- ])));
-};
-var $author$project$Manager$ViewManager$viewViewer = function (model) {
- return A2(
- $elm$html$Html$div,
- _List_fromArray(
- [
- A2($elm$html$Html$Attributes$style, 'background-color', '#fff')
- ]),
- $elm$core$List$concat(
- _List_fromArray(
- [
- $author$project$Util$ViewParts$standardViewPart,
- _List_fromArray(
- [
- $author$project$Util$ViewParts$viewImage(model)
- ])
- ])));
-};
-var $author$project$Manager$ViewManager$documentView = function (model) {
- return model.edit ? {
- body: _List_fromArray(
- [
- $author$project$Manager$ViewManager$viewEditor(model)
- ]),
- title: 'ShapePicture_Editor'
- } : {
- body: _List_fromArray(
- [
- $author$project$Manager$ViewManager$viewViewer(model)
- ]),
- title: 'ShapePicture_Viewer'
- };
-};
-var $author$project$Manager$StateManager$Standby = {$: 'Standby'};
-var $elm$url$Url$Parser$State = F5(
- function (visited, unvisited, params, frag, value) {
- return {frag: frag, params: params, unvisited: unvisited, value: value, visited: visited};
- });
-var $elm$url$Url$Parser$getFirstMatch = function (states) {
- getFirstMatch:
- while (true) {
- if (!states.b) {
- return $elm$core$Maybe$Nothing;
- } else {
- var state = states.a;
- var rest = states.b;
- var _v1 = state.unvisited;
- if (!_v1.b) {
- return $elm$core$Maybe$Just(state.value);
- } else {
- if ((_v1.a === '') && (!_v1.b.b)) {
- return $elm$core$Maybe$Just(state.value);
- } else {
- var $temp$states = rest;
- states = $temp$states;
- continue getFirstMatch;
- }
- }
- }
- }
-};
-var $elm$url$Url$Parser$removeFinalEmpty = function (segments) {
- if (!segments.b) {
- return _List_Nil;
- } else {
- if ((segments.a === '') && (!segments.b.b)) {
- return _List_Nil;
- } else {
- var segment = segments.a;
- var rest = segments.b;
- return A2(
- $elm$core$List$cons,
- segment,
- $elm$url$Url$Parser$removeFinalEmpty(rest));
- }
- }
-};
-var $elm$url$Url$Parser$preparePath = function (path) {
- var _v0 = A2($elm$core$String$split, '/', path);
- if (_v0.b && (_v0.a === '')) {
- var segments = _v0.b;
- return $elm$url$Url$Parser$removeFinalEmpty(segments);
- } else {
- var segments = _v0;
- return $elm$url$Url$Parser$removeFinalEmpty(segments);
- }
-};
-var $elm$url$Url$Parser$addToParametersHelp = F2(
- function (value, maybeList) {
- if (maybeList.$ === 'Nothing') {
- return $elm$core$Maybe$Just(
- _List_fromArray(
- [value]));
- } else {
- var list = maybeList.a;
- return $elm$core$Maybe$Just(
- A2($elm$core$List$cons, value, list));
- }
- });
-var $elm$url$Url$percentDecode = _Url_percentDecode;
-var $elm$core$Basics$compare = _Utils_compare;
-var $elm$core$Dict$get = F2(
- function (targetKey, dict) {
- get:
- while (true) {
- if (dict.$ === 'RBEmpty_elm_builtin') {
- return $elm$core$Maybe$Nothing;
- } else {
- var key = dict.b;
- var value = dict.c;
- var left = dict.d;
- var right = dict.e;
- var _v1 = A2($elm$core$Basics$compare, targetKey, key);
- switch (_v1.$) {
- case 'LT':
- var $temp$targetKey = targetKey,
- $temp$dict = left;
- targetKey = $temp$targetKey;
- dict = $temp$dict;
- continue get;
- case 'EQ':
- return $elm$core$Maybe$Just(value);
- default:
- var $temp$targetKey = targetKey,
- $temp$dict = right;
- targetKey = $temp$targetKey;
- dict = $temp$dict;
- continue get;
- }
- }
- }
- });
-var $elm$core$Dict$Black = {$: 'Black'};
-var $elm$core$Dict$RBNode_elm_builtin = F5(
- function (a, b, c, d, e) {
- return {$: 'RBNode_elm_builtin', a: a, b: b, c: c, d: d, e: e};
- });
-var $elm$core$Dict$RBEmpty_elm_builtin = {$: 'RBEmpty_elm_builtin'};
-var $elm$core$Dict$Red = {$: 'Red'};
-var $elm$core$Dict$balance = F5(
- function (color, key, value, left, right) {
- if ((right.$ === 'RBNode_elm_builtin') && (right.a.$ === 'Red')) {
- var _v1 = right.a;
- var rK = right.b;
- var rV = right.c;
- var rLeft = right.d;
- var rRight = right.e;
- if ((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Red')) {
- var _v3 = left.a;
- var lK = left.b;
- var lV = left.c;
- var lLeft = left.d;
- var lRight = left.e;
- return A5(
- $elm$core$Dict$RBNode_elm_builtin,
- $elm$core$Dict$Red,
- key,
- value,
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, lK, lV, lLeft, lRight),
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, rK, rV, rLeft, rRight));
- } else {
- return A5(
- $elm$core$Dict$RBNode_elm_builtin,
- color,
- rK,
- rV,
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, key, value, left, rLeft),
- rRight);
- }
- } else {
- if ((((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Red')) && (left.d.$ === 'RBNode_elm_builtin')) && (left.d.a.$ === 'Red')) {
- var _v5 = left.a;
- var lK = left.b;
- var lV = left.c;
- var _v6 = left.d;
- var _v7 = _v6.a;
- var llK = _v6.b;
- var llV = _v6.c;
- var llLeft = _v6.d;
- var llRight = _v6.e;
- var lRight = left.e;
- return A5(
- $elm$core$Dict$RBNode_elm_builtin,
- $elm$core$Dict$Red,
- lK,
- lV,
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, llK, llV, llLeft, llRight),
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, key, value, lRight, right));
- } else {
- return A5($elm$core$Dict$RBNode_elm_builtin, color, key, value, left, right);
- }
- }
- });
-var $elm$core$Dict$insertHelp = F3(
- function (key, value, dict) {
- if (dict.$ === 'RBEmpty_elm_builtin') {
- return A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, key, value, $elm$core$Dict$RBEmpty_elm_builtin, $elm$core$Dict$RBEmpty_elm_builtin);
- } else {
- var nColor = dict.a;
- var nKey = dict.b;
- var nValue = dict.c;
- var nLeft = dict.d;
- var nRight = dict.e;
- var _v1 = A2($elm$core$Basics$compare, key, nKey);
- switch (_v1.$) {
- case 'LT':
- return A5(
- $elm$core$Dict$balance,
- nColor,
- nKey,
- nValue,
- A3($elm$core$Dict$insertHelp, key, value, nLeft),
- nRight);
- case 'EQ':
- return A5($elm$core$Dict$RBNode_elm_builtin, nColor, nKey, value, nLeft, nRight);
- default:
- return A5(
- $elm$core$Dict$balance,
- nColor,
- nKey,
- nValue,
- nLeft,
- A3($elm$core$Dict$insertHelp, key, value, nRight));
- }
- }
- });
-var $elm$core$Dict$insert = F3(
- function (key, value, dict) {
- var _v0 = A3($elm$core$Dict$insertHelp, key, value, dict);
- if ((_v0.$ === 'RBNode_elm_builtin') && (_v0.a.$ === 'Red')) {
- var _v1 = _v0.a;
- var k = _v0.b;
- var v = _v0.c;
- var l = _v0.d;
- var r = _v0.e;
- return A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, k, v, l, r);
- } else {
- var x = _v0;
- return x;
- }
- });
-var $elm$core$Dict$getMin = function (dict) {
- getMin:
- while (true) {
- if ((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) {
- var left = dict.d;
- var $temp$dict = left;
- dict = $temp$dict;
- continue getMin;
- } else {
- return dict;
- }
- }
-};
-var $elm$core$Dict$moveRedLeft = function (dict) {
- if (((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) && (dict.e.$ === 'RBNode_elm_builtin')) {
- if ((dict.e.d.$ === 'RBNode_elm_builtin') && (dict.e.d.a.$ === 'Red')) {
- var clr = dict.a;
- var k = dict.b;
- var v = dict.c;
- var _v1 = dict.d;
- var lClr = _v1.a;
- var lK = _v1.b;
- var lV = _v1.c;
- var lLeft = _v1.d;
- var lRight = _v1.e;
- var _v2 = dict.e;
- var rClr = _v2.a;
- var rK = _v2.b;
- var rV = _v2.c;
- var rLeft = _v2.d;
- var _v3 = rLeft.a;
- var rlK = rLeft.b;
- var rlV = rLeft.c;
- var rlL = rLeft.d;
- var rlR = rLeft.e;
- var rRight = _v2.e;
- return A5(
- $elm$core$Dict$RBNode_elm_builtin,
- $elm$core$Dict$Red,
- rlK,
- rlV,
- A5(
- $elm$core$Dict$RBNode_elm_builtin,
- $elm$core$Dict$Black,
- k,
- v,
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
- rlL),
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, rK, rV, rlR, rRight));
- } else {
- var clr = dict.a;
- var k = dict.b;
- var v = dict.c;
- var _v4 = dict.d;
- var lClr = _v4.a;
- var lK = _v4.b;
- var lV = _v4.c;
- var lLeft = _v4.d;
- var lRight = _v4.e;
- var _v5 = dict.e;
- var rClr = _v5.a;
- var rK = _v5.b;
- var rV = _v5.c;
- var rLeft = _v5.d;
- var rRight = _v5.e;
- if (clr.$ === 'Black') {
- return A5(
- $elm$core$Dict$RBNode_elm_builtin,
- $elm$core$Dict$Black,
- k,
- v,
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight));
- } else {
- return A5(
- $elm$core$Dict$RBNode_elm_builtin,
- $elm$core$Dict$Black,
- k,
- v,
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight));
- }
- }
- } else {
- return dict;
- }
-};
-var $elm$core$Dict$moveRedRight = function (dict) {
- if (((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) && (dict.e.$ === 'RBNode_elm_builtin')) {
- if ((dict.d.d.$ === 'RBNode_elm_builtin') && (dict.d.d.a.$ === 'Red')) {
- var clr = dict.a;
- var k = dict.b;
- var v = dict.c;
- var _v1 = dict.d;
- var lClr = _v1.a;
- var lK = _v1.b;
- var lV = _v1.c;
- var _v2 = _v1.d;
- var _v3 = _v2.a;
- var llK = _v2.b;
- var llV = _v2.c;
- var llLeft = _v2.d;
- var llRight = _v2.e;
- var lRight = _v1.e;
- var _v4 = dict.e;
- var rClr = _v4.a;
- var rK = _v4.b;
- var rV = _v4.c;
- var rLeft = _v4.d;
- var rRight = _v4.e;
- return A5(
- $elm$core$Dict$RBNode_elm_builtin,
- $elm$core$Dict$Red,
- lK,
- lV,
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, llK, llV, llLeft, llRight),
- A5(
- $elm$core$Dict$RBNode_elm_builtin,
- $elm$core$Dict$Black,
- k,
- v,
- lRight,
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight)));
- } else {
- var clr = dict.a;
- var k = dict.b;
- var v = dict.c;
- var _v5 = dict.d;
- var lClr = _v5.a;
- var lK = _v5.b;
- var lV = _v5.c;
- var lLeft = _v5.d;
- var lRight = _v5.e;
- var _v6 = dict.e;
- var rClr = _v6.a;
- var rK = _v6.b;
- var rV = _v6.c;
- var rLeft = _v6.d;
- var rRight = _v6.e;
- if (clr.$ === 'Black') {
- return A5(
- $elm$core$Dict$RBNode_elm_builtin,
- $elm$core$Dict$Black,
- k,
- v,
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight));
- } else {
- return A5(
- $elm$core$Dict$RBNode_elm_builtin,
- $elm$core$Dict$Black,
- k,
- v,
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, lK, lV, lLeft, lRight),
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, rK, rV, rLeft, rRight));
- }
- }
- } else {
- return dict;
- }
-};
-var $elm$core$Dict$removeHelpPrepEQGT = F7(
- function (targetKey, dict, color, key, value, left, right) {
- if ((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Red')) {
- var _v1 = left.a;
- var lK = left.b;
- var lV = left.c;
- var lLeft = left.d;
- var lRight = left.e;
- return A5(
- $elm$core$Dict$RBNode_elm_builtin,
- color,
- lK,
- lV,
- lLeft,
- A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Red, key, value, lRight, right));
- } else {
- _v2$2:
- while (true) {
- if ((right.$ === 'RBNode_elm_builtin') && (right.a.$ === 'Black')) {
- if (right.d.$ === 'RBNode_elm_builtin') {
- if (right.d.a.$ === 'Black') {
- var _v3 = right.a;
- var _v4 = right.d;
- var _v5 = _v4.a;
- return $elm$core$Dict$moveRedRight(dict);
- } else {
- break _v2$2;
- }
- } else {
- var _v6 = right.a;
- var _v7 = right.d;
- return $elm$core$Dict$moveRedRight(dict);
- }
- } else {
- break _v2$2;
- }
- }
- return dict;
- }
- });
-var $elm$core$Dict$removeMin = function (dict) {
- if ((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) {
- var color = dict.a;
- var key = dict.b;
- var value = dict.c;
- var left = dict.d;
- var lColor = left.a;
- var lLeft = left.d;
- var right = dict.e;
- if (lColor.$ === 'Black') {
- if ((lLeft.$ === 'RBNode_elm_builtin') && (lLeft.a.$ === 'Red')) {
- var _v3 = lLeft.a;
- return A5(
- $elm$core$Dict$RBNode_elm_builtin,
- color,
- key,
- value,
- $elm$core$Dict$removeMin(left),
- right);
- } else {
- var _v4 = $elm$core$Dict$moveRedLeft(dict);
- if (_v4.$ === 'RBNode_elm_builtin') {
- var nColor = _v4.a;
- var nKey = _v4.b;
- var nValue = _v4.c;
- var nLeft = _v4.d;
- var nRight = _v4.e;
- return A5(
- $elm$core$Dict$balance,
- nColor,
- nKey,
- nValue,
- $elm$core$Dict$removeMin(nLeft),
- nRight);
- } else {
- return $elm$core$Dict$RBEmpty_elm_builtin;
- }
- }
- } else {
- return A5(
- $elm$core$Dict$RBNode_elm_builtin,
- color,
- key,
- value,
- $elm$core$Dict$removeMin(left),
- right);
- }
- } else {
- return $elm$core$Dict$RBEmpty_elm_builtin;
- }
-};
-var $elm$core$Dict$removeHelp = F2(
- function (targetKey, dict) {
- if (dict.$ === 'RBEmpty_elm_builtin') {
- return $elm$core$Dict$RBEmpty_elm_builtin;
- } else {
- var color = dict.a;
- var key = dict.b;
- var value = dict.c;
- var left = dict.d;
- var right = dict.e;
- if (_Utils_cmp(targetKey, key) < 0) {
- if ((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Black')) {
- var _v4 = left.a;
- var lLeft = left.d;
- if ((lLeft.$ === 'RBNode_elm_builtin') && (lLeft.a.$ === 'Red')) {
- var _v6 = lLeft.a;
- return A5(
- $elm$core$Dict$RBNode_elm_builtin,
- color,
- key,
- value,
- A2($elm$core$Dict$removeHelp, targetKey, left),
- right);
- } else {
- var _v7 = $elm$core$Dict$moveRedLeft(dict);
- if (_v7.$ === 'RBNode_elm_builtin') {
- var nColor = _v7.a;
- var nKey = _v7.b;
- var nValue = _v7.c;
- var nLeft = _v7.d;
- var nRight = _v7.e;
- return A5(
- $elm$core$Dict$balance,
- nColor,
- nKey,
- nValue,
- A2($elm$core$Dict$removeHelp, targetKey, nLeft),
- nRight);
- } else {
- return $elm$core$Dict$RBEmpty_elm_builtin;
- }
- }
- } else {
- return A5(
- $elm$core$Dict$RBNode_elm_builtin,
- color,
- key,
- value,
- A2($elm$core$Dict$removeHelp, targetKey, left),
- right);
- }
- } else {
- return A2(
- $elm$core$Dict$removeHelpEQGT,
- targetKey,
- A7($elm$core$Dict$removeHelpPrepEQGT, targetKey, dict, color, key, value, left, right));
- }
- }
- });
-var $elm$core$Dict$removeHelpEQGT = F2(
- function (targetKey, dict) {
- if (dict.$ === 'RBNode_elm_builtin') {
- var color = dict.a;
- var key = dict.b;
- var value = dict.c;
- var left = dict.d;
- var right = dict.e;
- if (_Utils_eq(targetKey, key)) {
- var _v1 = $elm$core$Dict$getMin(right);
- if (_v1.$ === 'RBNode_elm_builtin') {
- var minKey = _v1.b;
- var minValue = _v1.c;
- return A5(
- $elm$core$Dict$balance,
- color,
- minKey,
- minValue,
- left,
- $elm$core$Dict$removeMin(right));
- } else {
- return $elm$core$Dict$RBEmpty_elm_builtin;
- }
- } else {
- return A5(
- $elm$core$Dict$balance,
- color,
- key,
- value,
- left,
- A2($elm$core$Dict$removeHelp, targetKey, right));
- }
- } else {
- return $elm$core$Dict$RBEmpty_elm_builtin;
- }
- });
-var $elm$core$Dict$remove = F2(
- function (key, dict) {
- var _v0 = A2($elm$core$Dict$removeHelp, key, dict);
- if ((_v0.$ === 'RBNode_elm_builtin') && (_v0.a.$ === 'Red')) {
- var _v1 = _v0.a;
- var k = _v0.b;
- var v = _v0.c;
- var l = _v0.d;
- var r = _v0.e;
- return A5($elm$core$Dict$RBNode_elm_builtin, $elm$core$Dict$Black, k, v, l, r);
- } else {
- var x = _v0;
- return x;
- }
- });
-var $elm$core$Dict$update = F3(
- function (targetKey, alter, dictionary) {
- var _v0 = alter(
- A2($elm$core$Dict$get, targetKey, dictionary));
- if (_v0.$ === 'Just') {
- var value = _v0.a;
- return A3($elm$core$Dict$insert, targetKey, value, dictionary);
- } else {
- return A2($elm$core$Dict$remove, targetKey, dictionary);
- }
- });
-var $elm$url$Url$Parser$addParam = F2(
- function (segment, dict) {
- var _v0 = A2($elm$core$String$split, '=', segment);
- if ((_v0.b && _v0.b.b) && (!_v0.b.b.b)) {
- var rawKey = _v0.a;
- var _v1 = _v0.b;
- var rawValue = _v1.a;
- var _v2 = $elm$url$Url$percentDecode(rawKey);
- if (_v2.$ === 'Nothing') {
- return dict;
- } else {
- var key = _v2.a;
- var _v3 = $elm$url$Url$percentDecode(rawValue);
- if (_v3.$ === 'Nothing') {
- return dict;
- } else {
- var value = _v3.a;
- return A3(
- $elm$core$Dict$update,
- key,
- $elm$url$Url$Parser$addToParametersHelp(value),
- dict);
- }
- }
- } else {
- return dict;
- }
- });
-var $elm$core$Dict$empty = $elm$core$Dict$RBEmpty_elm_builtin;
-var $elm$url$Url$Parser$prepareQuery = function (maybeQuery) {
- if (maybeQuery.$ === 'Nothing') {
- return $elm$core$Dict$empty;
- } else {
- var qry = maybeQuery.a;
- return A3(
- $elm$core$List$foldr,
- $elm$url$Url$Parser$addParam,
- $elm$core$Dict$empty,
- A2($elm$core$String$split, '&', qry));
- }
-};
-var $elm$url$Url$Parser$parse = F2(
- function (_v0, url) {
- var parser = _v0.a;
- return $elm$url$Url$Parser$getFirstMatch(
- parser(
- A5(
- $elm$url$Url$Parser$State,
- _List_Nil,
- $elm$url$Url$Parser$preparePath(url.path),
- $elm$url$Url$Parser$prepareQuery(url.query),
- url.fragment,
- $elm$core$Basics$identity)));
- });
-var $elm$url$Url$Parser$Parser = function (a) {
- return {$: 'Parser', a: a};
-};
-var $elm$url$Url$Parser$query = function (_v0) {
- var queryParser = _v0.a;
- return $elm$url$Url$Parser$Parser(
- function (_v1) {
- var visited = _v1.visited;
- var unvisited = _v1.unvisited;
- var params = _v1.params;
- var frag = _v1.frag;
- var value = _v1.value;
- return _List_fromArray(
- [
- A5(
- $elm$url$Url$Parser$State,
- visited,
- unvisited,
- params,
- frag,
- value(
- queryParser(params)))
- ]);
- });
-};
-var $elm$core$List$concatMap = F2(
- function (f, list) {
- return $elm$core$List$concat(
- A2($elm$core$List$map, f, list));
- });
-var $elm$url$Url$Parser$slash = F2(
- function (_v0, _v1) {
- var parseBefore = _v0.a;
- var parseAfter = _v1.a;
- return $elm$url$Url$Parser$Parser(
- function (state) {
- return A2(
- $elm$core$List$concatMap,
- parseAfter,
- parseBefore(state));
- });
- });
-var $elm$url$Url$Parser$questionMark = F2(
- function (parser, queryParser) {
- return A2(
- $elm$url$Url$Parser$slash,
- parser,
- $elm$url$Url$Parser$query(queryParser));
- });
-var $elm$url$Url$Parser$s = function (str) {
- return $elm$url$Url$Parser$Parser(
- function (_v0) {
- var visited = _v0.visited;
- var unvisited = _v0.unvisited;
- var params = _v0.params;
- var frag = _v0.frag;
- var value = _v0.value;
- if (!unvisited.b) {
- return _List_Nil;
- } else {
- var next = unvisited.a;
- var rest = unvisited.b;
- return _Utils_eq(next, str) ? _List_fromArray(
- [
- A5(
- $elm$url$Url$Parser$State,
- A2($elm$core$List$cons, next, visited),
- rest,
- params,
- frag,
- value)
- ]) : _List_Nil;
- }
- });
-};
-var $elm$url$Url$Parser$Internal$Parser = function (a) {
- return {$: 'Parser', a: a};
-};
-var $elm$url$Url$Parser$Query$custom = F2(
- function (key, func) {
- return $elm$url$Url$Parser$Internal$Parser(
- function (dict) {
- return func(
- A2(
- $elm$core$Maybe$withDefault,
- _List_Nil,
- A2($elm$core$Dict$get, key, dict)));
- });
- });
-var $elm$url$Url$Parser$Query$string = function (key) {
- return A2(
- $elm$url$Url$Parser$Query$custom,
- key,
- function (stringList) {
- if (stringList.b && (!stringList.b.b)) {
- var str = stringList.a;
- return $elm$core$Maybe$Just(str);
- } else {
- return $elm$core$Maybe$Nothing;
- }
- });
-};
-var $author$project$Util$Util$isEdit = function (url) {
- var urlPath = A2(
- $elm$core$List$drop,
- 1,
- A2($elm$core$String$split, '/', url.path));
- var urlParserCreator_pathWalker = function (path) {
- if (!path.b) {
- return A2(
- $elm$url$Url$Parser$questionMark,
- $elm$url$Url$Parser$s(''),
- $elm$url$Url$Parser$Query$string('edit'));
- } else {
- if (!path.b.b) {
- var x = path.a;
- return A2(
- $elm$url$Url$Parser$questionMark,
- $elm$url$Url$Parser$s(x),
- $elm$url$Url$Parser$Query$string('edit'));
- } else {
- var x = path.a;
- var xs = path.b;
- return A2(
- $elm$url$Url$Parser$slash,
- $elm$url$Url$Parser$s(x),
- urlParserCreator_pathWalker(xs));
- }
- }
- };
- var myParser = urlParserCreator_pathWalker(urlPath);
- var res = A2(
- $elm$core$Maybe$withDefault,
- 'Nothing',
- A2(
- $elm$core$Maybe$withDefault,
- $elm$core$Maybe$Just('Nothing'),
- A2($elm$url$Url$Parser$parse, myParser, url)));
- switch (res) {
- case 'true':
- return true;
- case 'false':
- return false;
- default:
- return true;
- }
-};
-var $elm$core$Platform$Cmd$batch = _Platform_batch;
-var $elm$core$Platform$Cmd$none = $elm$core$Platform$Cmd$batch(_List_Nil);
-var $author$project$ShapePicture_Editor$init = F3(
- function (_v0, url, key) {
- return _Utils_Tuple2(
- {
- edit: $author$project$Util$Util$isEdit(url),
- errorString: '',
- key: key,
- picture: {
- h: 0,
- url: A6($elm$url$Url$Url, $elm$url$Url$Http, 'www.informatik.uni-halle.de', $elm$core$Maybe$Nothing, '/im/1285058520_1381_00_800.jpg', $elm$core$Maybe$Nothing, $elm$core$Maybe$Nothing),
- w: 0
- },
- saved: _List_Nil,
- shapesLoadResult: $elm$core$Result$Ok(' Init'),
- state: $author$project$Manager$StateManager$Standby,
- stringToShapes: '{\"pictureUrl\":\"https://i2-prod.mirror.co.uk/incoming/article9690209.ece/ALTERNATES/s1200/Namibia.jpg\",\"shapes\":[{\"shape\":{\"circle\":{\"cx\":\"50\",\"cy\":\"50\",\"r\":\"40\"}},\"shapeprop\":{\"hFC\":\"white\",\"hFO\":\"0.5\",\"hSC\":\"red\",\"hSW\":\"3\",\"hSO\":\"1.0\",\"uFC\":\"white\",\"uFO\":\"0.0\",\"uSC\":\"red\",\"uSW\":\"3\",\"uSO\":\"1.0\",\"title\":\"default\",\"body\":\"default\"}},{\"shape\":{\"rect\":{\"x\":\"100\",\"y\":\"100\",\"width\":\"50\",\"height\":\"60\"}},\"shapeprop\":{\"hFC\":\"white\",\"hFO\":\"0.5\",\"hSC\":\"red\",\"hSW\":\"3\",\"hSO\":\"1.0\",\"uFC\":\"white\",\"uFO\":\"0.0\",\"uSC\":\"red\",\"uSW\":\"3\",\"uSO\":\"1.0\",\"title\":\"default\",\"body\":\"default\"}},{\"shape\":{\"polygon\":[{\"x\":\"200\",\"y\":\"150\"},{\"x\":\"250\",\"y\":\"400\"},{\"x\":\"120\",\"y\":\"340\"},{\"x\":\"160\",\"y\":\"250\"},{\"x\":\"180\",\"y\":\"170\"}]},\"shapeprop\":{\"hFC\":\"white\",\"hFO\":\"0.5\",\"hSC\":\"red\",\"hSW\":\"3\",\"hSO\":\"1.0\",\"uFC\":\"white\",\"uFO\":\"0.0\",\"uSC\":\"red\",\"uSW\":\"3\",\"uSO\":\"1.0\",\"title\":\"default\",\"body\":\"default\"}}]}',
- svgShapeHover: 0,
- url: url
- },
- $elm$core$Platform$Cmd$none);
- });
-var $elm$core$Platform$Sub$batch = _Platform_batch;
-var $elm$core$Platform$Sub$none = $elm$core$Platform$Sub$batch(_List_Nil);
-var $author$project$ShapePicture_Editor$subscriptions = function (model) {
- return $elm$core$Platform$Sub$none;
-};
-var $author$project$TypeHolder$LoadShapes = function (a) {
- return {$: 'LoadShapes', a: a};
-};
-var $author$project$TypeHolder$ShapesLoaded = function (a) {
- return {$: 'ShapesLoaded', a: a};
-};
-var $elm$json$Json$Decode$decodeString = _Json_runOnString;
-var $elm$http$Http$BadStatus_ = F2(
- function (a, b) {
- return {$: 'BadStatus_', a: a, b: b};
- });
-var $elm$http$Http$BadUrl_ = function (a) {
- return {$: 'BadUrl_', a: a};
-};
-var $elm$http$Http$GoodStatus_ = F2(
- function (a, b) {
- return {$: 'GoodStatus_', a: a, b: b};
- });
-var $elm$http$Http$NetworkError_ = {$: 'NetworkError_'};
-var $elm$http$Http$Receiving = function (a) {
- return {$: 'Receiving', a: a};
-};
-var $elm$http$Http$Sending = function (a) {
- return {$: 'Sending', a: a};
-};
-var $elm$http$Http$Timeout_ = {$: 'Timeout_'};
-var $elm$core$Maybe$isJust = function (maybe) {
- if (maybe.$ === 'Just') {
- return true;
- } else {
- return false;
- }
-};
-var $elm$core$Platform$sendToSelf = _Platform_sendToSelf;
-var $elm$core$Basics$composeR = F3(
- function (f, g, x) {
- return g(
- f(x));
- });
-var $elm$http$Http$expectStringResponse = F2(
- function (toMsg, toResult) {
- return A3(
- _Http_expect,
- '',
- $elm$core$Basics$identity,
- A2($elm$core$Basics$composeR, toResult, toMsg));
- });
-var $elm$core$Result$mapError = F2(
- function (f, result) {
- if (result.$ === 'Ok') {
- var v = result.a;
- return $elm$core$Result$Ok(v);
- } else {
- var e = result.a;
- return $elm$core$Result$Err(
- f(e));
- }
- });
-var $elm$http$Http$BadBody = function (a) {
- return {$: 'BadBody', a: a};
-};
-var $elm$http$Http$BadStatus = function (a) {
- return {$: 'BadStatus', a: a};
-};
-var $elm$http$Http$BadUrl = function (a) {
- return {$: 'BadUrl', a: a};
-};
-var $elm$http$Http$NetworkError = {$: 'NetworkError'};
-var $elm$http$Http$Timeout = {$: 'Timeout'};
-var $elm$http$Http$resolve = F2(
- function (toResult, response) {
- switch (response.$) {
- case 'BadUrl_':
- var url = response.a;
- return $elm$core$Result$Err(
- $elm$http$Http$BadUrl(url));
- case 'Timeout_':
- return $elm$core$Result$Err($elm$http$Http$Timeout);
- case 'NetworkError_':
- return $elm$core$Result$Err($elm$http$Http$NetworkError);
- case 'BadStatus_':
- var metadata = response.a;
- return $elm$core$Result$Err(
- $elm$http$Http$BadStatus(metadata.statusCode));
- default:
- var body = response.b;
- return A2(
- $elm$core$Result$mapError,
- $elm$http$Http$BadBody,
- toResult(body));
- }
- });
-var $elm$http$Http$expectJson = F2(
- function (toMsg, decoder) {
- return A2(
- $elm$http$Http$expectStringResponse,
- toMsg,
- $elm$http$Http$resolve(
- function (string) {
- return A2(
- $elm$core$Result$mapError,
- $elm$json$Json$Decode$errorToString,
- A2($elm$json$Json$Decode$decodeString, decoder, string));
- }));
- });
-var $elm$http$Http$expectString = function (toMsg) {
- return A2(
- $elm$http$Http$expectStringResponse,
- toMsg,
- $elm$http$Http$resolve($elm$core$Result$Ok));
-};
-var $elm$http$Http$emptyBody = _Http_emptyBody;
-var $elm$http$Http$Request = function (a) {
- return {$: 'Request', a: a};
-};
-var $elm$http$Http$State = F2(
- function (reqs, subs) {
- return {reqs: reqs, subs: subs};
- });
-var $elm$http$Http$init = $elm$core$Task$succeed(
- A2($elm$http$Http$State, $elm$core$Dict$empty, _List_Nil));
-var $elm$core$Process$kill = _Scheduler_kill;
-var $elm$core$Process$spawn = _Scheduler_spawn;
-var $elm$http$Http$updateReqs = F3(
- function (router, cmds, reqs) {
- updateReqs:
- while (true) {
- if (!cmds.b) {
- return $elm$core$Task$succeed(reqs);
- } else {
- var cmd = cmds.a;
- var otherCmds = cmds.b;
- if (cmd.$ === 'Cancel') {
- var tracker = cmd.a;
- var _v2 = A2($elm$core$Dict$get, tracker, reqs);
- if (_v2.$ === 'Nothing') {
- var $temp$router = router,
- $temp$cmds = otherCmds,
- $temp$reqs = reqs;
- router = $temp$router;
- cmds = $temp$cmds;
- reqs = $temp$reqs;
- continue updateReqs;
- } else {
- var pid = _v2.a;
- return A2(
- $elm$core$Task$andThen,
- function (_v3) {
- return A3(
- $elm$http$Http$updateReqs,
- router,
- otherCmds,
- A2($elm$core$Dict$remove, tracker, reqs));
- },
- $elm$core$Process$kill(pid));
- }
- } else {
- var req = cmd.a;
- return A2(
- $elm$core$Task$andThen,
- function (pid) {
- var _v4 = req.tracker;
- if (_v4.$ === 'Nothing') {
- return A3($elm$http$Http$updateReqs, router, otherCmds, reqs);
- } else {
- var tracker = _v4.a;
- return A3(
- $elm$http$Http$updateReqs,
- router,
- otherCmds,
- A3($elm$core$Dict$insert, tracker, pid, reqs));
- }
- },
- $elm$core$Process$spawn(
- A3(
- _Http_toTask,
- router,
- $elm$core$Platform$sendToApp(router),
- req)));
- }
- }
- }
- });
-var $elm$http$Http$onEffects = F4(
- function (router, cmds, subs, state) {
- return A2(
- $elm$core$Task$andThen,
- function (reqs) {
- return $elm$core$Task$succeed(
- A2($elm$http$Http$State, reqs, subs));
- },
- A3($elm$http$Http$updateReqs, router, cmds, state.reqs));
- });
-var $elm$core$List$maybeCons = F3(
- function (f, mx, xs) {
- var _v0 = f(mx);
- if (_v0.$ === 'Just') {
- var x = _v0.a;
- return A2($elm$core$List$cons, x, xs);
- } else {
- return xs;
- }
- });
-var $elm$core$List$filterMap = F2(
- function (f, xs) {
- return A3(
- $elm$core$List$foldr,
- $elm$core$List$maybeCons(f),
- _List_Nil,
- xs);
- });
-var $elm$http$Http$maybeSend = F4(
- function (router, desiredTracker, progress, _v0) {
- var actualTracker = _v0.a;
- var toMsg = _v0.b;
- return _Utils_eq(desiredTracker, actualTracker) ? $elm$core$Maybe$Just(
- A2(
- $elm$core$Platform$sendToApp,
- router,
- toMsg(progress))) : $elm$core$Maybe$Nothing;
- });
-var $elm$http$Http$onSelfMsg = F3(
- function (router, _v0, state) {
- var tracker = _v0.a;
- var progress = _v0.b;
- return A2(
- $elm$core$Task$andThen,
- function (_v1) {
- return $elm$core$Task$succeed(state);
- },
- $elm$core$Task$sequence(
- A2(
- $elm$core$List$filterMap,
- A3($elm$http$Http$maybeSend, router, tracker, progress),
- state.subs)));
- });
-var $elm$http$Http$Cancel = function (a) {
- return {$: 'Cancel', a: a};
-};
-var $elm$http$Http$cmdMap = F2(
- function (func, cmd) {
- if (cmd.$ === 'Cancel') {
- var tracker = cmd.a;
- return $elm$http$Http$Cancel(tracker);
- } else {
- var r = cmd.a;
- return $elm$http$Http$Request(
- {
- allowCookiesFromOtherDomains: r.allowCookiesFromOtherDomains,
- body: r.body,
- expect: A2(_Http_mapExpect, func, r.expect),
- headers: r.headers,
- method: r.method,
- timeout: r.timeout,
- tracker: r.tracker,
- url: r.url
- });
- }
- });
-var $elm$http$Http$MySub = F2(
- function (a, b) {
- return {$: 'MySub', a: a, b: b};
- });
-var $elm$http$Http$subMap = F2(
- function (func, _v0) {
- var tracker = _v0.a;
- var toMsg = _v0.b;
- return A2(
- $elm$http$Http$MySub,
- tracker,
- A2($elm$core$Basics$composeR, toMsg, func));
- });
-_Platform_effectManagers['Http'] = _Platform_createManager($elm$http$Http$init, $elm$http$Http$onEffects, $elm$http$Http$onSelfMsg, $elm$http$Http$cmdMap, $elm$http$Http$subMap);
-var $elm$http$Http$command = _Platform_leaf('Http');
-var $elm$http$Http$subscription = _Platform_leaf('Http');
-var $elm$http$Http$request = function (r) {
- return $elm$http$Http$command(
- $elm$http$Http$Request(
- {allowCookiesFromOtherDomains: false, body: r.body, expect: r.expect, headers: r.headers, method: r.method, timeout: r.timeout, tracker: r.tracker, url: r.url}));
-};
-var $elm$http$Http$get = function (r) {
- return $elm$http$Http$request(
- {body: $elm$http$Http$emptyBody, expect: r.expect, headers: _List_Nil, method: 'GET', timeout: $elm$core$Maybe$Nothing, tracker: $elm$core$Maybe$Nothing, url: r.url});
-};
-var $elm$browser$Browser$Navigation$load = _Browser_load;
-var $elm$browser$Browser$Navigation$pushUrl = _Browser_pushUrl;
-var $elm$json$Json$Decode$list = _Json_decodeList;
-var $elm$json$Json$Decode$map4 = _Json_map4;
-var $author$project$Util$ShapeManager$rectListDecoder = A2(
- $elm$json$Json$Decode$field,
- 'rectangle',
- $elm$json$Json$Decode$list(
- A5(
- $elm$json$Json$Decode$map4,
- $author$project$Util$ShapeManager$Rectangle,
- A2($elm$json$Json$Decode$field, 'x', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'y', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'width', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'height', $elm$json$Json$Decode$string))));
-var $author$project$Manager$UpdateManager$updateCmdMsg = F2(
- function (msg, model) {
- updateCmdMsg:
- while (true) {
- switch (msg.$) {
- case 'ManageModal':
- return $elm$core$Platform$Cmd$none;
- case 'ManageShapes':
- return $elm$core$Platform$Cmd$none;
- case 'SvgShapeHover':
- return $elm$core$Platform$Cmd$none;
- case 'UpdateMousePos':
- return $elm$core$Platform$Cmd$none;
- case 'InputDrawShape':
- return $elm$core$Platform$Cmd$none;
- case 'ShapesLoaded':
- return $elm$core$Platform$Cmd$none;
- case 'OpenDrawShape':
- return $elm$core$Platform$Cmd$none;
- case 'SavePicture':
- return $elm$core$Platform$Cmd$none;
- case 'ImgLoaded':
- return $elm$core$Platform$Cmd$none;
- case 'GotJson':
- return $elm$core$Platform$Cmd$none;
- case 'LoadShapes':
- var result = msg.a;
- if (result.$ === 'Ok') {
- if (result.a === 'LoadExample') {
- return $elm$http$Http$get(
- {
- expect: $elm$http$Http$expectString($author$project$TypeHolder$LoadShapes),
- url: 'https://cors-anywhere.herokuapp.com/' + 'https://users.informatik.uni-halle.de/~hinnebur/shapes-list-circ-rect-poly.json'
- });
- } else {
- var s = result.a;
- return ((s === 'Fenster') || (s === 'T%C3%BCren')) ? $elm$http$Http$get(
- {
- expect: A2($elm$http$Http$expectJson, $author$project$TypeHolder$ShapesLoaded, $author$project$Util$ShapeManager$rectListDecoder),
- url: 'https://cors-anywhere.herokuapp.com/' + ((s === 'Fenster') ? 'https://users.informatik.uni-halle.de/~hinnebur/fenster-liste.json' : 'https://users.informatik.uni-halle.de/~hinnebur/tueren-liste.json')
- }) : $elm$core$Platform$Cmd$none;
- }
- } else {
- var e = result.a;
- return $elm$core$Platform$Cmd$none;
- }
- case 'LinkClicked':
- var urlReq = msg.a;
- if (urlReq.$ === 'Internal') {
- var url = urlReq.a;
- return A2(
- $elm$browser$Browser$Navigation$pushUrl,
- model.key,
- $elm$url$Url$toString(url));
- } else {
- var href = urlReq.a;
- return $elm$browser$Browser$Navigation$load(href);
- }
- default:
- var url = msg.a;
- var $temp$msg = $author$project$TypeHolder$LoadShapes(
- $elm$core$Result$Ok(
- A2($elm$core$Maybe$withDefault, '', url.fragment))),
- $temp$model = model;
- msg = $temp$msg;
- model = $temp$model;
- continue updateCmdMsg;
- }
- }
- });
-var $author$project$Manager$StateManager$ActiveModal = function (a) {
- return {$: 'ActiveModal', a: a};
-};
-var $author$project$Manager$StateManager$DrawShape = F2(
- function (a, b) {
- return {$: 'DrawShape', a: a, b: b};
- });
-var $author$project$TypeHolder$ErweitertertesBild = F2(
- function (picture, shapes) {
- return {picture: picture, shapes: shapes};
- });
-var $author$project$Manager$ModalManager$ResetShowInput = {$: 'ResetShowInput'};
-var $author$project$Manager$ModalManager$modalNameToString = function (modal) {
- switch (modal.$) {
- case 'NoModal':
- return 'NoModal';
- case 'ShowTable':
- return 'ShowTable';
- case 'ShowInput':
- return 'ShowInput';
- case 'ShowShape':
- return 'ShowShape';
- case 'ShowJson':
- return 'ShowJson';
- case 'EditShape':
- return 'EditShape';
- default:
- return 'ShowManagePicture';
- }
-};
-var $author$project$Manager$ModalManager$eq_String_Modal = F2(
- function (string, modal) {
- return _Utils_eq(
- string,
- $author$project$Manager$ModalManager$modalNameToString(modal));
- });
-var $author$project$Manager$StateManager$manageState = function (state) {
- return (A2($author$project$Manager$StateManager$eq_String_State, 'ActiveModal', state) && A2(
- $author$project$Manager$ModalManager$eq_String_Modal,
- 'NoModal',
- $author$project$Manager$StateManager$getModalFromState(state))) ? $author$project$Manager$StateManager$Standby : state;
-};
-var $elm$core$Maybe$map = F2(
- function (f, maybe) {
- if (maybe.$ === 'Just') {
- var value = maybe.a;
- return $elm$core$Maybe$Just(
- f(value));
- } else {
- return $elm$core$Maybe$Nothing;
- }
- });
-var $elm$json$Json$Decode$map3 = _Json_map3;
-var $elm$json$Json$Decode$oneOf = _Json_oneOf;
-var $elm$core$Tuple$pair = F2(
- function (a, b) {
- return _Utils_Tuple2(a, b);
- });
-var $elm$core$List$repeatHelp = F3(
- function (result, n, value) {
- repeatHelp:
- while (true) {
- if (n <= 0) {
- return result;
- } else {
- var $temp$result = A2($elm$core$List$cons, value, result),
- $temp$n = n - 1,
- $temp$value = value;
- result = $temp$result;
- n = $temp$n;
- value = $temp$value;
- continue repeatHelp;
- }
- }
- });
-var $elm$core$List$repeat = F2(
- function (n, value) {
- return A3($elm$core$List$repeatHelp, _List_Nil, n, value);
- });
-var $author$project$Util$ShapeManager$shapeListToShape_ShapeStyleList = function (shapes) {
- return A3(
- $elm$core$List$map2,
- $elm$core$Tuple$pair,
- shapes,
- A2(
- $elm$core$List$repeat,
- $elm$core$List$length(shapes),
- $author$project$Util$ShapeManager$defaultShapeStyle));
-};
-var $author$project$Util$ShapeManager$shapesDecoderList = F3(
- function (shape, _var, s) {
- var res = A2(
- $elm$json$Json$Decode$decodeString,
- A2(
- $elm$json$Json$Decode$field,
- shape,
- $elm$json$Json$Decode$list(
- A2($elm$json$Json$Decode$field, _var, $elm$json$Json$Decode$string))),
- s);
- if (res.$ === 'Ok') {
- var stringList = res.a;
- if (!stringList.b) {
- return '';
- } else {
- if (!stringList.b.b) {
- var x = stringList.a;
- return x;
- } else {
- var x = stringList.a;
- var xs = stringList.b;
- return x + ' This List is too long';
- }
- }
- } else {
- var e = res.a;
- return 'ERROR';
- }
- });
-var $author$project$Util$ShapeManager$shapesDecoderListPoly = F2(
- function (_var, s) {
- var res = A2(
- $elm$json$Json$Decode$decodeString,
- A2(
- $elm$json$Json$Decode$field,
- 'polygon',
- $elm$json$Json$Decode$list(
- A2(
- $elm$json$Json$Decode$field,
- 'points',
- $elm$json$Json$Decode$list(
- A2($elm$json$Json$Decode$field, _var, $elm$json$Json$Decode$string))))),
- s);
- if (res.$ === 'Ok') {
- var list = res.a;
- if (!list.b) {
- return _List_Nil;
- } else {
- if (!list.b.b) {
- var x = list.a;
- return x;
- } else {
- var x = list.a;
- var xs = list.b;
- return _Utils_ap(
- x,
- _List_fromArray(
- ['This List is too long']));
- }
- }
- } else {
- var e = res.a;
- return _List_fromArray(
- ['ERROR']);
- }
- });
-var $author$project$Util$ShapeManager$shapesDecoder = function (s) {
- return A2($elm$core$String$contains, 'shapes', s) ? _List_Nil : $elm$core$List$concat(
- _List_fromArray(
- [
- A2($elm$core$String$contains, 'circle', s) ? _List_fromArray(
- [
- A3(
- $author$project$Util$ShapeManager$Circle,
- A3($author$project$Util$ShapeManager$shapesDecoderList, 'circle', 'x', s),
- A3($author$project$Util$ShapeManager$shapesDecoderList, 'circle', 'y', s),
- A3($author$project$Util$ShapeManager$shapesDecoderList, 'circle', 'r', s))
- ]) : _List_Nil,
- A2($elm$core$String$contains, 'rectangle', s) ? _List_fromArray(
- [
- A4(
- $author$project$Util$ShapeManager$Rectangle,
- A3($author$project$Util$ShapeManager$shapesDecoderList, 'rectangle', 'x', s),
- A3($author$project$Util$ShapeManager$shapesDecoderList, 'rectangle', 'y', s),
- A3($author$project$Util$ShapeManager$shapesDecoderList, 'rectangle', 'width', s),
- A3($author$project$Util$ShapeManager$shapesDecoderList, 'rectangle', 'height', s))
- ]) : _List_Nil,
- A2($elm$core$String$contains, 'Ellipse', s) ? _List_fromArray(
- [
- A4(
- $author$project$Util$ShapeManager$Ellipse,
- A3($author$project$Util$ShapeManager$shapesDecoderList, 'Ellipse', 'cx', s),
- A3($author$project$Util$ShapeManager$shapesDecoderList, 'Ellipse', 'cy', s),
- A3($author$project$Util$ShapeManager$shapesDecoderList, 'Ellipse', 'rx', s),
- A3($author$project$Util$ShapeManager$shapesDecoderList, 'Ellipse', 'ry', s))
- ]) : _List_Nil,
- A2($elm$core$String$contains, 'polygon', s) ? _List_fromArray(
- [
- $author$project$Util$ShapeManager$Polygon(
- A3(
- $elm$core$List$map2,
- $elm$core$Tuple$pair,
- A2($author$project$Util$ShapeManager$shapesDecoderListPoly, 'x', s),
- A2($author$project$Util$ShapeManager$shapesDecoderListPoly, 'y', s)))
- ]) : _List_Nil
- ]));
-};
-var $author$project$Manager$ModalManager$EditShape = F2(
- function (a, b) {
- return {$: 'EditShape', a: a, b: b};
- });
-var $author$project$Manager$ModalManager$ShowInput = F3(
- function (a, b, c) {
- return {$: 'ShowInput', a: a, b: b, c: c};
- });
-var $author$project$Manager$ModalManager$ShowJson = {$: 'ShowJson'};
-var $author$project$Manager$ModalManager$ShowManagePicture = F4(
- function (a, b, c, d) {
- return {$: 'ShowManagePicture', a: a, b: b, c: c, d: d};
- });
-var $author$project$Manager$ModalManager$ShowShape = F2(
- function (a, b) {
- return {$: 'ShowShape', a: a, b: b};
- });
-var $author$project$Manager$ModalManager$ShowTable = {$: 'ShowTable'};
-var $author$project$Util$ShapeManager$deleteCoordsFromShape = function (shape) {
- switch (shape.$) {
- case 'Empty':
- return $author$project$Util$ShapeManager$Empty;
- case 'Circle':
- return A3($author$project$Util$ShapeManager$Circle, '', '', '');
- case 'Rectangle':
- return A4($author$project$Util$ShapeManager$Rectangle, '', '', '', '');
- case 'Ellipse':
- return A4($author$project$Util$ShapeManager$Ellipse, '', '', '', '');
- default:
- return $author$project$Util$ShapeManager$Polygon(_List_Nil);
- }
-};
-var $author$project$Util$ShapeManager$getPointListFromPolygon = function (shape) {
- switch (shape.$) {
- case 'Empty':
- return _List_Nil;
- case 'Circle':
- return _List_Nil;
- case 'Rectangle':
- return _List_Nil;
- case 'Ellipse':
- return _List_Nil;
- default:
- var pointList = shape.a;
- return pointList;
- }
-};
-var $author$project$Util$ShapeManager$shapeDefaultConstruktor = function (shape) {
- switch (shape) {
- case 'Circle':
- return A3($author$project$Util$ShapeManager$Circle, '', '', '');
- case 'Rectangle':
- return A4($author$project$Util$ShapeManager$Rectangle, '', '', '', '');
- case 'Ellipse':
- return A4($author$project$Util$ShapeManager$Ellipse, '', '', '', '');
- case 'Polygon':
- return $author$project$Util$ShapeManager$Polygon(_List_Nil);
- default:
- return $author$project$Util$ShapeManager$Empty;
- }
-};
-var $author$project$Manager$ModalManager$modalInputConstruktor = F5(
- function (modalType, shape, x, y, mouse) {
- if (modalType === 'ShowInput') {
- return A3($author$project$Manager$ModalManager$ShowInput, shape, x, y);
- } else {
- return $author$project$Manager$ModalManager$NoModal;
- }
- });
-var $author$project$Manager$ModalManager$updateInput = F8(
- function (inputType, value, modal, modalType, iShape, ix, iy, mouse) {
- switch (inputType.valueOf()) {
- case '1':
- switch (iShape.$) {
- case 'Empty':
- return modal;
- case 'Circle':
- var b = iShape.b;
- var c = iShape.c;
- return A5(
- $author$project$Manager$ModalManager$modalInputConstruktor,
- modalType,
- A3($author$project$Util$ShapeManager$Circle, value, b, c),
- ix,
- iy,
- mouse);
- case 'Rectangle':
- var b = iShape.b;
- var c = iShape.c;
- var d = iShape.d;
- return A5(
- $author$project$Manager$ModalManager$modalInputConstruktor,
- modalType,
- A4($author$project$Util$ShapeManager$Rectangle, value, b, c, d),
- ix,
- iy,
- mouse);
- case 'Ellipse':
- var b = iShape.b;
- var c = iShape.c;
- var d = iShape.d;
- return A5(
- $author$project$Manager$ModalManager$modalInputConstruktor,
- modalType,
- A4($author$project$Util$ShapeManager$Ellipse, value, b, c, d),
- ix,
- iy,
- mouse);
- default:
- return A5($author$project$Manager$ModalManager$modalInputConstruktor, modalType, iShape, value, iy, mouse);
- }
- case '2':
- switch (iShape.$) {
- case 'Empty':
- return modal;
- case 'Circle':
- var a = iShape.a;
- var c = iShape.c;
- return A5(
- $author$project$Manager$ModalManager$modalInputConstruktor,
- modalType,
- A3($author$project$Util$ShapeManager$Circle, a, value, c),
- ix,
- iy,
- mouse);
- case 'Rectangle':
- var a = iShape.a;
- var c = iShape.c;
- var d = iShape.d;
- return A5(
- $author$project$Manager$ModalManager$modalInputConstruktor,
- modalType,
- A4($author$project$Util$ShapeManager$Rectangle, a, value, c, d),
- ix,
- iy,
- mouse);
- case 'Ellipse':
- var a = iShape.a;
- var c = iShape.c;
- var d = iShape.d;
- return A5(
- $author$project$Manager$ModalManager$modalInputConstruktor,
- modalType,
- A4($author$project$Util$ShapeManager$Ellipse, a, value, c, d),
- ix,
- iy,
- mouse);
- default:
- return A5($author$project$Manager$ModalManager$modalInputConstruktor, modalType, iShape, ix, value, mouse);
- }
- case '3':
- switch (iShape.$) {
- case 'Empty':
- return modal;
- case 'Circle':
- var a = iShape.a;
- var b = iShape.b;
- return A5(
- $author$project$Manager$ModalManager$modalInputConstruktor,
- modalType,
- A3($author$project$Util$ShapeManager$Circle, a, b, value),
- ix,
- iy,
- mouse);
- case 'Rectangle':
- var a = iShape.a;
- var b = iShape.b;
- var d = iShape.d;
- return A5(
- $author$project$Manager$ModalManager$modalInputConstruktor,
- modalType,
- A4($author$project$Util$ShapeManager$Rectangle, a, b, value, d),
- ix,
- iy,
- mouse);
- case 'Ellipse':
- var a = iShape.a;
- var b = iShape.b;
- var d = iShape.d;
- return A5(
- $author$project$Manager$ModalManager$modalInputConstruktor,
- modalType,
- A4($author$project$Util$ShapeManager$Ellipse, a, b, value, d),
- ix,
- iy,
- mouse);
- default:
- return modal;
- }
- case '4':
- switch (iShape.$) {
- case 'Empty':
- return modal;
- case 'Circle':
- return modal;
- case 'Rectangle':
- var a = iShape.a;
- var b = iShape.b;
- var c = iShape.c;
- return A5(
- $author$project$Manager$ModalManager$modalInputConstruktor,
- modalType,
- A4($author$project$Util$ShapeManager$Rectangle, a, b, c, value),
- ix,
- iy,
- mouse);
- case 'Ellipse':
- var a = iShape.a;
- var b = iShape.b;
- var c = iShape.c;
- return A5(
- $author$project$Manager$ModalManager$modalInputConstruktor,
- modalType,
- A4($author$project$Util$ShapeManager$Ellipse, a, b, c, value),
- ix,
- iy,
- mouse);
- default:
- return modal;
- }
- default:
- return modal;
- }
- });
-var $author$project$Manager$ModalManager$updateModal = F2(
- function (msg, modal) {
- switch (msg.$) {
- case 'CloseModal':
- return $author$project$Manager$ModalManager$NoModal;
- case 'OpenShowTable':
- return A2($author$project$Manager$ModalManager$eq_String_Modal, 'ShowTable', modal) ? $author$project$Manager$ModalManager$NoModal : $author$project$Manager$ModalManager$ShowTable;
- case 'OpenShowInput':
- return A2($author$project$Manager$ModalManager$eq_String_Modal, 'ShowInput', modal) ? $author$project$Manager$ModalManager$NoModal : A3($author$project$Manager$ModalManager$ShowInput, $author$project$Util$ShapeManager$Empty, '', '');
- case 'OpenShowShape':
- var id = msg.a;
- var edit = msg.b;
- return (id <= 0) ? $author$project$Manager$ModalManager$NoModal : A2($author$project$Manager$ModalManager$ShowShape, id, edit);
- case 'OpenShowJson':
- return $author$project$Manager$ModalManager$ShowJson;
- case 'OpenEditShape':
- var id = msg.a;
- var shapeStyle = msg.b;
- var inputType = msg.c;
- var value = msg.d;
- return (id <= 0) ? $author$project$Manager$ModalManager$NoModal : A2(
- $author$project$Manager$ModalManager$EditShape,
- id,
- function () {
- if (inputType === 'TA') {
- var values = A2($elm$core$String$split, '\n', value);
- return ($elm$core$List$length(values) === 10) ? _Utils_update(
- shapeStyle,
- {
- hoveredFillColor: A2(
- $elm$core$Maybe$withDefault,
- 'white',
- $elm$core$List$head(values)),
- hoveredFillOpacity: A2(
- $elm$core$Maybe$withDefault,
- '0.5',
- $elm$core$List$head(
- A2($elm$core$List$drop, 1, values))),
- hoveredStrokeColor: A2(
- $elm$core$Maybe$withDefault,
- 'red',
- $elm$core$List$head(
- A2($elm$core$List$drop, 2, values))),
- hoveredStrokeOpacity: A2(
- $elm$core$Maybe$withDefault,
- '1.0',
- $elm$core$List$head(
- A2($elm$core$List$drop, 4, values))),
- hoveredStrokeWidth: A2(
- $elm$core$Maybe$withDefault,
- '3',
- $elm$core$List$head(
- A2($elm$core$List$drop, 3, values))),
- unHoveredFillColor: A2(
- $elm$core$Maybe$withDefault,
- 'white',
- $elm$core$List$head(
- A2($elm$core$List$drop, 5, values))),
- unHoveredFillOpacity: A2(
- $elm$core$Maybe$withDefault,
- '0.0',
- $elm$core$List$head(
- A2($elm$core$List$drop, 6, values))),
- unHoveredStrokeColor: A2(
- $elm$core$Maybe$withDefault,
- 'red',
- $elm$core$List$head(
- A2($elm$core$List$drop, 7, values))),
- unHoveredStrokeOpacity: A2(
- $elm$core$Maybe$withDefault,
- '1.0',
- $elm$core$List$head(
- A2($elm$core$List$drop, 9, values))),
- unHoveredStrokeWidth: A2(
- $elm$core$Maybe$withDefault,
- '3',
- $elm$core$List$head(
- A2($elm$core$List$drop, 8, values)))
- }) : shapeStyle;
- } else {
- return shapeStyle;
- }
- }());
- case 'OpenManagePicture':
- var iT = msg.a;
- var value = msg.b;
- switch (modal.$) {
- case 'NoModal':
- return A4($author$project$Manager$ModalManager$ShowManagePicture, value, $elm$core$Maybe$Nothing, 0, 0);
- case 'ShowTable':
- return modal;
- case 'ShowShape':
- return modal;
- case 'ShowInput':
- return modal;
- case 'EditShape':
- return modal;
- case 'ShowJson':
- return modal;
- default:
- var s = modal.a;
- var url = modal.b;
- var w = modal.c;
- var h = modal.d;
- switch (iT) {
- case 'i1':
- var _v4 = $elm$url$Url$fromString(value);
- if (_v4.$ === 'Just') {
- var newUrl = _v4.a;
- return A4(
- $author$project$Manager$ModalManager$ShowManagePicture,
- value,
- $elm$core$Maybe$Just(newUrl),
- w,
- h);
- } else {
- return A4($author$project$Manager$ModalManager$ShowManagePicture, value, $elm$core$Maybe$Nothing, w, h);
- }
- case 'i2':
- return A4(
- $author$project$Manager$ModalManager$ShowManagePicture,
- s,
- url,
- A2(
- $elm$core$Maybe$withDefault,
- 0,
- $elm$core$String$toInt(value)),
- h);
- case 'i3':
- return A4(
- $author$project$Manager$ModalManager$ShowManagePicture,
- s,
- url,
- w,
- A2(
- $elm$core$Maybe$withDefault,
- 0,
- $elm$core$String$toInt(value)));
- default:
- return modal;
- }
- }
- case 'ResetShowInput':
- return A3(
- $author$project$Manager$ModalManager$ShowInput,
- $author$project$Util$ShapeManager$deleteCoordsFromShape(
- $author$project$Manager$ModalManager$getInputShapeFromModal(modal)),
- '',
- '');
- case 'Check':
- var shape = msg.a;
- return A2($author$project$Manager$ModalManager$eq_String_Modal, 'ShowInput', modal) ? (A2(
- $author$project$Util$ShapeManager$eq_String_Shape,
- shape,
- $author$project$Manager$ModalManager$getInputShapeFromModal(modal)) ? A3($author$project$Manager$ModalManager$ShowInput, $author$project$Util$ShapeManager$Empty, '', '') : A3(
- $author$project$Manager$ModalManager$ShowInput,
- $author$project$Util$ShapeManager$shapeDefaultConstruktor(shape),
- '',
- '')) : modal;
- case 'Input':
- var inputType = msg.a;
- var value = msg.b;
- switch (modal.$) {
- case 'NoModal':
- return modal;
- case 'ShowTable':
- return modal;
- case 'ShowShape':
- return modal;
- case 'ShowJson':
- return modal;
- case 'ShowInput':
- var iShape = modal.a;
- var ix = modal.b;
- var iy = modal.c;
- return A8(
- $author$project$Manager$ModalManager$updateInput,
- inputType,
- value,
- modal,
- 'ShowInput',
- iShape,
- ix,
- iy,
- {x: 0, y: 0});
- case 'EditShape':
- return modal;
- default:
- return modal;
- }
- default:
- switch (modal.$) {
- case 'NoModal':
- return modal;
- case 'ShowTable':
- return modal;
- case 'ShowShape':
- return modal;
- case 'ShowJson':
- return modal;
- case 'ShowInput':
- var iShape = modal.a;
- var ix = modal.b;
- var iy = modal.c;
- return A3(
- $author$project$Manager$ModalManager$ShowInput,
- $author$project$Util$ShapeManager$Polygon(
- A2(
- $elm$core$List$cons,
- _Utils_Tuple2(ix, iy),
- $author$project$Util$ShapeManager$getPointListFromPolygon(iShape))),
- '',
- '');
- case 'EditShape':
- return modal;
- default:
- return modal;
- }
- }
- });
-var $author$project$Util$ShapeManager$updateShapes = F2(
- function (shapesMsg, shapeList) {
- updateShapes:
- while (true) {
- switch (shapesMsg.$) {
- case 'DeleteShape':
- var id = shapesMsg.a;
- return A2(
- $elm$core$List$append,
- A2($elm$core$List$take, id - 1, shapeList),
- A2($elm$core$List$drop, id, shapeList));
- case 'AddShape':
- var shape = shapesMsg.a;
- return A2(
- $elm$core$List$append,
- shapeList,
- _List_fromArray(
- [
- _Utils_Tuple2(shape, $author$project$Util$ShapeManager$defaultShapeStyle)
- ]));
- case 'SaveEditedShape':
- var id = shapesMsg.a;
- var shapeStyle = shapesMsg.b;
- return A2(
- $elm$core$List$append,
- A2($elm$core$List$take, id - 1, shapeList),
- A2(
- $elm$core$List$cons,
- _Utils_Tuple2(
- A2(
- $elm$core$Maybe$withDefault,
- _Utils_Tuple2($author$project$Util$ShapeManager$Empty, shapeStyle),
- $elm$core$List$head(
- A2(
- $elm$core$List$drop,
- id - 1,
- A2($elm$core$List$take, id, shapeList)))).a,
- shapeStyle),
- A2($elm$core$List$drop, id, shapeList)));
- default:
- var id = shapesMsg.a;
- var shapeStyle = shapesMsg.b;
- var inputType = shapesMsg.c;
- var value = shapesMsg.d;
- var $temp$shapesMsg = A2(
- $author$project$Util$ShapeManager$SaveEditedShape,
- id,
- function () {
- switch (inputType) {
- case 'T':
- return _Utils_update(
- shapeStyle,
- {title: value});
- case 'B':
- return _Utils_update(
- shapeStyle,
- {body: value});
- default:
- return shapeStyle;
- }
- }()),
- $temp$shapeList = shapeList;
- shapesMsg = $temp$shapesMsg;
- shapeList = $temp$shapeList;
- continue updateShapes;
- }
- }
- });
-var $author$project$Manager$UpdateManager$updateModel = F2(
- function (msg, model) {
- updateModel:
- while (true) {
- switch (msg.$) {
- case 'ManageModal':
- var modalMsg = msg.a;
- var value = msg.b;
- var modal = $author$project$Manager$StateManager$getModalFromState(model.state);
- return _Utils_update(
- model,
- {
- state: $author$project$Manager$StateManager$manageState(
- $author$project$Manager$StateManager$ActiveModal(
- function () {
- switch (modalMsg.$) {
- case 'CloseModal':
- return A2($author$project$Manager$ModalManager$updateModal, modalMsg, modal);
- case 'OpenShowInput':
- return A2($author$project$Manager$ModalManager$updateModal, modalMsg, modal);
- case 'OpenShowTable':
- return A2($author$project$Manager$ModalManager$updateModal, modalMsg, modal);
- case 'OpenShowShape':
- return A2($author$project$Manager$ModalManager$updateModal, modalMsg, modal);
- case 'OpenShowJson':
- return A2($author$project$Manager$ModalManager$updateModal, modalMsg, modal);
- case 'OpenEditShape':
- var id = modalMsg.a;
- var ss = modalMsg.b;
- var iT = modalMsg.c;
- return A2(
- $author$project$Manager$ModalManager$updateModal,
- A4($author$project$Manager$ModalManager$OpenEditShape, id, ss, iT, value),
- modal);
- case 'OpenManagePicture':
- var iT = modalMsg.a;
- return A2(
- $author$project$Manager$ModalManager$updateModal,
- A2($author$project$Manager$ModalManager$OpenManagePicture, iT, value),
- modal);
- case 'ResetShowInput':
- return A2($author$project$Manager$ModalManager$updateModal, modalMsg, modal);
- case 'Check':
- return A2($author$project$Manager$ModalManager$updateModal, modalMsg, modal);
- case 'Input':
- var inputType = modalMsg.a;
- return A2(
- $author$project$Manager$ModalManager$updateModal,
- A2($author$project$Manager$ModalManager$Input, inputType, value),
- modal);
- default:
- return A2($author$project$Manager$ModalManager$updateModal, modalMsg, modal);
- }
- }()))
- });
- case 'ManageShapes':
- var shapesMsg = msg.a;
- var value = msg.b;
- switch (shapesMsg.$) {
- case 'DeleteShape':
- return A2(
- $author$project$Manager$ModalManager$eq_String_Modal,
- 'ShowTable',
- $author$project$Manager$StateManager$getModalFromState(model.state)) ? _Utils_update(
- model,
- {
- saved: A2($author$project$Util$ShapeManager$updateShapes, shapesMsg, model.saved)
- }) : _Utils_update(
- model,
- {
- saved: A2($author$project$Util$ShapeManager$updateShapes, shapesMsg, model.saved),
- state: $author$project$Manager$StateManager$Standby
- });
- case 'AddShape':
- if (A2(
- $author$project$Manager$ModalManager$eq_String_Modal,
- 'ShowInput',
- $author$project$Manager$StateManager$getModalFromState(model.state))) {
- var $temp$msg = A2($author$project$TypeHolder$ManageModal, $author$project$Manager$ModalManager$ResetShowInput, ''),
- $temp$model = _Utils_update(
- model,
- {
- saved: A2(
- $author$project$Util$ShapeManager$updateShapes,
- $author$project$Util$ShapeManager$AddShape(
- $author$project$Manager$StateManager$getInputShapeFromState(model.state)),
- model.saved)
- });
- msg = $temp$msg;
- model = $temp$model;
- continue updateModel;
- } else {
- return _Utils_update(
- model,
- {
- saved: A2(
- $author$project$Util$ShapeManager$updateShapes,
- $author$project$Util$ShapeManager$AddShape(
- $author$project$Manager$StateManager$getInputShapeFromState(model.state)),
- model.saved),
- state: $author$project$Manager$StateManager$Standby
- });
- }
- case 'SaveEditedShape':
- return _Utils_update(
- model,
- {
- saved: A2($author$project$Util$ShapeManager$updateShapes, shapesMsg, model.saved)
- });
- default:
- var id = shapesMsg.a;
- var sS = shapesMsg.b;
- var iT = shapesMsg.c;
- return _Utils_update(
- model,
- {
- saved: A2(
- $author$project$Util$ShapeManager$updateShapes,
- A4($author$project$Util$ShapeManager$SaveShapeStyle, id, sS, iT, value),
- model.saved)
- });
- }
- case 'SvgShapeHover':
- var id = msg.a;
- return _Utils_update(
- model,
- {svgShapeHover: id});
- case 'OpenDrawShape':
- var shape = msg.a;
- return _Utils_update(
- model,
- {
- state: A2(
- $author$project$Manager$StateManager$DrawShape,
- shape,
- {x: 0, y: 0})
- });
- case 'UpdateMousePos':
- var mouse = msg.a;
- var _v3 = model.state;
- switch (_v3.$) {
- case 'Standby':
- return model;
- case 'ActiveModal':
- return model;
- default:
- var iShape = _v3.a;
- var mOld = _v3.b;
- return _Utils_update(
- model,
- {
- state: A2($author$project$Manager$StateManager$DrawShape, iShape, mouse)
- });
- }
- case 'InputDrawShape':
- var _v4 = model.state;
- switch (_v4.$) {
- case 'Standby':
- return model;
- case 'ActiveModal':
- return model;
- default:
- var iShape = _v4.a;
- var mPos = _v4.b;
- switch (iShape.$) {
- case 'Empty':
- return model;
- case 'Circle':
- var x = iShape.a;
- var y = iShape.b;
- var r = iShape.c;
- return (x === '') ? _Utils_update(
- model,
- {
- state: A2(
- $author$project$Manager$StateManager$DrawShape,
- A3(
- $author$project$Util$ShapeManager$Circle,
- $elm$core$String$fromInt(mPos.x),
- $elm$core$String$fromInt(mPos.y),
- r),
- mPos)
- }) : _Utils_update(
- model,
- {
- saved: A2(
- $author$project$Util$ShapeManager$updateShapes,
- $author$project$Util$ShapeManager$AddShape(
- A3(
- $author$project$Util$ShapeManager$Circle,
- x,
- y,
- A3($author$project$Util$Util$abstand, x, y, mPos))),
- model.saved),
- state: $author$project$Manager$StateManager$Standby
- });
- case 'Rectangle':
- var a = iShape.a;
- var b = iShape.b;
- var w = iShape.c;
- var h = iShape.d;
- if (a === '') {
- return _Utils_update(
- model,
- {
- state: A2(
- $author$project$Manager$StateManager$DrawShape,
- A4(
- $author$project$Util$ShapeManager$Rectangle,
- $elm$core$String$fromInt(mPos.x),
- $elm$core$String$fromInt(mPos.y),
- w,
- h),
- mPos)
- });
- } else {
- var coords = $author$project$Util$Util$manageRectCoords(
- {
- h: A2(
- $author$project$Util$Util$abstand1D,
- mPos.y,
- $author$project$Util$Util$stringToInt(b)),
- w: A2(
- $author$project$Util$Util$abstand1D,
- mPos.x,
- $author$project$Util$Util$stringToInt(a)),
- x: a,
- y: b
- });
- return _Utils_update(
- model,
- {
- saved: A2(
- $author$project$Util$ShapeManager$updateShapes,
- $author$project$Util$ShapeManager$AddShape(
- A4($author$project$Util$ShapeManager$Rectangle, coords.x, coords.y, coords.w, coords.h)),
- model.saved),
- state: $author$project$Manager$StateManager$Standby
- });
- }
- case 'Ellipse':
- var a = iShape.a;
- var b = iShape.b;
- var w = iShape.c;
- var h = iShape.d;
- if (a === '') {
- return _Utils_update(
- model,
- {
- state: A2(
- $author$project$Manager$StateManager$DrawShape,
- A4(
- $author$project$Util$ShapeManager$Ellipse,
- $elm$core$String$fromInt(mPos.x),
- $elm$core$String$fromInt(mPos.y),
- w,
- h),
- mPos)
- });
- } else {
- var coords = $author$project$Util$Util$manageEllipseCoords(
- {
- cx: a,
- cy: b,
- rx: A2(
- $author$project$Util$Util$abstand1D,
- mPos.x,
- $author$project$Util$Util$stringToInt(a)),
- ry: A2(
- $author$project$Util$Util$abstand1D,
- mPos.y,
- $author$project$Util$Util$stringToInt(b))
- });
- return _Utils_update(
- model,
- {
- saved: A2(
- $author$project$Util$ShapeManager$updateShapes,
- $author$project$Util$ShapeManager$AddShape(
- A4($author$project$Util$ShapeManager$Ellipse, coords.cx, coords.cy, coords.rx, coords.ry)),
- model.saved),
- state: $author$project$Manager$StateManager$Standby
- });
- }
- default:
- var pList = iShape.a;
- return _Utils_update(
- model,
- {
- state: A2(
- $author$project$Manager$StateManager$DrawShape,
- $author$project$Util$ShapeManager$Polygon(
- A2(
- $elm$core$List$cons,
- _Utils_Tuple2(
- $elm$core$String$fromInt(mPos.x),
- $elm$core$String$fromInt(mPos.y)),
- pList)),
- mPos)
- });
- }
- }
- case 'LoadShapes':
- var result = msg.a;
- if (result.$ === 'Ok') {
- switch (result.a) {
- case '':
- return _Utils_update(
- model,
- {
- shapesLoadResult: $elm$core$Result$Err(
- $elm$http$Http$BadBody('Empty result for LoadShapes'))
- });
- case 'LoadExample':
- return model;
- case 'Fenster':
- return model;
- case 'T%C3%BCren':
- return model;
- default:
- var s = result.a;
- return _Utils_update(
- model,
- {
- saved: $author$project$Util$ShapeManager$shapeListToShape_ShapeStyleList(
- $author$project$Util$ShapeManager$shapesDecoder(s)),
- shapesLoadResult: result
- });
- }
- } else {
- var e = result.a;
- return _Utils_update(
- model,
- {shapesLoadResult: result});
- }
- case 'ShapesLoaded':
- var result = msg.a;
- if (result.$ === 'Ok') {
- var shapes = result.a;
- return _Utils_update(
- model,
- {
- saved: $author$project$Util$ShapeManager$shapeListToShape_ShapeStyleList(shapes),
- shapesLoadResult: $elm$core$Result$Ok('shapes')
- });
- } else {
- var e = result.a;
- return _Utils_update(
- model,
- {
- saved: _List_Nil,
- shapesLoadResult: $elm$core$Result$Err(e)
- });
- }
- case 'LinkClicked':
- var urlRequest = msg.a;
- return model;
- case 'UrlChanged':
- var url = msg.a;
- return _Utils_update(
- model,
- {url: url});
- case 'SavePicture':
- var pic = msg.a;
- return _Utils_update(
- model,
- {picture: pic});
- case 'ImgLoaded':
- var imgDs = msg.a;
- return _Utils_update(
- model,
- {
- picture: A3($author$project$Util$Util$Picture, model.picture.url, imgDs.width, imgDs.height)
- });
- default:
- var jsonString = msg.a;
- var myDecoder = $elm$json$Json$Decode$list(
- A3(
- $elm$json$Json$Decode$map2,
- F2(
- function (a, b) {
- return _Utils_Tuple2(a, b);
- }),
- A2(
- $elm$json$Json$Decode$field,
- 'shape',
- $elm$json$Json$Decode$oneOf(
- _List_fromArray(
- [
- A2(
- $elm$json$Json$Decode$field,
- 'circle',
- A4(
- $elm$json$Json$Decode$map3,
- F3(
- function (a, b, c) {
- return A3($author$project$Util$ShapeManager$Circle, a, b, c);
- }),
- A2($elm$json$Json$Decode$field, 'cx', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'cy', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'r', $elm$json$Json$Decode$string))),
- A2(
- $elm$json$Json$Decode$field,
- 'rect',
- A5(
- $elm$json$Json$Decode$map4,
- F4(
- function (a, b, c, d) {
- return A4($author$project$Util$ShapeManager$Rectangle, a, b, c, d);
- }),
- A2($elm$json$Json$Decode$field, 'x', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'y', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'width', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'height', $elm$json$Json$Decode$string))),
- A2(
- $elm$json$Json$Decode$field,
- 'ellipse',
- A5(
- $elm$json$Json$Decode$map4,
- F4(
- function (a, b, c, d) {
- return A4($author$project$Util$ShapeManager$Rectangle, a, b, c, d);
- }),
- A2($elm$json$Json$Decode$field, 'cx', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'cy', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'rx', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'ry', $elm$json$Json$Decode$string))),
- A2(
- $elm$json$Json$Decode$map,
- function (l) {
- return $author$project$Util$ShapeManager$Polygon(l);
- },
- A2(
- $elm$json$Json$Decode$field,
- 'polygon',
- $elm$json$Json$Decode$list(
- A3(
- $elm$json$Json$Decode$map2,
- F2(
- function (a, b) {
- return _Utils_Tuple2(a, b);
- }),
- A2($elm$json$Json$Decode$field, 'x', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'y', $elm$json$Json$Decode$string)))))
- ]))),
- A2(
- $elm$json$Json$Decode$field,
- 'shapeprop',
- A5(
- $elm$json$Json$Decode$map4,
- F4(
- function (_v9, _v10, _v11, _v12) {
- var a = _v9.a;
- var b = _v9.b;
- var c = _v9.c;
- var d = _v10.a;
- var e = _v10.b;
- var f = _v10.c;
- var g = _v11.a;
- var h = _v11.b;
- var i = _v11.c;
- var j = _v12.a;
- var k = _v12.b;
- var l = _v12.c;
- return $author$project$Util$ShapeManager$ShapeStyle(a)(b)(c)(d)(e)(f)(g)(h)(i)(j)(k)(l);
- }),
- A4(
- $elm$json$Json$Decode$map3,
- F3(
- function (a, b, c) {
- return _Utils_Tuple3(a, b, c);
- }),
- A2($elm$json$Json$Decode$field, 'hFC', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'hFO', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'hSC', $elm$json$Json$Decode$string)),
- A4(
- $elm$json$Json$Decode$map3,
- F3(
- function (a, b, c) {
- return _Utils_Tuple3(a, b, c);
- }),
- A2($elm$json$Json$Decode$field, 'hSW', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'hSO', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'uFC', $elm$json$Json$Decode$string)),
- A4(
- $elm$json$Json$Decode$map3,
- F3(
- function (a, b, c) {
- return _Utils_Tuple3(a, b, c);
- }),
- A2($elm$json$Json$Decode$field, 'uFO', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'uSC', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'uSW', $elm$json$Json$Decode$string)),
- A4(
- $elm$json$Json$Decode$map3,
- F3(
- function (a, b, c) {
- return _Utils_Tuple3(a, b, c);
- }),
- A2($elm$json$Json$Decode$field, 'uSO', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'title', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'body', $elm$json$Json$Decode$string))))));
- var erweitertesBildDecoder = A3(
- $elm$json$Json$Decode$map2,
- F2(
- function (a, b) {
- var maybeUrl = $elm$url$Url$fromString(a);
- var maybePicture = A2(
- $elm$core$Maybe$map,
- function (u) {
- return A3($author$project$Util$Util$Picture, u, 0, 0);
- },
- maybeUrl);
- return A2($author$project$TypeHolder$ErweitertertesBild, maybePicture, b);
- }),
- A2($elm$json$Json$Decode$field, 'pictureUrl', $elm$json$Json$Decode$string),
- A2($elm$json$Json$Decode$field, 'shapes', myDecoder));
- var resultDecode = A2($elm$json$Json$Decode$decodeString, erweitertesBildDecoder, jsonString);
- if (resultDecode.$ === 'Err') {
- var jsonError = resultDecode.a;
- return _Utils_update(
- model,
- {
- errorString: $elm$json$Json$Decode$errorToString(jsonError)
- });
- } else {
- var pl = resultDecode.a;
- return _Utils_update(
- model,
- {
- errorString: '',
- picture: A2(
- $elm$core$Maybe$withDefault,
- {
- h: 0,
- url: A6($elm$url$Url$Url, $elm$url$Url$Http, 'www.informatik.uni-halle.de', $elm$core$Maybe$Nothing, '/im/1285058520_1381_00_800.jpg', $elm$core$Maybe$Nothing, $elm$core$Maybe$Nothing),
- w: 0
- },
- pl.picture),
- saved: pl.shapes
- });
- }
- }
- }
- });
-var $author$project$Manager$UpdateManager$update = F2(
- function (msg, model) {
- return _Utils_Tuple2(
- A2($author$project$Manager$UpdateManager$updateModel, msg, model),
- A2($author$project$Manager$UpdateManager$updateCmdMsg, msg, model));
- });
-var $author$project$ShapePicture_Editor$main = $elm$browser$Browser$application(
- {init: $author$project$ShapePicture_Editor$init, onUrlChange: $author$project$TypeHolder$UrlChanged, onUrlRequest: $author$project$TypeHolder$LinkClicked, subscriptions: $author$project$ShapePicture_Editor$subscriptions, update: $author$project$Manager$UpdateManager$update, view: $author$project$Manager$ViewManager$documentView});
-_Platform_export({'ShapePicture_Editor':{'init':$author$project$ShapePicture_Editor$main(
- $elm$json$Json$Decode$succeed(_Utils_Tuple0))(0)}});}(this));
-
- var app = Elm.ShapePicture_Editor.init({ node: document.getElementById("elm") });
-}
-catch (e)
-{
- // display initialization errors (e.g. bad flags, infinite recursion)
- var header = document.createElement("h1");
- header.style.fontFamily = "monospace";
- header.innerText = "Initialization Error";
- var pre = document.getElementById("elm");
- document.body.insertBefore(header, pre);
- pre.innerText = e;
- throw e;
-}
-</script>
-
-</body>
-</html>
\ No newline at end of file
--
GitLab