elm-rails 0.2.0 → 0.2.1

data/test/rails5.0/elm-stuff/packages/elm-lang/virtual-dom/2.0.3/src/VirtualDom.elm

@@ -1,331 +0,0 @@
-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/rails5.0/elm-stuff/packages/elm-lang/virtual-dom/2.0.3/src/VirtualDom/Debug.elm

@@ -1,567 +0,0 @@
-module VirtualDom.Debug exposing (wrap, wrapWithFlags)
-
-import Json.Decode as Decode
-import Json.Encode as Encode
-import Task exposing (Task)
-import Native.Debug
-import Native.VirtualDom
-import VirtualDom.Expando as Expando exposing (Expando)
-import VirtualDom.Helpers as VDom exposing (Node)
-import VirtualDom.History as History exposing (History)
-import VirtualDom.Metadata as Metadata exposing (Metadata)
-import VirtualDom.Overlay as Overlay
-import VirtualDom.Report as Report
-
-
-
--- WRAP PROGRAMS
-
-
-wrap metadata { init, update, subscriptions, view } =
-  { init = wrapInit metadata init
-  , view = wrapView view
-  , update = wrapUpdate update
-  , viewIn = viewIn
-  , viewOut = viewOut
-  , subscriptions = wrapSubs subscriptions
-  }
-
-
-wrapWithFlags metadata { init, update, subscriptions, view } =
-  { init = \flags -> wrapInit metadata (init flags)
-  , view = wrapView view
-  , update = wrapUpdate update
-  , viewIn = viewIn
-  , viewOut = viewOut
-  , subscriptions = wrapSubs subscriptions
-  }
-
-
-
--- MODEL
-
-
-type alias Model model msg =
-  { history : History model msg
-  , state : State model
-  , expando : Expando
-  , metadata : Result Metadata.Error Metadata
-  , overlay : Overlay.State
-  , isDebuggerOpen : Bool
-  }
-
-
-type State model
-  = Running model
-  | Paused Int model model
-
-
-wrapInit : Encode.Value -> ( model, Cmd msg ) -> ( Model model msg, Cmd (Msg msg) )
-wrapInit metadata ( userModel, userCommands ) =
-  { history = History.empty userModel
-  , state = Running userModel
-  , expando = Expando.init userModel
-  , metadata = Metadata.decode metadata
-  , overlay = Overlay.none
-  , isDebuggerOpen = False
-  }
-    ! [ Cmd.map UserMsg userCommands ]
-
-
-
--- UPDATE
-
-
-type Msg msg
-  = NoOp
-  | UserMsg msg
-  | ExpandoMsg Expando.Msg
-  | Resume
-  | Jump Int
-  | Open
-  | Close
-  | Up
-  | Down
-  | Import
-  | Export
-  | Upload String
-  | OverlayMsg Overlay.Msg
-
-
-type alias UserUpdate model msg =
-  msg -> model -> ( model, Cmd msg )
-
-
-wrapUpdate
-  : UserUpdate model msg
-  -> Task Never ()
-  -> Msg msg
-  -> Model model msg
-  -> (Model model msg, Cmd (Msg msg))
-wrapUpdate userUpdate scrollTask msg model =
-  case msg of
-    NoOp ->
-      model ! []
-
-    UserMsg userMsg ->
-      updateUserMsg userUpdate scrollTask userMsg model
-
-    ExpandoMsg eMsg ->
-      { model
-          | expando = Expando.update eMsg model.expando
-      }
-        ! []
-
-    Resume ->
-      case model.state of
-        Running _ ->
-          model ! []
-
-        Paused _ _ userModel ->
-          { model
-              | state = Running userModel
-              , expando = Expando.merge userModel model.expando
-          }
-            ! [ runIf model.isDebuggerOpen scrollTask ]
-
-    Jump index ->
-      let
-        (indexModel, indexMsg) =
-          History.get userUpdate index model.history
-      in
-        { model
-            | state = Paused index indexModel (getLatestModel model.state)
-            , expando = Expando.merge indexModel model.expando
-        }
-          ! []
-
-    Open ->
-      { model | isDebuggerOpen = True } ! []
-
-    Close ->
-      { model | isDebuggerOpen = False } ! []
-
-    Up ->
-      let
-        index =
-          case model.state of
-            Paused index _ _ ->
-              index
-
-            Running _ ->
-              History.size model.history
-      in
-        if index > 0 then
-          wrapUpdate userUpdate scrollTask (Jump (index - 1)) model
-        else
-          model ! []
-
-    Down ->
-      case model.state of
-        Running _ ->
-          model ! []
-
-        Paused index _ userModel ->
-          if index == History.size model.history - 1 then
-            wrapUpdate userUpdate scrollTask Resume model
-          else
-            wrapUpdate userUpdate scrollTask (Jump (index + 1)) model
-
-    Import ->
-      withGoodMetadata model <| \_ ->
-        model ! [ upload ]
-
-    Export ->
-      withGoodMetadata model <| \metadata ->
-        model ! [ download metadata model.history ]
-
-    Upload jsonString ->
-      withGoodMetadata model <| \metadata ->
-        case Overlay.assessImport metadata jsonString of
-          Err newOverlay ->
-            { model | overlay = newOverlay } ! []
-
-          Ok rawHistory ->
-            loadNewHistory rawHistory userUpdate model
-
-    OverlayMsg overlayMsg ->
-      case Overlay.close overlayMsg model.overlay of
-        Nothing ->
-          { model | overlay = Overlay.none } ! []
-
-        Just rawHistory ->
-          loadNewHistory rawHistory userUpdate model
-
-
-
--- COMMANDS
-
-
-upload : Cmd (Msg msg)
-upload =
-  Task.perform Upload Native.Debug.upload
-
-
-download : Metadata -> History model msg -> Cmd (Msg msg)
-download metadata history =
-  let
-    historyLength =
-      History.size history
-
-    json =
-      Encode.object
-        [ ("metadata", Metadata.encode metadata)
-        , ("history", History.encode history)
-        ]
-  in
-    Task.perform (\_ -> NoOp) (Native.Debug.download historyLength json)
-
-
-
--- UPDATE OVERLAY
-
-
-withGoodMetadata
-  : Model model msg
-  -> (Metadata -> (Model model msg, Cmd (Msg msg)))
-  -> (Model model msg, Cmd (Msg msg))
-withGoodMetadata model func =
-  case model.metadata of
-    Ok metadata ->
-      func metadata
-
-    Err error ->
-      { model | overlay = Overlay.badMetadata error } ! []
-
-
-loadNewHistory
-  : Encode.Value
-  -> UserUpdate model msg
-  -> Model model msg
-  -> ( Model model msg, Cmd (Msg msg) )
-loadNewHistory rawHistory userUpdate model =
-  let
-    initialUserModel =
-      History.initialModel model.history
-
-    pureUserUpdate msg userModel =
-      Tuple.first (userUpdate msg userModel)
-
-    decoder =
-      History.decoder initialUserModel pureUserUpdate
-  in
-    case Decode.decodeValue decoder rawHistory of
-      Err _ ->
-        { model | overlay = Overlay.corruptImport } ! []
-
-      Ok (latestUserModel, newHistory) ->
-        { model
-            | history = newHistory
-            , state = Running latestUserModel
-            , expando = Expando.init latestUserModel
-            , overlay = Overlay.none
-        }
-          ! []
-
-
-
--- UPDATE - USER MESSAGES
-
-
-updateUserMsg
-  : UserUpdate model msg
-  -> Task Never ()
-  -> msg
-  -> Model model msg
-  -> (Model model msg, Cmd (Msg msg))
-updateUserMsg userUpdate scrollTask userMsg ({ history, state, expando } as model) =
-  let
-    userModel =
-      getLatestModel state
-
-    newHistory =
-      History.add userMsg userModel history
-
-    (newUserModel, userCmds) =
-      userUpdate userMsg userModel
-
-    commands =
-      Cmd.map UserMsg userCmds
-  in
-    case state of
-      Running _ ->
-        { model
-            | history = newHistory
-            , state = Running newUserModel
-            , expando = Expando.merge newUserModel expando
-        }
-          ! [ commands, runIf model.isDebuggerOpen scrollTask ]
-
-      Paused index indexModel _ ->
-        { model
-            | history = newHistory
-            , state = Paused index indexModel newUserModel
-        }
-          ! [ commands ]
-
-
-runIf : Bool -> Task Never () -> Cmd (Msg msg)
-runIf bool task =
-  if bool then
-    Task.perform (always NoOp) task
-  else
-    Cmd.none
-
-
-getLatestModel : State model -> model
-getLatestModel state =
-  case state of
-    Running model ->
-      model
-
-    Paused _ _ model ->
-      model
-
-
-
--- SUBSCRIPTIONS
-
-
-wrapSubs : (model -> Sub msg) -> Model model msg -> Sub (Msg msg)
-wrapSubs userSubscriptions {state} =
-  getLatestModel state
-    |> userSubscriptions
-    |> Sub.map UserMsg
-
-
-
--- VIEW
-
-
-wrapView : (model -> Node msg) -> Model model msg -> Node (Msg msg)
-wrapView userView { state } =
-  let
-    currentModel =
-      case state of
-        Running model ->
-          model
-
-        Paused _ oldModel _ ->
-          oldModel
-  in
-    VDom.map UserMsg (userView currentModel)
-
-
-
--- SMALL DEBUG VIEW
-
-
-viewIn : Model model msg -> ( Overlay.Block, Node (Msg msg) )
-viewIn { history, state, overlay, isDebuggerOpen } =
-  let
-    isPaused =
-      case state of
-        Running _ ->
-          False
-
-        Paused _ _ _ ->
-          True
-  in
-    Overlay.view overlayConfig isPaused isDebuggerOpen (History.size history) overlay
-
-
-overlayConfig : Overlay.Config (Msg msg)
-overlayConfig =
-  { resume = Resume
-  , open = Open
-  , importHistory = Import
-  , exportHistory = Export
-  , wrap = OverlayMsg
-  }
-
-
-
--- BIG DEBUG VIEW
-
-
-viewOut : Model model msg -> Node (Msg msg)
-viewOut { history, state, expando } =
-  VDom.div
-    [ VDom.id "debugger" ]
-    [ styles
-    , viewSidebar state history
-    , VDom.map ExpandoMsg <|
-        VDom.div [ VDom.id "values" ] [ Expando.view Nothing expando ]
-    ]
-
-
-viewSidebar : State model -> History model msg -> Node (Msg msg)
-viewSidebar state history =
-  let
-    maybeIndex =
-      case state of
-        Running _ ->
-          Nothing
-
-        Paused index _ _ ->
-          Just index
-  in
-    VDom.div [ VDom.class "debugger-sidebar" ]
-      [ VDom.map Jump (History.view maybeIndex history)
-      , playButton maybeIndex
-      ]
-
-
-playButton : Maybe Int -> Node (Msg msg)
-playButton maybeIndex =
-  VDom.div [ VDom.class "debugger-sidebar-controls" ]
-    [ viewResumeButton maybeIndex
-    , VDom.div [ VDom.class "debugger-sidebar-controls-import-export" ]
-        [ button Import "Import"
-        , VDom.text " / "
-        , button Export "Export"
-        ]
-    ]
-
-
-button msg label =
-  VDom.span
-    [ VDom.onClick msg
-    , VDom.style [("cursor","pointer")]
-    ]
-    [ VDom.text label ]
-
-
-viewResumeButton maybeIndex =
-  case maybeIndex of
-    Nothing ->
-      VDom.text ""
-
-    Just _ ->
-      resumeButton
-
-
-resumeButton =
-  VDom.div
-    [ VDom.onClick Resume
-    , VDom.class "debugger-sidebar-controls-resume"
-    ]
-    [ VDom.text "Resume"
-    ]
-
-
-
--- STYLE
-
-
-styles : Node msg
-styles =
-  VDom.node "style" [] [ VDom.text """
-
-html {
-    overflow: hidden;
-    height: 100%;
-}
-
-body {
-    height: 100%;
-    overflow: auto;
-}
-
-#debugger {
-  width: 100%
-  height: 100%;
-  font-family: monospace;
-}
-
-#values {
-  display: block;
-  float: left;
-  height: 100%;
-  width: calc(100% - 30ch);
-  margin: 0;
-  overflow: auto;
-  cursor: default;
-}
-
-.debugger-sidebar {
-  display: block;
-  float: left;
-  width: 30ch;
-  height: 100%;
-  color: white;
-  background-color: rgb(61, 61, 61);
-}
-
-.debugger-sidebar-controls {
-  width: 100%;
-  text-align: center;
-  background-color: rgb(50, 50, 50);
-}
-
-.debugger-sidebar-controls-import-export {
-  width: 100%;
-  height: 24px;
-  line-height: 24px;
-  font-size: 12px;
-}
-
-.debugger-sidebar-controls-resume {
-  width: 100%;
-  height: 30px;
-  line-height: 30px;
-  cursor: pointer;
-}
-
-.debugger-sidebar-controls-resume:hover {
-  background-color: rgb(41, 41, 41);
-}
-
-.debugger-sidebar-messages {
-  width: 100%;
-  overflow-y: auto;
-  height: calc(100% - 24px);
-}
-
-.debugger-sidebar-messages-paused {
-  width: 100%;
-  overflow-y: auto;
-  height: calc(100% - 54px);
-}
-
-.messages-entry {
-  cursor: pointer;
-  width: 100%;
-}
-
-.messages-entry:hover {
-  background-color: rgb(41, 41, 41);
-}
-
-.messages-entry-selected, .messages-entry-selected:hover {
-  background-color: rgb(10, 10, 10);
-}
-
-.messages-entry-content {
-  width: calc(100% - 7ch);
-  padding-top: 4px;
-  padding-bottom: 4px;
-  padding-left: 1ch;
-  text-overflow: ellipsis;
-  white-space: nowrap;
-  overflow: hidden;
-  display: inline-block;
-}
-
-.messages-entry-index {
-  color: #666;
-  width: 5ch;
-  padding-top: 4px;
-  padding-bottom: 4px;
-  padding-right: 1ch;
-  text-align: right;
-  display: block;
-  float: right;
-}
-
-""" ]