41 lines
1.1 KiB
Elm
41 lines
1.1 KiB
Elm
module Login exposing (..)
|
|
|
|
import CommonElements exposing (..)
|
|
import Element exposing (..)
|
|
import Element.Input as Input
|
|
import Model exposing (..)
|
|
|
|
|
|
getPage : Model -> Element Msg
|
|
getPage model =
|
|
column []
|
|
[ loginBox model
|
|
, namedLink "/signup" "Sign Up"
|
|
]
|
|
|
|
|
|
loginBox : Model -> Element Msg
|
|
loginBox model =
|
|
column []
|
|
[ text "Log in"
|
|
, Input.email
|
|
[ Input.focusedOnLoad
|
|
]
|
|
{ onChange = CredentialsChange "loginUsername"
|
|
, text = Maybe.withDefault "" model.storage.loginUsername
|
|
, placeholder = Just (Input.placeholder [] (text ""))
|
|
, label = Input.labelHidden "email"
|
|
}
|
|
, Input.currentPassword []
|
|
{ onChange = CredentialsChange "loginPassword"
|
|
, text = Maybe.withDefault "" model.storage.loginPassword
|
|
, placeholder = Just (Input.placeholder [] (text ""))
|
|
, label = Input.labelHidden "password"
|
|
, show = False
|
|
}
|
|
, Input.button []
|
|
{ onPress = Just SubmitLogin
|
|
, label = text "Log In"
|
|
}
|
|
]
|