elm-rails 0.1.2 → 0.2.0

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

@@ -0,0 +1,331 @@
+module VirtualDom exposing
+  ( Node
+  , text, node
+  , Property, property, attribute, attributeNS, mapProperty
+  , style
+  , on, onWithOptions, Options, defaultOptions
+  , map
+  , lazy, lazy2, lazy3
+  , keyedNode
+  , program, programWithFlags
+  )
+
+{-| API to the core diffing algorithm. Can serve as a foundation for libraries
+that expose more helper functions for HTML or SVG.
+
+# Create
+@docs Node, text, node
+
+# Declare Properties and Attributes
+@docs Property, property, attribute, attributeNS, mapProperty
+
+# Styles
+@docs style
+
+# Events
+@docs on, onWithOptions, Options, defaultOptions
+
+# Routing Messages
+@docs map
+
+# Optimizations
+@docs lazy, lazy2, lazy3, keyedNode
+
+# Programs
+@docs program, programWithFlags
+
+-}
+
+import Json.Decode as Json
+import Native.VirtualDom
+import VirtualDom.Debug as Debug
+
+
+{-| An immutable chunk of data representing a DOM node. This can be HTML or SVG.
+-}
+type Node msg = Node
+
+
+{-| Create a DOM node with a tag name, a list of HTML properties that can
+include styles and event listeners, a list of CSS properties like `color`, and
+a list of child nodes.
+
+    import Json.Encode as Json
+
+    hello : Node msg
+    hello =
+      node "div" [] [ text "Hello!" ]
+
+    greeting : Node msg
+    greeting =
+      node "div"
+        [ property "id" (Json.string "greeting") ]
+        [ text "Hello!" ]
+-}
+node : String -> List (Property msg) -> List (Node msg) -> Node msg
+node =
+  Native.VirtualDom.node
+
+
+{-| Just put plain text in the DOM. It will escape the string so that it appears
+exactly as you specify.
+
+    text "Hello World!"
+-}
+text : String -> Node msg
+text =
+  Native.VirtualDom.text
+
+
+{-| This function is useful when nesting components with [the Elm
+Architecture](https://github.com/evancz/elm-architecture-tutorial/). It lets
+you transform the messages produced by a subtree.
+
+Say you have a node named `button` that produces `()` values when it is
+clicked. To get your model updating properly, you will probably want to tag
+this `()` value like this:
+
+    type Msg = Click | ...
+
+    update msg model =
+      case msg of
+        Click ->
+          ...
+
+    view model =
+      map (\_ -> Click) button
+
+So now all the events produced by `button` will be transformed to be of type
+`Msg` so they can be handled by your update function!
+-}
+map : (a -> msg) -> Node a -> Node msg
+map =
+  Native.VirtualDom.map
+
+
+
+-- PROPERTIES
+
+
+{-| When using HTML and JS, there are two ways to specify parts of a DOM node.
+
+  1. Attributes — You can set things in HTML itself. So the `class`
+     in `<div class="greeting"></div>` is called an *attribute*.
+
+  2. Properties &mdash; You can also set things in JS. So the `className`
+     in `div.className = 'greeting'` is called a *property*.
+
+So the `class` attribute corresponds to the `className` property. At first
+glance, perhaps this distinction is defensible, but it gets much crazier.
+*There is not always a one-to-one mapping between attributes and properties!*
+Yes, that is a true fact. Sometimes an attribute exists, but there is no
+corresponding property. Sometimes changing an attribute does not change the
+underlying property. For example, as of this writing, the `webkit-playsinline`
+attribute can be used in HTML, but there is no corresponding property!
+-}
+type Property msg = Property
+
+
+{-| Create arbitrary *properties*.
+
+    import JavaScript.Encode as Json
+
+    greeting : Html
+    greeting =
+        node "div" [ property "className" (Json.string "greeting") ] [
+          text "Hello!"
+        ]
+
+Notice that you must give the *property* name, so we use `className` as it
+would be in JavaScript, not `class` as it would appear in HTML.
+-}
+property : String -> Json.Value -> Property msg
+property =
+  Native.VirtualDom.property
+
+
+{-| Create arbitrary HTML *attributes*. Maps onto JavaScript’s `setAttribute`
+function under the hood.
+
+    greeting : Html
+    greeting =
+        node "div" [ attribute "class" "greeting" ] [
+          text "Hello!"
+        ]
+
+Notice that you must give the *attribute* name, so we use `class` as it would
+be in HTML, not `className` as it would appear in JS.
+-}
+attribute : String -> String -> Property msg
+attribute =
+  Native.VirtualDom.attribute
+
+
+{-| Would you believe that there is another way to do this?! This corresponds
+to JavaScript's `setAttributeNS` function under the hood. It is doing pretty
+much the same thing as `attribute` but you are able to have "namespaced"
+attributes. This is used in some SVG stuff at least.
+-}
+attributeNS : String -> String -> String -> Property msg
+attributeNS =
+  Native.VirtualDom.attributeNS
+
+
+{-| Transform the messages produced by a `Property`.
+-}
+mapProperty : (a -> b) -> Property a -> Property b
+mapProperty =
+  Native.VirtualDom.mapProperty
+
+
+{-| Specify a list of styles.
+
+    myStyle : Property msg
+    myStyle =
+      style
+        [ ("backgroundColor", "red")
+        , ("height", "90px")
+        , ("width", "100%")
+        ]
+
+    greeting : Node msg
+    greeting =
+      node "div" [ myStyle ] [ text "Hello!" ]
+
+-}
+style : List (String, String) -> Property msg
+style =
+  Native.VirtualDom.style
+
+
+
+-- EVENTS
+
+
+{-| Create a custom event listener.
+
+    import Json.Decode as Json
+
+    onClick : msg -> Property msg
+    onClick msg =
+      on "click" (Json.succeed msg)
+
+You first specify the name of the event in the same format as with JavaScript’s
+`addEventListener`. Next you give a JSON decoder, which lets you pull
+information out of the event object. If the decoder succeeds, it will produce
+a message and route it to your `update` function.
+-}
+on : String -> Json.Decoder msg -> Property msg
+on eventName decoder =
+  onWithOptions eventName defaultOptions decoder
+
+
+{-| Same as `on` but you can set a few options.
+-}
+onWithOptions : String -> Options -> Json.Decoder msg -> Property msg
+onWithOptions =
+  Native.VirtualDom.on
+
+
+{-| 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 =
+  { stopPropagation = False
+  , preventDefault = False
+  }
+
+
+
+-- OPTIMIZATION
+
+
+{-| 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 -> Node msg) -> a -> Node msg
+lazy =
+  Native.VirtualDom.lazy
+
+
+{-| Same as `lazy` but checks on two arguments.
+-}
+lazy2 : (a -> b -> Node msg) -> a -> b -> Node msg
+lazy2 =
+  Native.VirtualDom.lazy2
+
+
+{-| Same as `lazy` but checks on three arguments.
+-}
+lazy3 : (a -> b -> c -> Node msg) -> a -> b -> c -> Node msg
+lazy3 =
+  Native.VirtualDom.lazy3
+
+
+{-| Works just like `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.
+-}
+keyedNode : String -> List (Property msg) -> List ( String, Node msg ) -> Node msg
+keyedNode =
+  Native.VirtualDom.keyedNode
+
+
+
+-- PROGRAMS
+
+
+{-| Check out the docs for [`Html.App.program`][prog].
+It works exactly the same way.
+
+[prog]: http://package.elm-lang.org/packages/elm-lang/html/latest/Html-App#program
+-}
+program
+  : { init : (model, Cmd msg)
+    , update : msg -> model -> (model, Cmd msg)
+    , subscriptions : model -> Sub msg
+    , view : model -> Node msg
+    }
+  -> Program Never model msg
+program impl =
+  Native.VirtualDom.program Debug.wrap impl
+
+
+{-| Check out the docs for [`Html.App.programWithFlags`][prog].
+It works exactly the same way.
+
+[prog]: http://package.elm-lang.org/packages/elm-lang/html/latest/Html-App#programWithFlags
+-}
+programWithFlags
+  : { init : flags -> (model, Cmd msg)
+    , update : msg -> model -> (model, Cmd msg)
+    , subscriptions : model -> Sub msg
+    , view : model -> Node msg
+    }
+  -> Program flags model msg
+programWithFlags impl =
+  Native.VirtualDom.programWithFlags Debug.wrapWithFlags impl
+

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

@@ -0,0 +1,35 @@
+Elm.Native.TestHelpers = {};
+Elm.Native.TestHelpers.make = function(localRuntime)
+{
+	localRuntime.Native = localRuntime.Native || {};
+	localRuntime.Native.TestHelpers = localRuntime.Native.TestHelpers || {};
+	if (localRuntime.Native.TestHelpers.values)
+	{
+		return localRuntime.Native.TestHelpers.values;
+	}
+
+	var VirtualDom = Elm.Native.VirtualDom.make(localRuntime);
+
+	function unsafeRecordCallCount(f) {
+		function wrapper(a) {
+			wrapper.__elm_test_call_count += 1;
+			return f(a);
+		}
+		wrapper.__elm_test_call_count = 0;
+		return wrapper;
+	}
+
+	function unsafeQueryCallCount(f) {
+		if (f.__elm_test_call_count === undefined) {
+			return -1;
+		}
+		return f.__elm_test_call_count;
+	}
+
+	Elm.Native.TestHelpers.values = {
+		unsafeRecordCallCount: unsafeRecordCallCount,
+		unsafeQueryCallCount: unsafeQueryCallCount,
+		updateAndReplace: F3(VirtualDom.updateAndReplace)
+	};
+	return localRuntime.Native.TestHelpers.values = Elm.Native.TestHelpers.values;
+};

data/test/rails4.2/elm-stuff/packages/elm-lang/virtual-dom/2.0.3/tests/TestCases/Lazy.elm

@@ -0,0 +1,72 @@
+module TestCases.Lazy where
+
+import VirtualDom exposing (Node, lazy)
+import ElmTest.Assertion exposing (assertEqual)
+import ElmTest.Test exposing (Test, suite, test)
+
+import TestHelpers exposing (renderDom, updateDom, unsafeRecordCallCount, unsafeQueryCallCount)
+
+renderRecord : { x: String, y: String } -> Node
+renderRecord r =
+    VirtualDom.text <| "The values: " ++ r.x ++ ", " ++ r.y
+
+
+renderPrimitive : Int -> Node
+renderPrimitive x =
+    VirtualDom.text <| "The value: " ++ (toString x)
+
+
+testLazyIdenticalRecord =
+    test "isn't called again with identical record" <|
+        let record = { x = "a", y = "b" }
+            wrappedRender = unsafeRecordCallCount renderRecord
+            v1 = renderDom <| lazy wrappedRender record
+            v2 = updateDom v1 <| lazy wrappedRender record
+            v3 = updateDom v2 <| lazy wrappedRender record
+        in
+            assertEqual 1 <| unsafeQueryCallCount wrappedRender
+
+
+testLazyIdenticalPrimitive =
+    test "isn't called again with identical primitive" <|
+        let wrappedRender = unsafeRecordCallCount renderPrimitive
+            v1 = renderDom <| lazy wrappedRender 5
+            v2 = updateDom v1 <| lazy wrappedRender 5
+            v3 = updateDom v2 <| lazy wrappedRender 5
+        in
+            assertEqual 1 <| unsafeQueryCallCount wrappedRender
+
+
+testLazyRecordMutationOfIdenticalValue =
+    test "isn't called again with record mutation of identical value" <|
+        let record = { x = "a", y = "b" }
+            wrappedRender = unsafeRecordCallCount renderRecord
+            v1 = renderDom <| lazy wrappedRender record
+            v2 = updateDom v1 <| lazy wrappedRender { record | x = "a" }
+            v3 = updateDom v2 <| lazy wrappedRender { record | x = "a", y = "b" }
+        in
+            assertEqual 1 <| unsafeQueryCallCount wrappedRender
+
+
+testNotLazyDifferentRecord =
+    test "is called again with an equivalent but different record" <|
+        let wrappedRender = unsafeRecordCallCount renderRecord
+            v1 = renderDom <| lazy wrappedRender { x = "a", y = "b" }
+            v2 = updateDom v1 <| lazy wrappedRender { x = "a", y = "b" }
+            v3 = updateDom v2 <| lazy wrappedRender { x = "a", y = "b" }
+        in
+            assertEqual 3 <| unsafeQueryCallCount wrappedRender
+
+
+tests : Test
+tests =
+    suite
+        "Lazy"
+        [
+            testLazyIdenticalRecord,
+            testLazyIdenticalPrimitive,
+            -- Re-enable this test when core supports checking
+            -- record update values for identity before copying:
+            -- testLazyRecordMutationOfIdenticalValue,
+            testNotLazyDifferentRecord
+        ]

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

@@ -0,0 +1,34 @@
+module TestHelpers where
+
+import VirtualDom exposing (Node)
+
+import Native.TestHelpers
+import Native.VirtualDom
+
+unsafeRecordCallCount : (a -> b) -> (a -> b)
+unsafeRecordCallCount =
+    Native.TestHelpers.unsafeRecordCallCount
+
+unsafeQueryCallCount : (a -> b) -> Int
+unsafeQueryCallCount =
+    Native.TestHelpers.unsafeQueryCallCount
+
+type OpaqueDom = OpaqueDom
+
+render : Node -> OpaqueDom
+render =
+    Native.VirtualDom.render
+
+updateAndReplace : OpaqueDom -> Node -> Node -> OpaqueDom
+updateAndReplace =
+    Native.TestHelpers.updateAndReplace
+
+
+renderDom : Node -> (OpaqueDom, Node)
+renderDom vdom =
+    (render vdom, vdom)
+
+
+updateDom : (OpaqueDom, Node) -> Node -> (OpaqueDom, Node)
+updateDom (oldDom, oldVDom) newVDom =
+    (updateAndReplace oldDom oldVDom newVDom, newVDom)

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

@@ -0,0 +1,18 @@
+
+import ElmTest.Runner.Console exposing (runDisplay)
+import ElmTest.Test exposing (Test, suite)
+import Console exposing (IO)
+import Task exposing (Task)
+
+import TestCases.Lazy
+
+tests : Test
+tests =
+    suite
+        "VirtualDom Library Tests"
+        [
+            TestCases.Lazy.tests
+        ]
+
+port runner : Signal (Task x ())
+port runner = Console.run (runDisplay tests)

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

@@ -0,0 +1,18 @@
+{
+    "version": "1.0.0",
+    "summary": "Test for VirtualDom",
+    "license": "BSD3",
+    "repository": "https://github.com/evancz/virtual-dom.git",
+    "exposed-modules": [],
+    "source-directories": [
+        ".",
+        "build/virtual-dom/"
+    ],
+    "native-modules": true,
+    "dependencies": {
+        "elm-lang/core": "2.0.0 <= v < 4.0.0",
+        "laszlopandy/elm-console": "1.0.0 <= v < 2.0.0",
+        "deadfoxygrandpa/elm-test": "1.0.3 <= v < 2.0.0"
+    },
+    "elm-version": "0.16.0 <= v < 0.17.0"
+}

data/test/rails4.2/elm-stuff/packages/elm-lang/virtual-dom/2.0.3/tests/run-tests.sh

@@ -0,0 +1,24 @@
+#!/bin/sh
+
+set -e
+
+cd "$(dirname "$0")"
+
+mkdir -p build/virtual-dom/Native
+cp ../src/VirtualDom.elm build/virtual-dom/
+$(npm bin)/browserify ../src/wrapper.js -o build/VirtualDom.browser.js
+
+set +e
+diff -u ../src/Native/VirtualDom.js build/VirtualDom.browser.js
+if [ $? != 0 ]; then
+	echo "ERROR:"
+	echo "src/Native/VirtualDom.js has local modifications or is out of date. Please run rebuild.sh"
+	exit 1
+fi
+set -e
+
+$(npm bin)/browserify --no-browser-field ../src/wrapper.js -o build/virtual-dom/Native/VirtualDom.js
+
+elm-make --yes --output build/test.js TestMain.elm
+echo "Elm.worker(Elm.Main);" >> build/test.js
+node build/test.js

data/test/rails4.2/public/404.html

@@ -0,0 +1,67 @@
+<!DOCTYPE html>
+<html>
+<head>
+  <title>The page you were looking for doesn't exist (404)</title>
+  <meta name="viewport" content="width=device-width,initial-scale=1">
+  <style>
+  body {
+    background-color: #EFEFEF;
+    color: #2E2F30;
+    text-align: center;
+    font-family: arial, sans-serif;
+    margin: 0;
+  }
+
+  div.dialog {
+    width: 95%;
+    max-width: 33em;
+    margin: 4em auto 0;
+  }
+
+  div.dialog > div {
+    border: 1px solid #CCC;
+    border-right-color: #999;
+    border-left-color: #999;
+    border-bottom-color: #BBB;
+    border-top: #B00100 solid 4px;
+    border-top-left-radius: 9px;
+    border-top-right-radius: 9px;
+    background-color: white;
+    padding: 7px 12% 0;
+    box-shadow: 0 3px 8px rgba(50, 50, 50, 0.17);
+  }
+
+  h1 {
+    font-size: 100%;
+    color: #730E15;
+    line-height: 1.5em;
+  }
+
+  div.dialog > p {
+    margin: 0 0 1em;
+    padding: 1em;
+    background-color: #F7F7F7;
+    border: 1px solid #CCC;
+    border-right-color: #999;
+    border-left-color: #999;
+    border-bottom-color: #999;
+    border-bottom-left-radius: 4px;
+    border-bottom-right-radius: 4px;
+    border-top-color: #DADADA;
+    color: #666;
+    box-shadow: 0 3px 8px rgba(50, 50, 50, 0.17);
+  }
+  </style>
+</head>
+
+<body>
+  <!-- This file lives in public/404.html -->
+  <div class="dialog">
+    <div>
+      <h1>The page you were looking for doesn't exist.</h1>
+      <p>You may have mistyped the address or the page may have moved.</p>
+    </div>
+    <p>If you are the application owner check the logs for more information.</p>
+  </div>
+</body>
+</html>

data/test/rails4.2/public/422.html

@@ -0,0 +1,67 @@
+<!DOCTYPE html>
+<html>
+<head>
+  <title>The change you wanted was rejected (422)</title>
+  <meta name="viewport" content="width=device-width,initial-scale=1">
+  <style>
+  body {
+    background-color: #EFEFEF;
+    color: #2E2F30;
+    text-align: center;
+    font-family: arial, sans-serif;
+    margin: 0;
+  }
+
+  div.dialog {
+    width: 95%;
+    max-width: 33em;
+    margin: 4em auto 0;
+  }
+
+  div.dialog > div {
+    border: 1px solid #CCC;
+    border-right-color: #999;
+    border-left-color: #999;
+    border-bottom-color: #BBB;
+    border-top: #B00100 solid 4px;
+    border-top-left-radius: 9px;
+    border-top-right-radius: 9px;
+    background-color: white;
+    padding: 7px 12% 0;
+    box-shadow: 0 3px 8px rgba(50, 50, 50, 0.17);
+  }
+
+  h1 {
+    font-size: 100%;
+    color: #730E15;
+    line-height: 1.5em;
+  }
+
+  div.dialog > p {
+    margin: 0 0 1em;
+    padding: 1em;
+    background-color: #F7F7F7;
+    border: 1px solid #CCC;
+    border-right-color: #999;
+    border-left-color: #999;
+    border-bottom-color: #999;
+    border-bottom-left-radius: 4px;
+    border-bottom-right-radius: 4px;
+    border-top-color: #DADADA;
+    color: #666;
+    box-shadow: 0 3px 8px rgba(50, 50, 50, 0.17);
+  }
+  </style>
+</head>
+
+<body>
+  <!-- This file lives in public/422.html -->
+  <div class="dialog">
+    <div>
+      <h1>The change you wanted was rejected.</h1>
+      <p>Maybe you tried to change something you didn't have access to.</p>
+    </div>
+    <p>If you are the application owner check the logs for more information.</p>
+  </div>
+</body>
+</html>