diff --git a/Setup.hs b/Setup.hs
--- a/Setup.hs
+++ b/Setup.hs
@@ -12,60 +12,43 @@
main :: IO ()
-main = defaultMainWithHooks simpleUserHooks { postBuild = myPostBuild }
+main =
+ defaultMainWithHooks simpleUserHooks { postBuild = myPostBuild }
+
myPostBuild :: Args -> BuildFlags -> PackageDescription -> LocalBuildInfo -> IO ()
myPostBuild args flags pd lbi =
- do putStrLn "Custom build step: compiling debuggerInterface.elm"
- buildInterface lbi
- concatJS lbi
- postBuild simpleUserHooks args flags pd lbi
+ do putStrLn "Custom build step: compiling debuggerInterface.elm"
+ buildInterface
+ concatJS lbi
+ postBuild simpleUserHooks args flags pd lbi
+
concatJS :: LocalBuildInfo -> IO ()
concatJS lbi =
- do let files = map (("assets" "_reactor") )
- [ "debuggerInterface.js"
- , "toString.js"
- , "core.js"
- , "reactor.js"
- ]
- megaJS <- concat `fmap` mapM readFile files
- _ <- putStrLn "Writing composite debugger.js"
- writeFile ("assets" "debugger.js") megaJS
+ do megaJS <- concat `fmap` mapM readFile jsFiles
+ _ <- putStrLn "Writing composite debugger.js"
+ writeFile ("assets" "debugger.js") megaJS
-buildInterface :: LocalBuildInfo -> IO ()
-buildInterface lbi =
- do exitCode <- compile $ args "debuggerInterface.elm"
- case exitCode of
- ExitFailure _ ->
- putStrLn "Build failed: debuggerInterface"
- ExitSuccess ->
- renameFile
- ("slider" "build" "debuggerInterface.js")
- ("assets" "_reactor" "debuggerInterface.js")
- removeEverything "slider" "Slider.elm"
- removeEverything "slider" "debuggerInterface.elm"
- where
- args file =
- [ "--make"
- , "--only-js"
- , file
- ]
+jsFiles :: [FilePath]
+jsFiles =
+ map (\name -> "assets" "_reactor" name)
+ [ "debuggerInterface.js"
+ , "toString.js"
+ , "core.js"
+ , "reactor.js"
+ ]
- compile args =
- do let workingDir = Just "slider"
- handle <- runProcess "elm" args workingDir Nothing Nothing Nothing Nothing
- exitCode <- waitForProcess handle
- return exitCode
- removeEverything dir file =
- do remove "cache" "elmi"
- remove "cache" "elmo"
- remove "build" "js"
- where
- remove :: String -> String -> IO ()
- remove subdir ext =
- do let path = dir subdir file`replaceExtension` ext
- exists <- doesFileExist path
- when exists (removeFile path)
+buildInterface :: IO ()
+buildInterface =
+ do (exitCode, out, err) <-
+ readProcessWithExitCode "elm-make" [ "--yes", "frontend" "debuggerInterface.elm" ] ""
+ case exitCode of
+ ExitSuccess ->
+ renameFile "elm.js" ("assets" "_reactor" "debuggerInterface.js")
+
+ ExitFailure _ ->
+ do hPutStrLn stderr ("Failed to build debuggerInterface.elm\n\n" ++ out ++ err)
+ exitFailure
diff --git a/assets/debugger.js b/assets/debugger.js
--- a/assets/debugger.js
+++ b/assets/debugger.js
@@ -1,1050 +1,12063 @@
-Elm.Native.Slider = {};
-Elm.Native.Slider.make = function(elm) {
-
- elm.Native = elm.Native || {};
- elm.Native.Slider = elm.Native.Slider || {};
- if (elm.Native.Slider.values) return elm.Native.Slider.values;
-
- var newNode = ElmRuntime.use(ElmRuntime.Render.Utils).newElement;
- var newElement = Elm.Graphics.Element.make(elm).newElement;
-
- function renderSlider(model) {
- var node = newNode('input');
- node.type = 'range';
-
- node.min = model.styling.min;
- node.max = model.styling.max;
- node.step = model.styling.step;
- node.value = model.styling.value;
-
- if (!model.styling.horizontal) {
- node.orient = "vertical"; // FF
- node.style.webkitAppearance = "slider-vertical"; // webkit
- node.style.writingMode = "bt-lr"; // ie
- }
-
- if (model.styling.disabled) {
- node.disabled = true;
- }
-
- node.style.display = 'block';
- node.style.pointerEvents = 'auto';
- node.elm_signal = model.signal;
- node.elm_handler = model.handler;
- node.addEventListener('input', notifySlider);
- node.addEventListener('change', notifySlider);
- function notifySlider() {
- elm.notify(node.elm_signal.id, node.elm_handler(node.value));
- }
- return node;
- }
-
- function updateSlider(node, oldModel, newModel) {
- if (newModel.styling.disabled) {
- node.disabled = true;
- } else {
- node.disabled = false;
- }
- node.elm_signal = newModel.signal;
- node.elm_handler = newModel.handler;
- node.min = newModel.styling.min;
- node.max = newModel.styling.max;
- node.step = newModel.styling.step;
- node.value = newModel.styling.value;
- }
-
- function slider(signal, handler, styling) {
- var width = styling.length;
- var height = 24;
- if (!styling.horizontal) {
- var temp = width;
- width = height;
- height = temp;
- }
- return A3(newElement, width, height, {
- ctor: 'Custom',
- type: 'Slider',
- render: renderSlider,
- update: updateSlider,
- model: { signal:signal, handler:handler, styling:styling }
- });
- }
-
- return elm.Native.Slider.values = {
- slider:F3(slider)
- };
-}
-Elm.DebuggerInterface = Elm.DebuggerInterface || {};
-Elm.DebuggerInterface.make = function (_elm) {
- "use strict";
- _elm.DebuggerInterface = _elm.DebuggerInterface || {};
- if (_elm.DebuggerInterface.values)
- return _elm.DebuggerInterface.values;
- var _op = {},
- _N = Elm.Native,
- _U = _N.Utils.make(_elm),
- _L = _N.List.make(_elm),
- _A = _N.Array.make(_elm),
- _E = _N.Error.make(_elm),
- $moduleName = "DebuggerInterface",
- $Basics = Elm.Basics.make(_elm),
- $Color = Elm.Color.make(_elm),
- $Graphics$Collage = Elm.Graphics.Collage.make(_elm),
- $Graphics$Element = Elm.Graphics.Element.make(_elm),
- $Graphics$Input = Elm.Graphics.Input.make(_elm),
- $List = Elm.List.make(_elm),
- $Maybe = Elm.Maybe.make(_elm),
- $Native$Json = Elm.Native.Json.make(_elm),
- $Native$Ports = Elm.Native.Ports.make(_elm),
- $Signal = Elm.Signal.make(_elm),
- $Slider = Elm.Slider.make(_elm),
- $String = Elm.String.make(_elm),
- $Text = Elm.Text.make(_elm),
- $Window = Elm.Window.make(_elm);
- var noWatches = $Text.markdown("
You don't have any watches!
\n\n\nUse Debug.watch\nto show any value.
\nwatch : String -> a -> a
\n\nUse Debug.watchSummary to show a
\nsummary or subvalue of any value.
\n
",
- "320:13");
- var roundedSquare = F3(function (side,
- radius,
- toForm) {
- return function () {
- var formedCircle = toForm($Graphics$Collage.circle(radius));
- var shortSide = side - 2 * radius;
- var xRect = toForm(A2($Graphics$Collage.rect,
- side,
- shortSide));
- var yRect = toForm(A2($Graphics$Collage.rect,
- shortSide,
- side));
- var circleOffset = shortSide / 2;
- var tl = $Graphics$Collage.move({ctor: "_Tuple2"
- ,_0: 0 - circleOffset
- ,_1: circleOffset})(formedCircle);
- var tr = $Graphics$Collage.move({ctor: "_Tuple2"
- ,_0: circleOffset
- ,_1: circleOffset})(formedCircle);
- var bl = $Graphics$Collage.move({ctor: "_Tuple2"
- ,_0: 0 - circleOffset
- ,_1: 0 - circleOffset})(formedCircle);
- var br = $Graphics$Collage.move({ctor: "_Tuple2"
- ,_0: circleOffset
- ,_1: 0 - circleOffset})(formedCircle);
- return $Graphics$Collage.group(_L.fromArray([xRect
- ,yRect
- ,tl
- ,tr
- ,bl
- ,br]));
- }();
- });
- var startState = {_: {}
- ,paused: false
- ,scrubPosition: 0
- ,totalEvents: 0};
- var step = F2(function (update,
- state) {
- return function () {
- switch (update.ctor)
- {case "Pause":
- return _U.replace([["paused"
- ,update._0]
- ,["totalEvents"
- ,update._0 ? state.totalEvents : state.scrubPosition]],
- state);
- case "Restart":
- return startState;
- case "ScrubPosition":
- return _U.replace([["scrubPosition"
- ,update._0]
- ,["paused",true]],
- state);
- case "TotalEvents":
- return _U.replace([["totalEvents"
- ,update._0]
- ,["scrubPosition",update._0]],
- state);}
- _E.Case($moduleName,
- "between lines 265 and 286");
- }();
- });
- var showSwap = $Native$Ports.portIn("showSwap",
- function (v) {
- return typeof v === "boolean" ? v : _E.raise("invalid input, expecting JSBoolean but got " + v);
- });
- var watches = $Native$Ports.portIn("watches",
- $Native$Ports.incomingSignal(function (v) {
- return _U.isJSArray(v) ? _L.fromArray(v.map(function (v) {
- return _U.isJSArray(v) ? {ctor: "_Tuple2"
- ,_0: typeof v[0] === "string" || typeof v[0] === "object" && v[0] instanceof String ? v[0] : _E.raise("invalid input, expecting JSString but got " + v[0])
- ,_1: typeof v[1] === "string" || typeof v[1] === "object" && v[1] instanceof String ? v[1] : _E.raise("invalid input, expecting JSString but got " + v[1])} : _E.raise("invalid input, expecting JSArray but got " + v);
- })) : _E.raise("invalid input, expecting JSArray but got " + v);
- }));
- var eventCounter = $Native$Ports.portIn("eventCounter",
- $Native$Ports.incomingSignal(function (v) {
- return typeof v === "number" ? v : _E.raise("invalid input, expecting JSNumber but got " + v);
- }));
- var scrubInput = $Graphics$Input.input(0);
- var restartInput = $Graphics$Input.input({ctor: "_Tuple0"});
- var permitSwapInput = $Graphics$Input.input(true);
- var pausedInput = $Graphics$Input.input(false);
- var permitSwap = $Native$Ports.portOut("permitSwap",
- $Native$Ports.outgoingSignal(function (v) {
- return v;
- }),
- permitSwapInput.signal);
- var restart = $Native$Ports.portOut("restart",
- $Native$Ports.outgoingSignal(function (v) {
- return v;
- }),
- A2($Signal.lift,
- function (x) {
- return 0;
- },
- restartInput.signal));
- var scrubSlider = F2(function (_v4,
- state) {
- return function () {
- switch (_v4.ctor)
- {case "_Tuple2":
- return function () {
- var sliderLength = _v4._0;
- var sliderStyle = _U.replace([["length"
- ,sliderLength]
- ,["max"
- ,$Basics.toFloat(state.totalEvents)]
- ,["value"
- ,$Basics.toFloat(state.scrubPosition)]],
- $Slider.defaultSlider);
- return A3($Graphics$Element.container,
- sliderLength,
- 20,
- $Graphics$Element.middle)(A3($Slider.slider,
- scrubInput.handle,
- $Basics.round,
- sliderStyle));
- }();}
- _E.Case($moduleName,
- "between lines 115 and 123");
- }();
- });
- var myButton = F3(function (handle,
- value,
- name) {
- return function () {
- var img = function (state) {
- return A3($Graphics$Element.image,
- 40,
- 40,
- _L.append("/_reactor/debugger/",
- _L.append(name,
- _L.append("-button-",
- _L.append(state,".png")))));
- };
- return A5($Graphics$Input.customButton,
- handle,
- value,
- img("up"),
- img("hover"),
- img("down"));
- }();
- });
- var playButton = A3(myButton,
- pausedInput.handle,
- false,
- "play");
- var pauseButton = A3(myButton,
- pausedInput.handle,
- true,
- "pause");
- var restartButton = A3(myButton,
- restartInput.handle,
- {ctor: "_Tuple0"},
- "restart");
- var darkGrey = A3($Color.rgb,
- 74,
- 74,
- 74);
- var lightGrey = A3($Color.rgb,
- 228,
- 228,
- 228);
- var dataStyle = F3(function (typefaces,
- height,
- string) {
- return function () {
- var myStyle = _U.replace([["typeface"
- ,typefaces]
- ,["color",lightGrey]
- ,["height"
- ,$Maybe.Just(height)]],
- $Text.defaultStyle);
- return A2($Text.style,
- myStyle,
- $Text.toText(string));
- }();
- });
- var textStyle = A2(dataStyle,
- _L.fromArray(["Gotham"
- ,"Futura"
- ,"Lucida Grande"
- ,"sans-serif"]),
- 12);
- var watchStyle = A2(dataStyle,
- _L.fromArray(["Gotham"
- ,"Futura"
- ,"Lucida Grande"
- ,"sans-serif"]),
- 14);
- var codeStyle = A2(dataStyle,
- _L.fromArray(["Menlo for Powerline"
- ,"monospace"]),
- 12);
- var blue = A3($Color.rgb,
- 28,
- 129,
- 218);
- var swapButton = function (permitSwap) {
- return function () {
- var info = $Text.leftAligned(textStyle("swap"));
- var radius = 4;
- var hsWidth = 25;
- var bgButton = A3(roundedSquare,
- hsWidth,
- radius,
- $Graphics$Collage.filled(lightGrey));
- var trueButton = _L.fromArray([bgButton
- ,A3(roundedSquare,
- 22,
- radius,
- $Graphics$Collage.filled(blue))]);
- var falseButtonClick = trueButton;
- var trueButtonHover = _L.fromArray([bgButton
- ,A3(roundedSquare,
- 22,
- radius,
- $Graphics$Collage.filled(blue))
- ,$Graphics$Collage.alpha(0.1)(A3(roundedSquare,
- 22,
- radius,
- $Graphics$Collage.filled(darkGrey)))]);
- var falseButton = _L.fromArray([bgButton
- ,A3(roundedSquare,
- 22,
- radius,
- $Graphics$Collage.filled(darkGrey))]);
- var trueButtonClick = falseButton;
- var falseButtonHover = _L.fromArray([bgButton
- ,A3(roundedSquare,
- 22,
- radius,
- $Graphics$Collage.filled(darkGrey))
- ,$Graphics$Collage.alpha(0.1)(A3(roundedSquare,
- 22,
- radius,
- $Graphics$Collage.filled(blue)))]);
- var button = permitSwap ? A5($Graphics$Input.customButton,
- permitSwapInput.handle,
- false,
- A3($Graphics$Collage.collage,
- hsWidth,
- hsWidth,
- trueButton),
- A3($Graphics$Collage.collage,
- hsWidth,
- hsWidth,
- trueButtonHover),
- A3($Graphics$Collage.collage,
- hsWidth,
- hsWidth,
- trueButtonClick)) : A5($Graphics$Input.customButton,
- permitSwapInput.handle,
- true,
- A3($Graphics$Collage.collage,
- hsWidth,
- hsWidth,
- falseButton),
- A3($Graphics$Collage.collage,
- hsWidth,
- hsWidth,
- falseButtonHover),
- A3($Graphics$Collage.collage,
- hsWidth,
- hsWidth,
- falseButtonClick));
- return A2($Graphics$Element.flow,
- $Graphics$Element.right,
- _L.fromArray([info
- ,A2($Graphics$Element.spacer,
- 10,
- 1)
- ,button]));
- }();
- };
- var panelWidth = 275;
- var textHeight = 20;
- var sliderMinMaxText = F2(function (w,
- state) {
- return function () {
- var sliderTotalEvents = A3($Graphics$Element.container,
- w,
- textHeight,
- $Graphics$Element.topRight)($Text.rightAligned(textStyle($String.show(state.totalEvents))));
- var sliderStartText = A3($Graphics$Element.container,
- w,
- textHeight,
- $Graphics$Element.topLeft)($Text.leftAligned(textStyle("0")));
- return A2($Graphics$Element.flow,
- $Graphics$Element.outward,
- _L.fromArray([sliderStartText
- ,sliderTotalEvents]));
- }();
- });
- var sideMargin = 2 * 20;
- var sliderEventText = F2(function (w,
- state) {
- return function () {
- var text$ = $Text.centered(textStyle($String.show(state.scrubPosition)));
- var yPos = $Graphics$Element.absolute($Basics.round(textHeight / 2));
- var totalEvents = $Basics.toFloat(state.totalEvents);
- var scrubPosition = $Basics.toFloat(state.scrubPosition);
- var textWidthOffset = 14;
- var midWidth = $Basics.toFloat(w) - sideMargin - textWidthOffset;
- var leftDistance = _U.eq(totalEvents,
- 0) ? sideMargin / 2 + textWidthOffset / 2 : scrubPosition / totalEvents * midWidth + sideMargin / 2 + textWidthOffset / 2;
- var xPos = $Graphics$Element.absolute($Basics.round(leftDistance));
- var textPosition = A2($Graphics$Element.middleAt,
- xPos,
- yPos);
- return A4($Graphics$Element.container,
- w,
- textHeight,
- textPosition,
- text$);
- }();
- });
- var buttonWidth = 40;
- var buttonHeight = 40;
- var view = F4(function (_v8,
- watches,
- permitSwap,
- state) {
- return function () {
- switch (_v8.ctor)
- {case "_Tuple2":
- return function () {
- var showWatch = function (_v12) {
- return function () {
- switch (_v12.ctor)
- {case "_Tuple2":
- return A2($Graphics$Element.flow,
- $Graphics$Element.down,
- _L.fromArray([$Graphics$Element.width(_v8._0)($Text.leftAligned($Text.bold(watchStyle(_v12._0))))
- ,$Graphics$Element.width(_v8._0)($Text.leftAligned(codeStyle(_v12._1)))
- ,A2($Graphics$Element.spacer,
- 1,
- 12)]));}
- _E.Case($moduleName,
- "between lines 195 and 199");
- }();
- };
- var watchView = A2($Graphics$Element.flow,
- $Graphics$Element.right,
- _L.fromArray([A2($Graphics$Element.spacer,
- 20,
- 1)
- ,function () {
- switch (watches.ctor)
- {case "[]": return noWatches;}
- return $Graphics$Element.flow($Graphics$Element.down)(A2($List.map,
- showWatch,
- watches));
- }()]));
- var bar = A2($Graphics$Element.flow,
- $Graphics$Element.down,
- _L.fromArray([$Graphics$Element.opacity(0.3)($Graphics$Element.color(lightGrey)(A2($Graphics$Element.spacer,
- _v8._0,
- 1)))
- ,A2($Graphics$Element.spacer,
- _v8._0,
- 12)]));
- var fittedSwapButton = showSwap ? A3($Graphics$Element.container,
- _v8._0 - 2 * buttonWidth - sideMargin,
- buttonHeight,
- $Graphics$Element.middle)(swapButton(permitSwap)) : A2($Graphics$Element.spacer,
- 2 * buttonWidth,
- 1);
- var buttons = A2($Graphics$Element.flow,
- $Graphics$Element.right,
- _L.fromArray([restartButton
- ,fittedSwapButton
- ,state.paused ? playButton : pauseButton]));
- var buttonContainer = A4($Graphics$Element.container,
- _v8._0,
- buttonHeight,
- $Graphics$Element.midTop,
- buttons);
- var buttonSliderSpaceHeight = 10;
- var topSpacerHeight = 15;
- var midWidth = _v8._0 - sideMargin;
- var centeredSliderContainer = A3($Graphics$Element.container,
- _v8._0,
- 24 + textHeight,
- $Graphics$Element.midTop)(A2($Graphics$Element.flow,
- $Graphics$Element.down,
- _L.fromArray([A2(scrubSlider,
- {ctor: "_Tuple2"
- ,_0: midWidth
- ,_1: _v8._1},
- state)
- ,A2(sliderMinMaxText,
- midWidth,
- state)])));
- var slider = A3($Graphics$Element.container,
- _v8._0,
- 24 + 2 * textHeight,
- $Graphics$Element.midTop)(A2($Graphics$Element.flow,
- $Graphics$Element.down,
- _L.fromArray([A2(sliderEventText,
- _v8._0,
- state)
- ,centeredSliderContainer])));
- var controls = A2($Graphics$Element.flow,
- $Graphics$Element.down,
- _L.fromArray([A2($Graphics$Element.spacer,
- midWidth,
- topSpacerHeight)
- ,buttonContainer
- ,A2($Graphics$Element.spacer,
- midWidth,
- buttonSliderSpaceHeight)
- ,slider
- ,A2($Graphics$Element.spacer,
- midWidth,
- 10)]));
- return A2($Graphics$Element.flow,
- $Graphics$Element.down,
- _L.fromArray([controls
- ,bar
- ,watchView]));
- }();}
- _E.Case($moduleName,
- "between lines 160 and 210");
- }();
- });
- var State = F3(function (a,
- b,
- c) {
- return {_: {}
- ,paused: a
- ,scrubPosition: c
- ,totalEvents: b};
- });
- var ScrubPosition = function (a) {
- return {ctor: "ScrubPosition"
- ,_0: a};
- };
- var TotalEvents = function (a) {
- return {ctor: "TotalEvents"
- ,_0: a};
- };
- var Pause = function (a) {
- return {ctor: "Pause",_0: a};
- };
- var Restart = {ctor: "Restart"};
- var aggregateUpdates = $Signal.merges(_L.fromArray([A2($Signal._op["<~"],
- $Basics.always(Restart),
- restartInput.signal)
- ,A2($Signal._op["<~"],
- Pause,
- pausedInput.signal)
- ,A2($Signal._op["<~"],
- TotalEvents,
- eventCounter)
- ,A2($Signal._op["<~"],
- ScrubPosition,
- scrubInput.signal)]));
- var scene = A3($Signal.foldp,
- step,
- startState,
- aggregateUpdates);
- var main = A2($Signal._op["~"],
- A2($Signal._op["~"],
- A2($Signal._op["~"],
- A2($Signal._op["<~"],
- view,
- A2($Signal._op["<~"],
- function (_v17) {
- return function () {
- switch (_v17.ctor)
- {case "_Tuple2":
- return {ctor: "_Tuple2"
- ,_0: panelWidth
- ,_1: _v17._1};}
- _E.Case($moduleName,
- "on line 218, column 30 to 43");
- }();
- },
- $Window.dimensions)),
- watches),
- permitSwapInput.signal),
- scene);
- var scrubTo = $Native$Ports.portOut("scrubTo",
- $Native$Ports.outgoingSignal(function (v) {
- return v;
- }),
- A2($Signal._op["<~"],
- function (_) {
- return _.scrubPosition;
- },
- scene));
- var pause = $Native$Ports.portOut("pause",
- $Native$Ports.outgoingSignal(function (v) {
- return v;
- }),
- A2($Signal._op["<~"],
- function (_) {
- return _.paused;
- },
- scene));
- _elm.DebuggerInterface.values = {_op: _op
- ,Restart: Restart
- ,Pause: Pause
- ,TotalEvents: TotalEvents
- ,ScrubPosition: ScrubPosition
- ,State: State
- ,buttonHeight: buttonHeight
- ,buttonWidth: buttonWidth
- ,sideMargin: sideMargin
- ,textHeight: textHeight
- ,panelWidth: panelWidth
- ,blue: blue
- ,lightGrey: lightGrey
- ,darkGrey: darkGrey
- ,dataStyle: dataStyle
- ,textStyle: textStyle
- ,watchStyle: watchStyle
- ,codeStyle: codeStyle
- ,myButton: myButton
- ,playButton: playButton
- ,pauseButton: pauseButton
- ,restartButton: restartButton
- ,swapButton: swapButton
- ,scrubSlider: scrubSlider
- ,sliderEventText: sliderEventText
- ,sliderMinMaxText: sliderMinMaxText
- ,view: view
- ,main: main
- ,pausedInput: pausedInput
- ,permitSwapInput: permitSwapInput
- ,restartInput: restartInput
- ,scrubInput: scrubInput
- ,scene: scene
- ,startState: startState
- ,step: step
- ,aggregateUpdates: aggregateUpdates
- ,roundedSquare: roundedSquare
- ,noWatches: noWatches};
- return _elm.DebuggerInterface.values;
-};Elm.Slider = Elm.Slider || {};
-Elm.Slider.make = function (_elm) {
- "use strict";
- _elm.Slider = _elm.Slider || {};
- if (_elm.Slider.values)
- return _elm.Slider.values;
- var _op = {},
- _N = Elm.Native,
- _U = _N.Utils.make(_elm),
- _L = _N.List.make(_elm),
- _A = _N.Array.make(_elm),
- _E = _N.Error.make(_elm),
- $moduleName = "Slider",
- $Graphics$Element = Elm.Graphics.Element.make(_elm),
- $Graphics$Input = Elm.Graphics.Input.make(_elm),
- $Native$Slider = Elm.Native.Slider.make(_elm);
- var slider = $Native$Slider.slider;
- var defaultSlider = {_: {}
- ,disabled: false
- ,horizontal: true
- ,length: 100
- ,max: 100
- ,min: 0
- ,step: 1
- ,value: 0};
- var SliderStyle = F7(function (a,
- b,
- c,
- d,
- e,
- f,
- g) {
- return {_: {}
- ,disabled: b
- ,horizontal: a
- ,length: c
- ,max: e
- ,min: d
- ,step: f
- ,value: g};
- });
- _elm.Slider.values = {_op: _op
- ,SliderStyle: SliderStyle
- ,defaultSlider: defaultSlider
- ,slider: slider};
- return _elm.Slider.values;
-};
-// A note to the reader:
-// This file is concatenated with debuggerInterface.elm's compiled
-// javascript and debug-core.js. This is done at build time in Setup.hs
-
-var prettyPrint = function(){
-
- var independentElm = {};
- var NList = Elm.Native.List.make(independentElm);
- var List = Elm.List.make(independentElm);
- var ElmArray = Elm.Array.make(independentElm);
- var Dict = Elm.Dict.make(independentElm);
- var Tuple2 = Elm.Native.Utils.make(independentElm).Tuple2;
-
- var toString = function(v, separator) {
- var type = typeof v;
- if (type === "function") {
- var name = v.func ? v.func.name : v.name;
- return '';
- } else if (type === "boolean") {
- return v ? "True" : "False";
- } else if (type === "number") {
- return v.toFixed(2).replace(/\.0+$/g, '');
- } else if ((v instanceof String) && v.isChar) {
- return "'" + addSlashes(v) + "'";
- } else if (type === "string") {
- return '"' + addSlashes(v) + '"';
- } else if (type === "object" && '_' in v && probablyPublic(v)) {
- var output = [];
- for (var k in v._) {
- for (var i = v._[k].length; i--; ) {
- output.push(k + " = " + toString(v._[k][i], separator));
- }
- }
- for (var k in v) {
- if (k === '_') continue;
- output.push(k + " = " + toString(v[k], separator));
- }
- if (output.length === 0) return "{}";
- var body = "\n" + output.join(",\n");
- return "{" + body.replace(/\n/g,"\n" + separator) + "\n}";
- } else if (type === "object" && 'ctor' in v) {
- if (v.ctor.substring(0,6) === "_Tuple") {
- var output = [];
- for (var k in v) {
- if (k === 'ctor') continue;
- output.push(toString(v[k], separator));
- }
- return "(" + output.join(", ") + ")";
- } else if (v.ctor === "_Array") {
- var list = ElmArray.toList(v);
- return "Array.fromList " + toString(list, separator);
- } else if (v.ctor === "::") {
- var output = '[\n' + toString(v._0, separator);
- v = v._1;
- while (v && v.ctor === "::") {
- output += ",\n" + toString(v._0, separator);
- v = v._1;
- }
- return output.replace(/\n/g,"\n" + separator) + "\n]";
- } else if (v.ctor === "[]") {
- return "[]";
- } else if (v.ctor === "RBNode" || v.ctor === "RBEmpty") {
- var cons = F3(function(k,v,acc){return NList.Cons(Tuple2(k,v),acc)});
- var list = A3(Dict.foldr, cons, NList.Nil, v);
- var name = "Dict";
- if (list.ctor === "::" && list._0._1.ctor === "_Tuple0") {
- name = "Set";
- list = A2(List.map, function(x){return x._0}, list);
- }
- return name + ".fromList " + toString(list, separator);
- } else {
- var output = "";
- for (var i in v) {
- if (i === 'ctor') continue;
- var str = toString(v[i], separator);
- var parenless = str[0] === '{' ||
- str[0] === '<' ||
- str[0] === "[" ||
- str.indexOf(' ') < 0;
- output += ' ' + (parenless ? str : "(" + str + ')');
- }
- return v.ctor + output;
- }
- }
- if (type === 'object' && 'recv' in v) return '';
- return "";
- };
-
- function addSlashes(str) {
- return str.replace(/\\/g, '\\\\')
- .replace(/\n/g, '\\n')
- .replace(/\t/g, '\\t')
- .replace(/\r/g, '\\r')
- .replace(/\v/g, '\\v')
- .replace(/\0/g, '\\0')
- .replace(/\'/g, "\\'")
- .replace(/\"/g, '\\"');
- }
-
- function probablyPublic(v) {
- var keys = Object.keys(v);
- var len = keys.length;
- if (len === 3
- && 'props' in v
- && 'element' in v) return false;
- if (len === 5
- && 'horizontal' in v
- && 'vertical' in v
- && 'x' in v
- && 'y' in v) return false;
- if (len === 7
- && 'theta' in v
- && 'scale' in v
- && 'x' in v
- && 'y' in v
- && 'alpha' in v
- && 'form' in v) return false;
- return true;
- }
-
- return toString;
-}();
-// A note to the reader:
-// This file is concatenated with debuggerInterface.elm's compiled
-// javascript, toString.js, and reactor.js.
-// This is done at build time in Setup.hs.
-
-// Options:
-
-// Expose internal swap function, disable swap button, no socket
-// options.externalSwap = boolean
-
-ElmRuntime.debugFullscreenWithOptions = function(options) {
-
- return function(module, moduleFile, swapState /* =undefined */) {
- var createdSocket = false;
- var elmPermitSwaps = true;
-
- var ELM_DEBUGGER_ID = "elmToolPanel";
- var ELM_DARK_GREY = "#4A4A4A";
- var ELM_LIGHT_GREY = "#E4E4E4";
-
- var mainHandle = Elm.fullscreenDebugHooks(module, swapState);
- var debuggerHandle = initDebugger();
- if (!options.externalSwap) {
- initSocket();
- }
-
- parent.window.addEventListener("message", function(e) {
- if (e.data === "elmNotify") {
- var currentPosition = mainHandle.debugger.getMaxSteps();
- if (debuggerHandle.ports) {
- debuggerHandle.ports.eventCounter.send(currentPosition);
- sendWatches(currentPosition);
- }
- }
- }, false);
-
- function createDebuggingElement() {
- var debuggingPanelExpanded = true;
- var debuggerWidth = 275;
-
- var debugTools = document.createElement("div");
- debugTools.id = ELM_DEBUGGER_ID;
-
- var debuggerDiv = document.createElement("div");
- debuggerDiv.id = "elmDebugger";
- debuggerDiv.style.overflow = "hidden";
-
- // Create and style the panel
- debugTools.style.background = ELM_DARK_GREY;
- debugTools.style.width = debuggerWidth + "px";
- debugTools.style.height = "100%";
- debugTools.style.position = "absolute";
- debugTools.style.top = "0px";
- debugTools.style.right = "0px";
- debugTools.style.transitionDuration = "0.3s";
- debugTools.style.opacity = 0.97;
- debugTools.style.zIndex = 1;
-
- // Prevent clicks from reaching the main elm instance under the panel
- function stopEvents(e) {
- if (!e) {
- var e = window.event;
- }
- e.cancelBubble = true;
- if (e.stopPropagation) {
- e.stopPropagation();
- }
- }
- debugTools.addEventListener("click", stopEvents);
-
- // Create and style the button
- var tabWidth = 25;
- var debugTab = document.createElement("div");
- debugTab.id = "debugToggle";
- debugTab.style.position = "absolute";
- debugTab.style.width = tabWidth + "px";
- debugTab.style.height = "60px";
- debugTab.style.top = window.innerHeight / 2 + "px";
- debugTab.style.left = "-" + tabWidth + "px";
- debugTab.style.borderTopLeftRadius = "3px";
- debugTab.style.borderBottomLeftRadius = "3px";
- debugTab.style.background = ELM_DARK_GREY;
-
-
- // Wire the button
- debugTab.onclick = function() {
- var toolPanel = document.getElementById("elmToolPanel");
- if (debuggingPanelExpanded){
- toolPanel.style.width = "0px";
- debuggingPanelExpanded = false;
- } else {
- toolPanel.style.right = "0px";
- toolPanel.style.width = debuggerWidth + "px";
- debuggingPanelExpanded = true;
- }
- };
-
- debugTools.appendChild(debugTab);
- debugTools.appendChild(debuggerDiv);
- return debugTools;
- }
-
- function initDebugger() {
- function scrubber(position) {
- if (mainHandle.debugger.getPaused()) {
- mainHandle.debugger.stepTo(position);
- sendWatches(position);
- }
- }
-
- function elmPauser(doPause) {
- if (doPause) {
- mainHandle.debugger.pause();
- } else {
- mainHandle.debugger.kontinue();
- }
- }
-
- function elmRestart() {
- mainHandle.debugger.restart();
- sendWatches(0);
- }
-
- function elmSwap(permitSwaps) {
- elmPermitSwaps = permitSwaps;
- }
-
- var debugTools = createDebuggingElement();
- document.body.appendChild(debugTools);
- var debuggerDiv = document.getElementById("elmDebugger");
-
- var handle = Elm.embed(Elm.DebuggerInterface, debuggerDiv,
- { eventCounter: 0,
- watches: [],
- showSwap: !options.externalSwap
- });
- handle.ports.scrubTo.subscribe(scrubber);
- handle.ports.pause.subscribe(elmPauser);
- handle.ports.restart.subscribe(elmRestart);
- handle.ports.permitSwap.subscribe(elmSwap);
- return handle;
- }
-
- function sendWatches(position) {
- var separator = " ";
- var output = [];
-
- var watchAtPoint = mainHandle.debugger.watchTracker.frames[position];
-
- for(key in watchAtPoint) {
- var value = watchAtPoint[key];
- // The toString object is defined in toString.js
- // and is prepended to this file at build time.
- var stringified = prettyPrint(value, separator);
- output.push([key, stringified]);
- }
- debuggerHandle.ports.watches.send(output);
- }
-
- function initSocket() {
- createdSocket = true;
- // "/todo.html" => "todo.elm"
- moduleFile = moduleFile || window.location.pathname.substr(1).split(".")[0] + ".elm";
- var socketLocation = "ws://" + window.location.host + "/socket?file=" + moduleFile;
- var serverConnection = new WebSocket(socketLocation);
- serverConnection.onmessage = function(event) {
- if (elmPermitSwaps && debuggerHandle.ports) {
- swap(event.data);
- }
- };
- window.addEventListener("unload", function() {
- serverConnection.close();
- });
- }
-
- function swap(raw) {
- var debuggerDiv = document.getElementById(ELM_DEBUGGER_ID);
- var result = JSON.parse(raw);
- var js = result.success;
- var errorMessage = result.error;
- var error = document.getElementById('ErrorMessage');
- if (error) {
- error.parentNode.removeChild(error);
- }
- if (js) {
- window.eval(js);
- var moduleStr = js.match(/(Elm\..+)\ =\ \1/)[1];
- var module = window.eval(moduleStr);
- if (mainHandle.debugger) {
- var debuggerState = mainHandle.debugger.getSwapState();
- mainHandle.debugger.dispose();
- mainHandle.dispose();
-
- mainHandle = Elm.fullscreenDebugHooks(module, debuggerState);
-
- // The div that rejects events must be after Elm
- var ignoringDiv = document.getElementById("elmEventIgnorer");
- if (ignoringDiv) {
- ignoringDiv.parentNode.appendChild(ignoringDiv);
- }
- }
- else {
- mainHandle = mainHandle.swap(module);
- }
- } else if (errorMessage) {
- var errorNode = document.createElement("pre");
- errorNode.id = "ErrorMessage";
- errorNode.innerHTML = errorMessage;
- errorNode.style.zindex = 1;
- errorNode.style.position = "absolute";
- errorNode.style.top = "0";
- errorNode.style.left = "0";
- errorNode.style.color = ELM_DARK_GREY;
- errorNode.style.backgroundColor = ELM_LIGHT_GREY;
- errorNode.style.padding = "1em";
- errorNode.style.margin = "1em";
- errorNode.style.borderRadius = "10px";
-
- document.body.appendChild(errorNode);
- }
- }
-
- if (!options.externalSwap) {
- mainHandle.debugger.swap = swap;
- }
- return mainHandle;
- };
-};
-// A note to the reader:
-// This file is concatenated with debuggerInterface.elm's compiled
-// javascript, toString.js, and debug-core.js. This is done at build time in Setup.hs
-
-Elm.debugFullscreen = ElmRuntime.debugFullscreenWithOptions({
+var Elm = Elm || { Native: {} };
+Elm.Array = Elm.Array || {};
+Elm.Array.make = function (_elm) {
+ "use strict";
+ _elm.Array = _elm.Array || {};
+ if (_elm.Array.values)
+ return _elm.Array.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "Array",
+ $Basics = Elm.Basics.make(_elm),
+ $List = Elm.List.make(_elm),
+ $Maybe = Elm.Maybe.make(_elm),
+ $Native$Array = Elm.Native.Array.make(_elm);
+ var append = $Native$Array.append;
+ var length = $Native$Array.length;
+ var slice = $Native$Array.slice;
+ var set = $Native$Array.set;
+ var get = F2(function (i,
+ array) {
+ return _U.cmp(0,
+ i) < 1 && _U.cmp(i,
+ $Native$Array.length(array)) < 0 ? $Maybe.Just(A2($Native$Array.get,
+ i,
+ array)) : $Maybe.Nothing;
+ });
+ var push = $Native$Array.push;
+ var empty = $Native$Array.empty;
+ var filter = F2(function (isOkay,
+ arr) {
+ return function () {
+ var update = F2(function (x,
+ xs) {
+ return isOkay(x) ? A2($Native$Array.push,
+ x,
+ xs) : xs;
+ });
+ return A3($Native$Array.foldl,
+ update,
+ $Native$Array.empty,
+ arr);
+ }();
+ });
+ var foldr = $Native$Array.foldr;
+ var foldl = $Native$Array.foldl;
+ var indexedMap = $Native$Array.indexedMap;
+ var map = $Native$Array.map;
+ var toIndexedList = function (array) {
+ return A3($List.map2,
+ F2(function (v0,v1) {
+ return {ctor: "_Tuple2"
+ ,_0: v0
+ ,_1: v1};
+ }),
+ _L.range(0,
+ $Native$Array.length(array) - 1),
+ $Native$Array.toList(array));
+ };
+ var toList = $Native$Array.toList;
+ var fromList = $Native$Array.fromList;
+ var initialize = $Native$Array.initialize;
+ var repeat = F2(function (n,e) {
+ return A2(initialize,
+ n,
+ $Basics.always(e));
+ });
+ var Array = {ctor: "Array"};
+ _elm.Array.values = {_op: _op
+ ,Array: Array
+ ,initialize: initialize
+ ,repeat: repeat
+ ,fromList: fromList
+ ,toList: toList
+ ,toIndexedList: toIndexedList
+ ,map: map
+ ,indexedMap: indexedMap
+ ,foldl: foldl
+ ,foldr: foldr
+ ,filter: filter
+ ,empty: empty
+ ,push: push
+ ,get: get
+ ,set: set
+ ,slice: slice
+ ,length: length
+ ,append: append};
+ return _elm.Array.values;
+};
+Elm.Basics = Elm.Basics || {};
+Elm.Basics.make = function (_elm) {
+ "use strict";
+ _elm.Basics = _elm.Basics || {};
+ if (_elm.Basics.values)
+ return _elm.Basics.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "Basics",
+ $Native$Basics = Elm.Native.Basics.make(_elm),
+ $Native$Show = Elm.Native.Show.make(_elm),
+ $Native$Utils = Elm.Native.Utils.make(_elm);
+ var uncurry = F2(function (f,
+ _v0) {
+ return function () {
+ switch (_v0.ctor)
+ {case "_Tuple2": return A2(f,
+ _v0._0,
+ _v0._1);}
+ _U.badCase($moduleName,
+ "on line 461, column 19 to 24");
+ }();
+ });
+ var curry = F3(function (f,
+ a,
+ b) {
+ return f({ctor: "_Tuple2"
+ ,_0: a
+ ,_1: b});
+ });
+ var flip = F3(function (f,b,a) {
+ return A2(f,a,b);
+ });
+ var snd = function (_v4) {
+ return function () {
+ switch (_v4.ctor)
+ {case "_Tuple2": return _v4._1;}
+ _U.badCase($moduleName,
+ "on line 445, column 13 to 14");
+ }();
+ };
+ var fst = function (_v8) {
+ return function () {
+ switch (_v8.ctor)
+ {case "_Tuple2": return _v8._0;}
+ _U.badCase($moduleName,
+ "on line 441, column 13 to 14");
+ }();
+ };
+ var always = F2(function (a,
+ _v12) {
+ return function () {
+ return a;
+ }();
+ });
+ var identity = function (x) {
+ return x;
+ };
+ _op["<|"] = F2(function (f,x) {
+ return f(x);
+ });
+ _op["|>"] = F2(function (x,f) {
+ return f(x);
+ });
+ _op[">>"] = F3(function (f,
+ g,
+ x) {
+ return g(f(x));
+ });
+ _op["<<"] = F3(function (g,
+ f,
+ x) {
+ return g(f(x));
+ });
+ _op["++"] = $Native$Utils.append;
+ var toString = $Native$Show.toString;
+ var isInfinite = $Native$Basics.isInfinite;
+ var isNaN = $Native$Basics.isNaN;
+ var toFloat = $Native$Basics.toFloat;
+ var ceiling = $Native$Basics.ceiling;
+ var floor = $Native$Basics.floor;
+ var truncate = $Native$Basics.truncate;
+ var round = $Native$Basics.round;
+ var otherwise = true;
+ var not = $Native$Basics.not;
+ var xor = $Native$Basics.xor;
+ _op["||"] = $Native$Basics.or;
+ _op["&&"] = $Native$Basics.and;
+ var max = $Native$Basics.max;
+ var min = $Native$Basics.min;
+ var GT = {ctor: "GT"};
+ var EQ = {ctor: "EQ"};
+ var LT = {ctor: "LT"};
+ var compare = $Native$Basics.compare;
+ _op[">="] = $Native$Basics.ge;
+ _op["<="] = $Native$Basics.le;
+ _op[">"] = $Native$Basics.gt;
+ _op["<"] = $Native$Basics.lt;
+ _op["/="] = $Native$Basics.neq;
+ _op["=="] = $Native$Basics.eq;
+ var e = $Native$Basics.e;
+ var pi = $Native$Basics.pi;
+ var clamp = $Native$Basics.clamp;
+ var logBase = $Native$Basics.logBase;
+ var abs = $Native$Basics.abs;
+ var negate = $Native$Basics.negate;
+ var sqrt = $Native$Basics.sqrt;
+ var atan2 = $Native$Basics.atan2;
+ var atan = $Native$Basics.atan;
+ var asin = $Native$Basics.asin;
+ var acos = $Native$Basics.acos;
+ var tan = $Native$Basics.tan;
+ var sin = $Native$Basics.sin;
+ var cos = $Native$Basics.cos;
+ _op["^"] = $Native$Basics.exp;
+ _op["%"] = $Native$Basics.mod;
+ var rem = $Native$Basics.rem;
+ _op["//"] = $Native$Basics.div;
+ _op["/"] = $Native$Basics.floatDiv;
+ _op["*"] = $Native$Basics.mul;
+ _op["-"] = $Native$Basics.sub;
+ _op["+"] = $Native$Basics.add;
+ var toPolar = $Native$Basics.toPolar;
+ var fromPolar = $Native$Basics.fromPolar;
+ var turns = $Native$Basics.turns;
+ var degrees = $Native$Basics.degrees;
+ var radians = function (t) {
+ return t;
+ };
+ _elm.Basics.values = {_op: _op
+ ,radians: radians
+ ,degrees: degrees
+ ,turns: turns
+ ,fromPolar: fromPolar
+ ,toPolar: toPolar
+ ,rem: rem
+ ,cos: cos
+ ,sin: sin
+ ,tan: tan
+ ,acos: acos
+ ,asin: asin
+ ,atan: atan
+ ,atan2: atan2
+ ,sqrt: sqrt
+ ,negate: negate
+ ,abs: abs
+ ,logBase: logBase
+ ,clamp: clamp
+ ,pi: pi
+ ,e: e
+ ,compare: compare
+ ,LT: LT
+ ,EQ: EQ
+ ,GT: GT
+ ,min: min
+ ,max: max
+ ,xor: xor
+ ,not: not
+ ,otherwise: otherwise
+ ,round: round
+ ,truncate: truncate
+ ,floor: floor
+ ,ceiling: ceiling
+ ,toFloat: toFloat
+ ,isNaN: isNaN
+ ,isInfinite: isInfinite
+ ,toString: toString
+ ,identity: identity
+ ,always: always
+ ,fst: fst
+ ,snd: snd
+ ,flip: flip
+ ,curry: curry
+ ,uncurry: uncurry};
+ return _elm.Basics.values;
+};
+Elm.Char = Elm.Char || {};
+Elm.Char.make = function (_elm) {
+ "use strict";
+ _elm.Char = _elm.Char || {};
+ if (_elm.Char.values)
+ return _elm.Char.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "Char",
+ $Native$Char = Elm.Native.Char.make(_elm);
+ var fromCode = $Native$Char.fromCode;
+ var toCode = $Native$Char.toCode;
+ var toLocaleLower = $Native$Char.toLocaleLower;
+ var toLocaleUpper = $Native$Char.toLocaleUpper;
+ var toLower = $Native$Char.toLower;
+ var toUpper = $Native$Char.toUpper;
+ var isHexDigit = $Native$Char.isHexDigit;
+ var isOctDigit = $Native$Char.isOctDigit;
+ var isDigit = $Native$Char.isDigit;
+ var isLower = $Native$Char.isLower;
+ var isUpper = $Native$Char.isUpper;
+ _elm.Char.values = {_op: _op
+ ,isUpper: isUpper
+ ,isLower: isLower
+ ,isDigit: isDigit
+ ,isOctDigit: isOctDigit
+ ,isHexDigit: isHexDigit
+ ,toUpper: toUpper
+ ,toLower: toLower
+ ,toLocaleUpper: toLocaleUpper
+ ,toLocaleLower: toLocaleLower
+ ,toCode: toCode
+ ,fromCode: fromCode};
+ return _elm.Char.values;
+};
+Elm.Color = Elm.Color || {};
+Elm.Color.make = function (_elm) {
+ "use strict";
+ _elm.Color = _elm.Color || {};
+ if (_elm.Color.values)
+ return _elm.Color.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "Color",
+ $Basics = Elm.Basics.make(_elm);
+ var Radial = F5(function (a,
+ b,
+ c,
+ d,
+ e) {
+ return {ctor: "Radial"
+ ,_0: a
+ ,_1: b
+ ,_2: c
+ ,_3: d
+ ,_4: e};
+ });
+ var radial = Radial;
+ var Linear = F3(function (a,
+ b,
+ c) {
+ return {ctor: "Linear"
+ ,_0: a
+ ,_1: b
+ ,_2: c};
+ });
+ var linear = Linear;
+ var fmod = F2(function (f,n) {
+ return function () {
+ var integer = $Basics.floor(f);
+ return $Basics.toFloat(A2($Basics._op["%"],
+ integer,
+ n)) + f - $Basics.toFloat(integer);
+ }();
+ });
+ var rgbToHsl = F3(function (red,
+ green,
+ blue) {
+ return function () {
+ var b = $Basics.toFloat(blue) / 255;
+ var g = $Basics.toFloat(green) / 255;
+ var r = $Basics.toFloat(red) / 255;
+ var cMax = A2($Basics.max,
+ A2($Basics.max,r,g),
+ b);
+ var cMin = A2($Basics.min,
+ A2($Basics.min,r,g),
+ b);
+ var c = cMax - cMin;
+ var lightness = (cMax + cMin) / 2;
+ var saturation = _U.eq(lightness,
+ 0) ? 0 : c / (1 - $Basics.abs(2 * lightness - 1));
+ var hue = $Basics.degrees(60) * (_U.eq(cMax,
+ r) ? A2(fmod,
+ (g - b) / c,
+ 6) : _U.eq(cMax,
+ g) ? (b - r) / c + 2 : _U.eq(cMax,
+ b) ? (r - g) / c + 4 : _U.badIf($moduleName,
+ "between lines 141 and 143"));
+ return {ctor: "_Tuple3"
+ ,_0: hue
+ ,_1: saturation
+ ,_2: lightness};
+ }();
+ });
+ var hslToRgb = F3(function (hue,
+ saturation,
+ lightness) {
+ return function () {
+ var hue$ = hue / $Basics.degrees(60);
+ var chroma = (1 - $Basics.abs(2 * lightness - 1)) * saturation;
+ var x = chroma * (1 - $Basics.abs(A2(fmod,
+ hue$,
+ 2) - 1));
+ var $ = _U.cmp(hue$,
+ 0) < 0 ? {ctor: "_Tuple3"
+ ,_0: 0
+ ,_1: 0
+ ,_2: 0} : _U.cmp(hue$,
+ 1) < 0 ? {ctor: "_Tuple3"
+ ,_0: chroma
+ ,_1: x
+ ,_2: 0} : _U.cmp(hue$,
+ 2) < 0 ? {ctor: "_Tuple3"
+ ,_0: x
+ ,_1: chroma
+ ,_2: 0} : _U.cmp(hue$,
+ 3) < 0 ? {ctor: "_Tuple3"
+ ,_0: 0
+ ,_1: chroma
+ ,_2: x} : _U.cmp(hue$,
+ 4) < 0 ? {ctor: "_Tuple3"
+ ,_0: 0
+ ,_1: x
+ ,_2: chroma} : _U.cmp(hue$,
+ 5) < 0 ? {ctor: "_Tuple3"
+ ,_0: x
+ ,_1: 0
+ ,_2: chroma} : _U.cmp(hue$,
+ 6) < 0 ? {ctor: "_Tuple3"
+ ,_0: chroma
+ ,_1: 0
+ ,_2: x} : {ctor: "_Tuple3"
+ ,_0: 0
+ ,_1: 0
+ ,_2: 0},
+ r = $._0,
+ g = $._1,
+ b = $._2;
+ var m = lightness - chroma / 2;
+ return {ctor: "_Tuple3"
+ ,_0: r + m
+ ,_1: g + m
+ ,_2: b + m};
+ }();
+ });
+ var toRgb = function (color) {
+ return function () {
+ switch (color.ctor)
+ {case "HSLA":
+ return function () {
+ var $ = A3(hslToRgb,
+ color._0,
+ color._1,
+ color._2),
+ r = $._0,
+ g = $._1,
+ b = $._2;
+ return {_: {}
+ ,alpha: color._3
+ ,blue: $Basics.round(255 * b)
+ ,green: $Basics.round(255 * g)
+ ,red: $Basics.round(255 * r)};
+ }();
+ case "RGBA": return {_: {}
+ ,alpha: color._3
+ ,blue: color._2
+ ,green: color._1
+ ,red: color._0};}
+ _U.badCase($moduleName,
+ "between lines 115 and 123");
+ }();
+ };
+ var toHsl = function (color) {
+ return function () {
+ switch (color.ctor)
+ {case "HSLA": return {_: {}
+ ,alpha: color._3
+ ,hue: color._0
+ ,lightness: color._2
+ ,saturation: color._1};
+ case "RGBA":
+ return function () {
+ var $ = A3(rgbToHsl,
+ color._0,
+ color._1,
+ color._2),
+ h = $._0,
+ s = $._1,
+ l = $._2;
+ return {_: {}
+ ,alpha: color._3
+ ,hue: h
+ ,lightness: l
+ ,saturation: s};
+ }();}
+ _U.badCase($moduleName,
+ "between lines 105 and 112");
+ }();
+ };
+ var HSLA = F4(function (a,
+ b,
+ c,
+ d) {
+ return {ctor: "HSLA"
+ ,_0: a
+ ,_1: b
+ ,_2: c
+ ,_3: d};
+ });
+ var hsla = F4(function (hue,
+ saturation,
+ lightness,
+ alpha) {
+ return A4(HSLA,
+ hue - $Basics.turns($Basics.toFloat($Basics.floor(hue / (2 * $Basics.pi)))),
+ saturation,
+ lightness,
+ alpha);
+ });
+ var hsl = F3(function (hue,
+ saturation,
+ lightness) {
+ return A4(hsla,
+ hue,
+ saturation,
+ lightness,
+ 1);
+ });
+ var complement = function (color) {
+ return function () {
+ switch (color.ctor)
+ {case "HSLA": return A4(hsla,
+ color._0 + $Basics.degrees(180),
+ color._1,
+ color._2,
+ color._3);
+ case "RGBA":
+ return function () {
+ var $ = A3(rgbToHsl,
+ color._0,
+ color._1,
+ color._2),
+ h = $._0,
+ s = $._1,
+ l = $._2;
+ return A4(hsla,
+ h + $Basics.degrees(180),
+ s,
+ l,
+ color._3);
+ }();}
+ _U.badCase($moduleName,
+ "between lines 96 and 102");
+ }();
+ };
+ var grayscale = function (p) {
+ return A4(HSLA,0,0,1 - p,1);
+ };
+ var greyscale = function (p) {
+ return A4(HSLA,0,0,1 - p,1);
+ };
+ var RGBA = F4(function (a,
+ b,
+ c,
+ d) {
+ return {ctor: "RGBA"
+ ,_0: a
+ ,_1: b
+ ,_2: c
+ ,_3: d};
+ });
+ var rgba = RGBA;
+ var rgb = F3(function (r,g,b) {
+ return A4(RGBA,r,g,b,1);
+ });
+ var lightRed = A4(RGBA,
+ 239,
+ 41,
+ 41,
+ 1);
+ var red = A4(RGBA,204,0,0,1);
+ var darkRed = A4(RGBA,
+ 164,
+ 0,
+ 0,
+ 1);
+ var lightOrange = A4(RGBA,
+ 252,
+ 175,
+ 62,
+ 1);
+ var orange = A4(RGBA,
+ 245,
+ 121,
+ 0,
+ 1);
+ var darkOrange = A4(RGBA,
+ 206,
+ 92,
+ 0,
+ 1);
+ var lightYellow = A4(RGBA,
+ 255,
+ 233,
+ 79,
+ 1);
+ var yellow = A4(RGBA,
+ 237,
+ 212,
+ 0,
+ 1);
+ var darkYellow = A4(RGBA,
+ 196,
+ 160,
+ 0,
+ 1);
+ var lightGreen = A4(RGBA,
+ 138,
+ 226,
+ 52,
+ 1);
+ var green = A4(RGBA,
+ 115,
+ 210,
+ 22,
+ 1);
+ var darkGreen = A4(RGBA,
+ 78,
+ 154,
+ 6,
+ 1);
+ var lightBlue = A4(RGBA,
+ 114,
+ 159,
+ 207,
+ 1);
+ var blue = A4(RGBA,
+ 52,
+ 101,
+ 164,
+ 1);
+ var darkBlue = A4(RGBA,
+ 32,
+ 74,
+ 135,
+ 1);
+ var lightPurple = A4(RGBA,
+ 173,
+ 127,
+ 168,
+ 1);
+ var purple = A4(RGBA,
+ 117,
+ 80,
+ 123,
+ 1);
+ var darkPurple = A4(RGBA,
+ 92,
+ 53,
+ 102,
+ 1);
+ var lightBrown = A4(RGBA,
+ 233,
+ 185,
+ 110,
+ 1);
+ var brown = A4(RGBA,
+ 193,
+ 125,
+ 17,
+ 1);
+ var darkBrown = A4(RGBA,
+ 143,
+ 89,
+ 2,
+ 1);
+ var black = A4(RGBA,0,0,0,1);
+ var white = A4(RGBA,
+ 255,
+ 255,
+ 255,
+ 1);
+ var lightGrey = A4(RGBA,
+ 238,
+ 238,
+ 236,
+ 1);
+ var grey = A4(RGBA,
+ 211,
+ 215,
+ 207,
+ 1);
+ var darkGrey = A4(RGBA,
+ 186,
+ 189,
+ 182,
+ 1);
+ var lightGray = A4(RGBA,
+ 238,
+ 238,
+ 236,
+ 1);
+ var gray = A4(RGBA,
+ 211,
+ 215,
+ 207,
+ 1);
+ var darkGray = A4(RGBA,
+ 186,
+ 189,
+ 182,
+ 1);
+ var lightCharcoal = A4(RGBA,
+ 136,
+ 138,
+ 133,
+ 1);
+ var charcoal = A4(RGBA,
+ 85,
+ 87,
+ 83,
+ 1);
+ var darkCharcoal = A4(RGBA,
+ 46,
+ 52,
+ 54,
+ 1);
+ _elm.Color.values = {_op: _op
+ ,RGBA: RGBA
+ ,HSLA: HSLA
+ ,rgba: rgba
+ ,rgb: rgb
+ ,hsla: hsla
+ ,hsl: hsl
+ ,grayscale: grayscale
+ ,greyscale: greyscale
+ ,complement: complement
+ ,toHsl: toHsl
+ ,toRgb: toRgb
+ ,fmod: fmod
+ ,rgbToHsl: rgbToHsl
+ ,hslToRgb: hslToRgb
+ ,Linear: Linear
+ ,Radial: Radial
+ ,linear: linear
+ ,radial: radial
+ ,lightRed: lightRed
+ ,red: red
+ ,darkRed: darkRed
+ ,lightOrange: lightOrange
+ ,orange: orange
+ ,darkOrange: darkOrange
+ ,lightYellow: lightYellow
+ ,yellow: yellow
+ ,darkYellow: darkYellow
+ ,lightGreen: lightGreen
+ ,green: green
+ ,darkGreen: darkGreen
+ ,lightBlue: lightBlue
+ ,blue: blue
+ ,darkBlue: darkBlue
+ ,lightPurple: lightPurple
+ ,purple: purple
+ ,darkPurple: darkPurple
+ ,lightBrown: lightBrown
+ ,brown: brown
+ ,darkBrown: darkBrown
+ ,black: black
+ ,white: white
+ ,lightGrey: lightGrey
+ ,grey: grey
+ ,darkGrey: darkGrey
+ ,lightGray: lightGray
+ ,gray: gray
+ ,darkGray: darkGray
+ ,lightCharcoal: lightCharcoal
+ ,charcoal: charcoal
+ ,darkCharcoal: darkCharcoal};
+ return _elm.Color.values;
+};
+Elm.Debug = Elm.Debug || {};
+Elm.Debug.make = function (_elm) {
+ "use strict";
+ _elm.Debug = _elm.Debug || {};
+ if (_elm.Debug.values)
+ return _elm.Debug.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "Debug",
+ $Graphics$Collage = Elm.Graphics.Collage.make(_elm),
+ $Native$Debug = Elm.Native.Debug.make(_elm);
+ var trace = $Native$Debug.tracePath;
+ var watchSummary = $Native$Debug.watchSummary;
+ var watch = $Native$Debug.watch;
+ var crash = $Native$Debug.crash;
+ var log = $Native$Debug.log;
+ _elm.Debug.values = {_op: _op
+ ,log: log
+ ,crash: crash
+ ,watch: watch
+ ,watchSummary: watchSummary
+ ,trace: trace};
+ return _elm.Debug.values;
+};
+Elm.DebuggerInterface = Elm.DebuggerInterface || {};
+Elm.DebuggerInterface.make = function (_elm) {
+ "use strict";
+ _elm.DebuggerInterface = _elm.DebuggerInterface || {};
+ if (_elm.DebuggerInterface.values)
+ return _elm.DebuggerInterface.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "DebuggerInterface",
+ $Basics = Elm.Basics.make(_elm),
+ $Color = Elm.Color.make(_elm),
+ $Graphics$Collage = Elm.Graphics.Collage.make(_elm),
+ $Graphics$Element = Elm.Graphics.Element.make(_elm),
+ $Graphics$Input = Elm.Graphics.Input.make(_elm),
+ $List = Elm.List.make(_elm),
+ $Markdown = Elm.Markdown.make(_elm),
+ $Maybe = Elm.Maybe.make(_elm),
+ $Signal = Elm.Signal.make(_elm),
+ $Slider = Elm.Slider.make(_elm),
+ $Text = Elm.Text.make(_elm),
+ $Window = Elm.Window.make(_elm);
+ var noWatches = $Markdown.toElement("\n\n### You don\'t have any watches! \n\n\n\nUse [Debug.watch](http://package.elm-lang.org/packages/elm-lang/core/latest/Debug#watch)\nto show any value.
\n`watch : String -> a -> a`\n\n\nUse [Debug.watchSummary](http://package.elm-lang.org/packages/elm-lang/core/latest/Debug#watchSummary) to show a
\nsummary or subvalue of any value.
\n\n");
+ var roundedSquare = F3(function (side,
+ radius,
+ toForm) {
+ return function () {
+ var formedCircle = toForm($Graphics$Collage.circle(radius));
+ var shortSide = side - 2 * radius;
+ var xRect = toForm(A2($Graphics$Collage.rect,
+ side,
+ shortSide));
+ var yRect = toForm(A2($Graphics$Collage.rect,
+ shortSide,
+ side));
+ var circleOffset = shortSide / 2;
+ var tl = $Graphics$Collage.move({ctor: "_Tuple2"
+ ,_0: 0 - circleOffset
+ ,_1: circleOffset})(formedCircle);
+ var tr = $Graphics$Collage.move({ctor: "_Tuple2"
+ ,_0: circleOffset
+ ,_1: circleOffset})(formedCircle);
+ var bl = $Graphics$Collage.move({ctor: "_Tuple2"
+ ,_0: 0 - circleOffset
+ ,_1: 0 - circleOffset})(formedCircle);
+ var br = $Graphics$Collage.move({ctor: "_Tuple2"
+ ,_0: circleOffset
+ ,_1: 0 - circleOffset})(formedCircle);
+ return $Graphics$Collage.group(_L.fromArray([xRect
+ ,yRect
+ ,tl
+ ,tr
+ ,bl
+ ,br]));
+ }();
+ });
+ var startState = {_: {}
+ ,paused: false
+ ,scrubPosition: 0
+ ,totalEvents: 0};
+ var step = F2(function (update,
+ state) {
+ return function () {
+ switch (update.ctor)
+ {case "Pause":
+ return _U.replace([["paused"
+ ,update._0]
+ ,["totalEvents"
+ ,update._0 ? state.totalEvents : state.scrubPosition]],
+ state);
+ case "Restart":
+ return startState;
+ case "ScrubPosition":
+ return _U.replace([["scrubPosition"
+ ,update._0]
+ ,["paused",true]],
+ state);
+ case "TotalEvents":
+ return _U.replace([["totalEvents"
+ ,update._0]
+ ,["scrubPosition",update._0]],
+ state);}
+ _U.badCase($moduleName,
+ "between lines 289 and 310");
+ }();
+ });
+ var showSwap = _P.portIn("showSwap",
+ function (v) {
+ return typeof v === "boolean" ? v : _U.badPort("a boolean (true or false)",
+ v);
+ });
+ var watches = _P.portIn("watches",
+ _P.incomingSignal(function (v) {
+ return typeof v === "object" && v instanceof Array ? Elm.Native.List.make(_elm).fromArray(v.map(function (v) {
+ return typeof v === "object" && v instanceof Array ? {ctor: "_Tuple2"
+ ,_0: typeof v[0] === "string" || typeof v[0] === "object" && v[0] instanceof String ? v[0] : _U.badPort("a string",
+ v[0])
+ ,_1: typeof v[1] === "string" || typeof v[1] === "object" && v[1] instanceof String ? v[1] : _U.badPort("a string",
+ v[1])} : _U.badPort("an array",
+ v);
+ })) : _U.badPort("an array",v);
+ }));
+ var eventCounter = _P.portIn("eventCounter",
+ _P.incomingSignal(function (v) {
+ return typeof v === "number" ? v : _U.badPort("a number",
+ v);
+ }));
+ var scrupChannel = $Signal.channel(0);
+ var restartChannel = $Signal.channel({ctor: "_Tuple0"});
+ var permitSwapChannel = $Signal.channel(true);
+ var pausedInput = $Signal.channel(false);
+ var permitSwap = _P.portOut("permitSwap",
+ _P.outgoingSignal(function (v) {
+ return v;
+ }),
+ $Signal.subscribe(permitSwapChannel));
+ var restart = _P.portOut("restart",
+ _P.outgoingSignal(function (v) {
+ return v;
+ }),
+ A2($Signal.map,
+ $Basics.always(0),
+ $Signal.subscribe(restartChannel)));
+ var scrubSlider = F2(function (_v4,
+ state) {
+ return function () {
+ switch (_v4.ctor)
+ {case "_Tuple2":
+ return function () {
+ var sliderLength = _v4._0;
+ var sliderStyle = _U.replace([["length"
+ ,sliderLength]
+ ,["max"
+ ,$Basics.toFloat(state.totalEvents)]
+ ,["value"
+ ,$Basics.toFloat(state.scrubPosition)]],
+ $Slider.defaultSlider);
+ return A3($Graphics$Element.container,
+ sliderLength,
+ 20,
+ $Graphics$Element.middle)(A2($Slider.slider,
+ function (n) {
+ return A2($Signal.send,
+ scrupChannel,
+ $Basics.round(n));
+ },
+ sliderStyle));
+ }();}
+ _U.badCase($moduleName,
+ "between lines 127 and 136");
+ }();
+ });
+ var myButton = F2(function (message,
+ name) {
+ return function () {
+ var img = function (state) {
+ return A3($Graphics$Element.image,
+ 40,
+ 40,
+ A2($Basics._op["++"],
+ "/_reactor/debugger/",
+ A2($Basics._op["++"],
+ name,
+ A2($Basics._op["++"],
+ "-button-",
+ A2($Basics._op["++"],
+ state,
+ ".png")))));
+ };
+ return A4($Graphics$Input.customButton,
+ message,
+ img("up"),
+ img("hover"),
+ img("down"));
+ }();
+ });
+ var playButton = A2(myButton,
+ A2($Signal.send,
+ pausedInput,
+ false),
+ "play");
+ var pauseButton = A2(myButton,
+ A2($Signal.send,
+ pausedInput,
+ true),
+ "pause");
+ var restartButton = A2(myButton,
+ A2($Signal.send,
+ restartChannel,
+ {ctor: "_Tuple0"}),
+ "restart");
+ var darkGrey = A3($Color.rgb,
+ 74,
+ 74,
+ 74);
+ var lightGrey = A3($Color.rgb,
+ 228,
+ 228,
+ 228);
+ var dataStyle = F3(function (typefaces,
+ height,
+ string) {
+ return function () {
+ var myStyle = _U.replace([["typeface"
+ ,typefaces]
+ ,["color",lightGrey]
+ ,["height"
+ ,$Maybe.Just(height)]],
+ $Text.defaultStyle);
+ return A2($Text.style,
+ myStyle,
+ $Text.fromString(string));
+ }();
+ });
+ var textStyle = A2(dataStyle,
+ _L.fromArray(["Gotham"
+ ,"Futura"
+ ,"Lucida Grande"
+ ,"sans-serif"]),
+ 12);
+ var watchStyle = A2(dataStyle,
+ _L.fromArray(["Gotham"
+ ,"Futura"
+ ,"Lucida Grande"
+ ,"sans-serif"]),
+ 14);
+ var codeStyle = A2(dataStyle,
+ _L.fromArray(["Menlo for Powerline"
+ ,"monospace"]),
+ 12);
+ var blue = A3($Color.rgb,
+ 28,
+ 129,
+ 218);
+ var swapButton = function (permitSwap) {
+ return function () {
+ var info = $Text.leftAligned(textStyle("swap"));
+ var radius = 4;
+ var hsWidth = 25;
+ var bgButton = A3(roundedSquare,
+ hsWidth,
+ radius,
+ $Graphics$Collage.filled(lightGrey));
+ var trueButton = _L.fromArray([bgButton
+ ,A3(roundedSquare,
+ 22,
+ radius,
+ $Graphics$Collage.filled(blue))]);
+ var falseButtonClick = trueButton;
+ var trueButtonHover = _L.fromArray([bgButton
+ ,A3(roundedSquare,
+ 22,
+ radius,
+ $Graphics$Collage.filled(blue))
+ ,$Graphics$Collage.alpha(0.1)(A3(roundedSquare,
+ 22,
+ radius,
+ $Graphics$Collage.filled(darkGrey)))]);
+ var falseButton = _L.fromArray([bgButton
+ ,A3(roundedSquare,
+ 22,
+ radius,
+ $Graphics$Collage.filled(darkGrey))]);
+ var trueButtonClick = falseButton;
+ var falseButtonHover = _L.fromArray([bgButton
+ ,A3(roundedSquare,
+ 22,
+ radius,
+ $Graphics$Collage.filled(darkGrey))
+ ,$Graphics$Collage.alpha(0.1)(A3(roundedSquare,
+ 22,
+ radius,
+ $Graphics$Collage.filled(blue)))]);
+ var button = permitSwap ? A4($Graphics$Input.customButton,
+ A2($Signal.send,
+ permitSwapChannel,
+ false),
+ A3($Graphics$Collage.collage,
+ hsWidth,
+ hsWidth,
+ trueButton),
+ A3($Graphics$Collage.collage,
+ hsWidth,
+ hsWidth,
+ trueButtonHover),
+ A3($Graphics$Collage.collage,
+ hsWidth,
+ hsWidth,
+ trueButtonClick)) : A4($Graphics$Input.customButton,
+ A2($Signal.send,
+ permitSwapChannel,
+ true),
+ A3($Graphics$Collage.collage,
+ hsWidth,
+ hsWidth,
+ falseButton),
+ A3($Graphics$Collage.collage,
+ hsWidth,
+ hsWidth,
+ falseButtonHover),
+ A3($Graphics$Collage.collage,
+ hsWidth,
+ hsWidth,
+ falseButtonClick));
+ return A2($Graphics$Element.flow,
+ $Graphics$Element.right,
+ _L.fromArray([info
+ ,A2($Graphics$Element.spacer,
+ 10,
+ 1)
+ ,button]));
+ }();
+ };
+ var panelWidth = 275;
+ var textHeight = 20;
+ var sliderMinMaxText = F2(function (w,
+ state) {
+ return function () {
+ var sliderTotalEvents = A3($Graphics$Element.container,
+ w,
+ textHeight,
+ $Graphics$Element.topRight)($Text.rightAligned(textStyle($Basics.toString(state.totalEvents))));
+ var sliderStartText = A3($Graphics$Element.container,
+ w,
+ textHeight,
+ $Graphics$Element.topLeft)($Text.leftAligned(textStyle("0")));
+ return A2($Graphics$Element.flow,
+ $Graphics$Element.outward,
+ _L.fromArray([sliderStartText
+ ,sliderTotalEvents]));
+ }();
+ });
+ var sideMargin = 2 * 20;
+ var sliderEventText = F2(function (w,
+ state) {
+ return function () {
+ var text$ = $Text.centered(textStyle($Basics.toString(state.scrubPosition)));
+ var yPos = $Graphics$Element.absolute($Basics.round(textHeight / 2));
+ var totalEvents = $Basics.toFloat(state.totalEvents);
+ var scrubPosition = $Basics.toFloat(state.scrubPosition);
+ var textWidthOffset = 14;
+ var midWidth = $Basics.toFloat(w) - sideMargin - textWidthOffset;
+ var leftDistance = _U.eq(totalEvents,
+ 0) ? sideMargin / 2 + textWidthOffset / 2 : scrubPosition / totalEvents * midWidth + sideMargin / 2 + textWidthOffset / 2;
+ var xPos = $Graphics$Element.absolute($Basics.round(leftDistance));
+ var textPosition = A2($Graphics$Element.middleAt,
+ xPos,
+ yPos);
+ return A4($Graphics$Element.container,
+ w,
+ textHeight,
+ textPosition,
+ text$);
+ }();
+ });
+ var buttonWidth = 40;
+ var buttonHeight = 40;
+ var view = F4(function (_v8,
+ watches,
+ permitSwap,
+ state) {
+ return function () {
+ switch (_v8.ctor)
+ {case "_Tuple2":
+ return function () {
+ var showWatch = function (_v12) {
+ return function () {
+ switch (_v12.ctor)
+ {case "_Tuple2":
+ return A2($Graphics$Element.flow,
+ $Graphics$Element.down,
+ _L.fromArray([$Graphics$Element.width(_v8._0)($Text.leftAligned($Text.bold(watchStyle(_v12._0))))
+ ,$Graphics$Element.width(_v8._0)($Text.leftAligned(codeStyle(_v12._1)))
+ ,A2($Graphics$Element.spacer,
+ 1,
+ 12)]));}
+ _U.badCase($moduleName,
+ "between lines 212 and 216");
+ }();
+ };
+ var watchView = A2($Graphics$Element.flow,
+ $Graphics$Element.right,
+ _L.fromArray([A2($Graphics$Element.spacer,
+ 20,
+ 1)
+ ,function () {
+ switch (watches.ctor)
+ {case "[]": return noWatches;}
+ return $Graphics$Element.flow($Graphics$Element.down)(A2($List.map,
+ showWatch,
+ watches));
+ }()]));
+ var bar = A2($Graphics$Element.flow,
+ $Graphics$Element.down,
+ _L.fromArray([$Graphics$Element.opacity(0.3)($Graphics$Element.color(lightGrey)(A2($Graphics$Element.spacer,
+ _v8._0,
+ 1)))
+ ,A2($Graphics$Element.spacer,
+ _v8._0,
+ 12)]));
+ var fittedSwapButton = showSwap ? A3($Graphics$Element.container,
+ _v8._0 - 2 * buttonWidth - sideMargin,
+ buttonHeight,
+ $Graphics$Element.middle)(swapButton(permitSwap)) : A2($Graphics$Element.spacer,
+ 2 * buttonWidth,
+ 1);
+ var buttons = A2($Graphics$Element.flow,
+ $Graphics$Element.right,
+ _L.fromArray([restartButton
+ ,fittedSwapButton
+ ,state.paused ? playButton : pauseButton]));
+ var buttonContainer = A4($Graphics$Element.container,
+ _v8._0,
+ buttonHeight,
+ $Graphics$Element.midTop,
+ buttons);
+ var buttonSliderSpaceHeight = 10;
+ var topSpacerHeight = 15;
+ var midWidth = _v8._0 - sideMargin;
+ var centeredSliderContainer = A3($Graphics$Element.container,
+ _v8._0,
+ 24 + textHeight,
+ $Graphics$Element.midTop)(A2($Graphics$Element.flow,
+ $Graphics$Element.down,
+ _L.fromArray([A2(scrubSlider,
+ {ctor: "_Tuple2"
+ ,_0: midWidth
+ ,_1: _v8._1},
+ state)
+ ,A2(sliderMinMaxText,
+ midWidth,
+ state)])));
+ var slider = A3($Graphics$Element.container,
+ _v8._0,
+ 24 + 2 * textHeight,
+ $Graphics$Element.midTop)(A2($Graphics$Element.flow,
+ $Graphics$Element.down,
+ _L.fromArray([A2(sliderEventText,
+ _v8._0,
+ state)
+ ,centeredSliderContainer])));
+ var controls = A2($Graphics$Element.flow,
+ $Graphics$Element.down,
+ _L.fromArray([A2($Graphics$Element.spacer,
+ midWidth,
+ topSpacerHeight)
+ ,buttonContainer
+ ,A2($Graphics$Element.spacer,
+ midWidth,
+ buttonSliderSpaceHeight)
+ ,slider
+ ,A2($Graphics$Element.spacer,
+ midWidth,
+ 10)]));
+ return A2($Graphics$Element.flow,
+ $Graphics$Element.down,
+ _L.fromArray([controls
+ ,bar
+ ,watchView]));
+ }();}
+ _U.badCase($moduleName,
+ "between lines 177 and 227");
+ }();
+ });
+ var State = F3(function (a,
+ b,
+ c) {
+ return {_: {}
+ ,paused: a
+ ,scrubPosition: c
+ ,totalEvents: b};
+ });
+ var ScrubPosition = function (a) {
+ return {ctor: "ScrubPosition"
+ ,_0: a};
+ };
+ var TotalEvents = function (a) {
+ return {ctor: "TotalEvents"
+ ,_0: a};
+ };
+ var Pause = function (a) {
+ return {ctor: "Pause",_0: a};
+ };
+ var Restart = {ctor: "Restart"};
+ var aggregateUpdates = $Signal.mergeMany(_L.fromArray([A2($Signal._op["<~"],
+ $Basics.always(Restart),
+ $Signal.subscribe(restartChannel))
+ ,A2($Signal._op["<~"],
+ Pause,
+ $Signal.subscribe(pausedInput))
+ ,A2($Signal._op["<~"],
+ TotalEvents,
+ eventCounter)
+ ,A2($Signal._op["<~"],
+ ScrubPosition,
+ $Signal.subscribe(scrupChannel))]));
+ var scene = A3($Signal.foldp,
+ step,
+ startState,
+ aggregateUpdates);
+ var main = A2($Signal._op["~"],
+ A2($Signal._op["~"],
+ A2($Signal._op["~"],
+ A2($Signal._op["<~"],
+ view,
+ A2($Signal._op["<~"],
+ function (_v17) {
+ return function () {
+ switch (_v17.ctor)
+ {case "_Tuple2":
+ return {ctor: "_Tuple2"
+ ,_0: panelWidth
+ ,_1: _v17._1};}
+ _U.badCase($moduleName,
+ "on line 235, column 30 to 43");
+ }();
+ },
+ $Window.dimensions)),
+ watches),
+ $Signal.subscribe(permitSwapChannel)),
+ scene);
+ var scrubTo = _P.portOut("scrubTo",
+ _P.outgoingSignal(function (v) {
+ return v;
+ }),
+ A2($Signal._op["<~"],
+ function (_) {
+ return _.scrubPosition;
+ },
+ scene));
+ var pause = _P.portOut("pause",
+ _P.outgoingSignal(function (v) {
+ return v;
+ }),
+ A2($Signal._op["<~"],
+ function (_) {
+ return _.paused;
+ },
+ scene));
+ _elm.DebuggerInterface.values = {_op: _op
+ ,Restart: Restart
+ ,Pause: Pause
+ ,TotalEvents: TotalEvents
+ ,ScrubPosition: ScrubPosition
+ ,State: State
+ ,buttonHeight: buttonHeight
+ ,buttonWidth: buttonWidth
+ ,sideMargin: sideMargin
+ ,textHeight: textHeight
+ ,panelWidth: panelWidth
+ ,blue: blue
+ ,lightGrey: lightGrey
+ ,darkGrey: darkGrey
+ ,dataStyle: dataStyle
+ ,textStyle: textStyle
+ ,watchStyle: watchStyle
+ ,codeStyle: codeStyle
+ ,myButton: myButton
+ ,playButton: playButton
+ ,pauseButton: pauseButton
+ ,restartButton: restartButton
+ ,swapButton: swapButton
+ ,scrubSlider: scrubSlider
+ ,sliderEventText: sliderEventText
+ ,sliderMinMaxText: sliderMinMaxText
+ ,view: view
+ ,main: main
+ ,pausedInput: pausedInput
+ ,permitSwapChannel: permitSwapChannel
+ ,restartChannel: restartChannel
+ ,scrupChannel: scrupChannel
+ ,scene: scene
+ ,startState: startState
+ ,step: step
+ ,aggregateUpdates: aggregateUpdates
+ ,roundedSquare: roundedSquare
+ ,noWatches: noWatches};
+ return _elm.DebuggerInterface.values;
+};
+Elm.Dict = Elm.Dict || {};
+Elm.Dict.make = function (_elm) {
+ "use strict";
+ _elm.Dict = _elm.Dict || {};
+ if (_elm.Dict.values)
+ return _elm.Dict.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "Dict",
+ $Basics = Elm.Basics.make(_elm),
+ $List = Elm.List.make(_elm),
+ $Maybe = Elm.Maybe.make(_elm),
+ $Native$Debug = Elm.Native.Debug.make(_elm),
+ $String = Elm.String.make(_elm);
+ var foldr = F3(function (f,
+ acc,
+ t) {
+ return function () {
+ switch (t.ctor)
+ {case "RBEmpty":
+ switch (t._0.ctor)
+ {case "LBlack": return acc;}
+ break;
+ case "RBNode": return A3(foldr,
+ f,
+ A3(f,
+ t._1,
+ t._2,
+ A3(foldr,f,acc,t._4)),
+ t._3);}
+ _U.badCase($moduleName,
+ "between lines 410 and 418");
+ }();
+ });
+ var keys = function (dict) {
+ return A3(foldr,
+ F3(function (key,
+ value,
+ keyList) {
+ return A2($List._op["::"],
+ key,
+ keyList);
+ }),
+ _L.fromArray([]),
+ dict);
+ };
+ var values = function (dict) {
+ return A3(foldr,
+ F3(function (key,
+ value,
+ valueList) {
+ return A2($List._op["::"],
+ value,
+ valueList);
+ }),
+ _L.fromArray([]),
+ dict);
+ };
+ var toList = function (dict) {
+ return A3(foldr,
+ F3(function (key,value,list) {
+ return A2($List._op["::"],
+ {ctor: "_Tuple2"
+ ,_0: key
+ ,_1: value},
+ list);
+ }),
+ _L.fromArray([]),
+ dict);
+ };
+ var foldl = F3(function (f,
+ acc,
+ dict) {
+ return function () {
+ switch (dict.ctor)
+ {case "RBEmpty":
+ switch (dict._0.ctor)
+ {case "LBlack": return acc;}
+ break;
+ case "RBNode": return A3(foldl,
+ f,
+ A3(f,
+ dict._1,
+ dict._2,
+ A3(foldl,f,acc,dict._3)),
+ dict._4);}
+ _U.badCase($moduleName,
+ "between lines 399 and 407");
+ }();
+ });
+ var isBBlack = function (dict) {
+ return function () {
+ switch (dict.ctor)
+ {case "RBEmpty":
+ switch (dict._0.ctor)
+ {case "LBBlack": return true;}
+ break;
+ case "RBNode":
+ switch (dict._0.ctor)
+ {case "BBlack": return true;}
+ break;}
+ return false;
+ }();
+ };
+ var showFlag = function (f) {
+ return function () {
+ switch (f.ctor)
+ {case "Insert": return "Insert";
+ case "Remove": return "Remove";
+ case "Same": return "Same";}
+ _U.badCase($moduleName,
+ "between lines 175 and 181");
+ }();
+ };
+ var Same = {ctor: "Same"};
+ var Remove = {ctor: "Remove"};
+ var Insert = {ctor: "Insert"};
+ var get = F2(function (targetKey,
+ dict) {
+ return function () {
+ switch (dict.ctor)
+ {case "RBEmpty":
+ switch (dict._0.ctor)
+ {case "LBlack":
+ return $Maybe.Nothing;}
+ break;
+ case "RBNode":
+ return function () {
+ var _v29 = A2($Basics.compare,
+ targetKey,
+ dict._1);
+ switch (_v29.ctor)
+ {case "EQ":
+ return $Maybe.Just(dict._2);
+ case "GT": return A2(get,
+ targetKey,
+ dict._4);
+ case "LT": return A2(get,
+ targetKey,
+ dict._3);}
+ _U.badCase($moduleName,
+ "between lines 131 and 137");
+ }();}
+ _U.badCase($moduleName,
+ "between lines 126 and 137");
+ }();
+ });
+ var member = F2(function (key,
+ dict) {
+ return function () {
+ var _v30 = A2(get,key,dict);
+ switch (_v30.ctor)
+ {case "Just": return true;
+ case "Nothing": return false;}
+ _U.badCase($moduleName,
+ "between lines 140 and 142");
+ }();
+ });
+ var max = function (dict) {
+ return function () {
+ switch (dict.ctor)
+ {case "RBEmpty":
+ return $Native$Debug.crash("(max Empty) is not defined");
+ case "RBNode":
+ switch (dict._4.ctor)
+ {case "RBEmpty":
+ return {ctor: "_Tuple2"
+ ,_0: dict._1
+ ,_1: dict._2};}
+ return max(dict._4);}
+ _U.badCase($moduleName,
+ "between lines 100 and 123");
+ }();
+ };
+ var min = function (dict) {
+ return function () {
+ switch (dict.ctor)
+ {case "RBEmpty":
+ switch (dict._0.ctor)
+ {case "LBlack":
+ return $Native$Debug.crash("(min Empty) is not defined");}
+ break;
+ case "RBNode":
+ switch (dict._3.ctor)
+ {case "RBEmpty":
+ switch (dict._3._0.ctor)
+ {case "LBlack":
+ return {ctor: "_Tuple2"
+ ,_0: dict._1
+ ,_1: dict._2};}
+ break;}
+ return min(dict._3);}
+ _U.badCase($moduleName,
+ "between lines 87 and 95");
+ }();
+ };
+ var RBEmpty = function (a) {
+ return {ctor: "RBEmpty"
+ ,_0: a};
+ };
+ var RBNode = F5(function (a,
+ b,
+ c,
+ d,
+ e) {
+ return {ctor: "RBNode"
+ ,_0: a
+ ,_1: b
+ ,_2: c
+ ,_3: d
+ ,_4: e};
+ });
+ var showLColor = function (color) {
+ return function () {
+ switch (color.ctor)
+ {case "LBBlack":
+ return "LBBlack";
+ case "LBlack": return "LBlack";}
+ _U.badCase($moduleName,
+ "between lines 70 and 72");
+ }();
+ };
+ var LBBlack = {ctor: "LBBlack"};
+ var LBlack = {ctor: "LBlack"};
+ var empty = RBEmpty(LBlack);
+ var map = F2(function (f,dict) {
+ return function () {
+ switch (dict.ctor)
+ {case "RBEmpty":
+ switch (dict._0.ctor)
+ {case "LBlack":
+ return RBEmpty(LBlack);}
+ break;
+ case "RBNode": return A5(RBNode,
+ dict._0,
+ dict._1,
+ A2(f,dict._1,dict._2),
+ A2(map,f,dict._3),
+ A2(map,f,dict._4));}
+ _U.badCase($moduleName,
+ "between lines 387 and 396");
+ }();
+ });
+ var showNColor = function (c) {
+ return function () {
+ switch (c.ctor)
+ {case "BBlack": return "BBlack";
+ case "Black": return "Black";
+ case "NBlack": return "NBlack";
+ case "Red": return "Red";}
+ _U.badCase($moduleName,
+ "between lines 56 and 60");
+ }();
+ };
+ var reportRemBug = F4(function (msg,
+ c,
+ lgot,
+ rgot) {
+ return $Native$Debug.crash($String.concat(_L.fromArray(["Internal red-black tree invariant violated, expected "
+ ,msg
+ ," and got "
+ ,showNColor(c)
+ ,"/"
+ ,lgot
+ ,"/"
+ ,rgot
+ ,"\nPlease report this bug to "])));
+ });
+ var NBlack = {ctor: "NBlack"};
+ var BBlack = {ctor: "BBlack"};
+ var Black = {ctor: "Black"};
+ var ensureBlackRoot = function (dict) {
+ return function () {
+ switch (dict.ctor)
+ {case "RBEmpty":
+ switch (dict._0.ctor)
+ {case "LBlack": return dict;}
+ break;
+ case "RBNode":
+ switch (dict._0.ctor)
+ {case "Black": return dict;
+ case "Red": return A5(RBNode,
+ Black,
+ dict._1,
+ dict._2,
+ dict._3,
+ dict._4);}
+ break;}
+ _U.badCase($moduleName,
+ "between lines 147 and 159");
+ }();
+ };
+ var blackish = function (t) {
+ return function () {
+ switch (t.ctor)
+ {case "RBEmpty": return true;
+ case "RBNode":
+ return _U.eq(t._0,
+ Black) || _U.eq(t._0,BBlack);}
+ _U.badCase($moduleName,
+ "between lines 332 and 334");
+ }();
+ };
+ var blacken = function (t) {
+ return function () {
+ switch (t.ctor)
+ {case "RBEmpty":
+ return RBEmpty(LBlack);
+ case "RBNode": return A5(RBNode,
+ Black,
+ t._1,
+ t._2,
+ t._3,
+ t._4);}
+ _U.badCase($moduleName,
+ "between lines 371 and 373");
+ }();
+ };
+ var Red = {ctor: "Red"};
+ var moreBlack = function (color) {
+ return function () {
+ switch (color.ctor)
+ {case "BBlack":
+ return $Native$Debug.crash("Can\'t make a double black node more black!");
+ case "Black": return BBlack;
+ case "NBlack": return Red;
+ case "Red": return Black;}
+ _U.badCase($moduleName,
+ "between lines 237 and 241");
+ }();
+ };
+ var lessBlack = function (color) {
+ return function () {
+ switch (color.ctor)
+ {case "BBlack": return Black;
+ case "Black": return Red;
+ case "NBlack":
+ return $Native$Debug.crash("Can\'t make a negative black node less black!");
+ case "Red": return NBlack;}
+ _U.badCase($moduleName,
+ "between lines 246 and 250");
+ }();
+ };
+ var lessBlackTree = function (dict) {
+ return function () {
+ switch (dict.ctor)
+ {case "RBEmpty":
+ switch (dict._0.ctor)
+ {case "LBBlack":
+ return RBEmpty(LBlack);}
+ break;
+ case "RBNode": return A5(RBNode,
+ lessBlack(dict._0),
+ dict._1,
+ dict._2,
+ dict._3,
+ dict._4);}
+ _U.badCase($moduleName,
+ "between lines 255 and 257");
+ }();
+ };
+ var redden = function (t) {
+ return function () {
+ switch (t.ctor)
+ {case "RBEmpty":
+ return $Native$Debug.crash("can\'t make a Leaf red");
+ case "RBNode": return A5(RBNode,
+ Red,
+ t._1,
+ t._2,
+ t._3,
+ t._4);}
+ _U.badCase($moduleName,
+ "between lines 379 and 384");
+ }();
+ };
+ var balance_node = function (t) {
+ return function () {
+ var assemble = function (col) {
+ return function (xk) {
+ return function (xv) {
+ return function (yk) {
+ return function (yv) {
+ return function (zk) {
+ return function (zv) {
+ return function (a) {
+ return function (b) {
+ return function (c) {
+ return function (d) {
+ return A5(RBNode,
+ lessBlack(col),
+ yk,
+ yv,
+ A5(RBNode,Black,xk,xv,a,b),
+ A5(RBNode,Black,zk,zv,c,d));
+ };
+ };
+ };
+ };
+ };
+ };
+ };
+ };
+ };
+ };
+ };
+ return blackish(t) ? function () {
+ switch (t.ctor)
+ {case "RBNode":
+ switch (t._3.ctor)
+ {case "RBNode":
+ switch (t._3._0.ctor)
+ {case "Red":
+ switch (t._3._3.ctor)
+ {case "RBNode":
+ switch (t._3._3._0.ctor)
+ {case "Red":
+ return assemble(t._0)(t._3._3._1)(t._3._3._2)(t._3._1)(t._3._2)(t._1)(t._2)(t._3._3._3)(t._3._3._4)(t._3._4)(t._4);}
+ break;}
+ switch (t._3._4.ctor)
+ {case "RBNode":
+ switch (t._3._4._0.ctor)
+ {case "Red":
+ return assemble(t._0)(t._3._1)(t._3._2)(t._3._4._1)(t._3._4._2)(t._1)(t._2)(t._3._3)(t._3._4._3)(t._3._4._4)(t._4);}
+ break;}
+ break;}
+ break;}
+ switch (t._4.ctor)
+ {case "RBNode":
+ switch (t._4._0.ctor)
+ {case "Red":
+ switch (t._4._3.ctor)
+ {case "RBNode":
+ switch (t._4._3._0.ctor)
+ {case "Red":
+ return assemble(t._0)(t._1)(t._2)(t._4._3._1)(t._4._3._2)(t._4._1)(t._4._2)(t._3)(t._4._3._3)(t._4._3._4)(t._4._4);}
+ break;}
+ switch (t._4._4.ctor)
+ {case "RBNode":
+ switch (t._4._4._0.ctor)
+ {case "Red":
+ return assemble(t._0)(t._1)(t._2)(t._4._1)(t._4._2)(t._4._4._1)(t._4._4._2)(t._3)(t._4._3)(t._4._4._3)(t._4._4._4);}
+ break;}
+ break;}
+ break;}
+ switch (t._0.ctor)
+ {case "BBlack":
+ switch (t._4.ctor)
+ {case "RBNode":
+ switch (t._4._0.ctor)
+ {case "NBlack":
+ switch (t._4._3.ctor)
+ {case "RBNode":
+ switch (t._4._3._0.ctor)
+ {case "Black":
+ return function () {
+ switch (t._4._4.ctor)
+ {case "RBNode":
+ switch (t._4._4._0.ctor)
+ {case "Black":
+ return A5(RBNode,
+ Black,
+ t._4._3._1,
+ t._4._3._2,
+ A5(RBNode,
+ Black,
+ t._1,
+ t._2,
+ t._3,
+ t._4._3._3),
+ A5(balance,
+ Black,
+ t._4._1,
+ t._4._2,
+ t._4._3._4,
+ redden(t._4._4)));}
+ break;}
+ return t;
+ }();}
+ break;}
+ break;}
+ break;}
+ switch (t._3.ctor)
+ {case "RBNode":
+ switch (t._3._0.ctor)
+ {case "NBlack":
+ switch (t._3._4.ctor)
+ {case "RBNode":
+ switch (t._3._4._0.ctor)
+ {case "Black":
+ return function () {
+ switch (t._3._3.ctor)
+ {case "RBNode":
+ switch (t._3._3._0.ctor)
+ {case "Black":
+ return A5(RBNode,
+ Black,
+ t._3._4._1,
+ t._3._4._2,
+ A5(balance,
+ Black,
+ t._3._1,
+ t._3._2,
+ redden(t._3._3),
+ t._3._4._3),
+ A5(RBNode,
+ Black,
+ t._1,
+ t._2,
+ t._3._4._4,
+ t._4));}
+ break;}
+ return t;
+ }();}
+ break;}
+ break;}
+ break;}
+ break;}
+ break;}
+ return t;
+ }() : t;
+ }();
+ };
+ var balance = F5(function (c,
+ k,
+ v,
+ l,
+ r) {
+ return balance_node(A5(RBNode,
+ c,
+ k,
+ v,
+ l,
+ r));
+ });
+ var bubble = F5(function (c,
+ k,
+ v,
+ l,
+ r) {
+ return isBBlack(l) || isBBlack(r) ? A5(balance,
+ moreBlack(c),
+ k,
+ v,
+ lessBlackTree(l),
+ lessBlackTree(r)) : A5(RBNode,
+ c,
+ k,
+ v,
+ l,
+ r);
+ });
+ var remove_max = F5(function (c,
+ k,
+ v,
+ l,
+ r) {
+ return function () {
+ switch (r.ctor)
+ {case "RBEmpty": return A3(rem,
+ c,
+ l,
+ r);
+ case "RBNode": return A5(bubble,
+ c,
+ k,
+ v,
+ l,
+ A5(remove_max,
+ r._0,
+ r._1,
+ r._2,
+ r._3,
+ r._4));}
+ _U.badCase($moduleName,
+ "between lines 316 and 321");
+ }();
+ });
+ var rem = F3(function (c,l,r) {
+ return function () {
+ var _v169 = {ctor: "_Tuple2"
+ ,_0: l
+ ,_1: r};
+ switch (_v169.ctor)
+ {case "_Tuple2":
+ switch (_v169._0.ctor)
+ {case "RBEmpty":
+ switch (_v169._1.ctor)
+ {case "RBEmpty":
+ return function () {
+ switch (c.ctor)
+ {case "Black":
+ return RBEmpty(LBBlack);
+ case "Red":
+ return RBEmpty(LBlack);}
+ _U.badCase($moduleName,
+ "between lines 275 and 279");
+ }();
+ case "RBNode":
+ return function () {
+ var _v191 = {ctor: "_Tuple3"
+ ,_0: c
+ ,_1: _v169._0._0
+ ,_2: _v169._1._0};
+ switch (_v191.ctor)
+ {case "_Tuple3":
+ switch (_v191._0.ctor)
+ {case "Black":
+ switch (_v191._1.ctor)
+ {case "LBlack":
+ switch (_v191._2.ctor)
+ {case "Red": return A5(RBNode,
+ Black,
+ _v169._1._1,
+ _v169._1._2,
+ _v169._1._3,
+ _v169._1._4);}
+ break;}
+ break;}
+ break;}
+ return A4(reportRemBug,
+ "Black/LBlack/Red",
+ c,
+ showLColor(_v169._0._0),
+ showNColor(_v169._1._0));
+ }();}
+ break;
+ case "RBNode":
+ switch (_v169._1.ctor)
+ {case "RBEmpty":
+ return function () {
+ var _v195 = {ctor: "_Tuple3"
+ ,_0: c
+ ,_1: _v169._0._0
+ ,_2: _v169._1._0};
+ switch (_v195.ctor)
+ {case "_Tuple3":
+ switch (_v195._0.ctor)
+ {case "Black":
+ switch (_v195._1.ctor)
+ {case "Red":
+ switch (_v195._2.ctor)
+ {case "LBlack":
+ return A5(RBNode,
+ Black,
+ _v169._0._1,
+ _v169._0._2,
+ _v169._0._3,
+ _v169._0._4);}
+ break;}
+ break;}
+ break;}
+ return A4(reportRemBug,
+ "Black/Red/LBlack",
+ c,
+ showNColor(_v169._0._0),
+ showLColor(_v169._1._0));
+ }();
+ case "RBNode":
+ return function () {
+ var l$ = A5(remove_max,
+ _v169._0._0,
+ _v169._0._1,
+ _v169._0._2,
+ _v169._0._3,
+ _v169._0._4);
+ var r = A5(RBNode,
+ _v169._1._0,
+ _v169._1._1,
+ _v169._1._2,
+ _v169._1._3,
+ _v169._1._4);
+ var l = A5(RBNode,
+ _v169._0._0,
+ _v169._0._1,
+ _v169._0._2,
+ _v169._0._3,
+ _v169._0._4);
+ var $ = max(l),
+ k = $._0,
+ v = $._1;
+ return A5(bubble,c,k,v,l$,r);
+ }();}
+ break;}
+ break;}
+ _U.badCase($moduleName,
+ "between lines 273 and 302");
+ }();
+ });
+ var update = F3(function (k,
+ alter,
+ dict) {
+ return function () {
+ var up = function (dict) {
+ return function () {
+ switch (dict.ctor)
+ {case "RBEmpty":
+ switch (dict._0.ctor)
+ {case "LBlack":
+ return function () {
+ var _v206 = alter($Maybe.Nothing);
+ switch (_v206.ctor)
+ {case "Just":
+ return {ctor: "_Tuple2"
+ ,_0: Insert
+ ,_1: A5(RBNode,
+ Red,
+ k,
+ _v206._0,
+ empty,
+ empty)};
+ case "Nothing":
+ return {ctor: "_Tuple2"
+ ,_0: Same
+ ,_1: empty};}
+ _U.badCase($moduleName,
+ "between lines 187 and 191");
+ }();}
+ break;
+ case "RBNode":
+ return function () {
+ var _v208 = A2($Basics.compare,
+ k,
+ dict._1);
+ switch (_v208.ctor)
+ {case "EQ": return function () {
+ var _v209 = alter($Maybe.Just(dict._2));
+ switch (_v209.ctor)
+ {case "Just":
+ return {ctor: "_Tuple2"
+ ,_0: Same
+ ,_1: A5(RBNode,
+ dict._0,
+ dict._1,
+ _v209._0,
+ dict._3,
+ dict._4)};
+ case "Nothing":
+ return {ctor: "_Tuple2"
+ ,_0: Remove
+ ,_1: A3(rem,
+ dict._0,
+ dict._3,
+ dict._4)};}
+ _U.badCase($moduleName,
+ "between lines 194 and 199");
+ }();
+ case "GT": return function () {
+ var $ = up(dict._4),
+ flag = $._0,
+ newRight = $._1;
+ return function () {
+ switch (flag.ctor)
+ {case "Insert":
+ return {ctor: "_Tuple2"
+ ,_0: Insert
+ ,_1: A5(balance,
+ dict._0,
+ dict._1,
+ dict._2,
+ dict._3,
+ newRight)};
+ case "Remove":
+ return {ctor: "_Tuple2"
+ ,_0: Remove
+ ,_1: A5(bubble,
+ dict._0,
+ dict._1,
+ dict._2,
+ dict._3,
+ newRight)};
+ case "Same":
+ return {ctor: "_Tuple2"
+ ,_0: Same
+ ,_1: A5(RBNode,
+ dict._0,
+ dict._1,
+ dict._2,
+ dict._3,
+ newRight)};}
+ _U.badCase($moduleName,
+ "between lines 208 and 213");
+ }();
+ }();
+ case "LT": return function () {
+ var $ = up(dict._3),
+ flag = $._0,
+ newLeft = $._1;
+ return function () {
+ switch (flag.ctor)
+ {case "Insert":
+ return {ctor: "_Tuple2"
+ ,_0: Insert
+ ,_1: A5(balance,
+ dict._0,
+ dict._1,
+ dict._2,
+ newLeft,
+ dict._4)};
+ case "Remove":
+ return {ctor: "_Tuple2"
+ ,_0: Remove
+ ,_1: A5(bubble,
+ dict._0,
+ dict._1,
+ dict._2,
+ newLeft,
+ dict._4)};
+ case "Same":
+ return {ctor: "_Tuple2"
+ ,_0: Same
+ ,_1: A5(RBNode,
+ dict._0,
+ dict._1,
+ dict._2,
+ newLeft,
+ dict._4)};}
+ _U.badCase($moduleName,
+ "between lines 201 and 206");
+ }();
+ }();}
+ _U.badCase($moduleName,
+ "between lines 192 and 213");
+ }();}
+ _U.badCase($moduleName,
+ "between lines 185 and 213");
+ }();
+ };
+ var $ = up(dict),
+ flag = $._0,
+ updatedDict = $._1;
+ return function () {
+ switch (flag.ctor)
+ {case "Insert":
+ return ensureBlackRoot(updatedDict);
+ case "Remove":
+ return blacken(updatedDict);
+ case "Same":
+ return updatedDict;}
+ _U.badCase($moduleName,
+ "between lines 215 and 221");
+ }();
+ }();
+ });
+ var insert = F3(function (key,
+ value,
+ dict) {
+ return A3(update,
+ key,
+ $Basics.always($Maybe.Just(value)),
+ dict);
+ });
+ var singleton = F2(function (key,
+ value) {
+ return A3(insert,
+ key,
+ value,
+ RBEmpty(LBlack));
+ });
+ var union = F2(function (t1,
+ t2) {
+ return A3(foldl,
+ insert,
+ t2,
+ t1);
+ });
+ var fromList = function (assocs) {
+ return A3($List.foldl,
+ F2(function (_v214,dict) {
+ return function () {
+ switch (_v214.ctor)
+ {case "_Tuple2":
+ return A3(insert,
+ _v214._0,
+ _v214._1,
+ dict);}
+ _U.badCase($moduleName,
+ "on line 459, column 38 to 59");
+ }();
+ }),
+ empty,
+ assocs);
+ };
+ var filter = F2(function (predicate,
+ dictionary) {
+ return function () {
+ var add = F3(function (key,
+ value,
+ dict) {
+ return A2(predicate,
+ key,
+ value) ? A3(insert,
+ key,
+ value,
+ dict) : dict;
+ });
+ return A3(foldl,
+ add,
+ empty,
+ dictionary);
+ }();
+ });
+ var intersect = F2(function (t1,
+ t2) {
+ return A2(filter,
+ F2(function (k,_v218) {
+ return function () {
+ return A2(member,k,t2);
+ }();
+ }),
+ t1);
+ });
+ var partition = F2(function (predicate,
+ dict) {
+ return function () {
+ var add = F3(function (key,
+ value,
+ _v220) {
+ return function () {
+ switch (_v220.ctor)
+ {case "_Tuple2":
+ return A2(predicate,
+ key,
+ value) ? {ctor: "_Tuple2"
+ ,_0: A3(insert,
+ key,
+ value,
+ _v220._0)
+ ,_1: _v220._1} : {ctor: "_Tuple2"
+ ,_0: _v220._0
+ ,_1: A3(insert,
+ key,
+ value,
+ _v220._1)};}
+ _U.badCase($moduleName,
+ "between lines 480 and 482");
+ }();
+ });
+ return A3(foldl,
+ add,
+ {ctor: "_Tuple2"
+ ,_0: empty
+ ,_1: empty},
+ dict);
+ }();
+ });
+ var remove = F2(function (key,
+ dict) {
+ return A3(update,
+ key,
+ $Basics.always($Maybe.Nothing),
+ dict);
+ });
+ var diff = F2(function (t1,t2) {
+ return A3(foldl,
+ F3(function (k,v,t) {
+ return A2(remove,k,t);
+ }),
+ t1,
+ t2);
+ });
+ _elm.Dict.values = {_op: _op
+ ,empty: empty
+ ,singleton: singleton
+ ,insert: insert
+ ,update: update
+ ,get: get
+ ,remove: remove
+ ,member: member
+ ,filter: filter
+ ,partition: partition
+ ,foldl: foldl
+ ,foldr: foldr
+ ,map: map
+ ,union: union
+ ,intersect: intersect
+ ,diff: diff
+ ,keys: keys
+ ,values: values
+ ,toList: toList
+ ,fromList: fromList};
+ return _elm.Dict.values;
+};
+Elm.Graphics = Elm.Graphics || {};
+Elm.Graphics.Collage = Elm.Graphics.Collage || {};
+Elm.Graphics.Collage.make = function (_elm) {
+ "use strict";
+ _elm.Graphics = _elm.Graphics || {};
+ _elm.Graphics.Collage = _elm.Graphics.Collage || {};
+ if (_elm.Graphics.Collage.values)
+ return _elm.Graphics.Collage.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "Graphics.Collage",
+ $Basics = Elm.Basics.make(_elm),
+ $Color = Elm.Color.make(_elm),
+ $Graphics$Element = Elm.Graphics.Element.make(_elm),
+ $List = Elm.List.make(_elm),
+ $Native$Graphics$Collage = Elm.Native.Graphics.Collage.make(_elm),
+ $Transform2D = Elm.Transform2D.make(_elm);
+ var ngon = F2(function (n,r) {
+ return function () {
+ var m = $Basics.toFloat(n);
+ var t = 2 * $Basics.pi / m;
+ var f = function (i) {
+ return {ctor: "_Tuple2"
+ ,_0: r * $Basics.cos(t * i)
+ ,_1: r * $Basics.sin(t * i)};
+ };
+ return A2($List.map,
+ f,
+ _L.range(0,m - 1));
+ }();
+ });
+ var oval = F2(function (w,h) {
+ return function () {
+ var hh = h / 2;
+ var hw = w / 2;
+ var n = 50;
+ var t = 2 * $Basics.pi / n;
+ var f = function (i) {
+ return {ctor: "_Tuple2"
+ ,_0: hw * $Basics.cos(t * i)
+ ,_1: hh * $Basics.sin(t * i)};
+ };
+ return A2($List.map,
+ f,
+ _L.range(0,n - 1));
+ }();
+ });
+ var circle = function (r) {
+ return A2(oval,2 * r,2 * r);
+ };
+ var rect = F2(function (w,h) {
+ return function () {
+ var hh = h / 2;
+ var hw = w / 2;
+ return _L.fromArray([{ctor: "_Tuple2"
+ ,_0: 0 - hw
+ ,_1: 0 - hh}
+ ,{ctor: "_Tuple2"
+ ,_0: 0 - hw
+ ,_1: hh}
+ ,{ctor: "_Tuple2",_0: hw,_1: hh}
+ ,{ctor: "_Tuple2"
+ ,_0: hw
+ ,_1: 0 - hh}]);
+ }();
+ });
+ var square = function (n) {
+ return A2(rect,n,n);
+ };
+ var polygon = function (points) {
+ return points;
+ };
+ var segment = F2(function (p1,
+ p2) {
+ return _L.fromArray([p1,p2]);
+ });
+ var path = function (ps) {
+ return ps;
+ };
+ var collage = $Native$Graphics$Collage.collage;
+ var alpha = F2(function (a,f) {
+ return _U.replace([["alpha"
+ ,a]],
+ f);
+ });
+ var rotate = F2(function (t,f) {
+ return _U.replace([["theta"
+ ,f.theta + t]],
+ f);
+ });
+ var scale = F2(function (s,f) {
+ return _U.replace([["scale"
+ ,f.scale * s]],
+ f);
+ });
+ var moveY = F2(function (y,f) {
+ return _U.replace([["y"
+ ,f.y + y]],
+ f);
+ });
+ var moveX = F2(function (x,f) {
+ return _U.replace([["x"
+ ,f.x + x]],
+ f);
+ });
+ var move = F2(function (_v0,f) {
+ return function () {
+ switch (_v0.ctor)
+ {case "_Tuple2":
+ return _U.replace([["x"
+ ,f.x + _v0._0]
+ ,["y",f.y + _v0._1]],
+ f);}
+ _U.badCase($moduleName,
+ "on line 174, column 20 to 48");
+ }();
+ });
+ var form = function (f) {
+ return {_: {}
+ ,alpha: 1
+ ,form: f
+ ,scale: 1
+ ,theta: 0
+ ,x: 0
+ ,y: 0};
+ };
+ var Fill = function (a) {
+ return {ctor: "Fill",_0: a};
+ };
+ var Line = function (a) {
+ return {ctor: "Line",_0: a};
+ };
+ var FGroup = F2(function (a,b) {
+ return {ctor: "FGroup"
+ ,_0: a
+ ,_1: b};
+ });
+ var group = function (fs) {
+ return form(A2(FGroup,
+ $Transform2D.identity,
+ fs));
+ };
+ var groupTransform = F2(function (matrix,
+ fs) {
+ return form(A2(FGroup,
+ matrix,
+ fs));
+ });
+ var FElement = function (a) {
+ return {ctor: "FElement"
+ ,_0: a};
+ };
+ var toForm = function (e) {
+ return form(FElement(e));
+ };
+ var FImage = F4(function (a,
+ b,
+ c,
+ d) {
+ return {ctor: "FImage"
+ ,_0: a
+ ,_1: b
+ ,_2: c
+ ,_3: d};
+ });
+ var sprite = F4(function (w,
+ h,
+ pos,
+ src) {
+ return form(A4(FImage,
+ w,
+ h,
+ pos,
+ src));
+ });
+ var FShape = F2(function (a,b) {
+ return {ctor: "FShape"
+ ,_0: a
+ ,_1: b};
+ });
+ var fill = F2(function (style,
+ shape) {
+ return form(A2(FShape,
+ Fill(style),
+ shape));
+ });
+ var outlined = F2(function (style,
+ shape) {
+ return form(A2(FShape,
+ Line(style),
+ shape));
+ });
+ var FPath = F2(function (a,b) {
+ return {ctor: "FPath"
+ ,_0: a
+ ,_1: b};
+ });
+ var traced = F2(function (style,
+ path) {
+ return form(A2(FPath,
+ style,
+ path));
+ });
+ var LineStyle = F6(function (a,
+ b,
+ c,
+ d,
+ e,
+ f) {
+ return {_: {}
+ ,cap: c
+ ,color: a
+ ,dashOffset: f
+ ,dashing: e
+ ,join: d
+ ,width: b};
+ });
+ var Clipped = {ctor: "Clipped"};
+ var Sharp = function (a) {
+ return {ctor: "Sharp",_0: a};
+ };
+ var Smooth = {ctor: "Smooth"};
+ var Padded = {ctor: "Padded"};
+ var Round = {ctor: "Round"};
+ var Flat = {ctor: "Flat"};
+ var defaultLine = {_: {}
+ ,cap: Flat
+ ,color: $Color.black
+ ,dashOffset: 0
+ ,dashing: _L.fromArray([])
+ ,join: Sharp(10)
+ ,width: 1};
+ var solid = function (clr) {
+ return _U.replace([["color"
+ ,clr]],
+ defaultLine);
+ };
+ var dashed = function (clr) {
+ return _U.replace([["color"
+ ,clr]
+ ,["dashing"
+ ,_L.fromArray([8,4])]],
+ defaultLine);
+ };
+ var dotted = function (clr) {
+ return _U.replace([["color"
+ ,clr]
+ ,["dashing"
+ ,_L.fromArray([3,3])]],
+ defaultLine);
+ };
+ var Grad = function (a) {
+ return {ctor: "Grad",_0: a};
+ };
+ var gradient = F2(function (grad,
+ shape) {
+ return A2(fill,
+ Grad(grad),
+ shape);
+ });
+ var Texture = function (a) {
+ return {ctor: "Texture"
+ ,_0: a};
+ };
+ var textured = F2(function (src,
+ shape) {
+ return A2(fill,
+ Texture(src),
+ shape);
+ });
+ var Solid = function (a) {
+ return {ctor: "Solid",_0: a};
+ };
+ var filled = F2(function (color,
+ shape) {
+ return A2(fill,
+ Solid(color),
+ shape);
+ });
+ var Form = F6(function (a,
+ b,
+ c,
+ d,
+ e,
+ f) {
+ return {_: {}
+ ,alpha: e
+ ,form: f
+ ,scale: b
+ ,theta: a
+ ,x: c
+ ,y: d};
+ });
+ _elm.Graphics.Collage.values = {_op: _op
+ ,Form: Form
+ ,Solid: Solid
+ ,Texture: Texture
+ ,Grad: Grad
+ ,Flat: Flat
+ ,Round: Round
+ ,Padded: Padded
+ ,Smooth: Smooth
+ ,Sharp: Sharp
+ ,Clipped: Clipped
+ ,LineStyle: LineStyle
+ ,defaultLine: defaultLine
+ ,solid: solid
+ ,dashed: dashed
+ ,dotted: dotted
+ ,FPath: FPath
+ ,FShape: FShape
+ ,FImage: FImage
+ ,FElement: FElement
+ ,FGroup: FGroup
+ ,Line: Line
+ ,Fill: Fill
+ ,form: form
+ ,fill: fill
+ ,filled: filled
+ ,textured: textured
+ ,gradient: gradient
+ ,outlined: outlined
+ ,traced: traced
+ ,sprite: sprite
+ ,toForm: toForm
+ ,group: group
+ ,groupTransform: groupTransform
+ ,move: move
+ ,moveX: moveX
+ ,moveY: moveY
+ ,scale: scale
+ ,rotate: rotate
+ ,alpha: alpha
+ ,collage: collage
+ ,path: path
+ ,segment: segment
+ ,polygon: polygon
+ ,rect: rect
+ ,square: square
+ ,oval: oval
+ ,circle: circle
+ ,ngon: ngon};
+ return _elm.Graphics.Collage.values;
+};
+Elm.Graphics = Elm.Graphics || {};
+Elm.Graphics.Element = Elm.Graphics.Element || {};
+Elm.Graphics.Element.make = function (_elm) {
+ "use strict";
+ _elm.Graphics = _elm.Graphics || {};
+ _elm.Graphics.Element = _elm.Graphics.Element || {};
+ if (_elm.Graphics.Element.values)
+ return _elm.Graphics.Element.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "Graphics.Element",
+ $Basics = Elm.Basics.make(_elm),
+ $Color = Elm.Color.make(_elm),
+ $List = Elm.List.make(_elm),
+ $Maybe = Elm.Maybe.make(_elm),
+ $Native$Graphics$Element = Elm.Native.Graphics.Element.make(_elm);
+ var DOut = {ctor: "DOut"};
+ var outward = DOut;
+ var DIn = {ctor: "DIn"};
+ var inward = DIn;
+ var DRight = {ctor: "DRight"};
+ var right = DRight;
+ var DLeft = {ctor: "DLeft"};
+ var left = DLeft;
+ var DDown = {ctor: "DDown"};
+ var down = DDown;
+ var DUp = {ctor: "DUp"};
+ var up = DUp;
+ var Position = F4(function (a,
+ b,
+ c,
+ d) {
+ return {_: {}
+ ,horizontal: a
+ ,vertical: b
+ ,x: c
+ ,y: d};
+ });
+ var Relative = function (a) {
+ return {ctor: "Relative"
+ ,_0: a};
+ };
+ var relative = Relative;
+ var Absolute = function (a) {
+ return {ctor: "Absolute"
+ ,_0: a};
+ };
+ var absolute = Absolute;
+ var N = {ctor: "N"};
+ var bottomLeftAt = F2(function (x,
+ y) {
+ return {_: {}
+ ,horizontal: N
+ ,vertical: N
+ ,x: x
+ ,y: y};
+ });
+ var Z = {ctor: "Z"};
+ var middle = {_: {}
+ ,horizontal: Z
+ ,vertical: Z
+ ,x: Relative(0.5)
+ ,y: Relative(0.5)};
+ var midLeft = _U.replace([["horizontal"
+ ,N]
+ ,["x",Absolute(0)]],
+ middle);
+ var middleAt = F2(function (x,
+ y) {
+ return {_: {}
+ ,horizontal: Z
+ ,vertical: Z
+ ,x: x
+ ,y: y};
+ });
+ var midLeftAt = F2(function (x,
+ y) {
+ return {_: {}
+ ,horizontal: N
+ ,vertical: Z
+ ,x: x
+ ,y: y};
+ });
+ var midBottomAt = F2(function (x,
+ y) {
+ return {_: {}
+ ,horizontal: Z
+ ,vertical: N
+ ,x: x
+ ,y: y};
+ });
+ var P = {ctor: "P"};
+ var topLeft = {_: {}
+ ,horizontal: N
+ ,vertical: P
+ ,x: Absolute(0)
+ ,y: Absolute(0)};
+ var bottomLeft = _U.replace([["vertical"
+ ,N]],
+ topLeft);
+ var topRight = _U.replace([["horizontal"
+ ,P]],
+ topLeft);
+ var bottomRight = _U.replace([["horizontal"
+ ,P]],
+ bottomLeft);
+ var midRight = _U.replace([["horizontal"
+ ,P]],
+ midLeft);
+ var midTop = _U.replace([["vertical"
+ ,P]
+ ,["y",Absolute(0)]],
+ middle);
+ var midBottom = _U.replace([["vertical"
+ ,N]],
+ midTop);
+ var topLeftAt = F2(function (x,
+ y) {
+ return {_: {}
+ ,horizontal: N
+ ,vertical: P
+ ,x: x
+ ,y: y};
+ });
+ var topRightAt = F2(function (x,
+ y) {
+ return {_: {}
+ ,horizontal: P
+ ,vertical: P
+ ,x: x
+ ,y: y};
+ });
+ var bottomRightAt = F2(function (x,
+ y) {
+ return {_: {}
+ ,horizontal: P
+ ,vertical: N
+ ,x: x
+ ,y: y};
+ });
+ var midRightAt = F2(function (x,
+ y) {
+ return {_: {}
+ ,horizontal: P
+ ,vertical: Z
+ ,x: x
+ ,y: y};
+ });
+ var midTopAt = F2(function (x,
+ y) {
+ return {_: {}
+ ,horizontal: Z
+ ,vertical: P
+ ,x: x
+ ,y: y};
+ });
+ var Tiled = {ctor: "Tiled"};
+ var Cropped = function (a) {
+ return {ctor: "Cropped"
+ ,_0: a};
+ };
+ var Fitted = {ctor: "Fitted"};
+ var Plain = {ctor: "Plain"};
+ var Custom = {ctor: "Custom"};
+ var RawHtml = {ctor: "RawHtml"};
+ var Spacer = {ctor: "Spacer"};
+ var Flow = F2(function (a,b) {
+ return {ctor: "Flow"
+ ,_0: a
+ ,_1: b};
+ });
+ var Container = F2(function (a,
+ b) {
+ return {ctor: "Container"
+ ,_0: a
+ ,_1: b};
+ });
+ var Image = F4(function (a,
+ b,
+ c,
+ d) {
+ return {ctor: "Image"
+ ,_0: a
+ ,_1: b
+ ,_2: c
+ ,_3: d};
+ });
+ var link = F2(function (href,
+ e) {
+ return function () {
+ var p = e.props;
+ return {_: {}
+ ,element: e.element
+ ,props: _U.replace([["href"
+ ,href]],
+ p)};
+ }();
+ });
+ var tag = F2(function (name,e) {
+ return function () {
+ var p = e.props;
+ return {_: {}
+ ,element: e.element
+ ,props: _U.replace([["tag"
+ ,name]],
+ p)};
+ }();
+ });
+ var color = F2(function (c,e) {
+ return function () {
+ var p = e.props;
+ return {_: {}
+ ,element: e.element
+ ,props: _U.replace([["color"
+ ,$Maybe.Just(c)]],
+ p)};
+ }();
+ });
+ var opacity = F2(function (o,
+ e) {
+ return function () {
+ var p = e.props;
+ return {_: {}
+ ,element: e.element
+ ,props: _U.replace([["opacity"
+ ,o]],
+ p)};
+ }();
+ });
+ var height = F2(function (nh,
+ e) {
+ return function () {
+ var p = e.props;
+ var props = function () {
+ var _v0 = e.element;
+ switch (_v0.ctor)
+ {case "Image":
+ return _U.replace([["width"
+ ,$Basics.round($Basics.toFloat(_v0._1) / $Basics.toFloat(_v0._2) * $Basics.toFloat(nh))]],
+ p);}
+ return p;
+ }();
+ return {_: {}
+ ,element: e.element
+ ,props: _U.replace([["height"
+ ,nh]],
+ p)};
+ }();
+ });
+ var width = F2(function (nw,e) {
+ return function () {
+ var p = e.props;
+ var props = function () {
+ var _v5 = e.element;
+ switch (_v5.ctor)
+ {case "Image":
+ return _U.replace([["height"
+ ,$Basics.round($Basics.toFloat(_v5._2) / $Basics.toFloat(_v5._1) * $Basics.toFloat(nw))]],
+ p);
+ case "RawHtml":
+ return _U.replace([["height"
+ ,$Basics.snd(A2($Native$Graphics$Element.htmlHeight,
+ nw,
+ e.element))]],
+ p);}
+ return p;
+ }();
+ return {_: {}
+ ,element: e.element
+ ,props: _U.replace([["width"
+ ,nw]],
+ props)};
+ }();
+ });
+ var size = F3(function (w,h,e) {
+ return A2(height,
+ h,
+ A2(width,w,e));
+ });
+ var sizeOf = function (e) {
+ return {ctor: "_Tuple2"
+ ,_0: e.props.width
+ ,_1: e.props.height};
+ };
+ var heightOf = function (e) {
+ return e.props.height;
+ };
+ var widthOf = function (e) {
+ return e.props.width;
+ };
+ var Element = F2(function (a,
+ b) {
+ return {_: {}
+ ,element: b
+ ,props: a};
+ });
+ var Properties = F9(function (a,
+ b,
+ c,
+ d,
+ e,
+ f,
+ g,
+ h,
+ i) {
+ return {_: {}
+ ,click: i
+ ,color: e
+ ,height: c
+ ,hover: h
+ ,href: f
+ ,id: a
+ ,opacity: d
+ ,tag: g
+ ,width: b};
+ });
+ var newElement = F3(function (w,
+ h,
+ e) {
+ return {_: {}
+ ,element: e
+ ,props: A9(Properties,
+ $Native$Graphics$Element.guid({ctor: "_Tuple0"}),
+ w,
+ h,
+ 1,
+ $Maybe.Nothing,
+ "",
+ "",
+ {ctor: "_Tuple0"},
+ {ctor: "_Tuple0"})};
+ });
+ var image = F3(function (w,
+ h,
+ src) {
+ return A3(newElement,
+ w,
+ h,
+ A4(Image,Plain,w,h,src));
+ });
+ var fittedImage = F3(function (w,
+ h,
+ src) {
+ return A3(newElement,
+ w,
+ h,
+ A4(Image,Fitted,w,h,src));
+ });
+ var croppedImage = F4(function (pos,
+ w,
+ h,
+ src) {
+ return A3(newElement,
+ w,
+ h,
+ A4(Image,Cropped(pos),w,h,src));
+ });
+ var tiledImage = F3(function (w,
+ h,
+ src) {
+ return A3(newElement,
+ w,
+ h,
+ A4(Image,Tiled,w,h,src));
+ });
+ var container = F4(function (w,
+ h,
+ pos,
+ e) {
+ return A3(newElement,
+ w,
+ h,
+ A2(Container,pos,e));
+ });
+ var spacer = F2(function (w,h) {
+ return A3(newElement,
+ w,
+ h,
+ Spacer);
+ });
+ var empty = A2(spacer,0,0);
+ var flow = F2(function (dir,
+ es) {
+ return function () {
+ var newFlow = F2(function (w,
+ h) {
+ return A3(newElement,
+ w,
+ h,
+ A2(Flow,dir,es));
+ });
+ var hs = A2($List.map,
+ heightOf,
+ es);
+ var ws = A2($List.map,
+ widthOf,
+ es);
+ return _U.eq(es,
+ _L.fromArray([])) ? empty : function () {
+ switch (dir.ctor)
+ {case "DDown":
+ return A2(newFlow,
+ $List.maximum(ws),
+ $List.sum(hs));
+ case "DIn": return A2(newFlow,
+ $List.maximum(ws),
+ $List.maximum(hs));
+ case "DLeft": return A2(newFlow,
+ $List.sum(ws),
+ $List.maximum(hs));
+ case "DOut": return A2(newFlow,
+ $List.maximum(ws),
+ $List.maximum(hs));
+ case "DRight":
+ return A2(newFlow,
+ $List.sum(ws),
+ $List.maximum(hs));
+ case "DUp": return A2(newFlow,
+ $List.maximum(ws),
+ $List.sum(hs));}
+ _U.badCase($moduleName,
+ "between lines 280 and 291");
+ }();
+ }();
+ });
+ var above = F2(function (hi,
+ lo) {
+ return A3(newElement,
+ A2($Basics.max,
+ widthOf(hi),
+ widthOf(lo)),
+ heightOf(hi) + heightOf(lo),
+ A2(Flow,
+ DDown,
+ _L.fromArray([hi,lo])));
+ });
+ var below = F2(function (lo,
+ hi) {
+ return A3(newElement,
+ A2($Basics.max,
+ widthOf(hi),
+ widthOf(lo)),
+ heightOf(hi) + heightOf(lo),
+ A2(Flow,
+ DDown,
+ _L.fromArray([hi,lo])));
+ });
+ var beside = F2(function (lft,
+ rht) {
+ return A3(newElement,
+ widthOf(lft) + widthOf(rht),
+ A2($Basics.max,
+ heightOf(lft),
+ heightOf(rht)),
+ A2(Flow,
+ right,
+ _L.fromArray([lft,rht])));
+ });
+ var layers = function (es) {
+ return function () {
+ var hs = A2($List.map,
+ heightOf,
+ es);
+ var ws = A2($List.map,
+ widthOf,
+ es);
+ return A3(newElement,
+ $List.maximum(ws),
+ $List.maximum(hs),
+ A2(Flow,DOut,es));
+ }();
+ };
+ _elm.Graphics.Element.values = {_op: _op
+ ,Properties: Properties
+ ,Element: Element
+ ,empty: empty
+ ,widthOf: widthOf
+ ,heightOf: heightOf
+ ,sizeOf: sizeOf
+ ,width: width
+ ,height: height
+ ,size: size
+ ,opacity: opacity
+ ,color: color
+ ,tag: tag
+ ,link: link
+ ,newElement: newElement
+ ,Image: Image
+ ,Container: Container
+ ,Flow: Flow
+ ,Spacer: Spacer
+ ,RawHtml: RawHtml
+ ,Custom: Custom
+ ,Plain: Plain
+ ,Fitted: Fitted
+ ,Cropped: Cropped
+ ,Tiled: Tiled
+ ,image: image
+ ,fittedImage: fittedImage
+ ,croppedImage: croppedImage
+ ,tiledImage: tiledImage
+ ,P: P
+ ,Z: Z
+ ,N: N
+ ,Absolute: Absolute
+ ,Relative: Relative
+ ,Position: Position
+ ,container: container
+ ,spacer: spacer
+ ,DUp: DUp
+ ,DDown: DDown
+ ,DLeft: DLeft
+ ,DRight: DRight
+ ,DIn: DIn
+ ,DOut: DOut
+ ,flow: flow
+ ,above: above
+ ,below: below
+ ,beside: beside
+ ,layers: layers
+ ,absolute: absolute
+ ,relative: relative
+ ,middle: middle
+ ,topLeft: topLeft
+ ,topRight: topRight
+ ,bottomLeft: bottomLeft
+ ,bottomRight: bottomRight
+ ,midLeft: midLeft
+ ,midRight: midRight
+ ,midTop: midTop
+ ,midBottom: midBottom
+ ,middleAt: middleAt
+ ,topLeftAt: topLeftAt
+ ,topRightAt: topRightAt
+ ,bottomLeftAt: bottomLeftAt
+ ,bottomRightAt: bottomRightAt
+ ,midLeftAt: midLeftAt
+ ,midRightAt: midRightAt
+ ,midTopAt: midTopAt
+ ,midBottomAt: midBottomAt
+ ,up: up
+ ,down: down
+ ,left: left
+ ,right: right
+ ,inward: inward
+ ,outward: outward};
+ return _elm.Graphics.Element.values;
+};
+Elm.Graphics = Elm.Graphics || {};
+Elm.Graphics.Input = Elm.Graphics.Input || {};
+Elm.Graphics.Input.make = function (_elm) {
+ "use strict";
+ _elm.Graphics = _elm.Graphics || {};
+ _elm.Graphics.Input = _elm.Graphics.Input || {};
+ if (_elm.Graphics.Input.values)
+ return _elm.Graphics.Input.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "Graphics.Input",
+ $Graphics$Element = Elm.Graphics.Element.make(_elm),
+ $Native$Graphics$Input = Elm.Native.Graphics.Input.make(_elm),
+ $Signal = Elm.Signal.make(_elm);
+ var clickable = $Native$Graphics$Input.clickable;
+ var hoverable = $Native$Graphics$Input.hoverable;
+ var dropDown = $Native$Graphics$Input.dropDown;
+ var checkbox = $Native$Graphics$Input.checkbox;
+ var customButton = $Native$Graphics$Input.customButton;
+ var button = $Native$Graphics$Input.button;
+ _elm.Graphics.Input.values = {_op: _op
+ ,button: button
+ ,customButton: customButton
+ ,checkbox: checkbox
+ ,dropDown: dropDown
+ ,hoverable: hoverable
+ ,clickable: clickable};
+ return _elm.Graphics.Input.values;
+};
+Elm.Html = Elm.Html || {};
+Elm.Html.make = function (_elm) {
+ "use strict";
+ _elm.Html = _elm.Html || {};
+ if (_elm.Html.values)
+ return _elm.Html.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "Html",
+ $Graphics$Element = Elm.Graphics.Element.make(_elm),
+ $VirtualDom = Elm.VirtualDom.make(_elm);
+ var fromElement = $VirtualDom.fromElement;
+ var toElement = $VirtualDom.toElement;
+ var text = $VirtualDom.text;
+ var node = $VirtualDom.node;
+ var body = node("body");
+ var section = node("section");
+ var nav = node("nav");
+ var article = node("article");
+ var aside = node("aside");
+ var h1 = node("h1");
+ var h2 = node("h2");
+ var h3 = node("h3");
+ var h4 = node("h4");
+ var h5 = node("h5");
+ var h6 = node("h6");
+ var header = node("header");
+ var footer = node("footer");
+ var address = node("address");
+ var main$ = node("main");
+ var p = node("p");
+ var hr = node("hr");
+ var pre = node("pre");
+ var blockquote = node("blockquote");
+ var ol = node("ol");
+ var ul = node("ul");
+ var li = node("li");
+ var dl = node("dl");
+ var dt = node("dt");
+ var dd = node("dd");
+ var figure = node("figure");
+ var figcaption = node("figcaption");
+ var div = node("div");
+ var a = node("a");
+ var em = node("em");
+ var strong = node("strong");
+ var small = node("small");
+ var s = node("s");
+ var cite = node("cite");
+ var q = node("q");
+ var dfn = node("dfn");
+ var abbr = node("abbr");
+ var time = node("time");
+ var code = node("code");
+ var $var = node("var");
+ var samp = node("samp");
+ var kbd = node("kbd");
+ var sub = node("sub");
+ var sup = node("sup");
+ var i = node("i");
+ var b = node("b");
+ var u = node("u");
+ var mark = node("mark");
+ var ruby = node("ruby");
+ var rt = node("rt");
+ var rp = node("rp");
+ var bdi = node("bdi");
+ var bdo = node("bdo");
+ var span = node("span");
+ var br = node("br");
+ var wbr = node("wbr");
+ var ins = node("ins");
+ var del = node("del");
+ var img = node("img");
+ var iframe = node("iframe");
+ var embed = node("embed");
+ var object = node("object");
+ var param = node("param");
+ var video = node("video");
+ var audio = node("audio");
+ var source = node("source");
+ var track = node("track");
+ var canvas = node("canvas");
+ var svg = node("svg");
+ var math = node("math");
+ var table = node("table");
+ var caption = node("caption");
+ var colgroup = node("colgroup");
+ var col = node("col");
+ var tbody = node("tbody");
+ var thead = node("thead");
+ var tfoot = node("tfoot");
+ var tr = node("tr");
+ var td = node("td");
+ var th = node("th");
+ var form = node("form");
+ var fieldset = node("fieldset");
+ var legend = node("legend");
+ var label = node("label");
+ var input = node("input");
+ var button = node("button");
+ var select = node("select");
+ var datalist = node("datalist");
+ var optgroup = node("optgroup");
+ var option = node("option");
+ var textarea = node("textarea");
+ var keygen = node("keygen");
+ var output = node("output");
+ var progress = node("progress");
+ var meter = node("meter");
+ var details = node("details");
+ var summary = node("summary");
+ var menuitem = node("menuitem");
+ var menu = node("menu");
+ _elm.Html.values = {_op: _op
+ ,node: node
+ ,text: text
+ ,toElement: toElement
+ ,fromElement: fromElement
+ ,body: body
+ ,section: section
+ ,nav: nav
+ ,article: article
+ ,aside: aside
+ ,h1: h1
+ ,h2: h2
+ ,h3: h3
+ ,h4: h4
+ ,h5: h5
+ ,h6: h6
+ ,header: header
+ ,footer: footer
+ ,address: address
+ ,main$: main$
+ ,p: p
+ ,hr: hr
+ ,pre: pre
+ ,blockquote: blockquote
+ ,ol: ol
+ ,ul: ul
+ ,li: li
+ ,dl: dl
+ ,dt: dt
+ ,dd: dd
+ ,figure: figure
+ ,figcaption: figcaption
+ ,div: div
+ ,a: a
+ ,em: em
+ ,strong: strong
+ ,small: small
+ ,s: s
+ ,cite: cite
+ ,q: q
+ ,dfn: dfn
+ ,abbr: abbr
+ ,time: time
+ ,code: code
+ ,$var: $var
+ ,samp: samp
+ ,kbd: kbd
+ ,sub: sub
+ ,sup: sup
+ ,i: i
+ ,b: b
+ ,u: u
+ ,mark: mark
+ ,ruby: ruby
+ ,rt: rt
+ ,rp: rp
+ ,bdi: bdi
+ ,bdo: bdo
+ ,span: span
+ ,br: br
+ ,wbr: wbr
+ ,ins: ins
+ ,del: del
+ ,img: img
+ ,iframe: iframe
+ ,embed: embed
+ ,object: object
+ ,param: param
+ ,video: video
+ ,audio: audio
+ ,source: source
+ ,track: track
+ ,canvas: canvas
+ ,svg: svg
+ ,math: math
+ ,table: table
+ ,caption: caption
+ ,colgroup: colgroup
+ ,col: col
+ ,tbody: tbody
+ ,thead: thead
+ ,tfoot: tfoot
+ ,tr: tr
+ ,td: td
+ ,th: th
+ ,form: form
+ ,fieldset: fieldset
+ ,legend: legend
+ ,label: label
+ ,input: input
+ ,button: button
+ ,select: select
+ ,datalist: datalist
+ ,optgroup: optgroup
+ ,option: option
+ ,textarea: textarea
+ ,keygen: keygen
+ ,output: output
+ ,progress: progress
+ ,meter: meter
+ ,details: details
+ ,summary: summary
+ ,menuitem: menuitem
+ ,menu: menu};
+ return _elm.Html.values;
+};
+Elm.Json = Elm.Json || {};
+Elm.Json.Decode = Elm.Json.Decode || {};
+Elm.Json.Decode.make = function (_elm) {
+ "use strict";
+ _elm.Json = _elm.Json || {};
+ _elm.Json.Decode = _elm.Json.Decode || {};
+ if (_elm.Json.Decode.values)
+ return _elm.Json.Decode.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "Json.Decode",
+ $Array = Elm.Array.make(_elm),
+ $Dict = Elm.Dict.make(_elm),
+ $Json$Encode = Elm.Json.Encode.make(_elm),
+ $List = Elm.List.make(_elm),
+ $Maybe = Elm.Maybe.make(_elm),
+ $Native$Json = Elm.Native.Json.make(_elm),
+ $Result = Elm.Result.make(_elm);
+ var tuple8 = $Native$Json.decodeTuple8;
+ var tuple7 = $Native$Json.decodeTuple7;
+ var tuple6 = $Native$Json.decodeTuple6;
+ var tuple5 = $Native$Json.decodeTuple5;
+ var tuple4 = $Native$Json.decodeTuple4;
+ var tuple3 = $Native$Json.decodeTuple3;
+ var tuple2 = $Native$Json.decodeTuple2;
+ var tuple1 = $Native$Json.decodeTuple1;
+ var succeed = $Native$Json.succeed;
+ var fail = $Native$Json.fail;
+ var andThen = $Native$Json.andThen;
+ var customDecoder = $Native$Json.customDecoder;
+ var decodeValue = $Native$Json.runDecoderValue;
+ var value = $Native$Json.decodeValue;
+ var maybe = $Native$Json.decodeMaybe;
+ var $null = $Native$Json.decodeNull;
+ var array = $Native$Json.decodeArray;
+ var list = $Native$Json.decodeList;
+ var bool = $Native$Json.decodeBool;
+ var $int = $Native$Json.decodeInt;
+ var $float = $Native$Json.decodeFloat;
+ var string = $Native$Json.decodeString;
+ var oneOf = $Native$Json.oneOf;
+ var keyValuePairs = $Native$Json.decodeKeyValuePairs;
+ var object8 = $Native$Json.decodeObject8;
+ var object7 = $Native$Json.decodeObject7;
+ var object6 = $Native$Json.decodeObject6;
+ var object5 = $Native$Json.decodeObject5;
+ var object4 = $Native$Json.decodeObject4;
+ var object3 = $Native$Json.decodeObject3;
+ var object2 = $Native$Json.decodeObject2;
+ var object1 = $Native$Json.decodeObject1;
+ _op[":="] = $Native$Json.decodeField;
+ var at = F2(function (fields,
+ decoder) {
+ return A3($List.foldr,
+ F2(function (x,y) {
+ return A2(_op[":="],x,y);
+ }),
+ decoder,
+ fields);
+ });
+ var decodeString = $Native$Json.runDecoderString;
+ var map = $Native$Json.decodeObject1;
+ var dict = function (decoder) {
+ return A2(map,
+ $Dict.fromList,
+ keyValuePairs(decoder));
+ };
+ var Decoder = {ctor: "Decoder"};
+ _elm.Json.Decode.values = {_op: _op
+ ,Decoder: Decoder
+ ,map: map
+ ,decodeString: decodeString
+ ,at: at
+ ,object1: object1
+ ,object2: object2
+ ,object3: object3
+ ,object4: object4
+ ,object5: object5
+ ,object6: object6
+ ,object7: object7
+ ,object8: object8
+ ,keyValuePairs: keyValuePairs
+ ,dict: dict
+ ,oneOf: oneOf
+ ,string: string
+ ,$float: $float
+ ,$int: $int
+ ,bool: bool
+ ,list: list
+ ,array: array
+ ,$null: $null
+ ,maybe: maybe
+ ,value: value
+ ,decodeValue: decodeValue
+ ,customDecoder: customDecoder
+ ,andThen: andThen
+ ,fail: fail
+ ,succeed: succeed
+ ,tuple1: tuple1
+ ,tuple2: tuple2
+ ,tuple3: tuple3
+ ,tuple4: tuple4
+ ,tuple5: tuple5
+ ,tuple6: tuple6
+ ,tuple7: tuple7
+ ,tuple8: tuple8};
+ return _elm.Json.Decode.values;
+};
+Elm.Json = Elm.Json || {};
+Elm.Json.Encode = Elm.Json.Encode || {};
+Elm.Json.Encode.make = function (_elm) {
+ "use strict";
+ _elm.Json = _elm.Json || {};
+ _elm.Json.Encode = _elm.Json.Encode || {};
+ if (_elm.Json.Encode.values)
+ return _elm.Json.Encode.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "Json.Encode",
+ $Array = Elm.Array.make(_elm),
+ $Native$Json = Elm.Native.Json.make(_elm);
+ var list = $Native$Json.encodeList;
+ var array = $Native$Json.encodeArray;
+ var object = $Native$Json.encodeObject;
+ var $null = $Native$Json.encodeNull;
+ var bool = $Native$Json.identity;
+ var $float = $Native$Json.identity;
+ var $int = $Native$Json.identity;
+ var string = $Native$Json.identity;
+ var encode = $Native$Json.encode;
+ var Value = {ctor: "Value"};
+ _elm.Json.Encode.values = {_op: _op
+ ,Value: Value
+ ,encode: encode
+ ,string: string
+ ,$int: $int
+ ,$float: $float
+ ,bool: bool
+ ,$null: $null
+ ,object: object
+ ,array: array
+ ,list: list};
+ return _elm.Json.Encode.values;
+};
+Elm.List = Elm.List || {};
+Elm.List.make = function (_elm) {
+ "use strict";
+ _elm.List = _elm.List || {};
+ if (_elm.List.values)
+ return _elm.List.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "List",
+ $Basics = Elm.Basics.make(_elm),
+ $Maybe = Elm.Maybe.make(_elm),
+ $Native$List = Elm.Native.List.make(_elm);
+ var sortWith = $Native$List.sortWith;
+ var sortBy = $Native$List.sortBy;
+ var sort = $Native$List.sort;
+ var repeat = $Native$List.repeat;
+ var drop = $Native$List.drop;
+ var take = $Native$List.take;
+ var map5 = $Native$List.map5;
+ var map4 = $Native$List.map4;
+ var map3 = $Native$List.map3;
+ var map2 = $Native$List.map2;
+ var append = $Native$List.append;
+ var any = $Native$List.any;
+ var all = $Native$List.all;
+ var reverse = $Native$List.reverse;
+ var length = $Native$List.length;
+ var filter = $Native$List.filter;
+ var scanl1 = $Native$List.scanl1;
+ var scanl = $Native$List.scanl;
+ var foldr1 = $Native$List.foldr1;
+ var foldl1 = $Native$List.foldl1;
+ var maximum = foldl1($Basics.max);
+ var minimum = foldl1($Basics.min);
+ var foldr = $Native$List.foldr;
+ var concat = function (lists) {
+ return A3(foldr,
+ append,
+ _L.fromArray([]),
+ lists);
+ };
+ var foldl = $Native$List.foldl;
+ var sum = function (numbers) {
+ return A3(foldl,
+ F2(function (x,y) {
+ return x + y;
+ }),
+ 0,
+ numbers);
+ };
+ var product = function (numbers) {
+ return A3(foldl,
+ F2(function (x,y) {
+ return x * y;
+ }),
+ 1,
+ numbers);
+ };
+ var indexedMap = F2(function (f,
+ xs) {
+ return A3(map2,
+ f,
+ _L.range(0,length(xs) - 1),
+ xs);
+ });
+ var map = $Native$List.map;
+ var concatMap = F2(function (f,
+ list) {
+ return concat(A2(map,
+ f,
+ list));
+ });
+ var member = $Native$List.member;
+ var isEmpty = function (xs) {
+ return function () {
+ switch (xs.ctor)
+ {case "[]": return true;}
+ return false;
+ }();
+ };
+ var tail = $Native$List.tail;
+ var head = $Native$List.head;
+ _op["::"] = $Native$List.cons;
+ var maybeCons = F3(function (f,
+ mx,
+ xs) {
+ return function () {
+ var _v1 = f(mx);
+ switch (_v1.ctor)
+ {case "Just":
+ return A2(_op["::"],_v1._0,xs);
+ case "Nothing": return xs;}
+ _U.badCase($moduleName,
+ "between lines 162 and 169");
+ }();
+ });
+ var filterMap = F2(function (f,
+ xs) {
+ return A3(foldr,
+ maybeCons(f),
+ _L.fromArray([]),
+ xs);
+ });
+ var partition = F2(function (pred,
+ list) {
+ return function () {
+ var step = F2(function (x,
+ _v3) {
+ return function () {
+ switch (_v3.ctor)
+ {case "_Tuple2":
+ return pred(x) ? {ctor: "_Tuple2"
+ ,_0: A2(_op["::"],x,_v3._0)
+ ,_1: _v3._1} : {ctor: "_Tuple2"
+ ,_0: _v3._0
+ ,_1: A2(_op["::"],x,_v3._1)};}
+ _U.badCase($moduleName,
+ "between lines 270 and 272");
+ }();
+ });
+ return A3(foldr,
+ step,
+ {ctor: "_Tuple2"
+ ,_0: _L.fromArray([])
+ ,_1: _L.fromArray([])},
+ list);
+ }();
+ });
+ var unzip = function (pairs) {
+ return function () {
+ var step = F2(function (_v7,
+ _v8) {
+ return function () {
+ switch (_v8.ctor)
+ {case "_Tuple2":
+ return function () {
+ switch (_v7.ctor)
+ {case "_Tuple2":
+ return {ctor: "_Tuple2"
+ ,_0: A2(_op["::"],_v7._0,_v8._0)
+ ,_1: A2(_op["::"],
+ _v7._1,
+ _v8._1)};}
+ _U.badCase($moduleName,
+ "on line 308, column 12 to 28");
+ }();}
+ _U.badCase($moduleName,
+ "on line 308, column 12 to 28");
+ }();
+ });
+ return A3(foldr,
+ step,
+ {ctor: "_Tuple2"
+ ,_0: _L.fromArray([])
+ ,_1: _L.fromArray([])},
+ pairs);
+ }();
+ };
+ var intersperse = F2(function (sep,
+ xs) {
+ return function () {
+ switch (xs.ctor)
+ {case "::": return function () {
+ var step = F2(function (x,
+ rest) {
+ return A2(_op["::"],
+ sep,
+ A2(_op["::"],x,rest));
+ });
+ var spersed = A3(foldr,
+ step,
+ _L.fromArray([]),
+ xs._1);
+ return A2(_op["::"],
+ xs._0,
+ spersed);
+ }();
+ case "[]":
+ return _L.fromArray([]);}
+ _U.badCase($moduleName,
+ "between lines 319 and 330");
+ }();
+ });
+ _elm.List.values = {_op: _op
+ ,head: head
+ ,tail: tail
+ ,isEmpty: isEmpty
+ ,member: member
+ ,map: map
+ ,indexedMap: indexedMap
+ ,foldl: foldl
+ ,foldr: foldr
+ ,foldl1: foldl1
+ ,foldr1: foldr1
+ ,scanl: scanl
+ ,scanl1: scanl1
+ ,filter: filter
+ ,filterMap: filterMap
+ ,maybeCons: maybeCons
+ ,length: length
+ ,reverse: reverse
+ ,all: all
+ ,any: any
+ ,append: append
+ ,concat: concat
+ ,concatMap: concatMap
+ ,sum: sum
+ ,product: product
+ ,maximum: maximum
+ ,minimum: minimum
+ ,partition: partition
+ ,map2: map2
+ ,map3: map3
+ ,map4: map4
+ ,map5: map5
+ ,unzip: unzip
+ ,intersperse: intersperse
+ ,take: take
+ ,drop: drop
+ ,repeat: repeat
+ ,sort: sort
+ ,sortBy: sortBy
+ ,sortWith: sortWith};
+ return _elm.List.values;
+};
+Elm.Markdown = Elm.Markdown || {};
+Elm.Markdown.make = function (_elm) {
+ "use strict";
+ _elm.Markdown = _elm.Markdown || {};
+ if (_elm.Markdown.values)
+ return _elm.Markdown.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "Markdown",
+ $Graphics$Element = Elm.Graphics.Element.make(_elm),
+ $Html = Elm.Html.make(_elm),
+ $Maybe = Elm.Maybe.make(_elm),
+ $Native$Markdown = Elm.Native.Markdown.make(_elm);
+ var toElementWith = $Native$Markdown.toElementWith;
+ var toHtmlWith = $Native$Markdown.toHtmlWith;
+ var defaultOptions = {_: {}
+ ,githubFlavored: $Maybe.Just({_: {}
+ ,breaks: false
+ ,tables: false})
+ ,sanitize: false
+ ,smartypants: false};
+ var Options = F3(function (a,
+ b,
+ c) {
+ return {_: {}
+ ,githubFlavored: a
+ ,sanitize: b
+ ,smartypants: c};
+ });
+ var toElement = function (string) {
+ return A2($Native$Markdown.toElementWith,
+ defaultOptions,
+ string);
+ };
+ var toHtml = function (string) {
+ return A2($Native$Markdown.toHtmlWith,
+ defaultOptions,
+ string);
+ };
+ _elm.Markdown.values = {_op: _op
+ ,toHtml: toHtml
+ ,toElement: toElement
+ ,Options: Options
+ ,defaultOptions: defaultOptions
+ ,toHtmlWith: toHtmlWith
+ ,toElementWith: toElementWith};
+ return _elm.Markdown.values;
+};
+Elm.Maybe = Elm.Maybe || {};
+Elm.Maybe.make = function (_elm) {
+ "use strict";
+ _elm.Maybe = _elm.Maybe || {};
+ if (_elm.Maybe.values)
+ return _elm.Maybe.values;
+ var _op = {},
+ _N = Elm.Native,
+ _U = _N.Utils.make(_elm),
+ _L = _N.List.make(_elm),
+ _P = _N.Ports.make(_elm),
+ $moduleName = "Maybe";
+ _op["?"] = F2(function (maybe,
+ $default) {
+ return function () {
+ switch (maybe.ctor)
+ {case "Just": return maybe._0;
+ case "Nothing":
+ return $default;}
+ _U.badCase($moduleName,
+ "between lines 53 and 55");
+ }();
+ });
+ var Nothing = {ctor: "Nothing"};
+ var oneOf = function (maybes) {
+ return function () {
+ switch (maybes.ctor)
+ {case "::": return function () {
+ switch (maybes._0.ctor)
+ {case "Just": return maybes._0;
+ case "Nothing":
+ return oneOf(maybes._1);}
+ _U.badCase($moduleName,
+ "between lines 74 and 83");
+ }();
+ case "[]": return Nothing;}
+ _U.badCase($moduleName,
+ "between lines 69 and 83");
+ }();
+ };
+ var andThen = F2(function (maybeValue,
+ callback) {
+ return function () {
+ switch (maybeValue.ctor)
+ {case "Just":
+ return callback(maybeValue._0);
+ case "Nothing": return Nothing;}
+ _U.badCase($moduleName,
+ "between lines 120 and 122");
+ }();
+ });
+ var Just = function (a) {
+ return {ctor: "Just",_0: a};
+ };
+ var map = F2(function (f,
+ maybe) {
+ return function () {
+ switch (maybe.ctor)
+ {case "Just":
+ return Just(f(maybe._0));
+ case "Nothing": return Nothing;}
+ _U.badCase($moduleName,
+ "between lines 86 and 117");
+ }();
+ });
+ _elm.Maybe.values = {_op: _op
+ ,andThen: andThen
+ ,map: map
+ ,oneOf: oneOf
+ ,Just: Just
+ ,Nothing: Nothing};
+ return _elm.Maybe.values;
+};
+Elm.Native.Array = {};
+Elm.Native.Array.make = function(elm) {
+ elm.Native = elm.Native || {};
+ elm.Native.Array = elm.Native.Array || {};
+ if (elm.Native.Array.values) return elm.Native.Array.values;
+ if ('values' in Elm.Native.Array)
+ return elm.Native.Array.values = Elm.Native.Array.values;
+
+ var List = Elm.Native.List.make(elm);
+
+ // A RRB-Tree has two distinct data types.
+ // Leaf -> "height" is always 0
+ // "table" is an array of elements
+ // Node -> "height" is always greater than 0
+ // "table" is an array of child nodes
+ // "lengths" is an array of accumulated lengths of the child nodes
+
+ // M is the maximal table size. 32 seems fast. E is the allowed increase
+ // of search steps when concatting to find an index. Lower values will
+ // decrease balancing, but will increase search steps.
+ var M = 32;
+ var E = 2;
+
+ // An empty array.
+ var empty = { ctor:"_Array", height:0, table:new Array() };
+
+ function get(i, array) {
+ if (i < 0 || i >= length(array)) {
+ throw new Error("Index " + i + " is out of range. Check the length of " +
+ "your array first or use getMaybe or getWithDefault.");
+ }
+ return unsafeGet(i, array);
+ }
+
+ function unsafeGet(i, array) {
+ for (var x = array.height; x > 0; x--) {
+ var slot = i >> (x * 5);
+ while (array.lengths[slot] <= i) {
+ slot++;
+ }
+ if (slot > 0) {
+ i -= array.lengths[slot - 1];
+ }
+ array = array.table[slot];
+ }
+ return array.table[i];
+ }
+
+ // Sets the value at the index i. Only the nodes leading to i will get
+ // copied and updated.
+ function set(i, item, array) {
+ if (i < 0 || length(array) <= i) {
+ return array;
+ }
+ return unsafeSet(i, item, array);
+ }
+
+ function unsafeSet(i, item, array) {
+ array = nodeCopy(array);
+
+ if (array.height == 0) {
+ array.table[i] = item;
+ } else {
+ var slot = getSlot(i, array);
+ if (slot > 0) {
+ i -= array.lengths[slot - 1];
+ }
+ array.table[slot] = unsafeSet(i, item, array.table[slot]);
+ }
+ return array;
+ }
+
+ function initialize(len, f) {
+ if (len == 0) { return empty; }
+ var h = Math.floor(Math.log(len)/Math.log(M));
+ return initialize_(f, h, 0, len);
+ }
+
+ function initialize_(f, h, from, to) {
+ if (h == 0) {
+ var table = new Array((to - from) % (M + 1));
+ for (var i = 0; i < table.length; i++) {
+ table[i] = f(from + i);
+ }
+ return { ctor:"_Array", height:0, table:table };
+ }
+
+ var step = Math.pow(M, h);
+ var table = new Array(Math.ceil((to - from) / step));
+ var lengths = new Array(table.length);
+ for (var i = 0; i < table.length; i++) {
+ table[i] = initialize_( f, h - 1, from + (i * step)
+ , Math.min(from + ((i + 1) * step), to));
+ lengths[i] = length(table[i]) + (i > 0 ? lengths[i-1] : 0);
+ }
+ return { ctor:"_Array", height:h, table:table, lengths:lengths };
+ }
+
+ function fromList(list) {
+ if (list == List.Nil) { return empty; }
+
+ // Allocate M sized blocks (table) and write list elements to it.
+ var table = new Array(M);
+ var nodes = new Array();
+ var i = 0;
+
+ while (list.ctor !== '[]') {
+ table[i] = list._0;
+ list = list._1;
+ i++;
+
+ // table is full, so we can push a leaf containing it into the
+ // next node.
+ if (i == M) {
+ fromListPush({ ctor:"_Array", height:0, table:table }
+ , nodes);
+ table = new Array(M);
+ i = 0;
+ }
+ }
+
+ // Maybe there is something left on the table.
+ if (i > 0) {
+ fromListPush({ ctor:"_Array", height:0, table:table.splice(0,i) }
+ , nodes);
+ }
+
+ // Go through all of the nodes and eventually push them into higher nodes.
+ for (var h = 0; h < nodes.length - 1; h++) {
+ if (nodes[h].table.length > 0) {
+ fromListPush(nodes[h], nodes);
+ }
+ }
+
+ var head = nodes[nodes.length - 1];
+ if (head.height > 0 && head.table.length == 1) {
+ return head.table[0];
+ } else {
+ return head;
+ }
+ }
+
+ // Push a node into a higher node as a child.
+ function fromListPush(toPush, nodes) {
+ var h = toPush.height;
+
+ // Maybe the node on this height does not exist.
+ if (nodes.length == h) {
+ nodes.push({ ctor:"_Array", height:h + 1
+ , table:new Array()
+ , lengths:new Array() });
+ }
+
+ nodes[h].table.push(toPush);
+ var len = length(toPush);
+ if (nodes[h].lengths.length > 0) {
+ len += nodes[h].lengths[nodes[h].lengths.length - 1];
+ }
+ nodes[h].lengths.push(len);
+
+ if (nodes[h].table.length == M) {
+ fromListPush(nodes[h], nodes);
+ nodes[h] = { ctor:"_Array", height:h + 1
+ , table:new Array()
+ , lengths:new Array() };
+ }
+ }
+
+ // Pushes an item via push_ to the bottom right of a tree.
+ function push(item, a) {
+ var pushed = push_(item, a);
+ if (pushed !== null) {
+ return pushed;
+ }
+
+ var newTree = create(item, a.height);
+ return siblise(a, newTree);
+ }
+
+ // Recursively tries to push an item to the bottom-right most
+ // tree possible. If there is no space left for the item,
+ // null will be returned.
+ function push_(item, a) {
+ // Handle resursion stop at leaf level.
+ if (a.height == 0) {
+ if (a.table.length < M) {
+ var newA = { ctor:"_Array", height:0, table:a.table.slice() };
+ newA.table.push(item);
+ return newA;
+ } else {
+ return null;
+ }
+ }
+
+ // Recursively push
+ var pushed = push_(item, botRight(a));
+
+ // There was space in the bottom right tree, so the slot will
+ // be updated.
+ if (pushed != null) {
+ var newA = nodeCopy(a);
+ newA.table[newA.table.length - 1] = pushed;
+ newA.lengths[newA.lengths.length - 1]++;
+ return newA
+ }
+
+ // When there was no space left, check if there is space left
+ // for a new slot with a tree which contains only the item
+ // at the bottom.
+ if (a.table.length < M) {
+ var newSlot = create(item, a.height - 1);
+ var newA = nodeCopy(a);
+ newA.table.push(newSlot);
+ newA.lengths.push(newA.lengths[newA.lengths.length - 1] + length(newSlot));
+ return newA
+ } else {
+ return null;
+ }
+ }
+
+ // Converts an array into a list of elements.
+ function toList(a) {
+ return toList_(List.Nil, a);
+ }
+
+ function toList_(list, a) {
+ for (var i = a.table.length - 1; i >= 0; i--) {
+ list = a.height == 0 ? List.Cons(a.table[i], list) : toList_(list, a.table[i]);
+ }
+ return list;
+ }
+
+ // Maps a function over the elements of an array.
+ function map(f, a) {
+ var newA = { ctor:"_Array", height:a.height, table:new Array(a.table) };
+ if (a.height > 0) { newA.lengths = a.lengths; }
+ for (var i = 0; i < a.table.length; i++) {
+ newA.table[i] = a.height == 0 ? f(a.table[i]) : map(f, a.table[i]);
+ }
+ return newA;
+ }
+
+ // Maps a function over the elements with their index as first argument.
+ function indexedMap(f, a) {
+ return indexedMap_(f, a, 0);
+ }
+
+ function indexedMap_(f, a, from) {
+ var newA = { ctor:"_Array", height:a.height, table:new Array(a.table) };
+ if (a.height > 0) { newA.lengths = a.lengths; }
+ for (var i = 0; i < a.table.length; i++) {
+ newA.table[i] = a.height == 0 ? A2(f, from + i, a.table[i])
+ : indexedMap_( f, a.table[i]
+ , i == 0 ? 0 : a.lengths[i - 1]);
+ }
+ return newA;
+ }
+
+ function foldl(f, b, a) {
+ if (a.height == 0) {
+ for (var i = 0; i < a.table.length; i++) {
+ b = A2(f, a.table[i], b);
+ }
+ } else {
+ for (var i = 0; i < a.table.length; i++) {
+ b = foldl(f, b, a.table[i]);
+ }
+ }
+ return b;
+ }
+
+ function foldr(f, b, a) {
+ if (a.height == 0) {
+ for (var i = a.table.length; i--; ) {
+ b = A2(f, a.table[i], b);
+ }
+ } else {
+ for (var i = a.table.length; i--; ) {
+ b = foldl(f, b, a.table[i]);
+ }
+ }
+ return b;
+ }
+
+ // TODO: currently, it slices the right, then the left. This can be
+ // optimized.
+ function slice(from, to, a) {
+ if (from < 0) { from += length(a); }
+ if (to < 0) { to += length(a); }
+ return sliceLeft(from, sliceRight(to, a));
+ }
+
+ function sliceRight(to, a) {
+ if (to == length(a)) {
+ return a;
+ }
+
+ // Handle leaf level.
+ if (a.height == 0) {
+ var newA = { ctor:"_Array", height:0 };
+ newA.table = a.table.slice(0, to);
+ return newA;
+ }
+
+ // Slice the right recursively.
+ var right = getSlot(to, a);
+ var sliced = sliceRight(to - (right > 0 ? a.lengths[right - 1] : 0), a.table[right]);
+
+ // Maybe the a node is not even needed, as sliced contains the whole slice.
+ if (right == 0) {
+ return sliced;
+ }
+
+ // Create new node.
+ var newA = { ctor:"_Array", height:a.height
+ , table:a.table.slice(0, right)
+ , lengths:a.lengths.slice(0, right) };
+ if (sliced.table.length > 0) {
+ newA.table[right] = sliced;
+ newA.lengths[right] = length(sliced) + (right > 0 ? newA.lengths[right - 1] : 0);
+ }
+ return newA;
+ }
+
+ function sliceLeft(from, a) {
+ if (from == 0) {
+ return a;
+ }
+
+ // Handle leaf level.
+ if (a.height == 0) {
+ var newA = { ctor:"_Array", height:0 };
+ newA.table = a.table.slice(from, a.table.length + 1);
+ return newA;
+ }
+
+ // Slice the left recursively.
+ var left = getSlot(from, a);
+ var sliced = sliceLeft(from - (left > 0 ? a.lengths[left - 1] : 0), a.table[left]);
+
+ // Maybe the a node is not even needed, as sliced contains the whole slice.
+ if (left == a.table.length - 1) {
+ return sliced;
+ }
+
+ // Create new node.
+ var newA = { ctor:"_Array", height:a.height
+ , table:a.table.slice(left, a.table.length + 1)
+ , lengths:new Array(a.table.length - left) };
+ newA.table[0] = sliced;
+ var len = 0;
+ for (var i = 0; i < newA.table.length; i++) {
+ len += length(newA.table[i]);
+ newA.lengths[i] = len;
+ }
+
+ return newA;
+ }
+
+ // Appends two trees.
+ function append(a,b) {
+ if (a.table.length === 0) {
+ return b;
+ }
+ if (b.table.length === 0) {
+ return a;
+ }
+
+ var c = append_(a, b);
+
+ // Check if both nodes can be crunshed together.
+ if (c[0].table.length + c[1].table.length <= M) {
+ if (c[0].table.length === 0) {
+ return c[1];
+ }
+ if (c[1].table.length === 0) {
+ return c[0];
+ }
+
+ // Adjust .table and .lengths
+ c[0].table = c[0].table.concat(c[1].table);
+ if (c[0].height > 0) {
+ var len = length(c[0]);
+ for (var i = 0; i < c[1].lengths.length; i++) {
+ c[1].lengths[i] += len;
+ }
+ c[0].lengths = c[0].lengths.concat(c[1].lengths);
+ }
+
+ return c[0];
+ }
+
+ if (c[0].height > 0) {
+ var toRemove = calcToRemove(a, b);
+ if (toRemove > E) {
+ c = shuffle(c[0], c[1], toRemove);
+ }
+ }
+
+ return siblise(c[0], c[1]);
+ }
+
+ // Returns an array of two nodes; right and left. One node _may_ be empty.
+ function append_(a, b) {
+ if (a.height === 0 && b.height === 0) {
+ return [a, b];
+ }
+
+ if (a.height !== 1 || b.height !== 1) {
+ if (a.height === b.height) {
+ a = nodeCopy(a);
+ b = nodeCopy(b);
+ var appended = append_(botRight(a), botLeft(b));
+
+ insertRight(a, appended[1]);
+ insertLeft(b, appended[0]);
+ } else if (a.height > b.height) {
+ a = nodeCopy(a);
+ var appended = append_(botRight(a), b);
+
+ insertRight(a, appended[0]);
+ b = parentise(appended[1], appended[1].height + 1);
+ } else {
+ b = nodeCopy(b);
+ var appended = append_(a, botLeft(b));
+
+ var left = appended[0].table.length === 0 ? 0 : 1;
+ var right = left === 0 ? 1 : 0;
+ insertLeft(b, appended[left]);
+ a = parentise(appended[right], appended[right].height + 1);
+ }
+ }
+
+ // Check if balancing is needed and return based on that.
+ if (a.table.length === 0 || b.table.length === 0) {
+ return [a,b];
+ }
+
+ var toRemove = calcToRemove(a, b);
+ if (toRemove <= E) {
+ return [a,b];
+ }
+ return shuffle(a, b, toRemove);
+ }
+
+ // Helperfunctions for append_. Replaces a child node at the side of the parent.
+ function insertRight(parent, node) {
+ var index = parent.table.length - 1;
+ parent.table[index] = node;
+ parent.lengths[index] = length(node)
+ parent.lengths[index] += index > 0 ? parent.lengths[index - 1] : 0;
+ }
+
+ function insertLeft(parent, node) {
+ if (node.table.length > 0) {
+ parent.table[0] = node;
+ parent.lengths[0] = length(node);
+
+ var len = length(parent.table[0]);
+ for (var i = 1; i < parent.lengths.length; i++) {
+ len += length(parent.table[i]);
+ parent.lengths[i] = len;
+ }
+ } else {
+ parent.table.shift();
+ for (var i = 1; i < parent.lengths.length; i++) {
+ parent.lengths[i] = parent.lengths[i] - parent.lengths[0];
+ }
+ parent.lengths.shift();
+ }
+ }
+
+ // Returns the extra search steps for E. Refer to the paper.
+ function calcToRemove(a, b) {
+ var subLengths = 0;
+ for (var i = 0; i < a.table.length; i++) {
+ subLengths += a.table[i].table.length;
+ }
+ for (var i = 0; i < b.table.length; i++) {
+ subLengths += b.table[i].table.length;
+ }
+
+ var toRemove = a.table.length + b.table.length
+ return toRemove - (Math.floor((subLengths - 1) / M) + 1);
+ }
+
+ // get2, set2 and saveSlot are helpers for accessing elements over two arrays.
+ function get2(a, b, index) {
+ return index < a.length ? a[index] : b[index - a.length];
+ }
+
+ function set2(a, b, index, value) {
+ if (index < a.length) {
+ a[index] = value;
+ } else {
+ b[index - a.length] = value;
+ }
+ }
+
+ function saveSlot(a, b, index, slot) {
+ set2(a.table, b.table, index, slot);
+
+ var l = (index == 0 || index == a.lengths.length) ?
+ 0 : get2(a.lengths, a.lengths, index - 1);
+ set2(a.lengths, b.lengths, index, l + length(slot));
+ }
+
+ // Creates a node or leaf with a given length at their arrays for perfomance.
+ // Is only used by shuffle.
+ function createNode(h, length) {
+ if (length < 0) { length = 0; }
+ var a = { ctor:"_Array", height:h, table:new Array(length) };
+ if (h > 0) {
+ a.lengths = new Array(length);
+ }
+ return a;
+ }
+
+ // Returns an array of two balanced nodes.
+ function shuffle(a, b, toRemove) {
+ var newA = createNode(a.height, Math.min(M, a.table.length + b.table.length - toRemove));
+ var newB = createNode(a.height, newA.table.length - (a.table.length + b.table.length - toRemove));
+
+ // Skip the slots with size M. More precise: copy the slot references
+ // to the new node
+ var read = 0;
+ while (get2(a.table, b.table, read).table.length % M == 0) {
+ set2(newA.table, newB.table, read, get2(a.table, b.table, read));
+ set2(newA.lengths, newB.lengths, read, get2(a.lengths, b.lengths, read));
+ read++;
+ }
+
+ // Pulling items from left to right, caching in a slot before writing
+ // it into the new nodes.
+ var write = read;
+ var slot = new createNode(a.height - 1, 0);
+ var from = 0;
+
+ // If the current slot is still containing data, then there will be at
+ // least one more write, so we do not break this loop yet.
+ while (read - write - (slot.table.length > 0 ? 1 : 0) < toRemove) {
+ // Find out the max possible items for copying.
+ var source = get2(a.table, b.table, read);
+ var to = Math.min(M - slot.table.length, source.table.length)
+
+ // Copy and adjust size table.
+ slot.table = slot.table.concat(source.table.slice(from, to));
+ if (slot.height > 0) {
+ var len = slot.lengths.length;
+ for (var i = len; i < len + to - from; i++) {
+ slot.lengths[i] = length(slot.table[i]);
+ slot.lengths[i] += (i > 0 ? slot.lengths[i - 1] : 0);
+ }
+ }
+
+ from += to;
+
+ // Only proceed to next slots[i] if the current one was
+ // fully copied.
+ if (source.table.length <= to) {
+ read++; from = 0;
+ }
+
+ // Only create a new slot if the current one is filled up.
+ if (slot.table.length == M) {
+ saveSlot(newA, newB, write, slot);
+ slot = createNode(a.height - 1,0);
+ write++;
+ }
+ }
+
+ // Cleanup after the loop. Copy the last slot into the new nodes.
+ if (slot.table.length > 0) {
+ saveSlot(newA, newB, write, slot);
+ write++;
+ }
+
+ // Shift the untouched slots to the left
+ while (read < a.table.length + b.table.length ) {
+ saveSlot(newA, newB, write, get2(a.table, b.table, read));
+ read++; write++;
+ }
+
+ return [newA, newB];
+ }
+
+ // Navigation functions
+ function botRight(a) { return a.table[a.table.length - 1]; }
+ function botLeft(a) { return a.table[0]; }
+
+ // Copies a node for updating. Note that you should not use this if
+ // only updating only one of "table" or "lengths" for performance reasons.
+ function nodeCopy(a) {
+ var newA = { ctor:"_Array", height:a.height
+ , table:a.table.slice() };
+ if (a.height > 0) { newA.lengths = a.lengths.slice(); }
+ return newA;
+ }
+
+ // Returns how many items are in the tree.
+ function length(array) {
+ if (array.height == 0) {
+ return array.table.length;
+ } else {
+ return array.lengths[array.lengths.length - 1];
+ }
+ }
+
+ // Calculates in which slot of "table" the item probably is, then
+ // find the exact slot via forward searching in "lengths". Returns the index.
+ function getSlot(i, a) {
+ var slot = i >> (5 * a.height);
+ while (a.lengths[slot] <= i) {
+ slot++;
+ }
+ return slot;
+ }
+
+ // Recursively creates a tree with a given height containing
+ // only the given item.
+ function create(item, h) {
+ if (h == 0) {
+ return { ctor:"_Array", height:0
+ , table:[item] };
+ } else {
+ return { ctor:"_Array", height:h
+ , table:[create(item, h - 1)]
+ , lengths:[1] };
+ }
+ }
+
+ // Recursively creates a tree that contains the given tree.
+ function parentise(tree, h) {
+ if (h == tree.height) {
+ return tree;
+ } else {
+ return { ctor:"_Array", height:h
+ , table:[parentise(tree, h - 1)]
+ , lengths:[length(tree)] };
+ }
+ }
+
+ // Emphasizes blood brotherhood beneath two trees.
+ function siblise(a, b) {
+ return { ctor:"_Array", height:a.height + 1
+ , table:[a, b]
+ , lengths:[length(a), length(a) + length(b)] };
+ }
+
+ function toJSArray(a) {
+ var jsArray = new Array(length(a));
+ toJSArray_(jsArray, 0, a);
+ return jsArray;
+ }
+
+ function toJSArray_(jsArray, i, a) {
+ for (var t = 0; t < a.table.length; t++) {
+ if (a.height == 0) {
+ jsArray[i + t] = a.table[t];
+ } else {
+ var inc = t == 0 ? 0 : a.lengths[t - 1];
+ toJSArray_(jsArray, i + inc, a.table[t]);
+ }
+ }
+ }
+
+ function fromJSArray(jsArray) {
+ if (jsArray.length == 0) { return empty; }
+ var h = Math.floor(Math.log(jsArray.length) / Math.log(M));
+ return fromJSArray_(jsArray, h, 0, jsArray.length);
+ }
+
+ function fromJSArray_(jsArray, h, from, to) {
+ if (h == 0) {
+ return { ctor:"_Array", height:0
+ , table:jsArray.slice(from, to) };
+ }
+
+ var step = Math.pow(M, h);
+ var table = new Array(Math.ceil((to - from) / step));
+ var lengths = new Array(table.length);
+ for (var i = 0; i < table.length; i++) {
+ table[i] = fromJSArray_( jsArray, h - 1, from + (i * step)
+ , Math.min(from + ((i + 1) * step), to));
+ lengths[i] = length(table[i]) + (i > 0 ? lengths[i-1] : 0);
+ }
+ return { ctor:"_Array", height:h, table:table, lengths:lengths };
+ }
+
+ Elm.Native.Array.values = {
+ empty:empty,
+ fromList:fromList,
+ toList:toList,
+ initialize:F2(initialize),
+ append:F2(append),
+ push:F2(push),
+ slice:F3(slice),
+ get:F2(get),
+ set:F3(set),
+ map:F2(map),
+ indexedMap:F2(indexedMap),
+ foldl:F3(foldl),
+ foldr:F3(foldr),
+ length:length,
+
+ toJSArray:toJSArray,
+ fromJSArray:fromJSArray
+ };
+
+ return elm.Native.Array.values = Elm.Native.Array.values;
+}
+
+
+Elm.Native.Basics = {};
+Elm.Native.Basics.make = function(elm) {
+ elm.Native = elm.Native || {};
+ elm.Native.Basics = elm.Native.Basics || {};
+ if (elm.Native.Basics.values) return elm.Native.Basics.values;
+
+ var Utils = Elm.Native.Utils.make(elm);
+
+ function div(a, b) {
+ return (a/b)|0;
+ }
+ function rem(a, b) {
+ return a % b;
+ }
+ function mod(a, b) {
+ if (b === 0) {
+ throw new Error("Cannot perform mod 0. Division by zero error.");
+ }
+ var r = a % b;
+ var m = a === 0 ? 0 : (b > 0 ? (a >= 0 ? r : r+b) : -mod(-a,-b));
+
+ return m === b ? 0 : m;
+ }
+ function logBase(base, n) {
+ return Math.log(n) / Math.log(base);
+ }
+ function negate(n) {
+ return -n;
+ }
+ function abs(n) {
+ return n < 0 ? -n : n;
+ }
+
+ function min(a, b) {
+ return Utils.cmp(a,b) < 0 ? a : b;
+ }
+ function max(a, b) {
+ return Utils.cmp(a,b) > 0 ? a : b;
+ }
+ function clamp(lo, hi, n) {
+ return Utils.cmp(n,lo) < 0 ? lo : Utils.cmp(n,hi) > 0 ? hi : n;
+ }
+
+ function xor(a, b) {
+ return a !== b;
+ }
+ function not(b) {
+ return !b;
+ }
+ function isInfinite(n) {
+ return n === Infinity || n === -Infinity
+ }
+
+ function truncate(n) {
+ return n|0;
+ }
+
+ function degrees(d) {
+ return d * Math.PI / 180;
+ }
+ function turns(t) {
+ return 2 * Math.PI * t;
+ }
+ function fromPolar(point) {
+ var r = point._0;
+ var t = point._1;
+ return Utils.Tuple2(r * Math.cos(t), r * Math.sin(t));
+ }
+ function toPolar(point) {
+ var x = point._0;
+ var y = point._1;
+ return Utils.Tuple2(Math.sqrt(x * x + y * y), Math.atan2(y,x));
+ }
+
+ var basics = {
+ div: F2(div),
+ rem: F2(rem),
+ mod: F2(mod),
+
+ pi: Math.PI,
+ e: Math.E,
+ cos: Math.cos,
+ sin: Math.sin,
+ tan: Math.tan,
+ acos: Math.acos,
+ asin: Math.asin,
+ atan: Math.atan,
+ atan2: F2(Math.atan2),
+
+ degrees: degrees,
+ turns: turns,
+ fromPolar: fromPolar,
+ toPolar: toPolar,
+
+ sqrt: Math.sqrt,
+ logBase: F2(logBase),
+ negate: negate,
+ abs: abs,
+ min: F2(min),
+ max: F2(max),
+ clamp: F3(clamp),
+ compare: Utils.compare,
+
+ xor: F2(xor),
+ not: not,
+
+ truncate: truncate,
+ ceiling: Math.ceil,
+ floor: Math.floor,
+ round: Math.round,
+ toFloat: function(x) { return x; },
+ isNaN: isNaN,
+ isInfinite: isInfinite
+ };
+
+ return elm.Native.Basics.values = basics;
+};
+
+Elm.Native.Char = {};
+Elm.Native.Char.make = function(elm) {
+ elm.Native = elm.Native || {};
+ elm.Native.Char = elm.Native.Char || {};
+ if (elm.Native.Char.values) return elm.Native.Char.values;
+
+ var Utils = Elm.Native.Utils.make(elm);
+
+ function isBetween(lo,hi) { return function(chr) {
+ var c = chr.charCodeAt(0);
+ return lo <= c && c <= hi;
+ };
+ }
+ var isDigit = isBetween('0'.charCodeAt(0),'9'.charCodeAt(0));
+ var chk1 = isBetween('a'.charCodeAt(0),'f'.charCodeAt(0));
+ var chk2 = isBetween('A'.charCodeAt(0),'F'.charCodeAt(0));
+
+ return elm.Native.Char.values = {
+ fromCode : function(c) { return String.fromCharCode(c); },
+ toCode : function(c) { return c.toUpperCase().charCodeAt(0); },
+ toUpper : function(c) { return Utils.chr(c.toUpperCase()); },
+ toLower : function(c) { return Utils.chr(c.toLowerCase()); },
+ toLocaleUpper : function(c) { return Utils.chr(c.toLocaleUpperCase()); },
+ toLocaleLower : function(c) { return Utils.chr(c.toLocaleLowerCase()); },
+ isLower : isBetween('a'.charCodeAt(0),'z'.charCodeAt(0)),
+ isUpper : isBetween('A'.charCodeAt(0),'Z'.charCodeAt(0)),
+ isDigit : isDigit,
+ isOctDigit : isBetween('0'.charCodeAt(0),'7'.charCodeAt(0)),
+ isHexDigit : function(c) { return isDigit(c) || chk1(c) || chk2(c); }
+ };
+};
+
+Elm.Native.Color = {};
+Elm.Native.Color.make = function(elm) {
+ elm.Native = elm.Native || {};
+ elm.Native.Color = elm.Native.Color || {};
+ if (elm.Native.Color.values) return elm.Native.Color.values;
+
+ function toCss(c) {
+ var format = '';
+ var colors = '';
+ if (c.ctor === 'RGBA') {
+ format = 'rgb';
+ colors = c._0 + ', ' + c._1 + ', ' + c._2;
+ } else {
+ format = 'hsl';
+ colors = (c._0 * 180 / Math.PI) + ', ' +
+ (c._1 * 100) + '%, ' +
+ (c._2 * 100) + '%';
+ }
+ if (c._3 === 1) {
+ return format + '(' + colors + ')';
+ } else {
+ return format + 'a(' + colors + ', ' + c._3 + ')';
+ }
+ }
+
+ return elm.Native.Color.values = {
+ toCss:toCss
+ };
+
+};
+
+Elm.Native.Debug = {};
+Elm.Native.Debug.make = function(elm) {
+ elm.Native = elm.Native || {};
+ elm.Native.Debug = elm.Native.Debug || {};
+ if (elm.Native.Debug.values) return elm.Native.Debug.values;
+ if ('values' in Elm.Native.Debug)
+ return elm.Native.Debug.values = Elm.Native.Debug.values;
+
+ var toString = Elm.Native.Show.make(elm).toString;
+ var replace = Elm.Native.Utils.make(elm).replace;
+
+ function log(tag, value) {
+ var msg = tag + ': ' + toString(value);
+ var process = process || {};
+ if (process.stdout) {
+ process.stdout.write(msg);
+ } else {
+ console.log(msg);
+ }
+ return value;
+ }
+
+ function crash(message) {
+ throw new Error(message);
+ }
+
+ function tracePath(debugId, form) {
+ return replace([["debugTracePathId",debugId]], form);
+ }
+
+ function WatchTracker() {
+ this.frames = [{}];
+ this.clear = function() {
+ this.watches = {};
+ };
+ this.pushFrame = function() {
+ var lastFrame = this.frames[this.frames.length - 1];
+ this.frames.push(lastFrame);
+ }
+ this.notify = function(tag, value) {
+ this.frames[this.frames.length - 1][tag] = value;
+ };
+ }
+ var watchTracker = new WatchTracker();
+
+ function watch(tag, value) {
+ watchTracker.notify(tag, value);
+ return value;
+ }
+
+ function watchSummary(tag, f, value) {
+ watchTracker.notify(tag, f(value));
+ return value;
+ }
+
+ Elm.Native.Debug.values = {
+ crash: crash,
+ tracePath: F2(tracePath),
+ log: F2(log),
+ watch: F2(watch),
+ watchSummary:F3(watchSummary),
+ watchTracker: watchTracker
+ };
+ return elm.Native.Debug.values = Elm.Native.Debug.values;
+};
+
+
+// setup
+Elm.Native = Elm.Native || {};
+Elm.Native.Graphics = Elm.Native.Graphics || {};
+Elm.Native.Graphics.Collage = Elm.Native.Graphics.Collage || {};
+
+// definition
+Elm.Native.Graphics.Collage.make = function(localRuntime) {
+ 'use strict';
+
+ // attempt to short-circuit
+ if ('values' in Elm.Native.Graphics.Collage) {
+ return Elm.Native.Graphics.Collage.values;
+ }
+
+ // okay, we cannot short-ciruit, so now we define everything
+ var Color = Elm.Native.Color.make(localRuntime);
+ var List = Elm.Native.List.make(localRuntime);
+ var Transform = Elm.Transform2D.make(localRuntime);
+
+ var Element = Elm.Graphics.Element.make(localRuntime);
+ var NativeElement = Elm.Native.Graphics.Element.make(localRuntime);
+
+
+ function trace(ctx, path) {
+ var points = List.toArray(path);
+ var i = points.length - 1;
+ if (i <= 0) {
+ return;
+ }
+ ctx.moveTo(points[i]._0, points[i]._1);
+ while (i--) {
+ ctx.lineTo(points[i]._0, points[i]._1);
+ }
+ if (path.closed) {
+ i = points.length - 1;
+ ctx.lineTo(points[i]._0, points[i]._1);
+ }
+ }
+
+ function line(ctx,style,path) {
+ (style.dashing.ctor === '[]')
+ ? trace(ctx, path)
+ : customLineHelp(ctx, style, path);
+ ctx.scale(1,-1);
+ ctx.stroke();
+ }
+
+ function customLineHelp(ctx, style, path) {
+ var points = List.toArray(path);
+ if (path.closed) {
+ points.push(points[0]);
+ }
+ var pattern = List.toArray(style.dashing);
+ var i = points.length - 1;
+ if (i <= 0) {
+ return;
+ }
+ var x0 = points[i]._0, y0 = points[i]._1;
+ var x1=0, y1=0, dx=0, dy=0, remaining=0, nx=0, ny=0;
+ var pindex = 0, plen = pattern.length;
+ var draw = true, segmentLength = pattern[0];
+ ctx.moveTo(x0,y0);
+ while (i--) {
+ x1 = points[i]._0; y1 = points[i]._1;
+ dx = x1 - x0; dy = y1 - y0;
+ remaining = Math.sqrt(dx * dx + dy * dy);
+ while (segmentLength <= remaining) {
+ x0 += dx * segmentLength / remaining;
+ y0 += dy * segmentLength / remaining;
+ ctx[draw ? 'lineTo' : 'moveTo'](x0, y0);
+ // update starting position
+ dx = x1 - x0; dy = y1 - y0;
+ remaining = Math.sqrt(dx * dx + dy * dy);
+ // update pattern
+ draw = !draw;
+ pindex = (pindex + 1) % plen;
+ segmentLength = pattern[pindex];
+ }
+ if (remaining > 0) {
+ ctx[draw ? 'lineTo' : 'moveTo'](x1, y1);
+ segmentLength -= remaining;
+ }
+ x0 = x1; y0 = y1;
+ }
+ }
+
+ function drawLine(ctx, style, path) {
+ ctx.lineWidth = style.width;
+
+ var cap = style.cap.ctor;
+ ctx.lineCap = cap === 'Flat'
+ ? 'butt'
+ : cap === 'Round'
+ ? 'round'
+ : 'square';
+
+ var join = style.join.ctor;
+ ctx.lineJoin = join === 'Smooth'
+ ? 'round'
+ : join === 'Sharp'
+ ? 'miter'
+ : 'bevel';
+
+ ctx.miterLimit = style.join._0 || 10;
+ ctx.strokeStyle = Color.toCss(style.color);
+
+ return line(ctx, style, path);
+ }
+
+ function texture(redo, ctx, src) {
+ var img = new Image();
+ img.src = src;
+ img.onload = redo;
+ return ctx.createPattern(img, 'repeat');
+ }
+
+ function gradient(ctx, grad) {
+ var g;
+ var stops = [];
+ if (grad.ctor === 'Linear') {
+ var p0 = grad._0, p1 = grad._1;
+ g = ctx.createLinearGradient(p0._0, -p0._1, p1._0, -p1._1);
+ stops = List.toArray(grad._2);
+ } else {
+ var p0 = grad._0, p2 = grad._2;
+ g = ctx.createRadialGradient(p0._0, -p0._1, grad._1, p2._0, -p2._1, grad._3);
+ stops = List.toArray(grad._4);
+ }
+ var len = stops.length;
+ for (var i = 0; i < len; ++i) {
+ var stop = stops[i];
+ g.addColorStop(stop._0, Color.toCss(stop._1));
+ }
+ return g;
+ }
+
+ function drawShape(redo, ctx, style, path) {
+ trace(ctx, path);
+ var sty = style.ctor;
+ ctx.fillStyle = sty === 'Solid'
+ ? Color.toCss(style._0)
+ : sty === 'Texture'
+ ? texture(redo, ctx, style._0)
+ : gradient(ctx, style._0);
+
+ ctx.scale(1,-1);
+ ctx.fill();
+ }
+
+ function drawImage(redo, ctx, form) {
+ var img = new Image();
+ img.onload = redo;
+ img.src = form._3;
+ var w = form._0,
+ h = form._1,
+ pos = form._2,
+ srcX = pos._0,
+ srcY = pos._1,
+ srcW = w,
+ srcH = h,
+ destX = -w/2,
+ destY = -h/2,
+ destW = w,
+ destH = h;
+
+ ctx.scale(1,-1);
+ ctx.drawImage(img, srcX, srcY, srcW, srcH, destX, destY, destW, destH);
+ }
+
+ function renderForm(redo, ctx, form) {
+ ctx.save();
+ var x = form.x, y = form.y, theta = form.theta, scale = form.scale;
+ if (x !== 0 || y !== 0) ctx.translate(x, y);
+ if (theta !== 0) ctx.rotate(theta);
+ if (scale !== 1) ctx.scale(scale,scale);
+ if (form.alpha !== 1) ctx.globalAlpha = ctx.globalAlpha * form.alpha;
+ ctx.beginPath();
+ var f = form.form;
+ switch(f.ctor) {
+ case 'FPath' : drawLine(ctx, f._0, f._1); break;
+ case 'FImage': drawImage(redo, ctx, f); break;
+ case 'FShape':
+ if (f._0.ctor === 'Line') {
+ f._1.closed = true;
+ drawLine(ctx, f._0._0, f._1);
+ } else {
+ drawShape(redo, ctx, f._0._0, f._1);
+ }
+ break;
+ }
+ ctx.restore();
+ }
+
+ function formToMatrix(form) {
+ var scale = form.scale;
+ var matrix = A6( Transform.matrix, scale, 0, 0, scale, form.x, form.y );
+
+ var theta = form.theta
+ if (theta !== 0) {
+ matrix = A2( Transform.multiply, matrix, Transform.rotation(theta) );
+ }
+
+ return matrix;
+ }
+
+ function str(n) {
+ if (n < 0.00001 && n > -0.00001) return 0;
+ return n;
+ }
+
+ function makeTransform(w, h, form, matrices) {
+ var props = form.form._0.props;
+ var m = A6( Transform.matrix, 1, 0, 0, -1,
+ (w - props.width ) / 2,
+ (h - props.height) / 2 );
+ var len = matrices.length;
+ for (var i = 0; i < len; ++i) {
+ m = A2( Transform.multiply, m, matrices[i] );
+ }
+ m = A2( Transform.multiply, m, formToMatrix(form) );
+
+ return 'matrix(' + str( m[0]) + ', ' + str( m[3]) + ', ' +
+ str(-m[1]) + ', ' + str(-m[4]) + ', ' +
+ str( m[2]) + ', ' + str( m[5]) + ')';
+ }
+
+ function stepperHelp(list) {
+ var arr = List.toArray(list);
+ var i = 0;
+ function peekNext() {
+ return i < arr.length ? arr[i].form.ctor : '';
+ }
+ // assumes that there is a next element
+ function next() {
+ var out = arr[i];
+ ++i;
+ return out;
+ }
+ return {
+ peekNext:peekNext,
+ next:next
+ };
+ }
+
+ function formStepper(forms) {
+ var ps = [stepperHelp(forms)];
+ var matrices = [];
+ var alphas = [];
+ function peekNext() {
+ var len = ps.length;
+ var formType = '';
+ for (var i = 0; i < len; ++i ) {
+ if (formType = ps[i].peekNext()) return formType;
+ }
+ return '';
+ }
+ // assumes that there is a next element
+ function next(ctx) {
+ while (!ps[0].peekNext()) {
+ ps.shift();
+ matrices.pop();
+ alphas.shift();
+ if (ctx) { ctx.restore(); }
+ }
+ var out = ps[0].next();
+ var f = out.form;
+ if (f.ctor === 'FGroup') {
+ ps.unshift(stepperHelp(f._1));
+ var m = A2(Transform.multiply, f._0, formToMatrix(out));
+ ctx.save();
+ ctx.transform(m[0], m[3], m[1], m[4], m[2], m[5]);
+ matrices.push(m);
+
+ var alpha = (alphas[0] || 1) * out.alpha;
+ alphas.unshift(alpha);
+ ctx.globalAlpha = alpha;
+ }
+ return out;
+ }
+ function transforms() { return matrices; }
+ function alpha() { return alphas[0] || 1; }
+ return {
+ peekNext:peekNext,
+ next:next,
+ transforms:transforms,
+ alpha:alpha
+ };
+ }
+
+ function makeCanvas(w,h) {
+ var canvas = NativeElement.createNode('canvas');
+ canvas.style.width = w + 'px';
+ canvas.style.height = h + 'px';
+ canvas.style.display = "block";
+ canvas.style.position = "absolute";
+ canvas.width = w;
+ canvas.height = h;
+ return canvas;
+ }
+
+ function render(model) {
+ var div = NativeElement.createNode('div');
+ div.style.overflow = 'hidden';
+ div.style.position = 'relative';
+ update(div, model, model);
+ return div;
+ }
+
+ function nodeStepper(w,h,div) {
+ var kids = div.childNodes;
+ var i = 0;
+ function transform(transforms, ctx) {
+ ctx.translate(w/2, h/2);
+ ctx.scale(1,-1);
+ var len = transforms.length;
+ for (var i = 0; i < len; ++i) {
+ var m = transforms[i];
+ ctx.save();
+ ctx.transform(m[0], m[3], m[1], m[4], m[2], m[5]);
+ }
+ return ctx;
+ }
+ function nextContext(transforms) {
+ while (i < kids.length) {
+ var node = kids[i];
+ if (node.getContext) {
+ node.width = w;
+ node.height = h;
+ node.style.width = w + 'px';
+ node.style.height = h + 'px';
+ ++i;
+ return transform(transforms, node.getContext('2d'));
+ }
+ div.removeChild(node);
+ }
+ var canvas = makeCanvas(w,h);
+ div.appendChild(canvas);
+ // we have added a new node, so we must step our position
+ ++i;
+ return transform(transforms, canvas.getContext('2d'));
+ }
+ function addElement(matrices, alpha, form) {
+ var kid = kids[i];
+ var elem = form.form._0;
+
+ var node = (!kid || kid.getContext)
+ ? NativeElement.render(elem)
+ : NativeElement.update(kid, kid.oldElement, elem);
+
+ node.style.position = 'absolute';
+ node.style.opacity = alpha * form.alpha * elem.props.opacity;
+ NativeElement.addTransform(node.style, makeTransform(w, h, form, matrices));
+ node.oldElement = elem;
+ ++i;
+ if (!kid) {
+ div.appendChild(node);
+ } else if (kid.getContext) {
+ div.insertBefore(node, kid);
+ }
+ }
+ function clearRest() {
+ while (i < kids.length) {
+ div.removeChild(kids[i]);
+ }
+ }
+ return { nextContext:nextContext, addElement:addElement, clearRest:clearRest };
+ }
+
+
+ function update(div, _, model) {
+ var w = model.w;
+ var h = model.h;
+
+ var forms = formStepper(model.forms);
+ var nodes = nodeStepper(w,h,div);
+ var ctx = null;
+ var formType = '';
+
+ while (formType = forms.peekNext()) {
+ // make sure we have context if we need it
+ if (ctx === null && formType !== 'FElement') {
+ ctx = nodes.nextContext(forms.transforms());
+ ctx.globalAlpha = forms.alpha();
+ }
+
+ var form = forms.next(ctx);
+ // if it is FGroup, all updates are made within formStepper when next is called.
+ if (formType === 'FElement') {
+ // update or insert an element, get a new context
+ nodes.addElement(forms.transforms(), forms.alpha(), form);
+ ctx = null;
+ } else if (formType !== 'FGroup') {
+ renderForm(function() { update(div, model, model); }, ctx, form);
+ }
+ }
+ nodes.clearRest();
+ return div;
+ }
+
+
+ function collage(w,h,forms) {
+ return A3(Element.newElement, w, h, {
+ ctor: 'Custom',
+ type: 'Collage',
+ render: render,
+ update: update,
+ model: {w:w, h:h, forms:forms}
+ });
+ }
+
+ return Elm.Native.Graphics.Collage.values = {
+ collage:F3(collage)
+ };
+};
+
+// setup
+Elm.Native = Elm.Native || {};
+Elm.Native.Graphics = Elm.Native.Graphics || {};
+Elm.Native.Graphics.Element = Elm.Native.Graphics.Element || {};
+
+// definition
+Elm.Native.Graphics.Element.make = function(localRuntime) {
+ 'use strict';
+
+ // attempt to short-circuit
+ if ('values' in Elm.Native.Graphics.Element) {
+ return Elm.Native.Graphics.Element.values;
+ }
+
+ var Color = Elm.Native.Color.make(localRuntime);
+ var List = Elm.Native.List.make(localRuntime);
+ var Utils = Elm.Native.Utils.make(localRuntime);
+
+
+ function createNode(elementType) {
+ var node = document.createElement(elementType);
+ node.style.padding = "0";
+ node.style.margin = "0";
+ return node;
+ }
+
+ function setProps(elem, node) {
+ var props = elem.props;
+
+ var element = elem.element;
+ var width = props.width - (element.adjustWidth || 0);
+ var height = props.height - (element.adjustHeight || 0);
+ node.style.width = (width |0) + 'px';
+ node.style.height = (height|0) + 'px';
+
+ if (props.opacity !== 1) {
+ node.style.opacity = props.opacity;
+ }
+
+ if (props.color.ctor === 'Just') {
+ node.style.backgroundColor = Color.toCss(props.color._0);
+ }
+
+ if (props.tag !== '') {
+ node.id = props.tag;
+ }
+
+ if (props.hover.ctor !== '_Tuple0') {
+ addHover(node, props.hover);
+ }
+
+ if (props.click.ctor !== '_Tuple0') {
+ addClick(node, props.click);
+ }
+
+ if (props.href !== '') {
+ var anchor = createNode('a');
+ anchor.href = props.href;
+ anchor.style.display = 'block';
+ anchor.style.pointerEvents = 'auto';
+ anchor.appendChild(node);
+ node = anchor;
+ }
+
+ return node;
+ }
+
+ function addClick(e, handler) {
+ e.style.pointerEvents = 'auto';
+ e.elm_click_handler = handler;
+ function trigger(ev) {
+ e.elm_click_handler(Utils.Tuple0);
+ ev.stopPropagation();
+ }
+ e.elm_click_trigger = trigger;
+ e.addEventListener('click', trigger);
+ }
+
+ function removeClick(e, handler) {
+ if (e.elm_click_trigger) {
+ e.removeEventListener('click', e.elm_click_trigger);
+ e.elm_click_trigger = null;
+ e.elm_click_handler = null;
+ }
+ }
+
+ function addHover(e, handler) {
+ e.style.pointerEvents = 'auto';
+ e.elm_hover_handler = handler;
+ e.elm_hover_count = 0;
+
+ function over(evt) {
+ if (e.elm_hover_count++ > 0) return;
+ e.elm_hover_handler(true);
+ evt.stopPropagation();
+ }
+ function out(evt) {
+ if (e.contains(evt.toElement || evt.relatedTarget)) return;
+ e.elm_hover_count = 0;
+ e.elm_hover_handler(false);
+ evt.stopPropagation();
+ }
+ e.elm_hover_over = over;
+ e.elm_hover_out = out;
+ e.addEventListener('mouseover', over);
+ e.addEventListener('mouseout', out);
+ }
+
+ function removeHover(e) {
+ e.elm_hover_handler = null;
+ if (e.elm_hover_over) {
+ e.removeEventListener('mouseover', e.elm_hover_over);
+ e.elm_hover_over = null;
+ }
+ if (e.elm_hover_out) {
+ e.removeEventListener('mouseout', e.elm_hover_out);
+ e.elm_hover_out = null;
+ }
+ }
+
+ function image(props, img) {
+ switch (img._0.ctor) {
+ case 'Plain': return plainImage(img._3);
+ case 'Fitted': return fittedImage(props.width, props.height, img._3);
+ case 'Cropped': return croppedImage(img,props.width,props.height,img._3);
+ case 'Tiled': return tiledImage(img._3);
+ }
+ }
+
+ function plainImage(src) {
+ var img = createNode('img');
+ img.src = src;
+ img.name = src;
+ img.style.display = "block";
+ return img;
+ }
+
+ function tiledImage(src) {
+ var div = createNode('div');
+ div.style.backgroundImage = 'url(' + src + ')';
+ return div;
+ }
+
+ function fittedImage(w, h, src) {
+ var div = createNode('div');
+ div.style.background = 'url(' + src + ') no-repeat center';
+ div.style.webkitBackgroundSize = 'cover';
+ div.style.MozBackgroundSize = 'cover';
+ div.style.OBackgroundSize = 'cover';
+ div.style.backgroundSize = 'cover';
+ return div;
+ }
+
+ function croppedImage(elem, w, h, src) {
+ var pos = elem._0._0;
+ var e = createNode('div');
+ e.style.overflow = "hidden";
+
+ var img = createNode('img');
+ img.onload = function() {
+ var sw = w / elem._1, sh = h / elem._2;
+ img.style.width = ((this.width * sw)|0) + 'px';
+ img.style.height = ((this.height * sh)|0) + 'px';
+ img.style.marginLeft = ((- pos._0 * sw)|0) + 'px';
+ img.style.marginTop = ((- pos._1 * sh)|0) + 'px';
+ };
+ img.src = src;
+ img.name = src;
+ e.appendChild(img);
+ return e;
+ }
+
+ function goOut(node) {
+ node.style.position = 'absolute';
+ return node;
+ }
+ function goDown(node) {
+ return node;
+ }
+ function goRight(node) {
+ node.style.styleFloat = 'left';
+ node.style.cssFloat = 'left';
+ return node;
+ }
+
+ var directionTable = {
+ DUp : goDown,
+ DDown : goDown,
+ DLeft : goRight,
+ DRight : goRight,
+ DIn : goOut,
+ DOut : goOut
+ };
+ function needsReversal(dir) {
+ return dir == 'DUp' || dir == 'DLeft' || dir == 'DIn';
+ }
+
+ function flow(dir,elist) {
+ var array = List.toArray(elist);
+ var container = createNode('div');
+ var goDir = directionTable[dir];
+ if (goDir == goOut) {
+ container.style.pointerEvents = 'none';
+ }
+ if (needsReversal(dir)) {
+ array.reverse();
+ }
+ var len = array.length;
+ for (var i = 0; i < len; ++i) {
+ container.appendChild(goDir(render(array[i])));
+ }
+ return container;
+ }
+
+ function toPos(pos) {
+ switch(pos.ctor) {
+ case "Absolute": return pos._0 + "px";
+ case "Relative": return (pos._0 * 100) + "%";
+ }
+ }
+
+ // must clear right, left, top, bottom, and transform
+ // before calling this function
+ function setPos(pos,elem,e) {
+ var element = elem.element;
+ var props = elem.props;
+ var w = props.width + (element.adjustWidth ? element.adjustWidth : 0);
+ var h = props.height + (element.adjustHeight ? element.adjustHeight : 0);
+
+ e.style.position = 'absolute';
+ e.style.margin = 'auto';
+ var transform = '';
+ switch(pos.horizontal.ctor) {
+ case 'P': e.style.right = toPos(pos.x); e.style.removeProperty('left'); break;
+ case 'Z': transform = 'translateX(' + ((-w/2)|0) + 'px) ';
+ case 'N': e.style.left = toPos(pos.x); e.style.removeProperty('right'); break;
+ }
+ switch(pos.vertical.ctor) {
+ case 'N': e.style.bottom = toPos(pos.y); e.style.removeProperty('top'); break;
+ case 'Z': transform += 'translateY(' + ((-h/2)|0) + 'px)';
+ case 'P': e.style.top = toPos(pos.y); e.style.removeProperty('bottom'); break;
+ }
+ if (transform !== '') {
+ addTransform(e.style, transform);
+ }
+ return e;
+ }
+
+ function addTransform(style, transform) {
+ style.transform = transform;
+ style.msTransform = transform;
+ style.MozTransform = transform;
+ style.webkitTransform = transform;
+ style.OTransform = transform;
+ }
+
+ function container(pos,elem) {
+ var e = render(elem);
+ setPos(pos, elem, e);
+ var div = createNode('div');
+ div.style.position = 'relative';
+ div.style.overflow = 'hidden';
+ div.appendChild(e);
+ return div;
+ }
+
+ function rawHtml(elem) {
+ var html = elem.html;
+ var guid = elem.guid;
+ var align = elem.align;
+
+ var div = createNode('div');
+ div.innerHTML = html;
+ div.style.visibility = "hidden";
+ if (align) {
+ div.style.textAlign = align;
+ }
+ div.style.visibility = 'visible';
+ div.style.pointerEvents = 'auto';
+ return div;
+ }
+
+ function render(elem) {
+ return setProps(elem, makeElement(elem));
+ }
+ function makeElement(e) {
+ var elem = e.element;
+ switch(elem.ctor) {
+ case 'Image': return image(e.props, elem);
+ case 'Flow': return flow(elem._0.ctor, elem._1);
+ case 'Container': return container(elem._0, elem._1);
+ case 'Spacer': return createNode('div');
+ case 'RawHtml': return rawHtml(elem);
+ case 'Custom': return elem.render(elem.model);
+ }
+ }
+
+ function updateAndReplace(node, curr, next) {
+ var newNode = update(node, curr, next);
+ if (newNode !== node) {
+ node.parentNode.replaceChild(newNode, node);
+ }
+ return newNode;
+ }
+
+ function update(node, curr, next) {
+ var rootNode = node;
+ if (node.tagName === 'A') {
+ node = node.firstChild;
+ }
+ if (curr.props.id === next.props.id) {
+ updateProps(node, curr, next);
+ return rootNode;
+ }
+ if (curr.element.ctor !== next.element.ctor) {
+ return render(next);
+ }
+ var nextE = next.element;
+ var currE = curr.element;
+ switch(nextE.ctor) {
+ case "Spacer":
+ updateProps(node, curr, next);
+ return rootNode;
+
+ case "RawHtml":
+ // only markdown blocks have guids, so this must be a text block
+ if (nextE.guid === null) {
+ if(currE.html.valueOf() !== nextE.html.valueOf()) {
+ node.innerHTML = nextE.html;
+ }
+ updateProps(node, curr, next);
+ return rootNode;
+ }
+ if (nextE.guid !== currE.guid) {
+ return render(next);
+ }
+ updateProps(node, curr, next);
+ return rootNode;
+
+ case "Image":
+ if (nextE._0.ctor === 'Plain') {
+ if (nextE._3 !== currE._3) {
+ node.src = nextE._3;
+ }
+ } else if (!Utils.eq(nextE,currE) ||
+ next.props.width !== curr.props.width ||
+ next.props.height !== curr.props.height) {
+ return render(next);
+ }
+ updateProps(node, curr, next);
+ return rootNode;
+
+ case "Flow":
+ var arr = List.toArray(nextE._1);
+ for (var i = arr.length; i--; ) {
+ arr[i] = arr[i].element.ctor;
+ }
+ if (nextE._0.ctor !== currE._0.ctor) {
+ return render(next);
+ }
+ var nexts = List.toArray(nextE._1);
+ var kids = node.childNodes;
+ if (nexts.length !== kids.length) {
+ return render(next);
+ }
+ var currs = List.toArray(currE._1);
+ var dir = nextE._0.ctor;
+ var goDir = directionTable[dir];
+ var toReverse = needsReversal(dir);
+ var len = kids.length;
+ for (var i = len; i-- ;) {
+ var subNode = kids[toReverse ? len - i - 1 : i];
+ goDir(updateAndReplace(subNode, currs[i], nexts[i]));
+ }
+ updateProps(node, curr, next);
+ return rootNode;
+
+ case "Container":
+ var subNode = node.firstChild;
+ var newSubNode = updateAndReplace(subNode, currE._1, nextE._1);
+ setPos(nextE._0, nextE._1, newSubNode);
+ updateProps(node, curr, next);
+ return rootNode;
+
+ case "Custom":
+ if (currE.type === nextE.type) {
+ var updatedNode = nextE.update(node, currE.model, nextE.model);
+ updateProps(updatedNode, curr, next);
+ return updatedNode;
+ } else {
+ return render(next);
+ }
+ }
+ }
+
+ function updateProps(node, curr, next) {
+ var nextProps = next.props;
+ var currProps = curr.props;
+
+ var element = next.element;
+ var width = nextProps.width - (element.adjustWidth || 0);
+ var height = nextProps.height - (element.adjustHeight || 0);
+ if (width !== currProps.width) {
+ node.style.width = (width|0) + 'px';
+ }
+ if (height !== currProps.height) {
+ node.style.height = (height|0) + 'px';
+ }
+
+ if (nextProps.opacity !== currProps.opacity) {
+ node.style.opacity = nextProps.opacity;
+ }
+
+ var nextColor = nextProps.color.ctor === 'Just'
+ ? Color.toCss(nextProps.color._0)
+ : '';
+ if (node.style.backgroundColor !== nextColor) {
+ node.style.backgroundColor = nextColor;
+ }
+
+ if (nextProps.tag !== currProps.tag) {
+ node.id = nextProps.tag;
+ }
+
+ if (nextProps.href !== currProps.href) {
+ if (currProps.href === '') {
+ // add a surrounding href
+ var anchor = createNode('a');
+ anchor.href = nextProps.href;
+ anchor.style.display = 'block';
+ anchor.style.pointerEvents = 'auto';
+
+ node.parentNode.replaceChild(anchor, node);
+ anchor.appendChild(node);
+ } else if (nextProps.href === '') {
+ // remove the surrounding href
+ var anchor = node.parentNode;
+ anchor.parentNode.replaceChild(node, anchor);
+ } else {
+ // just update the link
+ node.parentNode.href = nextProps.href;
+ }
+ }
+
+ // update click and hover handlers
+ var removed = false;
+
+ // update hover handlers
+ if (currProps.hover.ctor === '_Tuple0') {
+ if (nextProps.hover.ctor !== '_Tuple0') {
+ addHover(node, nextProps.hover);
+ }
+ }
+ else {
+ if (nextProps.hover.ctor === '_Tuple0') {
+ removed = true;
+ removeHover(node);
+ }
+ else {
+ node.elm_hover_handler = nextProps.hover;
+ }
+ }
+
+ // update click handlers
+ if (currProps.click.ctor === '_Tuple0') {
+ if (nextProps.click.ctor !== '_Tuple0') {
+ addClick(node, nextProps.click);
+ }
+ }
+ else {
+ if (nextProps.click.ctor === '_Tuple0') {
+ removed = true;
+ removeClick(node);
+ } else {
+ node.elm_click_handler = nextProps.click;
+ }
+ }
+
+ // stop capturing clicks if
+ if (removed
+ && nextProps.hover.ctor === '_Tuple0'
+ && nextProps.click.ctor === '_Tuple0')
+ {
+ node.style.pointerEvents = 'none';
+ }
+ }
+
+
+ function htmlHeight(width, rawHtml) {
+ // create dummy node
+ var temp = document.createElement('div');
+ temp.innerHTML = rawHtml.html;
+ if (width > 0) {
+ temp.style.width = width + "px";
+ }
+ temp.style.visibility = "hidden";
+ temp.style.styleFloat = "left";
+ temp.style.cssFloat = "left";
+
+ document.body.appendChild(temp);
+
+ // get dimensions
+ var style = window.getComputedStyle(temp, null);
+ var w = Math.ceil(style.getPropertyValue("width").slice(0,-2) - 0);
+ var h = Math.ceil(style.getPropertyValue("height").slice(0,-2) - 0);
+ document.body.removeChild(temp);
+ return Utils.Tuple2(w,h);
+ }
+
+
+ return Elm.Native.Graphics.Element.values = {
+ render: render,
+ update: update,
+ updateAndReplace: updateAndReplace,
+
+ createNode: createNode,
+ addTransform: addTransform,
+ htmlHeight: F2(htmlHeight),
+ guid: Utils.guid
+ };
+
+};
+
+// setup
+Elm.Native = Elm.Native || {};
+Elm.Native.Graphics = Elm.Native.Graphics || {};
+Elm.Native.Graphics.Input = Elm.Native.Graphics.Input || {};
+
+// definition
+Elm.Native.Graphics.Input.make = function(localRuntime) {
+ 'use strict';
+
+ // attempt to short-circuit
+ if ('values' in Elm.Native.Graphics.Input) {
+ return Elm.Native.Graphics.Input.values;
+ }
+
+ var Color = Elm.Native.Color.make(localRuntime);
+ var List = Elm.Native.List.make(localRuntime);
+ var Text = Elm.Native.Text.make(localRuntime);
+ var Utils = Elm.Native.Utils.make(localRuntime);
+
+ var Element = Elm.Graphics.Element.make(localRuntime);
+ var NativeElement = Elm.Native.Graphics.Element.make(localRuntime);
+
+
+ function renderDropDown(model) {
+ var drop = NativeElement.createNode('select');
+ drop.style.border = '0 solid';
+ drop.style.pointerEvents = 'auto';
+ drop.style.display = 'block';
+
+ drop.elm_values = List.toArray(model.values);
+ var values = drop.elm_values;
+
+ for (var i = 0; i < values.length; ++i) {
+ var option = NativeElement.createNode('option');
+ var name = values[i]._0;
+ option.value = name;
+ option.innerHTML = name;
+ drop.appendChild(option);
+ }
+ drop.addEventListener('change', function() {
+ drop.elm_values[drop.selectedIndex]._1();
+ });
+
+ return drop;
+ }
+
+ function updateDropDown(node, oldModel, newModel) {
+ node.elm_values = List.toArray(newModel.values);
+
+ var values = node.elm_values;
+ var kids = node.childNodes;
+ var kidsLength = kids.length;
+
+ var i = 0;
+ for (; i < kidsLength && i < values.length; ++i) {
+ var option = kids[i];
+ var name = values[i]._0;
+ option.value = name;
+ option.innerHTML = name;
+ }
+ for (; i < kidsLength; ++i) {
+ node.removeChild(node.lastChild);
+ }
+ for (; i < values.length; ++i) {
+ var option = NativeElement.createNode('option');
+ var name = values[i]._0;
+ option.value = name;
+ option.innerHTML = name;
+ node.appendChild(option);
+ }
+ return node;
+ }
+
+ function dropDown(values) {
+ return A3(Element.newElement, 100, 24, {
+ ctor: 'Custom',
+ type: 'DropDown',
+ render: renderDropDown,
+ update: updateDropDown,
+ model: {
+ values: values
+ }
+ });
+ }
+
+ function renderButton(model) {
+ var node = NativeElement.createNode('button');
+ node.style.display = 'block';
+ node.style.pointerEvents = 'auto';
+ node.elm_message = model.message;
+ function click() {
+ node.elm_message();
+ }
+ node.addEventListener('click', click);
+ node.innerHTML = model.text;
+ return node;
+ }
+
+ function updateButton(node, oldModel, newModel) {
+ node.elm_message = newModel.message;
+ var txt = newModel.text;
+ if (oldModel.text !== txt) {
+ node.innerHTML = txt;
+ }
+ return node;
+ }
+
+ function button(message, text) {
+ return A3(Element.newElement, 100, 40, {
+ ctor: 'Custom',
+ type: 'Button',
+ render: renderButton,
+ update: updateButton,
+ model: {
+ message: message,
+ text:text
+ }
+ });
+ }
+
+ function renderCustomButton(model) {
+ var btn = NativeElement.createNode('div');
+ btn.style.pointerEvents = 'auto';
+ btn.elm_message = model.message;
+
+ btn.elm_up = NativeElement.render(model.up);
+ btn.elm_hover = NativeElement.render(model.hover);
+ btn.elm_down = NativeElement.render(model.down);
+
+ btn.elm_up.style.display = 'block';
+ btn.elm_hover.style.display = 'none';
+ btn.elm_down.style.display = 'none';
+
+ btn.appendChild(btn.elm_up);
+ btn.appendChild(btn.elm_hover);
+ btn.appendChild(btn.elm_down);
+
+ function swap(visibleNode, hiddenNode1, hiddenNode2) {
+ visibleNode.style.display = 'block';
+ hiddenNode1.style.display = 'none';
+ hiddenNode2.style.display = 'none';
+ }
+
+ var overCount = 0;
+ function over(e) {
+ if (overCount++ > 0) return;
+ swap(btn.elm_hover, btn.elm_down, btn.elm_up);
+ }
+ function out(e) {
+ if (btn.contains(e.toElement || e.relatedTarget)) return;
+ overCount = 0;
+ swap(btn.elm_up, btn.elm_down, btn.elm_hover);
+ }
+ function up() {
+ swap(btn.elm_hover, btn.elm_down, btn.elm_up);
+ btn.elm_message();
+ }
+ function down() {
+ swap(btn.elm_down, btn.elm_hover, btn.elm_up);
+ }
+
+ btn.addEventListener('mouseover', over);
+ btn.addEventListener('mouseout' , out);
+ btn.addEventListener('mousedown', down);
+ btn.addEventListener('mouseup' , up);
+
+ return btn;
+ }
+
+ function updateCustomButton(node, oldModel, newModel) {
+ node.elm_message = newModel.message;
+
+ var kids = node.childNodes;
+ var styleUp = kids[0].style.display;
+ var styleHover = kids[1].style.display;
+ var styleDown = kids[2].style.display;
+
+ NativeElement.updateAndReplace(kids[0], oldModel.up, newModel.up);
+ NativeElement.updateAndReplace(kids[1], oldModel.hover, newModel.hover);
+ NativeElement.updateAndReplace(kids[2], oldModel.down, newModel.down);
+
+ var kids = node.childNodes;
+ kids[0].style.display = styleUp;
+ kids[1].style.display = styleHover;
+ kids[2].style.display = styleDown;
+
+ return node;
+ }
+
+ function max3(a,b,c) {
+ var ab = a > b ? a : b;
+ return ab > c ? ab : c;
+ }
+
+ function customButton(message, up, hover, down) {
+ return A3(Element.newElement,
+ max3(up.props.width, hover.props.width, down.props.width),
+ max3(up.props.height, hover.props.height, down.props.height),
+ { ctor: 'Custom',
+ type: 'CustomButton',
+ render: renderCustomButton,
+ update: updateCustomButton,
+ model: {
+ message: message,
+ up: up,
+ hover: hover,
+ down: down
+ }
+ });
+ }
+
+ function renderCheckbox(model) {
+ var node = NativeElement.createNode('input');
+ node.type = 'checkbox';
+ node.checked = model.checked;
+ node.style.display = 'block';
+ node.style.pointerEvents = 'auto';
+ node.elm_handler = model.handler;
+ function change() {
+ node.elm_handler(node.checked)();
+ }
+ node.addEventListener('change', change);
+ return node;
+ }
+
+ function updateCheckbox(node, oldModel, newModel) {
+ node.elm_handler = newModel.handler;
+ node.checked = newModel.checked;
+ return node;
+ }
+
+ function checkbox(handler, checked) {
+ return A3(Element.newElement, 13, 13, {
+ ctor: 'Custom',
+ type: 'CheckBox',
+ render: renderCheckbox,
+ update: updateCheckbox,
+ model: { handler:handler, checked:checked }
+ });
+ }
+
+ function setRange(node, start, end, dir) {
+ if (node.parentNode) {
+ node.setSelectionRange(start, end, dir);
+ } else {
+ setTimeout(function(){node.setSelectionRange(start, end, dir);}, 0);
+ }
+ }
+
+ function updateIfNeeded(css, attribute, latestAttribute) {
+ if (css[attribute] !== latestAttribute) {
+ css[attribute] = latestAttribute;
+ }
+ }
+ function cssDimensions(dimensions) {
+ return dimensions.top + 'px ' +
+ dimensions.right + 'px ' +
+ dimensions.bottom + 'px ' +
+ dimensions.left + 'px';
+ }
+ function updateFieldStyle(css, style) {
+ updateIfNeeded(css, 'padding', cssDimensions(style.padding));
+
+ var outline = style.outline;
+ updateIfNeeded(css, 'border-width', cssDimensions(outline.width));
+ updateIfNeeded(css, 'border-color', Color.toCss(outline.color));
+ updateIfNeeded(css, 'border-radius', outline.radius + 'px');
+
+ var highlight = style.highlight;
+ if (highlight.width === 0) {
+ css.outline = 'none';
+ } else {
+ updateIfNeeded(css, 'outline-width', highlight.width + 'px');
+ updateIfNeeded(css, 'outline-color', Color.toCss(highlight.color));
+ }
+
+ var textStyle = style.style;
+ updateIfNeeded(css, 'color', Color.toCss(textStyle.color));
+ if (textStyle.typeface.ctor !== '[]') {
+ updateIfNeeded(css, 'font-family', Text.toTypefaces(textStyle.typeface));
+ }
+ if (textStyle.height.ctor !== "Nothing") {
+ updateIfNeeded(css, 'font-size', textStyle.height._0 + 'px');
+ }
+ updateIfNeeded(css, 'font-weight', textStyle.bold ? 'bold' : 'normal');
+ updateIfNeeded(css, 'font-style', textStyle.italic ? 'italic' : 'normal');
+ if (textStyle.line.ctor !== 'Nothing') {
+ updateIfNeeded(css, 'text-decoration', Text.toLine(textStyle.line._0));
+ }
+ }
+
+ function renderField(model) {
+ var field = NativeElement.createNode('input');
+ updateFieldStyle(field.style, model.style);
+ field.style.borderStyle = 'solid';
+ field.style.pointerEvents = 'auto';
+
+ field.type = model.type;
+ field.placeholder = model.placeHolder;
+ field.value = model.content.string;
+
+ field.elm_handler = model.handler;
+ field.elm_old_value = field.value;
+
+ function inputUpdate(event) {
+ var curr = field.elm_old_value;
+ var next = field.value;
+ if (curr === next) {
+ return;
+ }
+
+ var direction = field.selectionDirection === 'forward' ? 'Forward' : 'Backward';
+ var start = field.selectionStart;
+ var end = field.selectionEnd;
+ field.value = field.elm_old_value;
+
+ field.elm_handler({
+ _:{},
+ string: next,
+ selection: {
+ _:{},
+ start: start,
+ end: end,
+ direction: { ctor: direction }
+ }
+ })();
+ }
+
+ field.addEventListener('input', inputUpdate);
+ field.addEventListener('focus', function() {
+ field.elm_hasFocus = true;
+ });
+ field.addEventListener('blur', function() {
+ field.elm_hasFocus = false;
+ });
+
+ return field;
+ }
+
+ function updateField(field, oldModel, newModel) {
+ if (oldModel.style !== newModel.style) {
+ updateFieldStyle(field.style, newModel.style);
+ }
+ field.elm_handler = newModel.handler;
+
+ field.type = newModel.type;
+ field.placeholder = newModel.placeHolder;
+ var value = newModel.content.string;
+ field.value = value;
+ field.elm_old_value = value;
+ if (field.elm_hasFocus) {
+ var selection = newModel.content.selection;
+ var direction = selection.direction.ctor === 'Forward' ? 'forward' : 'backward';
+ setRange(field, selection.start, selection.end, direction);
+ }
+ return field;
+ }
+
+ function mkField(type) {
+ function field(style, handler, placeHolder, content) {
+ var padding = style.padding;
+ var outline = style.outline.width;
+ var adjustWidth = padding.left + padding.right + outline.left + outline.right;
+ var adjustHeight = padding.top + padding.bottom + outline.top + outline.bottom;
+ return A3(Element.newElement, 200, 30, {
+ ctor: 'Custom',
+ type: type + 'Field',
+ adjustWidth: adjustWidth,
+ adjustHeight: adjustHeight,
+ render: renderField,
+ update: updateField,
+ model: {
+ handler:handler,
+ placeHolder:placeHolder,
+ content:content,
+ style:style,
+ type:type
+ }
+ });
+ }
+ return F4(field);
+ }
+
+ function hoverable(handler, elem) {
+ function onHover(bool) {
+ handler(bool)();
+ }
+ var props = Utils.replace([['hover',onHover]], elem.props);
+ return { props:props, element:elem.element };
+ }
+
+ function clickable(message, elem) {
+ function onClick() {
+ message();
+ }
+ var props = Utils.replace([['click',onClick]], elem.props);
+ return { props:props, element:elem.element };
+ }
+
+ return Elm.Native.Graphics.Input.values = {
+ button: F2(button),
+ customButton: F4(customButton),
+ checkbox: F2(checkbox),
+ dropDown: dropDown,
+ field: mkField('text'),
+ email: mkField('email'),
+ password: mkField('password'),
+ hoverable: F2(hoverable),
+ clickable: F2(clickable)
+ };
+
+};
+
+Elm.Native.Json = {};
+Elm.Native.Json.make = function(localRuntime) {
+ localRuntime.Native = localRuntime.Native || {};
+ localRuntime.Native.Json = localRuntime.Native.Json || {};
+ if (localRuntime.Native.Json.values) {
+ return localRuntime.Native.Json.values;
+ }
+
+ var ElmArray = Elm.Native.Array.make(localRuntime);
+ var List = Elm.Native.List.make(localRuntime);
+ var Maybe = Elm.Maybe.make(localRuntime);
+ var Result = Elm.Result.make(localRuntime);
+ var Utils = Elm.Native.Utils.make(localRuntime);
+
+
+ function crash(expected, actual) {
+ throw new Error(
+ 'expecting ' + expected + ' but got ' + JSON.stringify(actual)
+ );
+ }
+
+
+ // PRIMITIVE VALUES
+
+ function decodeNull(successValue) {
+ return function(value) {
+ if (value === null) {
+ return successValue;
+ }
+ crash('null', value);
+ };
+ }
+
+
+ function decodeString(value) {
+ if (typeof value === 'string' || value instanceof String) {
+ return value;
+ }
+ crash('a String', value);
+ }
+
+
+ function decodeFloat(value) {
+ if (typeof value === 'number') {
+ return value;
+ }
+ crash('a Float', value);
+ }
+
+
+ function decodeInt(value) {
+ if (typeof value === 'number' && (value|0) === value) {
+ return value;
+ }
+ crash('an Int', value);
+ }
+
+
+ function decodeBool(value) {
+ if (typeof value === 'boolean') {
+ return value;
+ }
+ crash('a Bool', value);
+ }
+
+
+ // ARRAY
+
+ function decodeArray(decoder) {
+ return function(value) {
+ if (value instanceof Array) {
+ var len = value.length;
+ var array = new Array(len);
+ for (var i = len; i-- ; ) {
+ array[i] = decoder(value[i]);
+ }
+ return ElmArray.fromJSArray(array);
+ }
+ crash('an Array', value);
+ };
+ }
+
+
+ // LIST
+
+ function decodeList(decoder) {
+ return function(value) {
+ if (value instanceof Array) {
+ var len = value.length;
+ var list = List.Nil;
+ for (var i = len; i-- ; ) {
+ list = List.Cons( decoder(value[i]), list );
+ }
+ return list;
+ }
+ crash('a List', value);
+ };
+ }
+
+
+ // MAYBE
+
+ function decodeMaybe(decoder) {
+ return function(value) {
+ try {
+ return Maybe.Just(decoder(value));
+ } catch(e) {
+ return Maybe.Nothing;
+ }
+ };
+ }
+
+
+ // FIELDS
+
+ function decodeField(field, decoder) {
+ return function(value) {
+ var subValue = value[field];
+ if (subValue !== undefined) {
+ return decoder(subValue);
+ }
+ crash("an object with field '" + field + "'", value);
+ };
+ }
+
+
+ // OBJECTS
+
+ function decodeKeyValuePairs(decoder) {
+ return function(value) {
+ var isObject =
+ typeof value === 'object'
+ && value !== null
+ && !(value instanceof Array);
+
+ if (isObject) {
+ var keyValuePairs = List.Nil;
+ for (var key in value) {
+ var elmValue = decoder(value[key]);
+ var pair = Utils.Tuple2(key, elmValue);
+ keyValuePairs = List.Cons(pair, keyValuePairs);
+ }
+ return keyValuePairs;
+ }
+
+ crash("an object", value);
+ };
+ }
+
+ function decodeObject1(f, d1) {
+ return function(value) {
+ return f(d1(value));
+ };
+ }
+
+ function decodeObject2(f, d1, d2) {
+ return function(value) {
+ return A2( f, d1(value), d2(value) );
+ };
+ }
+
+ function decodeObject3(f, d1, d2, d3) {
+ return function(value) {
+ return A3( f, d1(value), d2(value), d3(value) );
+ };
+ }
+
+ function decodeObject4(f, d1, d2, d3, d4) {
+ return function(value) {
+ return A4( f, d1(value), d2(value), d3(value), d4(value) );
+ };
+ }
+
+ function decodeObject5(f, d1, d2, d3, d4, d5) {
+ return function(value) {
+ return A5( f, d1(value), d2(value), d3(value), d4(value), d5(value) );
+ };
+ }
+
+ function decodeObject6(f, d1, d2, d3, d4, d5, d6) {
+ return function(value) {
+ return A6( f,
+ d1(value),
+ d2(value),
+ d3(value),
+ d4(value),
+ d5(value),
+ d6(value)
+ );
+ };
+ }
+
+ function decodeObject7(f, d1, d2, d3, d4, d5, d6, d7) {
+ return function(value) {
+ return A7( f,
+ d1(value),
+ d2(value),
+ d3(value),
+ d4(value),
+ d5(value),
+ d6(value),
+ d7(value)
+ );
+ };
+ }
+
+ function decodeObject8(f, d1, d2, d3, d4, d5, d6, d7, d8) {
+ return function(value) {
+ return A8( f,
+ d1(value),
+ d2(value),
+ d3(value),
+ d4(value),
+ d5(value),
+ d6(value),
+ d7(value),
+ d8(value)
+ );
+ };
+ }
+
+
+ // TUPLES
+
+ function decodeTuple1(f, d1) {
+ return function(value) {
+ if ( !(value instanceof Array) || value.length !== 1 ) {
+ crash('a Tuple of length 1', value);
+ }
+ return f( d1(value[0]) );
+ };
+ }
+
+ function decodeTuple2(f, d1, d2) {
+ return function(value) {
+ if ( !(value instanceof Array) || value.length !== 2 ) {
+ crash('a Tuple of length 2', value);
+ }
+ return A2( f, d1(value[0]), d2(value[1]) );
+ };
+ }
+
+ function decodeTuple3(f, d1, d2, d3) {
+ return function(value) {
+ if ( !(value instanceof Array) || value.length !== 3 ) {
+ crash('a Tuple of length 3', value);
+ }
+ return A3( f, d1(value[0]), d2(value[1]), d3(value[2]) );
+ };
+ }
+
+
+ function decodeTuple4(f, d1, d2, d3, d4) {
+ return function(value) {
+ if ( !(value instanceof Array) || value.length !== 4 ) {
+ crash('a Tuple of length 4', value);
+ }
+ return A4( f, d1(value[0]), d2(value[1]), d3(value[2]), d4(value[3]) );
+ };
+ }
+
+
+ function decodeTuple5(f, d1, d2, d3, d4, d5) {
+ return function(value) {
+ if ( !(value instanceof Array) || value.length !== 5 ) {
+ crash('a Tuple of length 5', value);
+ }
+ return A5( f,
+ d1(value[0]),
+ d2(value[1]),
+ d3(value[2]),
+ d4(value[3]),
+ d5(value[4])
+ );
+ };
+ }
+
+
+ function decodeTuple6(f, d1, d2, d3, d4, d5, d6) {
+ return function(value) {
+ if ( !(value instanceof Array) || value.length !== 6 ) {
+ crash('a Tuple of length 6', value);
+ }
+ return A6( f,
+ d1(value[0]),
+ d2(value[1]),
+ d3(value[2]),
+ d4(value[3]),
+ d5(value[4]),
+ d6(value[5])
+ );
+ };
+ }
+
+ function decodeTuple7(f, d1, d2, d3, d4, d5, d6, d7) {
+ return function(value) {
+ if ( !(value instanceof Array) || value.length !== 7 ) {
+ crash('a Tuple of length 7', value);
+ }
+ return A7( f,
+ d1(value[0]),
+ d2(value[1]),
+ d3(value[2]),
+ d4(value[3]),
+ d5(value[4]),
+ d6(value[5]),
+ d7(value[6])
+ );
+ };
+ }
+
+
+ function decodeTuple8(f, d1, d2, d3, d4, d5, d6, d7, d8) {
+ return function(value) {
+ if ( !(value instanceof Array) || value.length !== 8 ) {
+ crash('a Tuple of length 8', value);
+ }
+ return A8( f,
+ d1(value[0]),
+ d2(value[1]),
+ d3(value[2]),
+ d4(value[3]),
+ d5(value[4]),
+ d6(value[5]),
+ d7(value[6]),
+ d8(value[7])
+ );
+ };
+ }
+
+
+ // CUSTOM DECODERS
+
+ function decodeValue(value) {
+ return value;
+ }
+
+ function runDecoderValue(decoder, value) {
+ try {
+ return Result.Ok(decoder(value));
+ } catch(e) {
+ return Result.Err(e.message);
+ }
+ }
+
+ function customDecoder(decoder, callback) {
+ return function(value) {
+ var result = callback(decoder(value));
+ if (result.ctor === 'Err') {
+ throw new Error('custom decoder failed: ' + result._0);
+ }
+ return result._0;
+ }
+ }
+
+ function andThen(decode, callback) {
+ return function(value) {
+ var result = decode(value);
+ return callback(result)(value);
+ }
+ }
+
+ function fail(msg) {
+ return function(value) {
+ throw new Error(msg);
+ }
+ }
+
+ function succeed(successValue) {
+ return function(value) {
+ return successValue;
+ }
+ }
+
+
+ // ONE OF MANY
+
+ function oneOf(decoders) {
+ return function(value) {
+ var errors = [];
+ while (decoders.ctor !== '[]') {
+ try {
+ return decoders._0(value);
+ } catch(e) {
+ errors.push(e.message);
+ }
+ decoders = decoders._1;
+ }
+ throw new Error('expecting one of the following:\n ' + errors.join('\n '));
+ }
+ }
+
+ function get(decoder, value) {
+ try {
+ return Result.Ok(decoder(value));
+ } catch(e) {
+ return Result.Err(e.message);
+ }
+ }
+
+
+ // ENCODE / DECODE
+
+ function runDecoderString(decoder, string) {
+ try {
+ return Result.Ok(decoder(JSON.parse(string)));
+ } catch(e) {
+ return Result.Err(e.message);
+ }
+ }
+
+ function encode(indentLevel, value) {
+ return JSON.stringify(value, null, indentLevel);
+ }
+
+ function identity(value) {
+ return value;
+ }
+
+ function encodeObject(keyValuePairs) {
+ var obj = {};
+ while (keyValuePairs.ctor !== '[]') {
+ var pair = keyValuePairs._0;
+ obj[pair._0] = pair._1;
+ keyValuePairs = keyValuePairs._1;
+ }
+ return obj;
+ }
+
+ return localRuntime.Native.Json.values = {
+ encode: F2(encode),
+ runDecoderString: F2(runDecoderString),
+ runDecoderValue: F2(runDecoderValue),
+
+ get: F2(get),
+ oneOf: oneOf,
+
+ decodeNull: decodeNull,
+ decodeInt: decodeInt,
+ decodeFloat: decodeFloat,
+ decodeString: decodeString,
+ decodeBool: decodeBool,
+
+ decodeMaybe: decodeMaybe,
+
+ decodeList: decodeList,
+ decodeArray: decodeArray,
+
+ decodeField: F2(decodeField),
+
+ decodeObject1: F2(decodeObject1),
+ decodeObject2: F3(decodeObject2),
+ decodeObject3: F4(decodeObject3),
+ decodeObject4: F5(decodeObject4),
+ decodeObject5: F6(decodeObject5),
+ decodeObject6: F7(decodeObject6),
+ decodeObject7: F8(decodeObject7),
+ decodeObject8: F9(decodeObject8),
+ decodeKeyValuePairs: decodeKeyValuePairs,
+
+ decodeTuple1: F2(decodeTuple1),
+ decodeTuple2: F3(decodeTuple2),
+ decodeTuple3: F4(decodeTuple3),
+ decodeTuple4: F5(decodeTuple4),
+ decodeTuple5: F6(decodeTuple5),
+ decodeTuple6: F7(decodeTuple6),
+ decodeTuple7: F8(decodeTuple7),
+ decodeTuple8: F9(decodeTuple8),
+
+ andThen: F2(andThen),
+ decodeValue: decodeValue,
+ customDecoder: F2(customDecoder),
+ fail: fail,
+ succeed: succeed,
+
+ identity: identity,
+ encodeNull: null,
+ encodeArray: ElmArray.toJSArray,
+ encodeList: List.toArray,
+ encodeObject: encodeObject
+
+ };
+
+};
+
+Elm.Native.List = {};
+Elm.Native.List.make = function(elm) {
+ elm.Native = elm.Native || {};
+ elm.Native.List = elm.Native.List || {};
+ if (elm.Native.List.values) return elm.Native.List.values;
+ if ('values' in Elm.Native.List)
+ return elm.Native.List.values = Elm.Native.List.values;
+
+ var Utils = Elm.Native.Utils.make(elm);
+
+ var Nil = Utils.Nil;
+ var Cons = Utils.Cons;
+
+ function throwError(f) {
+ throw new Error("Function '" + f + "' expects a non-empty list!");
+ }
+
+ function toArray(xs) {
+ var out = [];
+ while (xs.ctor !== '[]') {
+ out.push(xs._0);
+ xs = xs._1;
+ }
+ return out;
+ }
+
+ function fromArray(arr) {
+ var out = Nil;
+ for (var i = arr.length; i--; ) {
+ out = Cons(arr[i], out);
+ }
+ return out;
+ }
+
+ function range(lo,hi) {
+ var lst = Nil;
+ if (lo <= hi) {
+ do { lst = Cons(hi,lst) } while (hi-->lo);
+ }
+ return lst
+ }
+
+ function head(v) {
+ return v.ctor === '[]' ? throwError('head') : v._0;
+ }
+ function tail(v) {
+ return v.ctor === '[]' ? throwError('tail') : v._1;
+ }
+
+ function last(xs) {
+ if (xs.ctor === '[]') { throwError('last'); }
+ var out = xs._0;
+ while (xs.ctor !== '[]') {
+ out = xs._0;
+ xs = xs._1;
+ }
+ return out;
+ }
+
+ function map(f, xs) {
+ var arr = [];
+ while (xs.ctor !== '[]') {
+ arr.push(f(xs._0));
+ xs = xs._1;
+ }
+ return fromArray(arr);
+ }
+
+ // f defined similarly for both foldl and foldr (NB: different from Haskell)
+ // ie, foldl : (a -> b -> b) -> b -> [a] -> b
+ function foldl(f, b, xs) {
+ var acc = b;
+ while (xs.ctor !== '[]') {
+ acc = A2(f, xs._0, acc);
+ xs = xs._1;
+ }
+ return acc;
+ }
+
+ function foldr(f, b, xs) {
+ var arr = toArray(xs);
+ var acc = b;
+ for (var i = arr.length; i--; ) {
+ acc = A2(f, arr[i], acc);
+ }
+ return acc;
+ }
+
+ function foldl1(f, xs) {
+ return xs.ctor === '[]' ? throwError('foldl1') : foldl(f, xs._0, xs._1);
+ }
+
+ function foldr1(f, xs) {
+ if (xs.ctor === '[]') { throwError('foldr1'); }
+ var arr = toArray(xs);
+ var acc = arr.pop();
+ for (var i = arr.length; i--; ) {
+ acc = A2(f, arr[i], acc);
+ }
+ return acc;
+ }
+
+ function scanl(f, b, xs) {
+ var arr = toArray(xs);
+ arr.unshift(b);
+ var len = arr.length;
+ for (var i = 1; i < len; ++i) {
+ arr[i] = A2(f, arr[i], arr[i-1]);
+ }
+ return fromArray(arr);
+ }
+
+ function scanl1(f, xs) {
+ return xs.ctor === '[]' ? throwError('scanl1') : scanl(f, xs._0, xs._1);
+ }
+
+ function filter(pred, xs) {
+ var arr = [];
+ while (xs.ctor !== '[]') {
+ if (pred(xs._0)) { arr.push(xs._0); }
+ xs = xs._1;
+ }
+ return fromArray(arr);
+ }
+
+ function length(xs) {
+ var out = 0;
+ while (xs.ctor !== '[]') {
+ out += 1;
+ xs = xs._1;
+ }
+ return out;
+ }
+
+ function member(x, xs) {
+ while (xs.ctor !== '[]') {
+ if (Utils.eq(x,xs._0)) return true;
+ xs = xs._1;
+ }
+ return false;
+ }
+
+ function reverse(xs) {
+ return fromArray(toArray(xs).reverse());
+ }
+
+ function append(xs, ys) {
+ if (xs.ctor === '[]') {
+ return ys;
+ }
+ var root = Cons(xs._0, Nil);
+ var curr = root;
+ xs = xs._1;
+ while (xs.ctor !== '[]') {
+ curr._1 = Cons(xs._0, Nil);
+ xs = xs._1;
+ curr = curr._1;
+ }
+ curr._1 = ys;
+ return root;
+ }
+
+ function all(pred, xs) {
+ while (xs.ctor !== '[]') {
+ if (!pred(xs._0)) return false;
+ xs = xs._1;
+ }
+ return true;
+ }
+
+ function any(pred, xs) {
+ while (xs.ctor !== '[]') {
+ if (pred(xs._0)) return true;
+ xs = xs._1;
+ }
+ return false;
+ }
+
+ function map2(f, xs, ys) {
+ var arr = [];
+ while (xs.ctor !== '[]' && ys.ctor !== '[]') {
+ arr.push(A2(f, xs._0, ys._0));
+ xs = xs._1;
+ ys = ys._1;
+ }
+ return fromArray(arr);
+ }
+
+ function map3(f, xs, ys, zs) {
+ var arr = [];
+ while (xs.ctor !== '[]' && ys.ctor !== '[]' && zs.ctor !== '[]') {
+ arr.push(A3(f, xs._0, ys._0, zs._0));
+ xs = xs._1;
+ ys = ys._1;
+ zs = zs._1;
+ }
+ return fromArray(arr);
+ }
+
+ function map4(f, ws, xs, ys, zs) {
+ var arr = [];
+ while ( ws.ctor !== '[]'
+ && xs.ctor !== '[]'
+ && ys.ctor !== '[]'
+ && zs.ctor !== '[]')
+ {
+ arr.push(A4(f, ws._0, xs._0, ys._0, zs._0));
+ ws = ws._1;
+ xs = xs._1;
+ ys = ys._1;
+ zs = zs._1;
+ }
+ return fromArray(arr);
+ }
+
+ function map5(f, vs, ws, xs, ys, zs) {
+ var arr = [];
+ while ( vs.ctor !== '[]'
+ && ws.ctor !== '[]'
+ && xs.ctor !== '[]'
+ && ys.ctor !== '[]'
+ && zs.ctor !== '[]')
+ {
+ arr.push(A5(f, vs._0, ws._0, xs._0, ys._0, zs._0));
+ vs = vs._1;
+ ws = ws._1;
+ xs = xs._1;
+ ys = ys._1;
+ zs = zs._1;
+ }
+ return fromArray(arr);
+ }
+
+ function sort(xs) {
+ return fromArray(toArray(xs).sort(Utils.cmp));
+ }
+
+ function sortBy(f, xs) {
+ return fromArray(toArray(xs).sort(function(a,b){
+ return Utils.cmp(f(a), f(b));
+ }));
+ }
+
+ function sortWith(f, xs) {
+ return fromArray(toArray(xs).sort(function(a,b){
+ var ord = f(a)(b).ctor;
+ return ord === 'EQ' ? 0 : ord === 'LT' ? -1 : 1;
+ }));
+ }
+
+ function nth(xs, n) {
+ return toArray(xs)[n];
+ }
+
+ function take(n, xs) {
+ var arr = [];
+ while (xs.ctor !== '[]' && n > 0) {
+ arr.push(xs._0);
+ xs = xs._1;
+ --n;
+ }
+ return fromArray(arr);
+ }
+
+ function drop(n, xs) {
+ while (xs.ctor !== '[]' && n > 0) {
+ xs = xs._1;
+ --n;
+ }
+ return xs;
+ }
+
+ function repeat(n, x) {
+ var arr = [];
+ var pattern = [x];
+ while (n > 0) {
+ if (n & 1) arr = arr.concat(pattern);
+ n >>= 1, pattern = pattern.concat(pattern);
+ }
+ return fromArray(arr);
+ }
+
+
+ Elm.Native.List.values = {
+ Nil:Nil,
+ Cons:Cons,
+ cons:F2(Cons),
+ toArray:toArray,
+ fromArray:fromArray,
+ range:range,
+ append: F2(append),
+
+ head:head,
+ tail:tail,
+ last:last,
+
+ map:F2(map),
+ foldl:F3(foldl),
+ foldr:F3(foldr),
+
+ foldl1:F2(foldl1),
+ foldr1:F2(foldr1),
+ scanl:F3(scanl),
+ scanl1:F2(scanl1),
+ filter:F2(filter),
+ length:length,
+ member:F2(member),
+ reverse:reverse,
+
+ all:F2(all),
+ any:F2(any),
+ map2:F3(map2),
+ map3:F4(map3),
+ map4:F5(map4),
+ map5:F6(map5),
+ sort:sort,
+ sortBy:F2(sortBy),
+ sortWith:F2(sortWith),
+ nth:F2(nth),
+ take:F2(take),
+ drop:F2(drop),
+ repeat:F2(repeat)
+ };
+ return elm.Native.List.values = Elm.Native.List.values;
+
+};
+
+
+// setup
+Elm.Native = Elm.Native || {};
+Elm.Native.Markdown = Elm.Native.Markdown || {};
+
+// definition
+Elm.Native.Markdown.make = function(localRuntime) {
+ 'use strict';
+
+ // attempt to short-circuit
+ if ('values' in Elm.Native.Markdown) {
+ return Elm.Native.Markdown.values;
+ }
+
+ var Text = Elm.Text.make(localRuntime);
+
+ /**
+ * marked - a markdown parser
+ * Copyright (c) 2011-2014, Christopher Jeffrey. (MIT Licensed)
+ * https://github.com/chjj/marked
+ */
+ (function(){var block={newline:/^\n+/,code:/^( {4}[^\n]+\n*)+/,fences:noop,hr:/^( *[-*_]){3,} *(?:\n+|$)/,heading:/^ *(#{1,6}) *([^\n]+?) *#* *(?:\n+|$)/,nptable:noop,lheading:/^([^\n]+)\n *(=|-){2,} *(?:\n+|$)/,blockquote:/^( *>[^\n]+(\n(?!def)[^\n]+)*\n*)+/,list:/^( *)(bull) [\s\S]+?(?:hr|def|\n{2,}(?! )(?!\1bull )\n*|\s*$)/,html:/^ *(?:comment|closed|closing) *(?:\n{2,}|\s*$)/,def:/^ *\[([^\]]+)\]: *]+)>?(?: +["(]([^\n]+)[")])? *(?:\n+|$)/,table:noop,paragraph:/^((?:[^\n]+\n?(?!hr|heading|lheading|blockquote|tag|def))+)\n*/,text:/^[^\n]+/};block.bullet=/(?:[*+-]|\d+\.)/;block.item=/^( *)(bull) [^\n]*(?:\n(?!\1bull )[^\n]*)*/;block.item=replace(block.item,"gm")(/bull/g,block.bullet)();block.list=replace(block.list)(/bull/g,block.bullet)("hr","\\n+(?=\\1?(?:[-*_] *){3,}(?:\\n+|$))")("def","\\n+(?="+block.def.source+")")();block.blockquote=replace(block.blockquote)("def",block.def)();block._tag="(?!(?:"+"a|em|strong|small|s|cite|q|dfn|abbr|data|time|code"+"|var|samp|kbd|sub|sup|i|b|u|mark|ruby|rt|rp|bdi|bdo"+"|span|br|wbr|ins|del|img)\\b)\\w+(?!:/|[^\\w\\s@]*@)\\b";block.html=replace(block.html)("comment",//)("closed",/<(tag)[\s\S]+?<\/\1>/)("closing",/])*?>/)(/tag/g,block._tag)();block.paragraph=replace(block.paragraph)("hr",block.hr)("heading",block.heading)("lheading",block.lheading)("blockquote",block.blockquote)("tag","<"+block._tag)("def",block.def)();block.normal=merge({},block);block.gfm=merge({},block.normal,{fences:/^ *(`{3,}|~{3,}) *(\S+)? *\n([\s\S]+?)\s*\1 *(?:\n+|$)/,paragraph:/^/});block.gfm.paragraph=replace(block.paragraph)("(?!","(?!"+block.gfm.fences.source.replace("\\1","\\2")+"|"+block.list.source.replace("\\1","\\3")+"|")();block.tables=merge({},block.gfm,{nptable:/^ *(\S.*\|.*)\n *([-:]+ *\|[-| :]*)\n((?:.*\|.*(?:\n|$))*)\n*/,table:/^ *\|(.+)\n *\|( *[-:]+[-| :]*)\n((?: *\|.*(?:\n|$))*)\n*/});function Lexer(options){this.tokens=[];this.tokens.links={};this.options=options||marked.defaults;this.rules=block.normal;if(this.options.gfm){if(this.options.tables){this.rules=block.tables}else{this.rules=block.gfm}}}Lexer.rules=block;Lexer.lex=function(src,options){var lexer=new Lexer(options);return lexer.lex(src)};Lexer.prototype.lex=function(src){src=src.replace(/\r\n|\r/g,"\n").replace(/\t/g," ").replace(/\u00a0/g," ").replace(/\u2424/g,"\n");return this.token(src,true)};Lexer.prototype.token=function(src,top,bq){var src=src.replace(/^ +$/gm,""),next,loose,cap,bull,b,item,space,i,l;while(src){if(cap=this.rules.newline.exec(src)){src=src.substring(cap[0].length);if(cap[0].length>1){this.tokens.push({type:"space"})}}if(cap=this.rules.code.exec(src)){src=src.substring(cap[0].length);cap=cap[0].replace(/^ {4}/gm,"");this.tokens.push({type:"code",text:!this.options.pedantic?cap.replace(/\n+$/,""):cap});continue}if(cap=this.rules.fences.exec(src)){src=src.substring(cap[0].length);this.tokens.push({type:"code",lang:cap[2],text:cap[3]});continue}if(cap=this.rules.heading.exec(src)){src=src.substring(cap[0].length);this.tokens.push({type:"heading",depth:cap[1].length,text:cap[2]});continue}if(top&&(cap=this.rules.nptable.exec(src))){src=src.substring(cap[0].length);item={type:"table",header:cap[1].replace(/^ *| *\| *$/g,"").split(/ *\| */),align:cap[2].replace(/^ *|\| *$/g,"").split(/ *\| */),cells:cap[3].replace(/\n$/,"").split("\n")};for(i=0;i ?/gm,"");this.token(cap,top,true);this.tokens.push({type:"blockquote_end"});continue}if(cap=this.rules.list.exec(src)){src=src.substring(cap[0].length);bull=cap[2];this.tokens.push({type:"list_start",ordered:bull.length>1});cap=cap[0].match(this.rules.item);next=false;l=cap.length;i=0;for(;i1&&b.length>1)){src=cap.slice(i+1).join("\n")+src;i=l-1}}loose=next||/\n\n(?!\s*$)/.test(item);if(i!==l-1){next=item.charAt(item.length-1)==="\n";if(!loose)loose=next}this.tokens.push({type:loose?"loose_item_start":"list_item_start"});this.token(item,false,bq);this.tokens.push({type:"list_item_end"})}this.tokens.push({type:"list_end"});continue}if(cap=this.rules.html.exec(src)){src=src.substring(cap[0].length);this.tokens.push({type:this.options.sanitize?"paragraph":"html",pre:cap[1]==="pre"||cap[1]==="script"||cap[1]==="style",text:cap[0]});continue}if(!bq&&top&&(cap=this.rules.def.exec(src))){src=src.substring(cap[0].length);this.tokens.links[cap[1].toLowerCase()]={href:cap[2],title:cap[3]};continue}if(top&&(cap=this.rules.table.exec(src))){src=src.substring(cap[0].length);item={type:"table",header:cap[1].replace(/^ *| *\| *$/g,"").split(/ *\| */),align:cap[2].replace(/^ *|\| *$/g,"").split(/ *\| */),cells:cap[3].replace(/(?: *\| *)?\n$/,"").split("\n")};for(i=0;i])/,autolink:/^<([^ >]+(@|:\/)[^ >]+)>/,url:noop,tag:/^|^<\/?\w+(?:"[^"]*"|'[^']*'|[^'">])*?>/,link:/^!?\[(inside)\]\(href\)/,reflink:/^!?\[(inside)\]\s*\[([^\]]*)\]/,nolink:/^!?\[((?:\[[^\]]*\]|[^\[\]])*)\]/,strong:/^__([\s\S]+?)__(?!_)|^\*\*([\s\S]+?)\*\*(?!\*)/,em:/^\b_((?:__|[\s\S])+?)_\b|^\*((?:\*\*|[\s\S])+?)\*(?!\*)/,code:/^(`+)\s*([\s\S]*?[^`])\s*\1(?!`)/,br:/^ {2,}\n(?!\s*$)/,del:noop,text:/^[\s\S]+?(?=[\\?(?:\s+['"]([\s\S]*?)['"])?\s*/;inline.link=replace(inline.link)("inside",inline._inside)("href",inline._href)();inline.reflink=replace(inline.reflink)("inside",inline._inside)();inline.normal=merge({},inline);inline.pedantic=merge({},inline.normal,{strong:/^__(?=\S)([\s\S]*?\S)__(?!_)|^\*\*(?=\S)([\s\S]*?\S)\*\*(?!\*)/,em:/^_(?=\S)([\s\S]*?\S)_(?!_)|^\*(?=\S)([\s\S]*?\S)\*(?!\*)/});inline.gfm=merge({},inline.normal,{escape:replace(inline.escape)("])","~|])")(),url:/^(https?:\/\/[^\s<]+[^<.,:;"')\]\s])/,del:/^~~(?=\S)([\s\S]*?\S)~~/,text:replace(inline.text)("]|","~]|")("|","|https?://|")()});inline.breaks=merge({},inline.gfm,{br:replace(inline.br)("{2,}","*")(),text:replace(inline.gfm.text)("{2,}","*")()});function InlineLexer(links,options){this.options=options||marked.defaults;this.links=links;this.rules=inline.normal;this.renderer=this.options.renderer||new Renderer;this.renderer.options=this.options;if(!this.links){throw new Error("Tokens array requires a `links` property.")}if(this.options.gfm){if(this.options.breaks){this.rules=inline.breaks}else{this.rules=inline.gfm}}else if(this.options.pedantic){this.rules=inline.pedantic}}InlineLexer.rules=inline;InlineLexer.output=function(src,links,options){var inline=new InlineLexer(links,options);return inline.output(src)};InlineLexer.prototype.output=function(src){var out="",link,text,href,cap;while(src){if(cap=this.rules.escape.exec(src)){src=src.substring(cap[0].length);out+=cap[1];continue}if(cap=this.rules.autolink.exec(src)){src=src.substring(cap[0].length);if(cap[2]==="@"){text=cap[1].charAt(6)===":"?this.mangle(cap[1].substring(7)):this.mangle(cap[1]);href=this.mangle("mailto:")+text}else{text=escape(cap[1]);href=text}out+=this.renderer.link(href,null,text);continue}if(!this.inLink&&(cap=this.rules.url.exec(src))){src=src.substring(cap[0].length);text=escape(cap[1]);href=text;out+=this.renderer.link(href,null,text);continue}if(cap=this.rules.tag.exec(src)){if(!this.inLink&&/^/i.test(cap[0])){this.inLink=false}src=src.substring(cap[0].length);out+=this.options.sanitize?escape(cap[0]):cap[0];continue}if(cap=this.rules.link.exec(src)){src=src.substring(cap[0].length);this.inLink=true;out+=this.outputLink(cap,{href:cap[2],title:cap[3]});this.inLink=false;continue}if((cap=this.rules.reflink.exec(src))||(cap=this.rules.nolink.exec(src))){src=src.substring(cap[0].length);link=(cap[2]||cap[1]).replace(/\s+/g," ");link=this.links[link.toLowerCase()];if(!link||!link.href){out+=cap[0].charAt(0);src=cap[0].substring(1)+src;continue}this.inLink=true;out+=this.outputLink(cap,link);this.inLink=false;continue}if(cap=this.rules.strong.exec(src)){src=src.substring(cap[0].length);out+=this.renderer.strong(this.output(cap[2]||cap[1]));continue}if(cap=this.rules.em.exec(src)){src=src.substring(cap[0].length);out+=this.renderer.em(this.output(cap[2]||cap[1]));continue}if(cap=this.rules.code.exec(src)){src=src.substring(cap[0].length);out+=this.renderer.codespan(escape(cap[2],true));continue}if(cap=this.rules.br.exec(src)){src=src.substring(cap[0].length);out+=this.renderer.br();continue}if(cap=this.rules.del.exec(src)){src=src.substring(cap[0].length);out+=this.renderer.del(this.output(cap[1]));continue}if(cap=this.rules.text.exec(src)){src=src.substring(cap[0].length);out+=escape(this.smartypants(cap[0]));continue}if(src){throw new Error("Infinite loop on byte: "+src.charCodeAt(0))}}return out};InlineLexer.prototype.outputLink=function(cap,link){var href=escape(link.href),title=link.title?escape(link.title):null;return cap[0].charAt(0)!=="!"?this.renderer.link(href,title,this.output(cap[1])):this.renderer.image(href,title,escape(cap[1]))};InlineLexer.prototype.smartypants=function(text){if(!this.options.smartypants)return text;return text.replace(/--/g,"—").replace(/(^|[-\u2014/(\[{"\s])'/g,"$1‘").replace(/'/g,"’").replace(/(^|[-\u2014/(\[{\u2018\s])"/g,"$1“").replace(/"/g,"”").replace(/\.{3}/g,"…")};InlineLexer.prototype.mangle=function(text){var out="",l=text.length,i=0,ch;for(;i.5){ch="x"+ch.toString(16)}out+="&#"+ch+";"}return out};function Renderer(options){this.options=options||{}}Renderer.prototype.code=function(code,lang,escaped){if(this.options.highlight){var out=this.options.highlight(code,lang);if(out!=null&&out!==code){escaped=true;code=out}}if(!lang){return""+(escaped?code:escape(code,true))+"\n
"}return''+(escaped?code:escape(code,true))+"\n
\n"};Renderer.prototype.blockquote=function(quote){return"\n"+quote+"
\n"};Renderer.prototype.html=function(html){return html};Renderer.prototype.heading=function(text,level,raw){return" ![](/_reactor/wrench.png "\\"Debug")
"
+ writeBS " "
+ writeLink filePath filePath
+ writeBS "