elm-scratchpad/example5.1.elm at master · ToasterLab/elm-scratchpad · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Http
import Json.Decode as Decode


main =
  Html.program
    { init = init
    , view = view
    , update = update
    , subscriptions = subscriptions
    }


-- MODEL

type alias Model =
  { fortune : String
  }

init : (Model, Cmd Msg)
init =
  ( Model "loading..."
  , getRandomFortune ""
  )


-- UPDATE

type Msg
  = MorePlease
  | NewGif (Result Http.Error String)

update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
  case msg of
    MorePlease ->
      (model, getRandomFortune "")

    NewGif (Ok newFortune) ->
      (Model newFortune, Cmd.none)

    NewGif (Err _) ->
      (model, Cmd.none)


-- VIEW

view : Model -> Html Msg
view model =
  div []
    [ h2 [] [text "Fortunes"]
    , button [ onClick MorePlease ] [ text "More Please!" ]
    , br [] []
    , p [] [ text model.fortune ]
    ]


-- SUBSCRIPTIONS

subscriptions : Model -> Sub Msg
subscriptions model =
  Sub.none


-- HTTP

getRandomFortune : String -> Cmd Msg
getRandomFortune blank =
  let
    url =
       "https://happyukgo.com/api/fortune/"

    request =
      Http.get url decodeFortune

  in
    Http.send NewGif request

decodeFortune : Decode.Decoder String
decodeFortune =
  Decode.at [] Decode.string