Update 12 and 13

part12/SearchResult.elm

@@ -0,0 +1,63 @@
+module SearchResult (..) where
+
+import Html exposing (..)
+import Html.Attributes exposing (class, target, href, property)
+import Html.Events exposing (..)
+import Signal exposing (Address)
+import Effects exposing (Effects)
+import Json.Decode exposing (Decoder, (:=))
+import Json.Decode.Pipeline exposing (..)
+
+
+type alias Model =
+  { id : Int
+  , name : String
+  , stars : Int
+  , expanded : Bool
+  }
+
+
+type alias ResultId =
+  Int
+
+
+type Action
+  = Expand
+  | Collapse
+
+
+decoder : Decoder Model
+decoder =
+  decode Model
+    |> required "id" Json.Decode.int
+    |> required "full_name" Json.Decode.string
+    |> required "stargazers_count" Json.Decode.int
+    |> hardcoded True
+
+
+update : Action -> Model -> ( Model, Effects Action )
+update action model =
+  -- TODO implement Expand and Collapse logic
+  ( model, Effects.none )
+
+
+view : Address Action -> Model -> Html
+view address model =
+  li
+    []
+    <| if model.expanded then
+        [ span [ class "star-count" ] [ text (toString model.stars) ]
+        , a
+            [ href ("https://github.com/" ++ model.name), target "_blank" ]
+            [ text model.name ]
+        , button
+            -- TODO when the user clicks, send a Collapse action
+            [ class "hide-result" ]
+            [ text "X" ]
+        ]
+       else
+        [ button
+            -- TODO when the user clicks, send an Expand action
+            [ class "expand-result" ]
+            [ text "Show" ]
+        ]