module Main (..) where

import StartApp
import ElmHub exposing (..)
import Effects exposing (Effects)
import Task exposing (Task)
import Html exposing (Html)
import Signal
import Json.Encode
import Json.Decode


main : Signal Html
main =
  app.html


app : StartApp.App Model
app =
  StartApp.start
    { view = view
    , update = update search.address
    , init = ( initialModel, searchFeed search.address initialModel.query )
    , inputs = [ responseActions ]
    }


port tasks : Signal (Task Effects.Never ())
port tasks =
  app.tasks


search : Signal.Mailbox String
search =
  Signal.mailbox ""


port githubSearch : Signal String
port githubSearch =
  search.signal


responseActions : Signal Action
responseActions =
  Signal.map decodeGithubResponse githubResponse


decodeGithubResponse : Json.Encode.Value -> Action
decodeGithubResponse value =
  -- TODO use Json.Decode.DecodeValue to decode the response into an Action.
  --
  -- Hint: look at ElmHub.elm, specifically the definition of Action and
  -- the deefinition of responseDecoder
  SetErrorMessage (Just "TODO decode the response!")


port githubResponse : Signal Json.Encode.Value