53 lines
1.1 KiB
Elm
53 lines
1.1 KiB
Elm
module Component.SearchResult (..) where
|
|
|
|
import Html exposing (..)
|
|
import Html.Attributes exposing (..)
|
|
import Html.Events exposing (..)
|
|
import Signal exposing (Address)
|
|
import Effects exposing (Effects)
|
|
|
|
|
|
type alias Model =
|
|
{ id : Int
|
|
, name : String
|
|
, stars : Int
|
|
, expanded : Bool
|
|
}
|
|
|
|
|
|
type alias ResultId =
|
|
Int
|
|
|
|
|
|
type Action
|
|
= Expand
|
|
| Collapse
|
|
|
|
|
|
update : Action -> Model -> ( Model, Effects Action )
|
|
update action model =
|
|
-- TODO make expand and collapse work
|
|
( 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" ]
|
|
]
|