elm-rails 0.1.2 → 0.2.0

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

@@ -0,0 +1,137 @@
+module VirtualDom.Helpers exposing
+  ( Node
+  , text, node, div, span, a, h1
+  , Property, property, attribute
+  , class, id, href
+  , style
+  , on, onWithOptions, Options, defaultOptions
+  , onClick
+  , map
+  , lazy, lazy2, lazy3
+  , keyedNode
+  )
+
+
+import Json.Decode as Decode
+import Json.Encode as Encode
+import Native.VirtualDom
+
+
+type Node msg = Node
+
+
+node : String -> List (Property msg) -> List (Node msg) -> Node msg
+node =
+  Native.VirtualDom.node
+
+
+text : String -> Node msg
+text =
+  Native.VirtualDom.text
+
+
+div : List (Property msg) -> List (Node msg) -> Node msg
+div =
+  node "div"
+
+
+span : List (Property msg) -> List (Node msg) -> Node msg
+span =
+  node "span"
+
+
+a : List (Property msg) -> List (Node msg) -> Node msg
+a =
+  node "a"
+
+
+h1 : List (Property msg) -> List (Node msg) -> Node msg
+h1 =
+  node "h1"
+
+
+map : (a -> msg) -> Node a -> Node msg
+map =
+  Native.VirtualDom.map
+
+
+type Property msg = Property
+
+
+property : String -> Decode.Value -> Property msg
+property =
+  Native.VirtualDom.property
+
+
+attribute : String -> String -> Property msg
+attribute =
+  Native.VirtualDom.attribute
+
+
+class : String -> Property msg
+class name =
+  property "className" (Encode.string name)
+
+
+href : String -> Property msg
+href name =
+  property "href" (Encode.string name)
+
+
+id : String -> Property msg
+id =
+  attribute "id"
+
+
+style : List (String, String) -> Property msg
+style =
+  Native.VirtualDom.style
+
+
+on : String -> Decode.Decoder msg -> Property msg
+on eventName decoder =
+  onWithOptions eventName defaultOptions decoder
+
+
+onClick : msg -> Property msg
+onClick msg =
+  on "click" (Decode.succeed msg)
+
+
+onWithOptions : String -> Options -> Decode.Decoder msg -> Property msg
+onWithOptions =
+  Native.VirtualDom.on
+
+
+type alias Options =
+  { stopPropagation : Bool
+  , preventDefault : Bool
+  }
+
+
+defaultOptions : Options
+defaultOptions =
+  { stopPropagation = False
+  , preventDefault = False
+  }
+
+
+lazy : (a -> Node msg) -> a -> Node msg
+lazy =
+  Native.VirtualDom.lazy
+
+
+lazy2 : (a -> b -> Node msg) -> a -> b -> Node msg
+lazy2 =
+  Native.VirtualDom.lazy2
+
+
+lazy3 : (a -> b -> c -> Node msg) -> a -> b -> c -> Node msg
+lazy3 =
+  Native.VirtualDom.lazy3
+
+
+keyedNode : String -> List (Property msg) -> List ( String, Node msg ) -> Node msg
+keyedNode =
+  Native.VirtualDom.keyedNode
+

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

@@ -0,0 +1,290 @@
+module VirtualDom.History exposing
+  ( History
+  , empty
+  , size
+  , initialModel
+  , add
+  , get
+  , view
+  , decoder
+  , encode
+  )
+
+
+import Array exposing (Array)
+import Json.Decode as Decode
+import Json.Encode as Encode
+import Native.Debug
+import VirtualDom.Helpers as VDom exposing (Node)
+import VirtualDom.Metadata as Metadata
+
+
+
+-- CONSTANTS
+
+
+maxSnapshotSize : Int
+maxSnapshotSize =
+  64
+
+
+
+-- HISTORY
+
+
+type alias History model msg =
+  { snapshots : Array (Snapshot model msg)
+  , recent : RecentHistory model msg
+  , numMessages : Int
+  }
+
+
+type alias RecentHistory model msg =
+  { model : model
+  , messages : List msg
+  , numMessages : Int
+  }
+
+
+type alias Snapshot model msg =
+  { model : model
+  , messages : Array msg
+  }
+
+
+empty : model -> History model msg
+empty model =
+  History Array.empty (RecentHistory model [] 0) 0
+
+
+size : History model msg -> Int
+size history =
+  history.numMessages
+
+
+initialModel : History model msg -> model
+initialModel  { snapshots, recent } =
+  case Array.get 0 snapshots of
+    Just { model } ->
+      model
+
+    Nothing ->
+      recent.model
+
+
+
+-- JSON
+
+
+decoder : model -> (msg -> model -> model) -> Decode.Decoder (model, History model msg)
+decoder initialModel update =
+  let
+    addMessage rawMsg (model, history) =
+      let
+        msg =
+          jsToElm rawMsg
+      in
+        (update msg model, add msg model history)
+
+    updateModel rawMsgs =
+      List.foldl addMessage (initialModel, empty initialModel) rawMsgs
+  in
+    Decode.map updateModel (Decode.list Decode.value)
+
+
+jsToElm : Encode.Value -> a
+jsToElm =
+  Native.Debug.unsafeCoerce
+
+
+encode : History model msg -> Encode.Value
+encode { snapshots, recent } =
+  let
+    recentJson =
+      List.map elmToJs (List.reverse recent.messages)
+  in
+    Encode.list <| Array.foldr encodeHelp recentJson snapshots
+
+
+encodeHelp : Snapshot model msg -> List Encode.Value -> List Encode.Value
+encodeHelp snapshot allMessages =
+  Array.foldl (\elm msgs -> elmToJs elm :: msgs) allMessages snapshot.messages
+
+
+elmToJs : a -> Encode.Value
+elmToJs =
+  Native.Debug.unsafeCoerce
+
+
+
+-- ADD MESSAGES
+
+
+add : msg -> model -> History model msg -> History model msg
+add msg model { snapshots, recent, numMessages } =
+  case addRecent msg model recent of
+    (Just snapshot, newRecent) ->
+      History (Array.push snapshot snapshots) newRecent (numMessages + 1)
+
+    (Nothing, newRecent) ->
+      History snapshots newRecent (numMessages + 1)
+
+
+addRecent
+  : msg
+  -> model
+  -> RecentHistory model msg
+  -> ( Maybe (Snapshot model msg), RecentHistory model msg )
+addRecent msg newModel { model, messages, numMessages } =
+  if numMessages == maxSnapshotSize then
+    ( Just (Snapshot model (Array.fromList messages))
+    , RecentHistory newModel [msg] 1
+    )
+
+  else
+    ( Nothing
+    , RecentHistory model (msg :: messages) (numMessages + 1)
+    )
+
+
+
+-- GET SUMMARY
+
+
+get : (msg -> model -> (model, a)) -> Int -> History model msg -> ( model, msg )
+get update index { snapshots, recent, numMessages } =
+  let
+    snapshotMax =
+      numMessages - recent.numMessages
+  in
+    if index >= snapshotMax then
+      undone <|
+        List.foldr (getHelp update) (Stepping (index - snapshotMax) recent.model) recent.messages
+
+    else
+      case Array.get (index // maxSnapshotSize) snapshots of
+        Nothing ->
+          Debug.crash "UI should only let you ask for real indexes!"
+
+        Just { model, messages } ->
+          undone <|
+            Array.foldr (getHelp update) (Stepping (rem index maxSnapshotSize) model) messages
+
+
+type GetResult model msg
+  = Stepping Int model
+  | Done msg model
+
+
+getHelp : (msg -> model -> (model, a)) -> msg -> GetResult model msg -> GetResult model msg
+getHelp update msg getResult =
+  case getResult of
+    Done _ _ ->
+      getResult
+
+    Stepping n model ->
+      if n == 0 then
+        Done msg (Tuple.first (update msg model))
+
+      else
+        Stepping (n - 1) (Tuple.first (update msg model))
+
+
+undone : GetResult model msg -> ( model, msg )
+undone getResult =
+  case getResult of
+    Done msg model ->
+      ( model, msg )
+
+    Stepping _ _ ->
+      Debug.crash "Bug in History.get"
+
+
+
+-- VIEW
+
+
+view : Maybe Int -> History model msg -> Node Int
+view maybeIndex { snapshots, recent, numMessages } =
+  let
+    (index, className) =
+      case maybeIndex of
+        Nothing ->
+          ( -1, "debugger-sidebar-messages" )
+        Just i ->
+          ( i, "debugger-sidebar-messages-paused" )
+
+    oldStuff =
+      VDom.lazy2 viewSnapshots index snapshots
+
+    newStuff =
+      Tuple.second <| List.foldl (consMsg index) (numMessages - 1, []) recent.messages
+  in
+    VDom.div [ VDom.class className ] (oldStuff :: newStuff)
+
+
+
+-- VIEW SNAPSHOTS
+
+
+viewSnapshots : Int -> Array (Snapshot model msg) -> Node Int
+viewSnapshots currentIndex snapshots =
+  let
+    highIndex =
+      maxSnapshotSize * Array.length snapshots
+  in
+    VDom.div [] <| Tuple.second <|
+      Array.foldr (consSnapshot currentIndex) (highIndex, []) snapshots
+
+
+consSnapshot : Int -> Snapshot model msg -> ( Int, List (Node Int) ) -> ( Int, List (Node Int) )
+consSnapshot currentIndex snapshot (index, rest) =
+  let
+    nextIndex =
+      index - maxSnapshotSize
+
+    currentIndexHelp =
+      if nextIndex <= currentIndex && currentIndex < index then currentIndex else -1
+  in
+    ( index - maxSnapshotSize
+    , VDom.lazy3 viewSnapshot currentIndexHelp index snapshot :: rest
+    )
+
+
+viewSnapshot : Int -> Int -> Snapshot model msg -> Node Int
+viewSnapshot currentIndex index { messages } =
+  VDom.div [] <| Tuple.second <|
+    Array.foldl (consMsg currentIndex) (index - 1, []) messages
+
+
+
+-- VIEW MESSAGE
+
+
+consMsg : Int -> msg -> ( Int, List (Node Int) ) -> ( Int, List (Node Int) )
+consMsg currentIndex msg (index, rest) =
+  ( index - 1
+  , VDom.lazy3 viewMessage currentIndex index msg :: rest
+  )
+
+
+viewMessage : Int -> Int -> msg -> Node Int
+viewMessage currentIndex index msg =
+  let
+    className =
+      if currentIndex == index then
+        "messages-entry messages-entry-selected"
+
+      else
+        "messages-entry"
+
+    messageName =
+      Native.Debug.messageToString msg
+  in
+    VDom.div
+      [ VDom.class className
+      , VDom.on "click" (Decode.succeed index)
+      ]
+      [ VDom.span [VDom.class "messages-entry-content", VDom.attribute "title" messageName ] [ VDom.text messageName ]
+      , VDom.span [VDom.class "messages-entry-index"] [ VDom.text (toString index) ]
+      ]