Update 12 and 13

part13/SearchResult.elm

@@ -1,44 +1,65 @@
 module SearchResult (..) where
 
 import Html exposing (..)
-import Html.Attributes exposing (..)
+import Html.Attributes exposing (class, target, href, property)
 import Html.Events exposing (..)
-import Json.Decode exposing (Decoder, (:=))
 import Signal exposing (Address)
-import Dict exposing (Dict)
+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 alias Model =
-  { id : ResultId
-  , name : String
-  , stars : Int
-  }
+type Action
+  = Expand
+  | Collapse
 
 
 decoder : Decoder Model
 decoder =
-  Json.Decode.object3
-    Model
-    ("id" := Json.Decode.int)
-    ("full_name" := Json.Decode.string)
-    ("stargazers_count" := Json.Decode.int)
+  decode Model
+    |> required "id" Json.Decode.int
+    |> required "full_name" Json.Decode.string
+    |> required "stargazers_count" Json.Decode.int
+    |> hardcoded True
 
 
-view : Address a -> (Int -> a) -> Model -> Html
-view address delete result =
+update : Action -> Model -> ( Model, Effects Action )
+update action model =
+  case action of
+    Expand ->
+      ( { model | expanded = True }, Effects.none )
+
+    Collapse ->
+      ( { model | expanded = False }, Effects.none )
+
+
+view : Address Action -> Model -> Html
+view address model =
   li
     []
-    [ span [ class "star-count" ] [ text (toString result.stars) ]
-    , a
-        [ href ("https://github.com/" ++ result.name)
-        , target "_blank"
+    <| 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
+            [ class "hide-result", onClick address Collapse ]
+            [ text "X" ]
+        ]
+       else
+        [ button
+            [ class "expand-result", onClick address Expand ]
+            [ text "Show" ]
         ]
-        [ text result.name ]
-    , button
-        [ class "hide-result", onClick address (delete result.id) ]
-        [ text "X" ]
-    ]