git.iko.soy/warden
on master help sign in
Added submit on return
1f3106eiko
frontend/Pages/Login.elm+26−24
compare with master
unifiedsplit
@@ -69,29 +69,31 @@ subscriptions model =
69
69
70view : Model -> List (Html Msg)
70view : Model -> List (Html Msg)
71view model =
71view model =
72+ [ form [ Ev.onSubmit Submit ]
72− [ label [] [ text "Server" ]
73+ [ label [] [ text "Server" ]
73− , input
74+ , input
74− [ Attr.type_ "url"
75+ [ Attr.type_ "url"
75− , Attr.value model.server
76+ , Attr.value model.server
76− , Ev.onInput UpdateServer
77+ , Ev.onInput UpdateServer
78+ , Attr.attribute "autocomplete" "url"
79+ ]
80+ []
81+ , label [] [ text "Email" ]
82+ , input
83+ [ Attr.type_ "email"
84+ , Attr.value model.email
85+ , Ev.onInput UpdateEmail
86+ , Attr.attribute "autocomplete" "email"
87+ ]
88+ []
89+ , label [] [ text "Password" ]
90+ , input
91+ [ Attr.type_ "password"
92+ , Attr.value model.password
93+ , Ev.onInput UpdatePassword
77− , Attr.attribute "autocomplete" "url"
94+ , Attr.attribute "autocomplete" "current-password"
95+ ]
96+ []
97+ , alignRight [ button [ Attr.type_ "submit" ] [ text "Log in" ] ]
78 ]
98 ]
79− []
80− , label [] [ text "Email" ]
81− , input
82− [ Attr.type_ "email"
83− , Attr.value model.email
84− , Ev.onInput UpdateEmail
85− , Attr.attribute "autocomplete" "email"
86− ]
87− []
88− , label [] [ text "Password" ]
89− , input
90− [ Attr.type_ "password"
91− , Attr.value model.password
92− , Ev.onInput UpdatePassword
93− , Attr.attribute "autocomplete" "current-password"
94− ]
95− []
96− , alignRight [ button [ Ev.onClick Submit ] [ text "Log in" ] ]
97 ]
99 ]
frontend/Pages/MasterPassword.elm+10−8
@@ -77,13 +77,15 @@ view model =
77 ]
77 ]
78 ]
78 ]
79 ]
79 ]
80+ , form [ Ev.onSubmit Submit ]
80− , label [] [ text "Password" ]
81+ [ label [] [ text "Password" ]
81− , input
82+ , input
82− [ Attr.type_ "password"
83+ [ Attr.type_ "password"
83− , Attr.value model.password
84+ , Attr.value model.password
84− , Ev.onInput UpdatePassword
85+ , Ev.onInput UpdatePassword
85− , Attr.attribute "autocomplete" "current-password"
86+ , Attr.attribute "autocomplete" "current-password"
87+ ]
88+ []
89+ , alignRight [ button [ Attr.type_ "submit" ] [ text "Log in" ] ]
86 ]
90 ]
87− []
88− , alignRight [ button [ Ev.onClick Submit ] [ text "Log in" ] ]
89 ]
91 ]