elm-rails 0.2.0 → 0.2.1

data/test/rails4.2/elm-stuff/packages/elm-lang/html/2.0.0/src/Html/Events.elm

@@ -1,269 +0,0 @@
-module Html.Events exposing
-  ( onClick, onDoubleClick
-  , onMouseDown, onMouseUp
-  , onMouseEnter, onMouseLeave
-  , onMouseOver, onMouseOut
-  , onInput, onCheck, onSubmit
-  , onBlur, onFocus
-  , on, onWithOptions, Options, defaultOptions
-  , targetValue, targetChecked, keyCode
-  )
-
-{-|
-It is often helpful to create an [Union Type][] so you can have many different kinds
-of events as seen in the [TodoMVC][] example.
-
-[Union Type]: http://elm-lang.org/learn/Union-Types.elm
-[TodoMVC]: https://github.com/evancz/elm-todomvc/blob/master/Todo.elm
-
-# Mouse Helpers
-@docs onClick, onDoubleClick,
-      onMouseDown, onMouseUp,
-      onMouseEnter, onMouseLeave,
-      onMouseOver, onMouseOut
-
-# Form Helpers
-@docs onInput, onCheck, onSubmit
-
-# Focus Helpers
-@docs onBlur, onFocus
-
-# Custom Event Handlers
-@docs on, onWithOptions, Options, defaultOptions
-
-# Custom Decoders
-@docs targetValue, targetChecked, keyCode
--}
-
-import Html exposing (Attribute)
-import Json.Decode as Json
-import VirtualDom
-
-
-
--- MOUSE EVENTS
-
-
-{-|-}
-onClick : msg -> Attribute msg
-onClick msg =
-  on "click" (Json.succeed msg)
-
-
-{-|-}
-onDoubleClick : msg -> Attribute msg
-onDoubleClick msg =
-  on "dblclick" (Json.succeed msg)
-
-
-{-|-}
-onMouseDown : msg -> Attribute msg
-onMouseDown msg =
-  on "mousedown" (Json.succeed msg)
-
-
-{-|-}
-onMouseUp : msg -> Attribute msg
-onMouseUp msg =
-  on "mouseup" (Json.succeed msg)
-
-
-{-|-}
-onMouseEnter : msg -> Attribute msg
-onMouseEnter msg =
-  on "mouseenter" (Json.succeed msg)
-
-
-{-|-}
-onMouseLeave : msg -> Attribute msg
-onMouseLeave msg =
-  on "mouseleave" (Json.succeed msg)
-
-
-{-|-}
-onMouseOver : msg -> Attribute msg
-onMouseOver msg =
-  on "mouseover" (Json.succeed msg)
-
-
-{-|-}
-onMouseOut : msg -> Attribute msg
-onMouseOut msg =
-  on "mouseout" (Json.succeed msg)
-
-
-
--- FORM EVENTS
-
-
-{-| Capture [input](https://developer.mozilla.org/en-US/docs/Web/Events/input)
-events for things like text fields or text areas.
-
-It grabs the **string** value at `event.target.value`, so it will not work if
-you need some other type of information. For example, if you want to track 
-inputs on a range slider, make a custom handler with [`on`](#on).
-
-For more details on how `onInput` works, check out [targetValue](#targetValue).
--}
-onInput : (String -> msg) -> Attribute msg
-onInput tagger =
-  on "input" (Json.map tagger targetValue)
-
-
-{-| Capture [change](https://developer.mozilla.org/en-US/docs/Web/Events/change)
-events on checkboxes. It will grab the boolean value from `event.target.checked`
-on any input event.
-
-Check out [targetChecked](#targetChecked) for more details on how this works.
--}
-onCheck : (Bool -> msg) -> Attribute msg
-onCheck tagger =
-  on "change" (Json.map tagger targetChecked)
-
-
-{-| Capture a [submit](https://developer.mozilla.org/en-US/docs/Web/Events/submit)
-event with [`preventDefault`](https://developer.mozilla.org/en-US/docs/Web/API/Event/preventDefault)
-in order to prevent the form from changing the page’s location. If you need
-different behavior, use `onWithOptions` to create a customized version of
-`onSubmit`.
--}
-onSubmit : msg -> Attribute msg
-onSubmit msg =
-  onWithOptions "submit" onSubmitOptions (Json.succeed msg)
-
-
-onSubmitOptions : Options
-onSubmitOptions =
-  { defaultOptions | preventDefault = True }
-
-
--- FOCUS EVENTS
-
-
-{-|-}
-onBlur : msg -> Attribute msg
-onBlur msg =
-  on "blur" (Json.succeed msg)
-
-
-{-|-}
-onFocus : msg -> Attribute msg
-onFocus msg =
-  on "focus" (Json.succeed msg)
-
-
-
--- CUSTOM EVENTS
-
-
-{-| Create a custom event listener. Normally this will not be necessary, but
-you have the power! Here is how `onClick` is defined for example:
-
-    import Json.Decode as Json
-
-    onClick : msg -> Attribute msg
-    onClick message =
-      on "click" (Json.succeed message)
-
-The first argument is the event name in the same format as with JavaScript's
-[`addEventListener`][aEL] function.
-
-The second argument is a JSON decoder. Read more about these [here][decoder].
-When an event occurs, the decoder tries to turn the event object into an Elm
-value. If successful, the value is routed to your `update` function. In the
-case of `onClick` we always just succeed with the given `message`.
-
-If this is confusing, work through the [Elm Architecture Tutorial][tutorial].
-It really does help!
-
-[aEL]: https://developer.mozilla.org/en-US/docs/Web/API/EventTarget/addEventListener
-[decoder]: http://package.elm-lang.org/packages/elm-lang/core/latest/Json-Decode
-[tutorial]: https://github.com/evancz/elm-architecture-tutorial/
--}
-on : String -> Json.Decoder msg -> Attribute msg
-on =
-  VirtualDom.on
-
-
-{-| Same as `on` but you can set a few options.
--}
-onWithOptions : String -> Options -> Json.Decoder msg -> Attribute msg
-onWithOptions =
-  VirtualDom.onWithOptions
-
-
-{-| Options for an event listener. If `stopPropagation` is true, it means the
-event stops traveling through the DOM so it will not trigger any other event
-listeners. If `preventDefault` is true, any built-in browser behavior related
-to the event is prevented. For example, this is used with touch events when you
-want to treat them as gestures of your own, not as scrolls.
--}
-type alias Options =
-    { stopPropagation : Bool
-    , preventDefault : Bool
-    }
-
-
-{-| Everything is `False` by default.
-
-    defaultOptions =
-        { stopPropagation = False
-        , preventDefault = False
-        }
--}
-defaultOptions : Options
-defaultOptions =
-  VirtualDom.defaultOptions
-
-
-
--- COMMON DECODERS
-
-
-{-| A `Json.Decoder` for grabbing `event.target.value`. We use this to define
-`onInput` as follows:
-
-    import Json.Decode as Json
-
-    onInput : (String -> msg) -> Attribute msg
-    onInput tagger =
-      on "input" (Json.map tagger targetValue)
-
-You probably will never need this, but hopefully it gives some insights into
-how to make custom event handlers.
--}
-targetValue : Json.Decoder String
-targetValue =
-  Json.at ["target", "value"] Json.string
-
-
-{-| A `Json.Decoder` for grabbing `event.target.checked`. We use this to define
-`onCheck` as follows:
-
-    import Json.Decode as Json
-
-    onCheck : (Bool -> msg) -> Attribute msg
-    onCheck tagger =
-      on "input" (Json.map tagger targetChecked)
--}
-targetChecked : Json.Decoder Bool
-targetChecked =
-  Json.at ["target", "checked"] Json.bool
-
-
-{-| A `Json.Decoder` for grabbing `event.keyCode`. This helps you define
-keyboard listeners like this:
-
-    import Json.Decode as Json
-
-    onKeyUp : (Int -> msg) -> Attribute msg
-    onKeyUp tagger =
-      on "keyup" (Json.map tagger keyCode)
-
-**Note:** It looks like the spec is moving away from `event.keyCode` and
-towards `event.key`. Once this is supported in more browsers, we may add
-helpers here for `onKeyUp`, `onKeyDown`, `onKeyPress`, etc.
--}
-keyCode : Json.Decoder Int
-keyCode =
-  Json.field "keyCode" Json.int

data/test/rails4.2/elm-stuff/packages/elm-lang/html/2.0.0/src/Html/Keyed.elm

@@ -1,48 +0,0 @@
-module Html.Keyed exposing
-  ( node
-  , ol
-  , ul
-  )
-{-| A keyed node helps optimize cases where children are getting added, moved,
-removed, etc. Common examples include:
-
-  - The user can delete items from a list.
-  - The user can create new items in a list.
-  - You can sort a list based on name or date or whatever.
-
-When you use a keyed node, every child is paired with a string identifier. This
-makes it possible for the underlying diffing algorithm to reuse nodes more
-efficiently.
-
-# Keyed Nodes
-@docs node
-
-# Commonly Keyed Nodes
-@docs ol, ul
--}
-
-
-import Html exposing (Attribute, Html)
-import VirtualDom
-
-
-{-| Works just like `Html.node`, but you add a unique identifier to each child
-node. You want this when you have a list of nodes that is changing: adding
-nodes, removing nodes, etc. In these cases, the unique identifiers help make
-the DOM modifications more efficient.
--}
-node : String -> List (Attribute msg) -> List ( String, Html msg ) -> Html msg
-node =
-  VirtualDom.keyedNode
-
-
-{-|-}
-ol : List (Attribute msg) -> List ( String, Html msg ) -> Html msg
-ol =
-  node "ol"
-
-
-{-|-}
-ul : List (Attribute msg) -> List ( String, Html msg ) -> Html msg
-ul =
-  node "ul"

data/test/rails4.2/elm-stuff/packages/elm-lang/html/2.0.0/src/Html/Lazy.elm

@@ -1,48 +0,0 @@
-module Html.Lazy exposing
-  ( lazy, lazy2, lazy3
-  )
-
-{-| Since all Elm functions are pure we have a guarantee that the same input
-will always result in the same output. This module gives us tools to be lazy
-about building `Html` that utilize this fact.
-
-Rather than immediately applying functions to their arguments, the `lazy`
-functions just bundle the function and arguments up for later. When diffing
-the old and new virtual DOM, it checks to see if all the arguments are equal.
-If so, it skips calling the function!
-
-This is a really cheap test and often makes things a lot faster, but definitely
-benchmark to be sure!
-
-@docs lazy, lazy2, lazy3
--}
-
-import Html exposing (Html)
-import VirtualDom
-
-
-{-| A performance optimization that delays the building of virtual DOM nodes.
-
-Calling `(view model)` will definitely build some virtual DOM, perhaps a lot of
-it. Calling `(lazy view model)` delays the call until later. During diffing, we
-can check to see if `model` is referentially equal to the previous value used,
-and if so, we just stop. No need to build up the tree structure and diff it,
-we know if the input to `view` is the same, the output must be the same!
--}
-lazy : (a -> Html msg) -> a -> Html msg
-lazy =
-  VirtualDom.lazy
-
-
-{-| Same as `lazy` but checks on two arguments.
--}
-lazy2 : (a -> b -> Html msg) -> a -> b -> Html msg
-lazy2 =
-  VirtualDom.lazy2
-
-
-{-| Same as `lazy` but checks on three arguments.
--}
-lazy3 : (a -> b -> c -> Html msg) -> a -> b -> c -> Html msg
-lazy3 =
-  VirtualDom.lazy3

data/test/rails4.2/elm-stuff/packages/elm-lang/virtual-dom/2.0.3/LICENSE

@@ -1,30 +0,0 @@
-Copyright (c) 2016-present, Evan Czaplicki
-
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are met:
-
-    * Redistributions of source code must retain the above copyright
-      notice, this list of conditions and the following disclaimer.
-
-    * Redistributions in binary form must reproduce the above
-      copyright notice, this list of conditions and the following
-      disclaimer in the documentation and/or other materials provided
-      with the distribution.
-
-    * Neither the name of Evan Czaplicki nor the names of other
-      contributors may be used to endorse or promote products derived
-      from this software without specific prior written permission.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
-OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
-THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
-OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

data/test/rails4.2/elm-stuff/packages/elm-lang/virtual-dom/2.0.3/README.md

@@ -1,5 +0,0 @@
-# Virtual DOM for Elm
-
-A virtual DOM implementation that backs Elm's core libraries for [HTML](http://package.elm-lang.org/packages/elm-lang/html/latest/) and [SVG](http://package.elm-lang.org/packages/elm-lang/svg/latest/). You should almost certainly use those higher-level libraries directly.
-
-It is pretty fast! You can read about that [here](http://elm-lang.org/blog/blazing-fast-html-round-two).

data/test/rails4.2/elm-stuff/packages/elm-lang/virtual-dom/2.0.3/elm-package.json

@@ -1,17 +0,0 @@
-{
-    "version": "2.0.3",
-    "summary": "Core virtual DOM implementation, basis for HTML and SVG libraries",
-    "repository": "https://github.com/elm-lang/virtual-dom.git",
-    "license": "BSD3",
-    "source-directories": [
-        "src"
-    ],
-    "exposed-modules": [
-        "VirtualDom"
-    ],
-    "native-modules": true,
-    "dependencies": {
-        "elm-lang/core": "5.0.0 <= v < 6.0.0"
-    },
-    "elm-version": "0.18.0 <= v < 0.19.0"
-}

data/test/rails4.2/elm-stuff/packages/elm-lang/virtual-dom/2.0.3/src/Native/Debug.js

@@ -1,280 +0,0 @@
-var _elm_lang$virtual_dom$Native_Debug = function() {
-
-
-// IMPORT / EXPORT
-
-function unsafeCoerce(value)
-{
-	return value;
-}
-
-var upload = _elm_lang$core$Native_Scheduler.nativeBinding(function(callback)
-{
-	var element = document.createElement('input');
-	element.setAttribute('type', 'file');
-	element.setAttribute('accept', 'text/json');
-	element.style.display = 'none';
-	element.addEventListener('change', function(event)
-	{
-		var fileReader = new FileReader();
-		fileReader.onload = function(e)
-		{
-			callback(_elm_lang$core$Native_Scheduler.succeed(e.target.result));
-		};
-		fileReader.readAsText(event.target.files[0]);
-		document.body.removeChild(element);
-	});
-	document.body.appendChild(element);
-	element.click();
-});
-
-function download(historyLength, json)
-{
-	return _elm_lang$core$Native_Scheduler.nativeBinding(function(callback)
-	{
-		var fileName = 'history-' + historyLength + '.txt';
-		var jsonString = JSON.stringify(json);
-		var mime = 'text/plain;charset=utf-8';
-		var done = _elm_lang$core$Native_Scheduler.succeed(_elm_lang$core$Native_Utils.Tuple0);
-
-		// for IE10+
-		if (navigator.msSaveBlob)
-		{
-			navigator.msSaveBlob(new Blob([jsonString], {type: mime}), fileName);
-			return callback(done);
-		}
-
-		// for HTML5
-		var element = document.createElement('a');
-		element.setAttribute('href', 'data:' + mime + ',' + encodeURIComponent(jsonString));
-		element.setAttribute('download', fileName);
-		element.style.display = 'none';
-		document.body.appendChild(element);
-		element.click();
-		document.body.removeChild(element);
-		callback(done);
-	});
-}
-
-
-// POPOUT
-
-function messageToString(value)
-{
-	switch (typeof value)
-	{
-		case 'boolean':
-			return value ? 'True' : 'False';
-		case 'number':
-			return value + '';
-		case 'string':
-			return '"' + addSlashes(value, false) + '"';
-	}
-	if (value instanceof String)
-	{
-		return '\'' + addSlashes(value, true) + '\'';
-	}
-	if (typeof value !== 'object' || value === null || !('ctor' in value))
-	{
-		return '…';
-	}
-
-	var ctorStarter = value.ctor.substring(0, 5);
-	if (ctorStarter === '_Tupl' || ctorStarter === '_Task')
-	{
-		return '…'
-	}
-	if (['_Array', '<decoder>', '_Process', '::', '[]', 'Set_elm_builtin', 'RBNode_elm_builtin', 'RBEmpty_elm_builtin'].indexOf(value.ctor) >= 0)
-	{
-		return '…';
-	}
-
-	var keys = Object.keys(value);
-	switch (keys.length)
-	{
-		case 1:
-			return value.ctor;
-		case 2:
-			return value.ctor + ' ' + messageToString(value._0);
-		default:
-			return value.ctor + ' … ' + messageToString(value[keys[keys.length - 1]]);
-	}
-}
-
-
-function primitive(str)
-{
-	return { ctor: 'Primitive', _0: str };
-}
-
-
-function init(value)
-{
-	var type = typeof value;
-
-	if (type === 'boolean')
-	{
-		return {
-			ctor: 'Constructor',
-			_0: _elm_lang$core$Maybe$Just(value ? 'True' : 'False'),
-			_1: true,
-			_2: _elm_lang$core$Native_List.Nil
-		};
-	}
-
-	if (type === 'number')
-	{
-		return primitive(value + '');
-	}
-
-	if (type === 'string')
-	{
-		return { ctor: 'S', _0: '"' + addSlashes(value, false) + '"' };
-	}
-
-	if (value instanceof String)
-	{
-		return { ctor: 'S', _0: "'" + addSlashes(value, true) + "'" };
-	}
-
-	if (value instanceof Date)
-	{
-		return primitive('<' + value.toString() + '>');
-	}
-
-	if (value === null)
-	{
-		return primitive('XXX');
-	}
-
-	if (type === 'object' && 'ctor' in value)
-	{
-		var ctor = value.ctor;
-
-		if (ctor === '::' || ctor === '[]')
-		{
-			return {
-				ctor: 'Sequence',
-				_0: {ctor: 'ListSeq'},
-				_1: true,
-				_2: A2(_elm_lang$core$List$map, init, value)
-			};
-		}
-
-		if (ctor === 'Set_elm_builtin')
-		{
-			return {
-				ctor: 'Sequence',
-				_0: {ctor: 'SetSeq'},
-				_1: true,
-				_2: A3(_elm_lang$core$Set$foldr, initCons, _elm_lang$core$Native_List.Nil, value)
-			};
-		}
-
-		if (ctor === 'RBNode_elm_builtin' || ctor == 'RBEmpty_elm_builtin')
-		{
-			return {
-				ctor: 'Dictionary',
-				_0: true,
-				_1: A3(_elm_lang$core$Dict$foldr, initKeyValueCons, _elm_lang$core$Native_List.Nil, value)
-			};
-		}
-
-		if (ctor === '_Array')
-		{
-			return {
-				ctor: 'Sequence',
-				_0: {ctor: 'ArraySeq'},
-				_1: true,
-				_2: A3(_elm_lang$core$Array$foldr, initCons, _elm_lang$core$Native_List.Nil, value)
-			};
-		}
-
-		var ctorStarter = value.ctor.substring(0, 5);
-		if (ctorStarter === '_Task')
-		{
-			return primitive('<task>');
-		}
-
-		if (ctor === '<decoder>')
-		{
-			return primitive(ctor);
-		}
-
-		if (ctor === '_Process')
-		{
-			return primitive('<process>');
-		}
-
-		var list = _elm_lang$core$Native_List.Nil;
-		for (var i in value)
-		{
-			if (i === 'ctor') continue;
-			list = _elm_lang$core$Native_List.Cons(init(value[i]), list);
-		}
-		return {
-			ctor: 'Constructor',
-			_0: ctorStarter === '_Tupl' ? _elm_lang$core$Maybe$Nothing : _elm_lang$core$Maybe$Just(ctor),
-			_1: true,
-			_2: _elm_lang$core$List$reverse(list)
-		};
-	}
-
-	if (type === 'object')
-	{
-		var dict = _elm_lang$core$Dict$empty;
-		for (var i in value)
-		{
-			dict = A3(_elm_lang$core$Dict$insert, i, init(value[i]), dict);
-		}
-		return { ctor: 'Record', _0: true, _1: dict };
-	}
-
-	return primitive('XXX');
-}
-
-var initCons = F2(initConsHelp);
-
-function initConsHelp(value, list)
-{
-	return _elm_lang$core$Native_List.Cons(init(value), list);
-}
-
-var initKeyValueCons = F3(initKeyValueConsHelp);
-
-function initKeyValueConsHelp(key, value, list)
-{
-	return _elm_lang$core$Native_List.Cons(
-		_elm_lang$core$Native_Utils.Tuple2(init(key), init(value)),
-		list
-	);
-}
-
-function addSlashes(str, isChar)
-{
-	var s = str.replace(/\\/g, '\\\\')
-			  .replace(/\n/g, '\\n')
-			  .replace(/\t/g, '\\t')
-			  .replace(/\r/g, '\\r')
-			  .replace(/\v/g, '\\v')
-			  .replace(/\0/g, '\\0');
-	if (isChar)
-	{
-		return s.replace(/\'/g, '\\\'');
-	}
-	else
-	{
-		return s.replace(/\"/g, '\\"');
-	}
-}
-
-
-return {
-	upload: upload,
-	download: F2(download),
-	unsafeCoerce: unsafeCoerce,
-	messageToString: messageToString,
-	init: init
-}
-
-}();