src/client/elm/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

module View.SignIn
  ( renderSignIn
  ) where

import Json.Decode as Json
import Signal exposing (Address)

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

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

import View.Events exposing (onSubmitPrevDefault)
import View.Icon exposing (..)

import Persona exposing (operations)

renderSignIn : Address Action -> Model -> SignInView -> Html
renderSignIn address model signInView =
  div
    [ class "signIn" ]
    [ button
        [ onClick operations.address Persona.SignIn ]
        [ span [] [ text (getMessage "SignIn" model.translations) ]
        , if signInView.connecting
            then renderSpinIcon "refresh"
            else renderIcon "power-off"
        ]
    , signInResult model signInView
    ]

signInResult : Model -> SignInView -> Html
signInResult model signInView =
  case signInView.error of
    Just error ->
      div
        [ class "error" ]
        [ text error ]
    Nothing ->
      text ""