src/client/View/SignIn.elm


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

module View.SignIn
  ( renderSignIn
  ) where

import Html as H exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)

import Json.Decode as Json

import Update exposing (..)
import Update.SignIn exposing (..)

import ServerCommunication as SC
import ServerCommunication exposing (serverCommunications)

import Model exposing (Model)
import Model.View.SignInView exposing (..)
import Model.Translations exposing (getMessage)

import View.Events exposing (onSubmitPrevDefault)

renderSignIn : Model -> SignInView -> Html
renderSignIn model signInView =
  div
    [ class "signIn" ]
    [ H.form
        [ onSubmitPrevDefault serverCommunications.address (SC.SignIn signInView.login) ]
        [ input
            [ value signInView.login
            , on "input" targetValue (Signal.message actions.address << UpdateSignIn << UpdateLogin)
            ]
            []
        , button
            []
            [ text (getMessage "SignIn" model.translations)]
        ]
    , div
        [ class "result" ]
        [ signInResult model signInView ]
    ]

signInResult : Model -> SignInView -> Html
signInResult model signInView =
  case signInView.result of
    Just result ->
      case result of
        Ok login ->
          div
            [ class "success" ]
            [ text (getMessage "SignInEmailSent" model.translations) ]
        Err error ->
          div
            [ class "error" ]
            [ text error ]
    Nothing ->
      text ""