- Commit
- 262078e9fe350b705e37b3af9462645ba6b51fcf
- Parent
- 39976cb03299777209afb3cdd5260495528f53bd
- Author
- Pablo Emilio Escobar Gaviria <pablo-escobar@riseup.net>
- Date
Worked on making the app more accessible
A simple SVG markup editor for the web
Worked on making the app more accessible
5 files changed, 38 insertions, 8403 deletions
Status | File Name | N° Changes | Insertions | Deletions |
Modified | Makefile | 5 | 4 | 1 |
Deleted | elm.json | 32 | 0 | 32 |
Deleted | script.min.js | 8353 | 0 | 8353 |
Modified | src/Editor.elm | 10 | 7 | 3 |
Modified | src/View.elm | 41 | 27 | 14 |
diff --git a/Makefile b/Makefile @@ -1,5 +1,8 @@ -.PHONY: build +.PHONY: build auto-compile build: elm make --optimize --output=script.js src/Main.elm mv script.js script.min.js + +auto-compile: + ls src/*.elm | entr make build
diff --git a/elm.json b/elm.json @@ -1,32 +0,0 @@ -{ - "type": "application", - "source-directories": [ - "src" - ], - "elm-version": "0.19.1", - "dependencies": { - "direct": { - "elm/browser": "1.0.1", - "elm/core": "1.0.2", - "elm/file": "1.0.5", - "elm/html": "1.0.0", - "elm/http": "2.0.0", - "elm/json": "1.1.3", - "elm/regex": "1.0.0", - "pablohirafuji/elm-syntax-highlight": "3.1.1" - }, - "indirect": { - "andre-dietrich/parser-combinators": "3.1.1", - "elm/bytes": "1.0.8", - "elm/parser": "1.1.0", - "elm/time": "1.0.0", - "elm/url": "1.0.0", - "elm/virtual-dom": "1.0.2", - "pilatch/flip": "1.0.0" - } - }, - "test-dependencies": { - "direct": {}, - "indirect": {} - } -}
diff --git a/script.min.js b/script.min.js @@ -1,8352 +0,0 @@ -(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); -} - - - - -var _List_Nil = { $: 0 }; -var _List_Nil_UNUSED = { $: '[]' }; - -function _List_Cons(hd, tl) { return { $: 1, a: hd, b: tl }; } -function _List_Cons_UNUSED(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 = F2(function(tag, value) -{ - return value; -}); - -var _Debug_log_UNUSED = 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(value) -{ - return '<internals>'; -} - -function _Debug_toString_UNUSED(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 === 'function' && 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[94m' + string + '\x1b[0m' : string; -} - -function _Debug_toHexDigit(n) -{ - return String.fromCharCode(n < 10 ? 48 + n : 55 + n); -} - - -// CRASH - - -function _Debug_crash(identifier) -{ - throw new Error('https://github.com/elm/core/blob/1.0.0/hints/' + identifier + '.md'); -} - - -function _Debug_crash_UNUSED(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.X.aw === region.ah.aw) - { - return 'on line ' + region.X.aw; - } - return 'on lines ' + region.X.aw + ' through ' + region.ah.aw; -} - - - -// 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 (depth > 100) - { - stack.push(_Utils_Tuple2(x,y)); - return true; - } - - if (x === y) - { - return true; - } - - if (typeof x !== 'object' || x === null || y === null) - { - typeof x === 'function' && _Debug_crash(5); - return false; - } - - /**_UNUSED/ - 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); - } - //*/ - - /**/ - 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; - } - - /**_UNUSED/ - if (x instanceof String) - { - var a = x.valueOf(); - var b = y.valueOf(); - return a === b ? 0 : a < b ? -1 : 1; - } - //*/ - - /**/ - if (typeof x.$ === 'undefined') - //*/ - /**_UNUSED/ - 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 = 0; -var _Utils_Tuple0_UNUSED = { $: '#0' }; - -function _Utils_Tuple2(a, b) { return { a: a, b: b }; } -function _Utils_Tuple2_UNUSED(a, b) { return { $: '#2', a: a, b: b }; } - -function _Utils_Tuple3(a, b, c) { return { a: a, b: b, c: c }; } -function _Utils_Tuple3_UNUSED(a, b, c) { return { $: '#3', a: a, b: b, c: c }; } - -function _Utils_chr(c) { return c; } -function _Utils_chr_UNUSED(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; -} - - - -// 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 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()); -} - - - -/**_UNUSED/ -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_UNUSED(value) { return { $: 0, a: value }; } -function _Json_unwrap_UNUSED(value) { return value.a; } - -function _Json_wrap(value) { return value; } -function _Json_unwrap(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.bj, - impl.bK, - impl.bG, - 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 /**_UNUSED/, _Json_errorToString(result.a) /**/); - var managers = {}; - result = init(result.a); - var model = result.a; - var stepper = stepperBuilder(sendToApp, model); - var ports = _Platform_setupEffects(managers, sendToApp); - - function sendToApp(msg, viewMetadata) - { - result = A2(update, msg, model); - stepper(model = result.a, viewMetadata); - _Platform_dispatchEffects(managers, result.b, subscriptions(model)); - } - - _Platform_dispatchEffects(managers, result.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 - - -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, { - p: bag.n, - q: taggers - }); - return; - } -} - - -function _Platform_toEffect(isCmd, home, taggers, value) -{ - function applyTaggers(x) - { - for (var temp = taggers; temp; temp = temp.q) - { - x = temp.p(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, - r: 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].r; - - // 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, - r: 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].r; - - // 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(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_UNUSED(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 - - /**/ - var node = args['node']; - //*/ - /**_UNUSED/ - 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(value) -{ - return /^javascript:/i.test(value.replace(/\s/g,'')) ? '' : value; -} - -function _VirtualDom_noJavaScriptUri_UNUSED(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(value) -{ - return /^\s*(javascript:|data:text\/html)/i.test(value) ? '' : value; -} - -function _VirtualDom_noJavaScriptOrHtmlUri_UNUSED(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 { - p: func(record.p), - Y: record.Y, - V: record.V - } -}); - - - -// 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.p; - var stopPropagation = tag == 1 ? value.b : tag == 3 && value.Y; - var currentEventNode = ( - stopPropagation && event.stopPropagation(), - (tag == 2 ? value.b : tag == 3 && value.V) && 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.bj, - impl.bK, - impl.bG, - function(sendToApp, initialModel) { - var view = impl.bN; - /**/ - var domNode = args['node']; - //*/ - /**_UNUSED/ - 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.bj, - impl.bK, - impl.bG, - function(sendToApp, initialModel) { - var divertHrefToApp = impl.W && impl.W(sendToApp) - var view = impl.bN; - 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.a3); - var patches = _VirtualDom_diff(currNode, nextNode); - bodyNode = _VirtualDom_applyPatches(bodyNode, currNode, patches, sendToApp); - currNode = nextNode; - _VirtualDom_divertHrefToApp = 0; - (title !== doc.bJ) && (_VirtualDom_doc.title = title = doc.bJ); - }); - } - ); -}); - - - -// 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.bp; - var onUrlRequest = impl.bq; - var key = function() { key.a(onUrlChange(_Browser_getUrl())); }; - - return _Browser_document({ - W: 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.aG === next.aG - && curr.ao === next.ao - && curr.aC.a === next.aC.a - ) - ? $elm$browser$Browser$Internal(next) - : $elm$browser$Browser$External(href) - )); - } - }); - }, - bj: function(flags) - { - return A3(impl.bj, flags, _Browser_getUrl(), key); - }, - bN: impl.bN, - bK: impl.bK, - bG: impl.bG - }); -} - -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') - ? { bf: 'hidden', a4: 'visibilitychange' } - : - (typeof _VirtualDom_doc.mozHidden !== 'undefined') - ? { bf: 'mozHidden', a4: 'mozvisibilitychange' } - : - (typeof _VirtualDom_doc.msHidden !== 'undefined') - ? { bf: 'msHidden', a4: 'msvisibilitychange' } - : - (typeof _VirtualDom_doc.webkitHidden !== 'undefined') - ? { bf: 'webkitHidden', a4: 'webkitvisibilitychange' } - : { bf: 'hidden', a4: '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 { - aO: _Browser_getScene(), - aZ: { - O: _Browser_window.pageXOffset, - P: _Browser_window.pageYOffset, - F: _Browser_doc.documentElement.clientWidth, - y: _Browser_doc.documentElement.clientHeight - } - }; -} - -function _Browser_getScene() -{ - var body = _Browser_doc.body; - var elem = _Browser_doc.documentElement; - return { - F: Math.max(body.scrollWidth, body.offsetWidth, elem.scrollWidth, elem.offsetWidth, elem.clientWidth), - y: 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 { - aO: { - F: node.scrollWidth, - y: node.scrollHeight - }, - aZ: { - O: node.scrollLeft, - P: node.scrollTop, - F: node.clientWidth, - y: 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 { - aO: _Browser_getScene(), - aZ: { - O: x, - P: y, - F: _Browser_doc.documentElement.clientWidth, - y: _Browser_doc.documentElement.clientHeight - }, - bb: { - O: x + rect.left, - P: y + rect.top, - F: rect.width, - y: 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); - } - })); -} - - -// CREATE - -var _Regex_never = /.^/; - -var _Regex_fromStringWith = F2(function(options, string) -{ - var flags = 'g'; - if (options.ay) { flags += 'm'; } - if (options.aa) { flags += 'i'; } - - try - { - return $elm$core$Maybe$Just(new RegExp(string, flags)); - } - catch(error) - { - return $elm$core$Maybe$Nothing; - } -}); - - -// USE - -var _Regex_contains = F2(function(re, string) -{ - return string.match(re) !== null; -}); - - -var _Regex_findAtMost = F3(function(n, re, str) -{ - var out = []; - var number = 0; - var string = str; - var lastIndex = re.lastIndex; - var prevLastIndex = -1; - var result; - while (number++ < n && (result = re.exec(string))) - { - if (prevLastIndex == re.lastIndex) break; - var i = result.length - 1; - var subs = new Array(i); - while (i > 0) - { - var submatch = result[i]; - subs[--i] = submatch - ? $elm$core$Maybe$Just(submatch) - : $elm$core$Maybe$Nothing; - } - out.push(A4($elm$regex$Regex$Match, result[0], result.index, number, _List_fromArray(subs))); - prevLastIndex = re.lastIndex; - } - re.lastIndex = lastIndex; - return _List_fromArray(out); -}); - - -var _Regex_replaceAtMost = F4(function(n, re, replacer, string) -{ - var count = 0; - function jsReplacer(match) - { - if (count++ >= n) - { - return match; - } - var i = arguments.length - 3; - var submatches = new Array(i); - while (i > 0) - { - var submatch = arguments[i]; - submatches[--i] = submatch - ? $elm$core$Maybe$Just(submatch) - : $elm$core$Maybe$Nothing; - } - return replacer(A4($elm$regex$Regex$Match, match, arguments[arguments.length - 2], count, _List_fromArray(submatches))); - } - return string.replace(re, jsReplacer); -}); - -var _Regex_splitAtMost = F3(function(n, re, str) -{ - var string = str; - var out = []; - var start = re.lastIndex; - var restoreLastIndex = re.lastIndex; - while (n--) - { - var result = re.exec(string); - if (!result) break; - out.push(string.slice(start, result.index)); - start = re.lastIndex; - } - out.push(string.slice(start)); - re.lastIndex = restoreLastIndex; - return _List_fromArray(out); -}); - -var _Regex_infinity = Infinity; - - - -// SEND REQUEST - -var _Http_toTask = F3(function(router, toTask, request) -{ - return _Scheduler_binding(function(callback) - { - function done(response) { - callback(toTask(request.bc.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.bc.b, xhr)); }); - $elm$core$Maybe$isJust(request.aX) && _Http_track(router, xhr, request.aX.a); - - try { - xhr.open(request.bm, request.bM, true); - } catch (e) { - return done($elm$http$Http$BadUrl_(request.bM)); - } - - _Http_configureRequest(xhr, request); - - request.a3.a && xhr.setRequestHeader('Content-Type', request.a3.a); - xhr.send(request.a3.b); - - return function() { xhr.c = true; xhr.abort(); }; - }); -}); - - -// CONFIGURE - -function _Http_configureRequest(xhr, request) -{ - for (var headers = request.am; headers.b; headers = headers.b) // WHILE_CONS - { - xhr.setRequestHeader(headers.a.a, headers.a.b); - } - xhr.timeout = request.bI.a || 0; - xhr.responseType = request.bc.d; - xhr.withCredentials = request.a1; -} - - -// 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 { - bM: xhr.responseURL, - bx: xhr.status, - by: xhr.statusText, - am: _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({ - bw: event.loaded, - aQ: 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({ - bs: event.loaded, - aQ: event.lengthComputable ? $elm$core$Maybe$Just(event.total) : $elm$core$Maybe$Nothing - })))); - }); -} - - -// DECODER - -var _File_decoder = _Json_decodePrim(function(value) { - // NOTE: checks if `File` exists in case this is run on node - return (typeof File !== 'undefined' && value instanceof File) - ? $elm$core$Result$Ok(value) - : _Json_expecting('a FILE', value); -}); - - -// METADATA - -function _File_name(file) { return file.name; } -function _File_mime(file) { return file.type; } -function _File_size(file) { return file.size; } - -function _File_lastModified(file) -{ - return $elm$time$Time$millisToPosix(file.lastModified); -} - - -// DOWNLOAD - -var _File_downloadNode; - -function _File_getDownloadNode() -{ - return _File_downloadNode || (_File_downloadNode = document.createElement('a')); -} - -var _File_download = F3(function(name, mime, content) -{ - return _Scheduler_binding(function(callback) - { - var blob = new Blob([content], {type: mime}); - - // for IE10+ - if (navigator.msSaveOrOpenBlob) - { - navigator.msSaveOrOpenBlob(blob, name); - return; - } - - // for HTML5 - var node = _File_getDownloadNode(); - var objectUrl = URL.createObjectURL(blob); - node.href = objectUrl; - node.download = name; - _File_click(node); - URL.revokeObjectURL(objectUrl); - }); -}); - -function _File_downloadUrl(href) -{ - return _Scheduler_binding(function(callback) - { - var node = _File_getDownloadNode(); - node.href = href; - node.download = ''; - node.origin === location.origin || (node.target = '_blank'); - _File_click(node); - }); -} - - -// IE COMPATIBILITY - -function _File_makeBytesSafeForInternetExplorer(bytes) -{ - // only needed by IE10 and IE11 to fix https://github.com/elm/file/issues/10 - // all other browsers can just run `new Blob([bytes])` directly with no problem - // - return new Uint8Array(bytes.buffer, bytes.byteOffset, bytes.byteLength); -} - -function _File_click(node) -{ - // only needed by IE10 and IE11 to fix https://github.com/elm/file/issues/11 - // all other browsers have MouseEvent and do not need this conditional stuff - // - if (typeof MouseEvent === 'function') - { - node.dispatchEvent(new MouseEvent('click')); - } - else - { - var event = document.createEvent('MouseEvents'); - event.initMouseEvent('click', true, true, window, 0, 0, 0, 0, 0, false, false, false, false, 0, null); - document.body.appendChild(node); - node.dispatchEvent(event); - document.body.removeChild(node); - } -} - - -// UPLOAD - -var _File_node; - -function _File_uploadOne(mimes) -{ - return _Scheduler_binding(function(callback) - { - _File_node = document.createElement('input'); - _File_node.type = 'file'; - _File_node.accept = A2($elm$core$String$join, ',', mimes); - _File_node.addEventListener('change', function(event) - { - callback(_Scheduler_succeed(event.target.files[0])); - }); - _File_click(_File_node); - }); -} - -function _File_uploadOneOrMore(mimes) -{ - return _Scheduler_binding(function(callback) - { - _File_node = document.createElement('input'); - _File_node.type = 'file'; - _File_node.multiple = true; - _File_node.accept = A2($elm$core$String$join, ',', mimes); - _File_node.addEventListener('change', function(event) - { - var elmFiles = _List_fromArray(event.target.files); - callback(_Scheduler_succeed(_Utils_Tuple2(elmFiles.a, elmFiles.b))); - }); - _File_click(_File_node); - }); -} - - -// CONTENT - -function _File_toString(blob) -{ - return _Scheduler_binding(function(callback) - { - var reader = new FileReader(); - reader.addEventListener('loadend', function() { - callback(_Scheduler_succeed(reader.result)); - }); - reader.readAsText(blob); - return function() { reader.abort(); }; - }); -} - -function _File_toBytes(blob) -{ - return _Scheduler_binding(function(callback) - { - var reader = new FileReader(); - reader.addEventListener('loadend', function() { - callback(_Scheduler_succeed(new DataView(reader.result))); - }); - reader.readAsArrayBuffer(blob); - return function() { reader.abort(); }; - }); -} - -function _File_toUrl(blob) -{ - return _Scheduler_binding(function(callback) - { - var reader = new FileReader(); - reader.addEventListener('loadend', function() { - callback(_Scheduler_succeed(reader.result)); - }); - reader.readAsDataURL(blob); - return function() { reader.abort(); }; - }); -} - - - - - -// STRINGS - - -var _Parser_isSubString = F5(function(smallString, offset, row, col, bigString) -{ - var smallLength = smallString.length; - var isGood = offset + smallLength <= bigString.length; - - for (var i = 0; isGood && i < smallLength; ) - { - var code = bigString.charCodeAt(offset); - isGood = - smallString[i++] === bigString[offset++] - && ( - code === 0x000A /* \n */ - ? ( row++, col=1 ) - : ( col++, (code & 0xF800) === 0xD800 ? smallString[i++] === bigString[offset++] : 1 ) - ) - } - - return _Utils_Tuple3(isGood ? offset : -1, row, col); -}); - - - -// CHARS - - -var _Parser_isSubChar = F3(function(predicate, offset, string) -{ - return ( - string.length <= offset - ? -1 - : - (string.charCodeAt(offset) & 0xF800) === 0xD800 - ? (predicate(_Utils_chr(string.substr(offset, 2))) ? offset + 2 : -1) - : - (predicate(_Utils_chr(string[offset])) - ? ((string[offset] === '\n') ? -2 : (offset + 1)) - : -1 - ) - ); -}); - - -var _Parser_isAsciiCode = F3(function(code, offset, string) -{ - return string.charCodeAt(offset) === code; -}); - - - -// NUMBERS - - -var _Parser_chompBase10 = F2(function(offset, string) -{ - for (; offset < string.length; offset++) - { - var code = string.charCodeAt(offset); - if (code < 0x30 || 0x39 < code) - { - return offset; - } - } - return offset; -}); - - -var _Parser_consumeBase = F3(function(base, offset, string) -{ - for (var total = 0; offset < string.length; offset++) - { - var digit = string.charCodeAt(offset) - 0x30; - if (digit < 0 || base <= digit) break; - total = base * total + digit; - } - return _Utils_Tuple2(offset, total); -}); - - -var _Parser_consumeBase16 = F2(function(offset, string) -{ - for (var total = 0; offset < string.length; offset++) - { - var code = string.charCodeAt(offset); - if (0x30 <= code && code <= 0x39) - { - total = 16 * total + code - 0x30; - } - else if (0x41 <= code && code <= 0x46) - { - total = 16 * total + code - 55; - } - else if (0x61 <= code && code <= 0x66) - { - total = 16 * total + code - 87; - } - else - { - break; - } - } - return _Utils_Tuple2(offset, total); -}); - - - -// FIND STRING - - -var _Parser_findSubString = F5(function(smallString, offset, row, col, bigString) -{ - var newOffset = bigString.indexOf(smallString, offset); - var target = newOffset < 0 ? bigString.length : newOffset + smallString.length; - - while (offset < target) - { - var code = bigString.charCodeAt(offset++); - code === 0x000A /* \n */ - ? ( col=1, row++ ) - : ( col++, (code & 0xF800) === 0xD800 && offset++ ) - } - - return _Utils_Tuple3(newOffset, row, col); -}); -var $elm$core$Basics$EQ = 1; -var $elm$core$Basics$LT = 0; -var $elm$core$List$cons = _List_cons; -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.$) { - 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$Dict$foldr = F3( - function (func, acc, t) { - foldr: - while (true) { - if (t.$ === -2) { - 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; - return $elm$core$Dict$keys(dict); -}; -var $elm$core$Basics$GT = 2; -var $elm$core$Result$Err = function (a) { - return {$: 1, a: a}; -}; -var $elm$json$Json$Decode$Failure = F2( - function (a, b) { - return {$: 3, a: a, b: b}; - }); -var $elm$json$Json$Decode$Field = F2( - function (a, b) { - return {$: 0, a: a, b: b}; - }); -var $elm$json$Json$Decode$Index = F2( - function (a, b) { - return {$: 1, a: a, b: b}; - }); -var $elm$core$Result$Ok = function (a) { - return {$: 0, a: a}; -}; -var $elm$json$Json$Decode$OneOf = function (a) { - return {$: 2, a: a}; -}; -var $elm$core$Basics$False = 1; -var $elm$core$Basics$add = _Basics_add; -var $elm$core$Maybe$Just = function (a) { - return {$: 0, a: a}; -}; -var $elm$core$Maybe$Nothing = {$: 1}; -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 0: - var f = error.a; - var err = error.b; - var isSimple = function () { - var _v1 = $elm$core$String$uncons(f); - if (_v1.$ === 1) { - 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 1: - 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 2: - 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 {$: 0, 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 {$: 1, 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 {$: 0, 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.e) { - return A4( - $elm$core$Array$Array_elm_builtin, - $elm$core$Elm$JsArray$length(builder.g), - $elm$core$Array$shiftStep, - $elm$core$Elm$JsArray$empty, - builder.g); - } else { - var treeLen = builder.e * $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.h) : builder.h; - var tree = A2($elm$core$Array$treeFromBuilder, correctNodeList, builder.e); - return A4( - $elm$core$Array$Array_elm_builtin, - $elm$core$Elm$JsArray$length(builder.g) + treeLen, - A2($elm$core$Basics$max, 5, depth * $elm$core$Array$shiftStep), - tree, - builder.g); - } - }); -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, - {h: nodeList, e: (len / $elm$core$Array$branchFactor) | 0, g: 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 = 0; -var $elm$core$Result$isOk = function (result) { - if (!result.$) { - 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 0: - return 0; - case 1: - return 1; - case 2: - return 2; - default: - return 3; - } -}; -var $elm$browser$Browser$External = function (a) { - return {$: 1, a: a}; -}; -var $elm$browser$Browser$Internal = function (a) { - return {$: 0, a: a}; -}; -var $elm$core$Basics$identity = function (x) { - return x; -}; -var $elm$browser$Browser$Dom$NotFound = $elm$core$Basics$identity; -var $elm$url$Url$Http = 0; -var $elm$url$Url$Https = 1; -var $elm$url$Url$Url = F6( - function (protocol, host, port_, path, query, fragment) { - return {al: fragment, ao: host, aA: path, aC: port_, aG: protocol, aH: 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.$ === 1) { - 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, - 0, - A2($elm$core$String$dropLeft, 7, str)) : (A2($elm$core$String$startsWith, 'https://', str) ? A2( - $elm$url$Url$chompAfterProtocol, - 1, - A2($elm$core$String$dropLeft, 8, str)) : $elm$core$Maybe$Nothing); -}; -var $elm$core$Basics$never = function (_v0) { - never: - while (true) { - var nvr = _v0; - var $temp$_v0 = nvr; - _v0 = $temp$_v0; - continue never; - } -}; -var $elm$core$Task$Perform = $elm$core$Basics$identity; -var $elm$core$Task$succeed = _Scheduler_succeed; -var $elm$core$Task$init = $elm$core$Task$succeed(0); -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; - 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 0; - }, - $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(0); - }); -var $elm$core$Task$cmdMap = F2( - function (tagger, _v0) { - var task = _v0; - return 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( - A2($elm$core$Task$map, toMessage, task)); - }); -var $elm$browser$Browser$document = _Browser_document; -var $author$project$Types$Light = 0; -var $author$project$Types$Loading = 0; -var $author$project$Types$Valid = 0; -var $author$project$Main$emptySvg = '<svg> . . . </svg>'; -var $elm$regex$Regex$Match = F4( - function (match, index, number, submatches) { - return {bi: index, bl: match, bo: number, aU: submatches}; - }); -var $elm$regex$Regex$fromStringWith = _Regex_fromStringWith; -var $elm$regex$Regex$fromString = function (string) { - return A2( - $elm$regex$Regex$fromStringWith, - {aa: false, ay: false}, - string); -}; -var $elm$regex$Regex$never = _Regex_never; -var $elm$core$Maybe$withDefault = F2( - function (_default, maybe) { - if (!maybe.$) { - var value = maybe.a; - return value; - } else { - return _default; - } - }); -var $author$project$Main$init = { - ba: _Utils_Tuple2(0, 0), - Q: 'example.svg', - N: $author$project$Main$emptySvg, - R: 0, - T: 0, - aT: 0, - bL: A2( - $elm$core$Maybe$withDefault, - $elm$regex$Regex$never, - $elm$regex$Regex$fromString('!|#|\\$|%|&|\'|\\(|\\)|\\*|\\+|,|\\/|:|;|=|\\?|@|\\[|\\]')) -}; -var $author$project$Types$Load = function (a) { - return {$: 1, a: a}; -}; -var $elm$http$Http$BadStatus_ = F2( - function (a, b) { - return {$: 3, a: a, b: b}; - }); -var $elm$http$Http$BadUrl_ = function (a) { - return {$: 0, a: a}; -}; -var $elm$http$Http$GoodStatus_ = F2( - function (a, b) { - return {$: 4, a: a, b: b}; - }); -var $elm$http$Http$NetworkError_ = {$: 2}; -var $elm$http$Http$Receiving = function (a) { - return {$: 1, a: a}; -}; -var $elm$http$Http$Sending = function (a) { - return {$: 0, a: a}; -}; -var $elm$http$Http$Timeout_ = {$: 1}; -var $elm$core$Dict$RBEmpty_elm_builtin = {$: -2}; -var $elm$core$Dict$empty = $elm$core$Dict$RBEmpty_elm_builtin; -var $elm$core$Maybe$isJust = function (maybe) { - if (!maybe.$) { - return true; - } else { - return false; - } -}; -var $elm$core$Platform$sendToSelf = _Platform_sendToSelf; -var $elm$core$Basics$compare = _Utils_compare; -var $elm$core$Dict$get = F2( - function (targetKey, dict) { - get: - while (true) { - if (dict.$ === -2) { - 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 0: - var $temp$targetKey = targetKey, - $temp$dict = left; - targetKey = $temp$targetKey; - dict = $temp$dict; - continue get; - case 1: - 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 = 1; -var $elm$core$Dict$RBNode_elm_builtin = F5( - function (a, b, c, d, e) { - return {$: -1, a: a, b: b, c: c, d: d, e: e}; - }); -var $elm$core$Dict$Red = 0; -var $elm$core$Dict$balance = F5( - function (color, key, value, left, right) { - if ((right.$ === -1) && (!right.a)) { - var _v1 = right.a; - var rK = right.b; - var rV = right.c; - var rLeft = right.d; - var rRight = right.e; - if ((left.$ === -1) && (!left.a)) { - 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, - 0, - key, - value, - A5($elm$core$Dict$RBNode_elm_builtin, 1, lK, lV, lLeft, lRight), - A5($elm$core$Dict$RBNode_elm_builtin, 1, rK, rV, rLeft, rRight)); - } else { - return A5( - $elm$core$Dict$RBNode_elm_builtin, - color, - rK, - rV, - A5($elm$core$Dict$RBNode_elm_builtin, 0, key, value, left, rLeft), - rRight); - } - } else { - if ((((left.$ === -1) && (!left.a)) && (left.d.$ === -1)) && (!left.d.a)) { - 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, - 0, - lK, - lV, - A5($elm$core$Dict$RBNode_elm_builtin, 1, llK, llV, llLeft, llRight), - A5($elm$core$Dict$RBNode_elm_builtin, 1, 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.$ === -2) { - return A5($elm$core$Dict$RBNode_elm_builtin, 0, 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 0: - return A5( - $elm$core$Dict$balance, - nColor, - nKey, - nValue, - A3($elm$core$Dict$insertHelp, key, value, nLeft), - nRight); - case 1: - 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.$ === -1) && (!_v0.a)) { - 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, 1, k, v, l, r); - } else { - var x = _v0; - return x; - } - }); -var $elm$core$Dict$getMin = function (dict) { - getMin: - while (true) { - if ((dict.$ === -1) && (dict.d.$ === -1)) { - 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.$ === -1) && (dict.d.$ === -1)) && (dict.e.$ === -1)) { - if ((dict.e.d.$ === -1) && (!dict.e.d.a)) { - 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, - 0, - rlK, - rlV, - A5( - $elm$core$Dict$RBNode_elm_builtin, - 1, - k, - v, - A5($elm$core$Dict$RBNode_elm_builtin, 0, lK, lV, lLeft, lRight), - rlL), - A5($elm$core$Dict$RBNode_elm_builtin, 1, 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 === 1) { - return A5( - $elm$core$Dict$RBNode_elm_builtin, - 1, - k, - v, - A5($elm$core$Dict$RBNode_elm_builtin, 0, lK, lV, lLeft, lRight), - A5($elm$core$Dict$RBNode_elm_builtin, 0, rK, rV, rLeft, rRight)); - } else { - return A5( - $elm$core$Dict$RBNode_elm_builtin, - 1, - k, - v, - A5($elm$core$Dict$RBNode_elm_builtin, 0, lK, lV, lLeft, lRight), - A5($elm$core$Dict$RBNode_elm_builtin, 0, rK, rV, rLeft, rRight)); - } - } - } else { - return dict; - } -}; -var $elm$core$Dict$moveRedRight = function (dict) { - if (((dict.$ === -1) && (dict.d.$ === -1)) && (dict.e.$ === -1)) { - if ((dict.d.d.$ === -1) && (!dict.d.d.a)) { - 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, - 0, - lK, - lV, - A5($elm$core$Dict$RBNode_elm_builtin, 1, llK, llV, llLeft, llRight), - A5( - $elm$core$Dict$RBNode_elm_builtin, - 1, - k, - v, - lRight, - A5($elm$core$Dict$RBNode_elm_builtin, 0, 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 === 1) { - return A5( - $elm$core$Dict$RBNode_elm_builtin, - 1, - k, - v, - A5($elm$core$Dict$RBNode_elm_builtin, 0, lK, lV, lLeft, lRight), - A5($elm$core$Dict$RBNode_elm_builtin, 0, rK, rV, rLeft, rRight)); - } else { - return A5( - $elm$core$Dict$RBNode_elm_builtin, - 1, - k, - v, - A5($elm$core$Dict$RBNode_elm_builtin, 0, lK, lV, lLeft, lRight), - A5($elm$core$Dict$RBNode_elm_builtin, 0, rK, rV, rLeft, rRight)); - } - } - } else { - return dict; - } -}; -var $elm$core$Dict$removeHelpPrepEQGT = F7( - function (targetKey, dict, color, key, value, left, right) { - if ((left.$ === -1) && (!left.a)) { - 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, 0, key, value, lRight, right)); - } else { - _v2$2: - while (true) { - if ((right.$ === -1) && (right.a === 1)) { - if (right.d.$ === -1) { - if (right.d.a === 1) { - 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.$ === -1) && (dict.d.$ === -1)) { - 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 === 1) { - if ((lLeft.$ === -1) && (!lLeft.a)) { - 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.$ === -1) { - 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.$ === -2) { - 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.$ === -1) && (left.a === 1)) { - var _v4 = left.a; - var lLeft = left.d; - if ((lLeft.$ === -1) && (!lLeft.a)) { - 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.$ === -1) { - 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.$ === -1) { - 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.$ === -1) { - 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.$ === -1) && (!_v0.a)) { - 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, 1, 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.$) { - var value = _v0.a; - return A3($elm$core$Dict$insert, targetKey, value, dictionary); - } else { - return A2($elm$core$Dict$remove, targetKey, dictionary); - } - }); -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$http$Http$BadBody = function (a) { - return {$: 4, a: a}; -}; -var $elm$http$Http$BadStatus = function (a) { - return {$: 3, a: a}; -}; -var $elm$http$Http$BadUrl = function (a) { - return {$: 0, a: a}; -}; -var $elm$http$Http$NetworkError = {$: 2}; -var $elm$http$Http$Timeout = {$: 1}; -var $elm$core$Result$mapError = F2( - function (f, result) { - if (!result.$) { - 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$resolve = F2( - function (toResult, response) { - switch (response.$) { - case 0: - var url = response.a; - return $elm$core$Result$Err( - $elm$http$Http$BadUrl(url)); - case 1: - return $elm$core$Result$Err($elm$http$Http$Timeout); - case 2: - return $elm$core$Result$Err($elm$http$Http$NetworkError); - case 3: - var metadata = response.a; - return $elm$core$Result$Err( - $elm$http$Http$BadStatus(metadata.bx)); - default: - var body = response.b; - return A2( - $elm$core$Result$mapError, - $elm$http$Http$BadBody, - toResult(body)); - } - }); -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 {$: 1, a: a}; -}; -var $elm$http$Http$State = F2( - function (reqs, subs) { - return {aJ: reqs, aV: 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.$) { - var tracker = cmd.a; - var _v2 = A2($elm$core$Dict$get, tracker, reqs); - if (_v2.$ === 1) { - 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.aX; - if (_v4.$ === 1) { - 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.aJ)); - }); -var $elm$core$List$maybeCons = F3( - function (f, mx, xs) { - var _v0 = f(mx); - if (!_v0.$) { - 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.aV))); - }); -var $elm$http$Http$Cancel = function (a) { - return {$: 0, a: a}; -}; -var $elm$http$Http$cmdMap = F2( - function (func, cmd) { - if (!cmd.$) { - var tracker = cmd.a; - return $elm$http$Http$Cancel(tracker); - } else { - var r = cmd.a; - return $elm$http$Http$Request( - { - a1: r.a1, - a3: r.a3, - bc: A2(_Http_mapExpect, func, r.bc), - am: r.am, - bm: r.bm, - bI: r.bI, - aX: r.aX, - bM: r.bM - }); - } - }); -var $elm$http$Http$MySub = F2( - function (a, b) { - return {$: 0, 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( - {a1: false, a3: r.a3, bc: r.bc, am: r.am, bm: r.bm, bI: r.bI, aX: r.aX, bM: r.bM})); -}; -var $elm$http$Http$get = function (r) { - return $elm$http$Http$request( - {a3: $elm$http$Http$emptyBody, bc: r.bc, am: _List_Nil, bm: 'GET', bI: $elm$core$Maybe$Nothing, aX: $elm$core$Maybe$Nothing, bM: r.bM}); -}; -var $author$project$Main$loadContent = $elm$http$Http$get( - { - bc: $elm$http$Http$expectString($author$project$Types$Load), - bM: 'assets/example.svg' - }); -var $elm$core$Platform$Sub$batch = _Platform_batch; -var $elm$core$Platform$Sub$none = $elm$core$Platform$Sub$batch(_List_Nil); -var $author$project$Types$Loaded = 1; -var $author$project$Main$load = F2( - function (model, res) { - if (!res.$) { - var svg = res.a; - return _Utils_update( - model, - {N: svg, R: 1}); - } else { - return _Utils_update( - model, - {R: 1}); - } - }); -var $elm$core$Platform$Cmd$batch = _Platform_batch; -var $elm$core$Platform$Cmd$none = $elm$core$Platform$Cmd$batch(_List_Nil); -var $elm$time$Time$Posix = $elm$core$Basics$identity; -var $elm$time$Time$millisToPosix = $elm$core$Basics$identity; -var $elm$file$File$Download$string = F3( - function (name, mime, content) { - return A2( - $elm$core$Task$perform, - $elm$core$Basics$never, - A3(_File_download, name, mime, content)); - }); -var $author$project$Types$Dark = 1; -var $author$project$Main$toggle = function (mode) { - if (!mode) { - return 1; - } else { - return 0; - } -}; -var $author$project$Types$Selected = function (a) { - return {$: 1, a: a}; -}; -var $author$project$Types$Update = function (a) { - return {$: 0, a: a}; -}; -var $author$project$Types$Upload = function (a) { - return {$: 5, a: a}; -}; -var $elm$file$File$Select$file = F2( - function (mimes, toMsg) { - return A2( - $elm$core$Task$perform, - toMsg, - _File_uploadOne(mimes)); - }); -var $elm$file$File$name = _File_name; -var $elm$file$File$toString = _File_toString; -var $author$project$Main$upload = F2( - function (model, upl) { - if (!upl.$) { - return _Utils_Tuple2( - model, - A2( - $elm$file$File$Select$file, - _List_fromArray( - ['image/svg+xml']), - function (file) { - return $author$project$Types$Upload( - $author$project$Types$Selected(file)); - })); - } else { - var file = upl.a; - return _Utils_Tuple2( - _Utils_update( - model, - { - Q: $elm$file$File$name(file) - }), - A2( - $elm$core$Task$perform, - $author$project$Types$Update, - $elm$file$File$toString(file))); - } - }); -var $author$project$Main$update = F2( - function (msg, model) { - switch (msg.$) { - case 0: - var image = msg.a; - return _Utils_Tuple2( - _Utils_update( - model, - {N: image}), - $elm$core$Platform$Cmd$none); - case 1: - var res = msg.a; - return _Utils_Tuple2( - A2($author$project$Main$load, model, res), - $elm$core$Platform$Cmd$none); - case 2: - var val = msg.a; - return _Utils_Tuple2( - _Utils_update( - model, - {aT: val}), - $elm$core$Platform$Cmd$none); - case 3: - return _Utils_Tuple2( - _Utils_update( - model, - { - T: $author$project$Main$toggle(model.T) - }), - $elm$core$Platform$Cmd$none); - case 4: - return _Utils_Tuple2( - model, - A3($elm$file$File$Download$string, model.Q, 'image/svg+xml', model.N)); - case 5: - var upl = msg.a; - return A2($author$project$Main$upload, model, upl); - default: - var scroll = msg.a; - return _Utils_Tuple2( - _Utils_update( - model, - {ba: scroll}), - $elm$core$Platform$Cmd$none); - } - }); -var $elm$virtual_dom$VirtualDom$attribute = F2( - function (key, value) { - return A2( - _VirtualDom_attribute, - _VirtualDom_noOnOrFormAction(key), - _VirtualDom_noJavaScriptOrHtmlUri(value)); - }); -var $elm$html$Html$Attributes$attribute = $elm$virtual_dom$VirtualDom$attribute; -var $author$project$View$aria_role = $elm$html$Html$Attributes$attribute('aria-role'); -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 $author$project$Types$Download = {$: 4}; -var $author$project$Types$Requested = {$: 0}; -var $author$project$Types$ToggleDarkMode = {$: 3}; -var $elm$html$Html$Attributes$alt = $elm$html$Html$Attributes$stringProperty('alt'); -var $author$project$View$darkMode = function (mode) { - if (!mode) { - return false; - } else { - return true; - } -}; -var $elm$html$Html$img = _VirtualDom_node('img'); -var $elm$html$Html$Attributes$src = function (url) { - return A2( - $elm$html$Html$Attributes$stringProperty, - 'src', - _VirtualDom_noJavaScriptOrHtmlUri(url)); -}; -var $author$project$View$bulbIcon = function (mode) { - return A2( - $elm$html$Html$img, - _List_fromArray( - [ - $elm$html$Html$Attributes$src( - $author$project$View$darkMode(mode) ? 'assets/bulb-on.svg' : 'assets/bulb-off.svg'), - $elm$html$Html$Attributes$alt('Toggle Dark Mode') - ]), - _List_Nil); -}; -var $elm$html$Html$button = _VirtualDom_node('button'); -var $elm$html$Html$div = _VirtualDom_node('div'); -var $author$project$View$downloadIcon = A2( - $elm$html$Html$img, - _List_fromArray( - [ - $elm$html$Html$Attributes$src('assets/download.svg'), - $elm$html$Html$Attributes$alt('Download') - ]), - _List_Nil); -var $elm$html$Html$Attributes$id = $elm$html$Html$Attributes$stringProperty('id'); -var $author$project$View$errorIcon = A2( - $elm$html$Html$img, - _List_fromArray( - [ - $elm$html$Html$Attributes$id('error'), - $elm$html$Html$Attributes$src('assets/error.svg'), - $elm$html$Html$Attributes$alt('Something Went Wrong') - ]), - _List_Nil); -var $author$project$Types$Invalid = 1; -var $author$project$Types$Validation = function (a) { - return {$: 2, a: a}; -}; -var $elm$virtual_dom$VirtualDom$Normal = function (a) { - return {$: 0, 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 $author$project$View$onError = function (f) { - return A2( - $elm$html$Html$Events$on, - 'error', - $elm$json$Json$Decode$succeed(f)); -}; -var $author$project$View$onLoad = function (f) { - return A2( - $elm$html$Html$Events$on, - 'load', - $elm$json$Json$Decode$succeed(f)); -}; -var $author$project$View$valid = function (status) { - if (!status) { - return true; - } else { - return false; - } -}; -var $author$project$View$loaded = function (model) { - return $author$project$View$valid(model.aT) ? $author$project$View$onError( - $author$project$Types$Validation(1)) : $author$project$View$onLoad( - $author$project$Types$Validation(0)); -}; -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$View$uploadIcon = A2( - $elm$html$Html$img, - _List_fromArray( - [ - $elm$html$Html$Attributes$src('assets/upload.svg'), - $elm$html$Html$Attributes$alt('Upload') - ]), - _List_Nil); -var $author$project$View$percentEscape = function (m) { - var _v0 = m.bl; - switch (_v0) { - case '!': - return '%21'; - case '#': - return '%23'; - case '$': - return '%24'; - case '%': - return '%25'; - case '&': - return '%26'; - case '\'': - return '%27'; - case '(': - return '%28'; - case ')': - return '%29'; - case '*': - return '%2A'; - case '+': - return '%2B'; - case ',': - return '%2C'; - case '/': - return '%2F'; - case ':': - return '%3A'; - case ';': - return '%3B'; - case '=': - return '%3D'; - case '?': - return '%3F'; - case '@': - return '%40'; - case '[': - return '%5B'; - case ']': - return '%5D'; - default: - var str = _v0; - return str; - } -}; -var $elm$regex$Regex$replace = _Regex_replaceAtMost(_Regex_infinity); -var $author$project$View$uri = function (model) { - return 'data:image/svg+xml;utf8,' + A3($elm$regex$Regex$replace, model.bL, $author$project$View$percentEscape, model.N); -}; -var $author$project$View$display = function (model) { - return A2( - $elm$html$Html$div, - _Utils_ap( - _List_fromArray( - [ - $elm$html$Html$Attributes$id('display'), - $author$project$View$aria_role('region'), - $elm$html$Html$Attributes$class( - $author$project$View$darkMode(model.T) ? 'dark' : 'light') - ]), - $author$project$View$valid(model.aT) ? _List_Nil : _List_fromArray( - [ - $author$project$View$aria_role('alert') - ])), - _List_fromArray( - [ - A2( - $elm$html$Html$img, - _List_fromArray( - [ - $elm$html$Html$Attributes$id('image'), - $elm$html$Html$Attributes$src( - $author$project$View$uri(model)), - $author$project$View$loaded(model), - $elm$html$Html$Attributes$alt('Picture Display') - ]), - _List_Nil), - $author$project$View$errorIcon, - A2( - $elm$html$Html$button, - _List_fromArray( - [ - $elm$html$Html$Events$onClick($author$project$Types$Download), - $elm$html$Html$Attributes$alt('Download File') - ]), - _List_fromArray( - [$author$project$View$downloadIcon])), - A2( - $elm$html$Html$button, - _List_fromArray( - [ - $elm$html$Html$Events$onClick( - $author$project$Types$Upload($author$project$Types$Requested)), - $elm$html$Html$Attributes$alt('Upload File') - ]), - _List_fromArray( - [$author$project$View$uploadIcon])), - A2( - $elm$html$Html$button, - _List_fromArray( - [ - $elm$html$Html$Events$onClick($author$project$Types$ToggleDarkMode), - $elm$html$Html$Attributes$alt('Toggle Dark Mode') - ]), - _List_fromArray( - [ - $author$project$View$bulbIcon(model.T) - ])) - ])); -}; -var $author$project$Editor$aria_role = $elm$html$Html$Attributes$attribute('aria-role'); -var $elm$html$Html$code = _VirtualDom_node('code'); -var $elm$core$Result$map = F2( - function (func, ra) { - if (!ra.$) { - var a = ra.a; - return $elm$core$Result$Ok( - func(a)); - } else { - var e = ra.a; - return $elm$core$Result$Err(e); - } - }); -var $author$project$Editor$placeholder = '<svg ...> ... </svg>'; -var $elm$html$Html$pre = _VirtualDom_node('pre'); -var $elm$virtual_dom$VirtualDom$text = _VirtualDom_text; -var $elm$html$Html$text = $elm$virtual_dom$VirtualDom$text; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Line$Add = 1; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Line$Del = 2; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Line$Normal = 0; -var $elm$core$List$filter = F2( - function (isGood, list) { - return A3( - $elm$core$List$foldr, - F2( - function (x, xs) { - return isGood(x) ? A2($elm$core$List$cons, x, xs) : xs; - }), - _List_Nil, - list); - }); -var $elm$core$Tuple$second = function (_v0) { - var y = _v0.b; - return y; -}; -var $elm$html$Html$Attributes$classList = function (classes) { - return $elm$html$Html$Attributes$class( - A2( - $elm$core$String$join, - ' ', - A2( - $elm$core$List$map, - $elm$core$Tuple$first, - A2($elm$core$List$filter, $elm$core$Tuple$second, classes)))); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Style$Default = 0; -var $elm$core$Basics$neq = _Utils_notEqual; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$View$requiredStyleToString = function (required) { - return 'elmsh' + function () { - switch (required) { - case 0: - return '0'; - case 1: - return '-comm'; - case 2: - return '1'; - case 3: - return '2'; - case 4: - return '3'; - case 5: - return '4'; - case 6: - return '5'; - case 7: - return '6'; - default: - return '7'; - } - }(); -}; -var $elm$html$Html$span = _VirtualDom_node('span'); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$View$fragmentView = function (_v0) { - var text = _v0.bH; - var requiredStyle = _v0.bt; - var additionalClass = _v0.a0; - return ((!requiredStyle) && $elm$core$String$isEmpty(additionalClass)) ? $elm$html$Html$text(text) : A2( - $elm$html$Html$span, - _List_fromArray( - [ - $elm$html$Html$Attributes$classList( - _List_fromArray( - [ - _Utils_Tuple2( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$View$requiredStyleToString(requiredStyle), - !(!requiredStyle)), - _Utils_Tuple2('elmsh-' + additionalClass, additionalClass !== '') - ])) - ]), - _List_fromArray( - [ - $elm$html$Html$text(text) - ])); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$View$lineView = F3( - function (start, index, _v0) { - var fragments = _v0.be; - var highlight = _v0.bg; - return A2( - $elm$html$Html$div, - _List_fromArray( - [ - $elm$html$Html$Attributes$classList( - _List_fromArray( - [ - _Utils_Tuple2('elmsh-line', true), - _Utils_Tuple2( - 'elmsh-hl', - _Utils_eq( - highlight, - $elm$core$Maybe$Just(0))), - _Utils_Tuple2( - 'elmsh-add', - _Utils_eq( - highlight, - $elm$core$Maybe$Just(1))), - _Utils_Tuple2( - 'elmsh-del', - _Utils_eq( - highlight, - $elm$core$Maybe$Just(2))) - ])), - A2( - $elm$html$Html$Attributes$attribute, - 'data-elmsh-lc', - $elm$core$String$fromInt(start + index)) - ]), - A2($elm$core$List$map, $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$View$fragmentView, fragments)); - }); -var $elm$core$List$singleton = function (value) { - return _List_fromArray( - [value]); -}; -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 $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$View$toInlineHtml = function (lines) { - return A2( - $elm$html$Html$code, - _List_fromArray( - [ - $elm$html$Html$Attributes$class('elmsh') - ]), - $elm$core$List$concat( - A2( - $elm$core$List$map, - function (_v0) { - var highlight = _v0.bg; - var fragments = _v0.be; - return _Utils_eq(highlight, $elm$core$Maybe$Nothing) ? A2($elm$core$List$map, $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$View$fragmentView, fragments) : _List_fromArray( - [ - A2( - $elm$html$Html$span, - _List_fromArray( - [ - $elm$html$Html$Attributes$classList( - _List_fromArray( - [ - _Utils_Tuple2( - 'elmsh-hl', - _Utils_eq( - highlight, - $elm$core$Maybe$Just(0))), - _Utils_Tuple2( - 'elmsh-add', - _Utils_eq( - highlight, - $elm$core$Maybe$Just(1))), - _Utils_Tuple2( - 'elmsh-del', - _Utils_eq( - highlight, - $elm$core$Maybe$Just(2))) - ])) - ]), - A2($elm$core$List$map, $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$View$fragmentView, fragments)) - ]); - }, - lines))); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$View$toBlockHtml = F2( - function (maybeStart, lines) { - if (maybeStart.$ === 1) { - return A2( - $elm$html$Html$pre, - _List_fromArray( - [ - $elm$html$Html$Attributes$class('elmsh') - ]), - _List_fromArray( - [ - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$View$toInlineHtml(lines) - ])); - } else { - var start = maybeStart.a; - return A2( - $elm$html$Html$pre, - _List_fromArray( - [ - $elm$html$Html$Attributes$class('elmsh') - ]), - $elm$core$List$singleton( - A2( - $elm$html$Html$code, - _List_Nil, - A2( - $elm$core$List$indexedMap, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$View$lineView(start), - lines)))); - } - }); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$toBlockHtml = F2( - function (maybeStart, _v0) { - var lines = _v0; - return A2($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$View$toBlockHtml, maybeStart, lines); - }); -var $elm$core$Result$withDefault = F2( - function (def, result) { - if (!result.$) { - var a = result.a; - return a; - } else { - return def; - } - }); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$HCode = $elm$core$Basics$identity; -var $elm$parser$Parser$DeadEnd = F3( - function (row, col, problem) { - return {ac: col, aD: problem, aN: row}; - }); -var $elm$parser$Parser$problemToDeadEnd = function (p) { - return A3($elm$parser$Parser$DeadEnd, p.aN, p.ac, p.aD); -}; -var $elm$parser$Parser$Advanced$bagToList = F2( - function (bag, list) { - bagToList: - while (true) { - switch (bag.$) { - case 0: - return list; - case 1: - var bag1 = bag.a; - var x = bag.b; - var $temp$bag = bag1, - $temp$list = A2($elm$core$List$cons, x, list); - bag = $temp$bag; - list = $temp$list; - continue bagToList; - default: - var bag1 = bag.a; - var bag2 = bag.b; - var $temp$bag = bag1, - $temp$list = A2($elm$parser$Parser$Advanced$bagToList, bag2, list); - bag = $temp$bag; - list = $temp$list; - continue bagToList; - } - } - }); -var $elm$parser$Parser$Advanced$run = F2( - function (_v0, src) { - var parse = _v0; - var _v1 = parse( - {ac: 1, c: _List_Nil, d: 1, b: 0, aN: 1, a: src}); - if (!_v1.$) { - var value = _v1.b; - return $elm$core$Result$Ok(value); - } else { - var bag = _v1.b; - return $elm$core$Result$Err( - A2($elm$parser$Parser$Advanced$bagToList, bag, _List_Nil)); - } - }); -var $elm$parser$Parser$run = F2( - function (parser, source) { - var _v0 = A2($elm$parser$Parser$Advanced$run, parser, source); - if (!_v0.$) { - var a = _v0.a; - return $elm$core$Result$Ok(a); - } else { - var problems = _v0.a; - return $elm$core$Result$Err( - A2($elm$core$List$map, $elm$parser$Parser$problemToDeadEnd, problems)); - } - }); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Style$Style2 = 3; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Style$Style3 = 4; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Style$Style5 = 6; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$syntaxToStyle = function (syntax) { - switch (syntax) { - case 0: - return _Utils_Tuple2(4, 'xml-t'); - case 1: - return _Utils_Tuple2(6, 'xml-a'); - default: - return _Utils_Tuple2(3, 'xlm-av'); - } -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Line$Helpers$newLine = function (fragments) { - return {be: fragments, bg: $elm$core$Maybe$Nothing}; -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$LineBreak = {$: 2}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Style$Comment = 1; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Line$Helpers$toFragment = F2( - function (toStyle, _v0) { - var syntax = _v0.a; - var text = _v0.b; - switch (syntax.$) { - case 0: - return {a0: '', bt: 0, bH: text}; - case 1: - return {a0: '', bt: 1, bH: text}; - case 2: - return {a0: '', bt: 0, bH: text}; - default: - var c = syntax.a; - var _v2 = toStyle(c); - var requiredStyle = _v2.a; - var additionalClass = _v2.b; - return {a0: additionalClass, bt: requiredStyle, bH: text}; - } - }); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Line$Helpers$toLinesHelp = F3( - function (toStyle, _v0, _v1) { - var syntax = _v0.a; - var text = _v0.b; - var lines = _v1.a; - var fragments = _v1.b; - var maybeLastSyntax = _v1.c; - if (_Utils_eq(syntax, $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$LineBreak)) { - return _Utils_Tuple3( - A2( - $elm$core$List$cons, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Line$Helpers$newLine(fragments), - lines), - _List_fromArray( - [ - A2( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Line$Helpers$toFragment, - toStyle, - _Utils_Tuple2(syntax, text)) - ]), - $elm$core$Maybe$Nothing); - } else { - if (_Utils_eq( - $elm$core$Maybe$Just(syntax), - maybeLastSyntax)) { - if (fragments.b) { - var headFrag = fragments.a; - var tailFrags = fragments.b; - return _Utils_Tuple3( - lines, - A2( - $elm$core$List$cons, - _Utils_update( - headFrag, - { - bH: _Utils_ap(text, headFrag.bH) - }), - tailFrags), - maybeLastSyntax); - } else { - return _Utils_Tuple3( - lines, - A2( - $elm$core$List$cons, - A2( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Line$Helpers$toFragment, - toStyle, - _Utils_Tuple2(syntax, text)), - fragments), - maybeLastSyntax); - } - } else { - return _Utils_Tuple3( - lines, - A2( - $elm$core$List$cons, - A2( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Line$Helpers$toFragment, - toStyle, - _Utils_Tuple2(syntax, text)), - fragments), - $elm$core$Maybe$Just(syntax)); - } - } - }); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Line$Helpers$toLines = F2( - function (toStyle, revTokens) { - return function (_v0) { - var lines = _v0.a; - var frags = _v0.b; - return A2( - $elm$core$List$cons, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Line$Helpers$newLine(frags), - lines); - }( - A3( - $elm$core$List$foldl, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Line$Helpers$toLinesHelp(toStyle), - _Utils_Tuple3(_List_Nil, _List_Nil, $elm$core$Maybe$Nothing), - revTokens)); - }); -var $elm$parser$Parser$Advanced$Parser = $elm$core$Basics$identity; -var $elm$parser$Parser$Advanced$Bad = F2( - function (a, b) { - return {$: 1, a: a, b: b}; - }); -var $elm$parser$Parser$Advanced$Good = F3( - function (a, b, c) { - return {$: 0, a: a, b: b, c: c}; - }); -var $elm$parser$Parser$Advanced$loopHelp = F4( - function (p, state, callback, s0) { - loopHelp: - while (true) { - var _v0 = callback(state); - var parse = _v0; - var _v1 = parse(s0); - if (!_v1.$) { - var p1 = _v1.a; - var step = _v1.b; - var s1 = _v1.c; - if (!step.$) { - var newState = step.a; - var $temp$p = p || p1, - $temp$state = newState, - $temp$callback = callback, - $temp$s0 = s1; - p = $temp$p; - state = $temp$state; - callback = $temp$callback; - s0 = $temp$s0; - continue loopHelp; - } else { - var result = step.a; - return A3($elm$parser$Parser$Advanced$Good, p || p1, result, s1); - } - } else { - var p1 = _v1.a; - var x = _v1.b; - return A2($elm$parser$Parser$Advanced$Bad, p || p1, x); - } - } - }); -var $elm$parser$Parser$Advanced$loop = F2( - function (state, callback) { - return function (s) { - return A4($elm$parser$Parser$Advanced$loopHelp, false, state, callback, s); - }; - }); -var $elm$parser$Parser$Advanced$map = F2( - function (func, _v0) { - var parse = _v0; - return function (s0) { - var _v1 = parse(s0); - if (!_v1.$) { - var p = _v1.a; - var a = _v1.b; - var s1 = _v1.c; - return A3( - $elm$parser$Parser$Advanced$Good, - p, - func(a), - s1); - } else { - var p = _v1.a; - var x = _v1.b; - return A2($elm$parser$Parser$Advanced$Bad, p, x); - } - }; - }); -var $elm$parser$Parser$map = $elm$parser$Parser$Advanced$map; -var $elm$parser$Parser$Advanced$Done = function (a) { - return {$: 1, a: a}; -}; -var $elm$parser$Parser$Advanced$Loop = function (a) { - return {$: 0, a: a}; -}; -var $elm$parser$Parser$toAdvancedStep = function (step) { - if (!step.$) { - var s = step.a; - return $elm$parser$Parser$Advanced$Loop(s); - } else { - var a = step.a; - return $elm$parser$Parser$Advanced$Done(a); - } -}; -var $elm$parser$Parser$loop = F2( - function (state, callback) { - return A2( - $elm$parser$Parser$Advanced$loop, - state, - function (s) { - return A2( - $elm$parser$Parser$map, - $elm$parser$Parser$toAdvancedStep, - callback(s)); - }); - }); -var $elm$parser$Parser$Done = function (a) { - return {$: 1, a: a}; -}; -var $elm$parser$Parser$Loop = function (a) { - return {$: 0, a: a}; -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$Normal = {$: 0}; -var $elm$parser$Parser$UnexpectedChar = {$: 11}; -var $elm$parser$Parser$Advanced$AddRight = F2( - function (a, b) { - return {$: 1, a: a, b: b}; - }); -var $elm$parser$Parser$Advanced$DeadEnd = F4( - function (row, col, problem, contextStack) { - return {ac: col, a6: contextStack, aD: problem, aN: row}; - }); -var $elm$parser$Parser$Advanced$Empty = {$: 0}; -var $elm$parser$Parser$Advanced$fromState = F2( - function (s, x) { - return A2( - $elm$parser$Parser$Advanced$AddRight, - $elm$parser$Parser$Advanced$Empty, - A4($elm$parser$Parser$Advanced$DeadEnd, s.aN, s.ac, x, s.c)); - }); -var $elm$parser$Parser$Advanced$isSubChar = _Parser_isSubChar; -var $elm$core$Basics$negate = function (n) { - return -n; -}; -var $elm$parser$Parser$Advanced$chompIf = F2( - function (isGood, expecting) { - return function (s) { - var newOffset = A3($elm$parser$Parser$Advanced$isSubChar, isGood, s.b, s.a); - return _Utils_eq(newOffset, -1) ? A2( - $elm$parser$Parser$Advanced$Bad, - false, - A2($elm$parser$Parser$Advanced$fromState, s, expecting)) : (_Utils_eq(newOffset, -2) ? A3( - $elm$parser$Parser$Advanced$Good, - true, - 0, - {ac: 1, c: s.c, d: s.d, b: s.b + 1, aN: s.aN + 1, a: s.a}) : A3( - $elm$parser$Parser$Advanced$Good, - true, - 0, - {ac: s.ac + 1, c: s.c, d: s.d, b: newOffset, aN: s.aN, a: s.a})); - }; - }); -var $elm$parser$Parser$chompIf = function (isGood) { - return A2($elm$parser$Parser$Advanced$chompIf, isGood, $elm$parser$Parser$UnexpectedChar); -}; -var $elm$parser$Parser$Advanced$chompWhileHelp = F5( - function (isGood, offset, row, col, s0) { - chompWhileHelp: - while (true) { - var newOffset = A3($elm$parser$Parser$Advanced$isSubChar, isGood, offset, s0.a); - if (_Utils_eq(newOffset, -1)) { - return A3( - $elm$parser$Parser$Advanced$Good, - _Utils_cmp(s0.b, offset) < 0, - 0, - {ac: col, c: s0.c, d: s0.d, b: offset, aN: row, a: s0.a}); - } else { - if (_Utils_eq(newOffset, -2)) { - var $temp$isGood = isGood, - $temp$offset = offset + 1, - $temp$row = row + 1, - $temp$col = 1, - $temp$s0 = s0; - isGood = $temp$isGood; - offset = $temp$offset; - row = $temp$row; - col = $temp$col; - s0 = $temp$s0; - continue chompWhileHelp; - } else { - var $temp$isGood = isGood, - $temp$offset = newOffset, - $temp$row = row, - $temp$col = col + 1, - $temp$s0 = s0; - isGood = $temp$isGood; - offset = $temp$offset; - row = $temp$row; - col = $temp$col; - s0 = $temp$s0; - continue chompWhileHelp; - } - } - } - }); -var $elm$parser$Parser$Advanced$chompWhile = function (isGood) { - return function (s) { - return A5($elm$parser$Parser$Advanced$chompWhileHelp, isGood, s.b, s.aN, s.ac, s); - }; -}; -var $elm$parser$Parser$chompWhile = $elm$parser$Parser$Advanced$chompWhile; -var $elm$core$Basics$always = F2( - function (a, _v0) { - return a; - }); -var $elm$parser$Parser$Advanced$map2 = F3( - function (func, _v0, _v1) { - var parseA = _v0; - var parseB = _v1; - return function (s0) { - var _v2 = parseA(s0); - if (_v2.$ === 1) { - var p = _v2.a; - var x = _v2.b; - return A2($elm$parser$Parser$Advanced$Bad, p, x); - } else { - var p1 = _v2.a; - var a = _v2.b; - var s1 = _v2.c; - var _v3 = parseB(s1); - if (_v3.$ === 1) { - var p2 = _v3.a; - var x = _v3.b; - return A2($elm$parser$Parser$Advanced$Bad, p1 || p2, x); - } else { - var p2 = _v3.a; - var b = _v3.b; - var s2 = _v3.c; - return A3( - $elm$parser$Parser$Advanced$Good, - p1 || p2, - A2(func, a, b), - s2); - } - } - }; - }); -var $elm$parser$Parser$Advanced$ignorer = F2( - function (keepParser, ignoreParser) { - return A3($elm$parser$Parser$Advanced$map2, $elm$core$Basics$always, keepParser, ignoreParser); - }); -var $elm$parser$Parser$ignorer = $elm$parser$Parser$Advanced$ignorer; -var $elm$parser$Parser$Advanced$succeed = function (a) { - return function (s) { - return A3($elm$parser$Parser$Advanced$Good, false, a, s); - }; -}; -var $elm$parser$Parser$succeed = $elm$parser$Parser$Advanced$succeed; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$chompIfThenWhile = function (isNotRelevant) { - return A2( - $elm$parser$Parser$ignorer, - A2( - $elm$parser$Parser$ignorer, - $elm$parser$Parser$succeed(0), - $elm$parser$Parser$chompIf(isNotRelevant)), - $elm$parser$Parser$chompWhile(isNotRelevant)); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$Comment = {$: 1}; -var $elm$parser$Parser$Advanced$andThen = F2( - function (callback, _v0) { - var parseA = _v0; - return function (s0) { - var _v1 = parseA(s0); - if (_v1.$ === 1) { - var p = _v1.a; - var x = _v1.b; - return A2($elm$parser$Parser$Advanced$Bad, p, x); - } else { - var p1 = _v1.a; - var a = _v1.b; - var s1 = _v1.c; - var _v2 = callback(a); - var parseB = _v2; - var _v3 = parseB(s1); - if (_v3.$ === 1) { - var p2 = _v3.a; - var x = _v3.b; - return A2($elm$parser$Parser$Advanced$Bad, p1 || p2, x); - } else { - var p2 = _v3.a; - var b = _v3.b; - var s2 = _v3.c; - return A3($elm$parser$Parser$Advanced$Good, p1 || p2, b, s2); - } - } - }; - }); -var $elm$parser$Parser$andThen = $elm$parser$Parser$Advanced$andThen; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$addThen = F3( - function (f, list, plist) { - return A2( - $elm$parser$Parser$andThen, - function (n) { - return f( - _Utils_ap(n, list)); - }, - plist); - }); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$consThen = F3( - function (f, list, pn) { - return A2( - $elm$parser$Parser$andThen, - function (n) { - return f( - A2($elm$core$List$cons, n, list)); - }, - pn); - }); -var $elm$parser$Parser$ExpectingEnd = {$: 10}; -var $elm$parser$Parser$Advanced$end = function (x) { - return function (s) { - return _Utils_eq( - $elm$core$String$length(s.a), - s.b) ? A3($elm$parser$Parser$Advanced$Good, false, 0, s) : A2( - $elm$parser$Parser$Advanced$Bad, - false, - A2($elm$parser$Parser$Advanced$fromState, s, x)); - }; -}; -var $elm$parser$Parser$end = $elm$parser$Parser$Advanced$end($elm$parser$Parser$ExpectingEnd); -var $elm$parser$Parser$Advanced$mapChompedString = F2( - function (func, _v0) { - var parse = _v0; - return function (s0) { - var _v1 = parse(s0); - if (_v1.$ === 1) { - var p = _v1.a; - var x = _v1.b; - return A2($elm$parser$Parser$Advanced$Bad, p, x); - } else { - var p = _v1.a; - var a = _v1.b; - var s1 = _v1.c; - return A3( - $elm$parser$Parser$Advanced$Good, - p, - A2( - func, - A3($elm$core$String$slice, s0.b, s1.b, s0.a), - a), - s1); - } - }; - }); -var $elm$parser$Parser$Advanced$getChompedString = function (parser) { - return A2($elm$parser$Parser$Advanced$mapChompedString, $elm$core$Basics$always, parser); -}; -var $elm$parser$Parser$getChompedString = $elm$parser$Parser$Advanced$getChompedString; -var $elm$parser$Parser$Advanced$Append = F2( - function (a, b) { - return {$: 2, a: a, b: b}; - }); -var $elm$parser$Parser$Advanced$oneOfHelp = F3( - function (s0, bag, parsers) { - oneOfHelp: - while (true) { - if (!parsers.b) { - return A2($elm$parser$Parser$Advanced$Bad, false, bag); - } else { - var parse = parsers.a; - var remainingParsers = parsers.b; - var _v1 = parse(s0); - if (!_v1.$) { - var step = _v1; - return step; - } else { - var step = _v1; - var p = step.a; - var x = step.b; - if (p) { - return step; - } else { - var $temp$s0 = s0, - $temp$bag = A2($elm$parser$Parser$Advanced$Append, bag, x), - $temp$parsers = remainingParsers; - s0 = $temp$s0; - bag = $temp$bag; - parsers = $temp$parsers; - continue oneOfHelp; - } - } - } - } - }); -var $elm$parser$Parser$Advanced$oneOf = function (parsers) { - return function (s) { - return A3($elm$parser$Parser$Advanced$oneOfHelp, s, $elm$parser$Parser$Advanced$Empty, parsers); - }; -}; -var $elm$parser$Parser$oneOf = $elm$parser$Parser$Advanced$oneOf; -var $elm$parser$Parser$ExpectingSymbol = function (a) { - return {$: 8, a: a}; -}; -var $elm$parser$Parser$Advanced$Token = F2( - function (a, b) { - return {$: 0, a: a, b: b}; - }); -var $elm$parser$Parser$Advanced$isSubString = _Parser_isSubString; -var $elm$core$Basics$not = _Basics_not; -var $elm$parser$Parser$Advanced$token = function (_v0) { - var str = _v0.a; - var expecting = _v0.b; - var progress = !$elm$core$String$isEmpty(str); - return function (s) { - var _v1 = A5($elm$parser$Parser$Advanced$isSubString, str, s.b, s.aN, s.ac, s.a); - var newOffset = _v1.a; - var newRow = _v1.b; - var newCol = _v1.c; - return _Utils_eq(newOffset, -1) ? A2( - $elm$parser$Parser$Advanced$Bad, - false, - A2($elm$parser$Parser$Advanced$fromState, s, expecting)) : A3( - $elm$parser$Parser$Advanced$Good, - progress, - 0, - {ac: newCol, c: s.c, d: s.d, b: newOffset, aN: newRow, a: s.a}); - }; -}; -var $elm$parser$Parser$Advanced$symbol = $elm$parser$Parser$Advanced$token; -var $elm$parser$Parser$symbol = function (str) { - return $elm$parser$Parser$Advanced$symbol( - A2( - $elm$parser$Parser$Advanced$Token, - str, - $elm$parser$Parser$ExpectingSymbol(str))); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$thenChompWhile = F2( - function (isNotRelevant, previousParser) { - return A2( - $elm$parser$Parser$ignorer, - previousParser, - $elm$parser$Parser$chompWhile(isNotRelevant)); - }); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimitedUnnestable = F2( - function (options, revAList) { - var defaultMap = options.ag; - var isNotRelevant = options.at; - var end = options.ah; - var innerParsers = options.aq; - return $elm$parser$Parser$oneOf( - _List_fromArray( - [ - A2( - $elm$parser$Parser$map, - $elm$core$Basics$always( - A2( - $elm$core$List$cons, - defaultMap(end), - revAList)), - $elm$parser$Parser$symbol(end)), - A2( - $elm$parser$Parser$map, - $elm$core$Basics$always(revAList), - $elm$parser$Parser$end), - A3( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$addThen, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimitedUnnestable(options), - revAList, - $elm$parser$Parser$oneOf(innerParsers)), - A3( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$consThen, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimitedUnnestable(options), - revAList, - A2( - $elm$parser$Parser$map, - defaultMap, - $elm$parser$Parser$getChompedString( - A2( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$thenChompWhile, - isNotRelevant, - $elm$parser$Parser$chompIf( - $elm$core$Basics$always(true)))))) - ])); - }); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimitedNestable = F3( - function (nestLevel, options, revAList) { - var defaultMap = options.ag; - var isNotRelevant = options.at; - var start = options.X; - var end = options.ah; - var innerParsers = options.aq; - return $elm$parser$Parser$oneOf( - _List_fromArray( - [ - A2( - $elm$parser$Parser$andThen, - function (n) { - return (nestLevel === 1) ? $elm$parser$Parser$succeed(n) : A3($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimitedNestable, nestLevel - 1, options, n); - }, - A2( - $elm$parser$Parser$map, - $elm$core$Basics$always( - A2( - $elm$core$List$cons, - defaultMap(end), - revAList)), - $elm$parser$Parser$symbol(end))), - A3( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$consThen, - A2($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimitedNestable, nestLevel + 1, options), - revAList, - A2( - $elm$parser$Parser$map, - defaultMap, - $elm$parser$Parser$getChompedString( - A2( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$thenChompWhile, - isNotRelevant, - $elm$parser$Parser$symbol(start))))), - A3( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$addThen, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimitedUnnestable(options), - revAList, - $elm$parser$Parser$oneOf(innerParsers)), - A2( - $elm$parser$Parser$map, - $elm$core$Basics$always(revAList), - $elm$parser$Parser$end), - A3( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$consThen, - A2($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimitedNestable, nestLevel, options), - revAList, - A2( - $elm$parser$Parser$map, - defaultMap, - $elm$parser$Parser$getChompedString( - A2( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$thenChompWhile, - isNotRelevant, - $elm$parser$Parser$chompIf( - $elm$core$Basics$always(true)))))) - ])); - }); -var $elm$parser$Parser$Problem = function (a) { - return {$: 12, a: a}; -}; -var $elm$parser$Parser$Advanced$problem = function (x) { - return function (s) { - return A2( - $elm$parser$Parser$Advanced$Bad, - false, - A2($elm$parser$Parser$Advanced$fromState, s, x)); - }; -}; -var $elm$parser$Parser$problem = function (msg) { - return $elm$parser$Parser$Advanced$problem( - $elm$parser$Parser$Problem(msg)); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimitedHelp = F2( - function (options, revAList) { - var start = options.X; - var end = options.ah; - var isNotRelevant = options.at; - var _v0 = _Utils_Tuple2( - $elm$core$String$uncons(options.X), - $elm$core$String$uncons(options.ah)); - if (_v0.a.$ === 1) { - var _v1 = _v0.a; - return $elm$parser$Parser$problem('Trying to parse a delimited helper, but the start token cannot be an empty string!'); - } else { - if (_v0.b.$ === 1) { - var _v2 = _v0.b; - return $elm$parser$Parser$problem('Trying to parse a delimited helper, but the end token cannot be an empty string!'); - } else { - var _v3 = _v0.a.a; - var startChar = _v3.a; - var _v4 = _v0.b.a; - var endChar = _v4.a; - return options.as ? A3( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimitedNestable, - 1, - _Utils_update( - options, - { - at: function (c) { - return isNotRelevant(c) && ((!_Utils_eq(c, startChar)) && (!_Utils_eq(c, endChar))); - } - }), - revAList) : A2( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimitedUnnestable, - _Utils_update( - options, - { - at: function (c) { - return isNotRelevant(c) && (!_Utils_eq(c, endChar)); - } - }), - revAList); - } - } - }); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimited = function (options) { - var start = options.X; - var isNotRelevant = options.at; - var defaultMap = options.ag; - return A2( - $elm$parser$Parser$andThen, - function (n) { - return A2( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimitedHelp, - options, - _List_fromArray( - [n])); - }, - A2( - $elm$parser$Parser$map, - $elm$core$Basics$always( - defaultMap(start)), - $elm$parser$Parser$symbol(start))); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$AttributeValue = 2; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$C = function (a) { - return {$: 3, a: a}; -}; -var $elm$core$Basics$composeL = F3( - function (g, f, x) { - return g( - f(x)); - }); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$isLineBreak = function (c) { - return c === '\n'; -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$lineBreak = A2( - $elm$parser$Parser$map, - function (_v0) { - return _Utils_Tuple2($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$LineBreak, '\n'); - }, - $elm$parser$Parser$symbol('\n')); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$lineBreakList = A2($elm$parser$Parser$map, $elm$core$List$singleton, $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$lineBreak); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$doubleQuoteDelimiter = { - ag: function (b) { - return _Utils_Tuple2( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$C(2), - b); - }, - ah: '\"', - aq: _List_fromArray( - [$pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$lineBreakList]), - as: false, - at: A2($elm$core$Basics$composeL, $elm$core$Basics$not, $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$isLineBreak), - X: '\"' -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$comment = $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimited( - _Utils_update( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$doubleQuoteDelimiter, - { - ag: function (b) { - return _Utils_Tuple2($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$Comment, b); - }, - ah: '-->', - X: '<!--' - })); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$openTagParser = A2( - $elm$parser$Parser$ignorer, - A2( - $elm$parser$Parser$ignorer, - $elm$parser$Parser$succeed(0), - $elm$parser$Parser$chompIf( - function (c) { - return c === '<'; - })), - $elm$parser$Parser$oneOf( - _List_fromArray( - [ - $elm$parser$Parser$chompIf( - function (c) { - return (c === '/') || ((c === '!') || (c === '?')); - }), - $elm$parser$Parser$succeed(0) - ]))); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$Tag = 0; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$Attribute = 1; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$doubleQuote = $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimited($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$doubleQuoteDelimiter); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$isSpace = function (c) { - return (c === ' ') || (c === '\t'); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$isWhitespace = function (c) { - return $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$isSpace(c) || $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$isLineBreak(c); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$quote = $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$delimited( - _Utils_update( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$doubleQuoteDelimiter, - {ah: '\'', X: '\''})); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$attributeValue = $elm$parser$Parser$oneOf( - _List_fromArray( - [ - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$doubleQuote, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$quote, - A2( - $elm$parser$Parser$map, - function (b) { - return _List_fromArray( - [ - _Utils_Tuple2( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$C(2), - b) - ]); - }, - $elm$parser$Parser$getChompedString( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$chompIfThenWhile( - function (c) { - return (!$pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$isWhitespace(c)) && (c !== '>'); - }))) - ])); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$whitespace = $elm$parser$Parser$oneOf( - _List_fromArray( - [ - A2( - $elm$parser$Parser$map, - function (s) { - return _Utils_Tuple2($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$Normal, s); - }, - $elm$parser$Parser$getChompedString( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$chompIfThenWhile($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$isSpace))), - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$lineBreak - ])); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$attributeValueLoop = function (revTokens) { - return $elm$parser$Parser$oneOf( - _List_fromArray( - [ - A3($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$consThen, $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$attributeValueLoop, revTokens, $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$whitespace), - A3($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$addThen, $elm$parser$Parser$succeed, revTokens, $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$attributeValue), - $elm$parser$Parser$succeed(revTokens) - ])); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$attributeConfirm = function (revTokens) { - return $elm$parser$Parser$oneOf( - _List_fromArray( - [ - A3($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$consThen, $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$attributeConfirm, revTokens, $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$whitespace), - A3( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$consThen, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$attributeValueLoop, - revTokens, - A2( - $elm$parser$Parser$map, - function (_v0) { - return _Utils_Tuple2($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$Normal, '='); - }, - $elm$parser$Parser$symbol('='))), - $elm$parser$Parser$succeed(revTokens) - ])); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$isStartTagChar = function (c) { - return $elm$core$Char$isUpper(c) || ($elm$core$Char$isLower(c) || $elm$core$Char$isDigit(c)); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$isTagChar = function (c) { - return $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$isStartTagChar(c) || (c === '-'); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$isAttributeChar = function (c) { - return $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$isTagChar(c) || (c === '_'); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$attributeLoop = function (revTokens) { - return $elm$parser$Parser$oneOf( - _List_fromArray( - [ - A2( - $elm$parser$Parser$map, - $elm$parser$Parser$Loop, - A3( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$consThen, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$attributeConfirm, - revTokens, - A2( - $elm$parser$Parser$map, - function (b) { - return _Utils_Tuple2( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$C(1), - b); - }, - $elm$parser$Parser$getChompedString( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$chompIfThenWhile($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$isAttributeChar))))), - A2( - $elm$parser$Parser$map, - function (n) { - return $elm$parser$Parser$Loop( - A2($elm$core$List$cons, n, revTokens)); - }, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$whitespace), - A2( - $elm$parser$Parser$map, - function (b) { - return $elm$parser$Parser$Loop( - A2( - $elm$core$List$cons, - _Utils_Tuple2($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$Normal, b), - revTokens)); - }, - $elm$parser$Parser$getChompedString( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$chompIfThenWhile( - function (c) { - return (!$pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$isWhitespace(c)) && (c !== '>'); - }))), - $elm$parser$Parser$succeed( - $elm$parser$Parser$Done(revTokens)) - ])); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$tag = function (revTokens) { - return $elm$parser$Parser$oneOf( - _List_fromArray( - [ - A2( - $elm$parser$Parser$andThen, - function (n) { - return A2( - $elm$parser$Parser$loop, - A2($elm$core$List$cons, n, revTokens), - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$attributeLoop); - }, - A2( - $elm$parser$Parser$map, - function (b) { - return _Utils_Tuple2( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$C(0), - b); - }, - $elm$parser$Parser$getChompedString( - A2( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$thenChompWhile, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$isTagChar, - $elm$parser$Parser$chompIf($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$isStartTagChar))))), - $elm$parser$Parser$succeed(revTokens) - ])); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$openTag = function (revTokens) { - return A2( - $elm$parser$Parser$andThen, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$tag, - A2( - $elm$parser$Parser$map, - function (b) { - return A2( - $elm$core$List$cons, - _Utils_Tuple2($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$Normal, b), - revTokens); - }, - $elm$parser$Parser$getChompedString($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$openTagParser))); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$mainLoop = function (revTokens) { - return $elm$parser$Parser$oneOf( - _List_fromArray( - [ - A2( - $elm$parser$Parser$map, - function (n) { - return $elm$parser$Parser$Loop( - A2($elm$core$List$cons, n, revTokens)); - }, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$whitespace), - A2( - $elm$parser$Parser$map, - function (n) { - return $elm$parser$Parser$Loop( - _Utils_ap(n, revTokens)); - }, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$comment), - A2( - $elm$parser$Parser$map, - function (n) { - return $elm$parser$Parser$Loop( - A2( - $elm$core$List$cons, - _Utils_Tuple2($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Type$Normal, n), - revTokens)); - }, - $elm$parser$Parser$getChompedString( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$chompIfThenWhile( - function (c) { - return (c !== '<') && (!$pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Helpers$isLineBreak(c)); - }))), - A2( - $elm$parser$Parser$map, - $elm$parser$Parser$Loop, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$openTag(revTokens)), - $elm$parser$Parser$succeed( - $elm$parser$Parser$Done(revTokens)) - ])); -}; -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$toRevTokens = A2($elm$parser$Parser$loop, _List_Nil, $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$mainLoop); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$toLines = A2( - $elm$core$Basics$composeR, - $elm$parser$Parser$run($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$toRevTokens), - $elm$core$Result$map( - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Line$Helpers$toLines($pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$syntaxToStyle))); -var $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$xml = A2( - $elm$core$Basics$composeR, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$Language$Xml$toLines, - $elm$core$Result$map($elm$core$Basics$identity)); -var $author$project$Editor$codeDisplay = function (model) { - return A2( - $elm$core$Result$withDefault, - A2( - $elm$html$Html$pre, - _List_Nil, - _List_fromArray( - [ - A2( - $elm$html$Html$code, - _List_Nil, - _List_fromArray( - [ - $elm$html$Html$text(model.N) - ])) - ])), - A2( - $elm$core$Result$map, - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$toBlockHtml($elm$core$Maybe$Nothing), - $pablohirafuji$elm_syntax_highlight$SyntaxHighlight$xml( - (model.N === '') ? $author$project$Editor$placeholder : model.N))); -}; -var $author$project$Types$Scroll = function (a) { - return {$: 6, a: a}; -}; -var $elm$html$Html$Events$alwaysStop = function (x) { - return _Utils_Tuple2(x, true); -}; -var $elm$virtual_dom$VirtualDom$MayStopPropagation = function (a) { - return {$: 1, 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$Decode$int = _Json_decodeInt; -var $author$project$Editor$onScroll = function (f) { - return A2( - $elm$html$Html$Events$on, - 'scroll', - A2( - $elm$json$Json$Decode$map, - f, - A3( - $elm$json$Json$Decode$map2, - function (x) { - return function (y) { - return _Utils_Tuple2(x, y); - }; - }, - A2( - $elm$json$Json$Decode$at, - _List_fromArray( - ['target', 'scrollLeft']), - $elm$json$Json$Decode$int), - A2( - $elm$json$Json$Decode$at, - _List_fromArray( - ['target', 'scrollTop']), - $elm$json$Json$Decode$int)))); -}; -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$spellcheck = $elm$html$Html$Attributes$boolProperty('spellcheck'); -var $elm$html$Html$textarea = _VirtualDom_node('textarea'); -var $elm$html$Html$Attributes$value = $elm$html$Html$Attributes$stringProperty('value'); -var $author$project$Editor$textarea = function (model) { - return A2( - $elm$html$Html$textarea, - _List_fromArray( - [ - $elm$html$Html$Attributes$value(model.N), - $elm$html$Html$Events$onInput($author$project$Types$Update), - $author$project$Editor$onScroll($author$project$Types$Scroll), - $elm$html$Html$Attributes$spellcheck(false), - $elm$html$Html$Attributes$alt('Text Editor') - ]), - _List_Nil); -}; -var $author$project$Editor$show = $elm$core$String$fromInt; -var $elm$virtual_dom$VirtualDom$style = _VirtualDom_style; -var $elm$html$Html$Attributes$style = $elm$virtual_dom$VirtualDom$style; -var $author$project$Editor$transform = function (str) { - return A2($elm$html$Html$Attributes$style, 'transform', str); -}; -var $author$project$Editor$translate = function (_v0) { - var x = _v0.a; - var y = _v0.b; - return $author$project$Editor$transform( - 'translate(' + ($author$project$Editor$show(-x) + ('px, ' + ($author$project$Editor$show(-y) + 'px)')))); -}; -var $author$project$Editor$editor = function (model) { - return A2( - $elm$html$Html$div, - _List_fromArray( - [ - $elm$html$Html$Attributes$id('editor'), - $elm$html$Html$Attributes$alt('Text Editor'), - $author$project$Editor$aria_role('region') - ]), - _List_fromArray( - [ - A2( - $elm$html$Html$div, - _List_fromArray( - [ - $author$project$Editor$translate(model.ba) - ]), - _List_fromArray( - [ - $author$project$Editor$codeDisplay(model) - ])), - $author$project$Editor$textarea(model) - ])); -}; -var $elm$html$Html$h1 = _VirtualDom_node('h1'); -var $elm$virtual_dom$VirtualDom$lazy = _VirtualDom_lazy; -var $elm$html$Html$Lazy$lazy = $elm$virtual_dom$VirtualDom$lazy; -var $author$project$View$container = function (model) { - return A2( - $elm$html$Html$div, - _Utils_ap( - _List_fromArray( - [ - $elm$html$Html$Attributes$id('container'), - $author$project$View$aria_role('application') - ]), - $author$project$View$valid(model.aT) ? _List_Nil : _List_fromArray( - [ - $elm$html$Html$Attributes$class('error') - ])), - _List_fromArray( - [ - A2( - $elm$html$Html$h1, - _List_Nil, - _List_fromArray( - [ - $elm$html$Html$text('SGV Editor') - ])), - $author$project$View$display(model), - A2($elm$html$Html$Lazy$lazy, $author$project$Editor$editor, model) - ])); -}; -var $author$project$View$view = function (model) { - return { - a3: function () { - var _v0 = model.R; - if (!_v0) { - return _List_Nil; - } else { - return _List_fromArray( - [ - A2($elm$html$Html$Lazy$lazy, $author$project$View$container, model) - ]); - } - }(), - bJ: 'SVG Editor' - }; -}; -var $author$project$Main$main = $elm$browser$Browser$document( - { - bj: function (_v0) { - return _Utils_Tuple2($author$project$Main$init, $author$project$Main$loadContent); - }, - bG: function (_v1) { - return $elm$core$Platform$Sub$none; - }, - bK: $author$project$Main$update, - bN: $author$project$View$view - }); -_Platform_export({'Main':{'init':$author$project$Main$main( - $elm$json$Json$Decode$succeed(0))(0)}});}(this));- \ No newline at end of file
diff --git a/src/Editor.elm b/src/Editor.elm @@ -4,12 +4,18 @@ import Types exposing (..) import Html exposing (Html, Attribute, div, pre, code, text, textarea) import Html.Attributes exposing (id, value, style, spellcheck, alt, attribute) import Html.Events exposing (onInput, on) +import Accessibility.Landmark exposing (region) +import Accessibility.Widget exposing (label) import Json.Decode import SyntaxHighlight exposing (xml, toBlockHtml) editor : Model -> Html Msg editor model = - div [ id "editor", alt "Text Editor" , aria_role "region" ] + div [ id "editor" + , alt "Text Editor" + , region + , label "SVG Editor" + ] [ div [ translate model.editorScroll ] [ codeDisplay model ] @@ -57,5 +63,3 @@ placeholder = show : Int -> String show = String.fromInt -aria_role : String -> Attribute msg -aria_role = attribute "aria-role"
diff --git a/src/View.elm b/src/View.elm @@ -25,6 +25,8 @@ import Html.Attributes exposing ( id , attribute ) import Html.Lazy exposing (lazy) +import Accessibility.Landmark exposing (application, region) +import Accessibility.Role exposing (alert) import Browser exposing (Document) import Json.Decode import Regex exposing (Regex, Match, replace) @@ -44,7 +46,7 @@ container : Model -> Html Msg container model = div ( - [ id "container", aria_role "application" ] + [ id "container", application ] ++ (if valid model.status then [] else [class "error"]) ) @@ -58,23 +60,25 @@ display model = div ( [ id "display" - , aria_role "region" + , region , class (if darkMode model.mode then "dark" else "light") ] ++ -- Alert users when the image is invalid - (if valid model.status then [] else [aria_role "alert"]) + (if valid model.status then [] else [ alert ]) ) [ img [ id "image", src (uri model), loaded model, alt "Picture Display" ] [] , errorIcon - , button [ onClick Download, alt "Download File" ] [ downloadIcon ] , button - [ onClick (Upload Requested), alt "Upload File" ] + [ onClick Download, alt "Download File", tabindex0 ] + [ downloadIcon ] + , button + [ onClick (Upload Requested), alt "Upload File", tabindex0 ] [ uploadIcon ] , button - [ onClick ToggleDarkMode, alt "Toggle Dark Mode" ] + [ onClick ToggleDarkMode, alt "Toggle Dark Mode", tabindex0 ] [ bulbIcon model.mode ] ] @@ -83,9 +87,6 @@ uri model = "data:image/svg+xml;utf8," ++ (replace model.uriEncoder percentEscape model.image) -aria_role : String -> Attribute msg -aria_role = attribute "aria-role" - percentEscape : Match -> String percentEscape m = case m.match of @@ -143,19 +144,31 @@ darkMode mode = Dark -> True downloadIcon : Html Msg -downloadIcon = img [ src "assets/download.svg", alt "Download" ] [] +downloadIcon = + img + [ src "assets/download.svg", alt "Download file", tabindex0 ] + [] uploadIcon : Html Msg -uploadIcon = img [ src "assets/upload.svg", alt "Upload" ] [] +uploadIcon = + img + [ src "assets/upload.svg", alt "Upload file", tabindex0 ] + [] bulbIcon : Mode -> Html Msg bulbIcon mode = - img [ src (if darkMode mode then "assets/bulb-on.svg" else "assets/bulb-off.svg") - , alt "Toggle Dark Mode" - ] [] + img + [ src (if darkMode mode then "assets/bulb-on.svg" else "assets/bulb-off.svg") + , alt "Toggle Dark Mode" + , tabindex0 + ] + [] errorIcon : Html Msg errorIcon = img [ id "error", src "assets/error.svg", alt "Something Went Wrong" ] [] + +tabindex0 : Attribute msg +tabindex0 = attribute "tabindex" "0"