Prevent login page's email & password values appearing in signup's username & email fields.

src/Page/Article/Editor.elm

@@ -27,6 +27,7 @@ type alias Model =
     , body : String
     , description : String
     , tags : List String
+    , isSaving : Bool
     }
 
 
@@ -38,6 +39,7 @@ initNew =
     , body = ""
     , description = ""
     , tags = []
+    , isSaving = False
     }
 
 
@@ -59,6 +61,7 @@ initEdit session slug =
                 , body = Article.bodyToMarkdownString article.body
                 , description = article.description
                 , tags = article.tags
+                , isSaving = False
                 }
             )
 
@@ -121,7 +124,7 @@ viewForm model =
                 , defaultValue (String.join " " model.tags)
                 ]
                 []
-            , button [ class "btn btn-lg pull-xs-right btn-primary" ]
+            , button [ class "btn btn-lg pull-xs-right btn-primary", disabled model.isSaving ]
                 [ text saveButtonText ]
             ]
         ]
@@ -152,13 +155,13 @@ update user msg model =
                             user.token
                                 |> Request.Article.create model
                                 |> Http.send CreateCompleted
-                                |> pair { model | errors = [] }
+                                |> pair { model | errors = [], isSaving = True }
 
                         Just slug ->
                             user.token
                                 |> Request.Article.update slug model
                                 |> Http.send EditCompleted
-                                |> pair { model | errors = [] }
+                                |> pair { model | errors = [], isSaving = True }
 
                 errors ->
                     { model | errors = errors } => Cmd.none
@@ -181,7 +184,10 @@ update user msg model =
                 |> pair model
 
         CreateCompleted (Err error) ->
-            { model | errors = model.errors ++ [ Form => "Server error while attempting to publish article" ] }
+            { model
+                | errors = model.errors ++ [ Form => "Server error while attempting to publish article" ]
+                , isSaving = False
+            }
                 => Cmd.none
 
         EditCompleted (Ok article) ->
@@ -190,7 +196,10 @@ update user msg model =
                 |> pair model
 
         EditCompleted (Err error) ->
-            { model | errors = model.errors ++ [ Form => "Server error while attempting to save article" ] }
+            { model
+                | errors = model.errors ++ [ Form => "Server error while attempting to save article" ]
+                , isSaving = False
+            }
                 => Cmd.none
 
 

src/Page/Login.elm

@@ -8,6 +8,7 @@ import Data.User exposing (User)
 import Html exposing (..)
 import Html.Attributes exposing (..)
 import Html.Events exposing (..)
+import Html.Keyed as Keyed
 import Http
 import Json.Decode as Decode exposing (Decoder, decodeString, field, string)
 import Json.Decode.Pipeline exposing (decode, optional)
@@ -61,22 +62,32 @@ view session model =
 
 viewForm : Html Msg
 viewForm =
-    Html.form [ onSubmit SubmitForm ]
-        [ Form.input
-            [ class "form-control-lg"
-            , placeholder "Email"
-            , onInput SetEmail
-            ]
-            []
-        , Form.password
-            [ class "form-control-lg"
-            , placeholder "Password"
-            , onInput SetPassword
+    let
+        keyedForm =
+            Keyed.node "form"
+    in
+        keyedForm [ onSubmit SubmitForm ]
+            [ ( "login-form-email"
+              , Form.input
+                    [ class "form-control-lg"
+                    , placeholder "Email"
+                    , onInput SetEmail
+                    ]
+                    []
+              )
+            , ( "login-form-password"
+              , Form.password
+                    [ class "form-control-lg"
+                    , placeholder "Password"
+                    , onInput SetPassword
+                    ]
+                    []
+              )
+            , ( "login-form-sign-in"
+              , button [ class "btn btn-lg btn-primary pull-xs-right" ]
+                    [ text "Sign in" ]
+              )
             ]
-            []
-        , button [ class "btn btn-lg btn-primary pull-xs-right" ]
-            [ text "Sign in" ]
-        ]
 
 
 
@@ -132,9 +143,9 @@ update msg model =
                         _ ->
                             [ "unable to perform login" ]
             in
-            { model | errors = List.map (\errorMessage -> Form => errorMessage) errorMessages }
-                => Cmd.none
-                => NoOp
+                { model | errors = List.map (\errorMessage -> Form => errorMessage) errorMessages }
+                    => Cmd.none
+                    => NoOp
 
         LoginCompleted (Ok user) ->
             model
@@ -200,4 +211,4 @@ optionalError fieldName =
         errorToString errorMessage =
             String.join " " [ fieldName, errorMessage ]
     in
-    optional fieldName (Decode.list (Decode.map errorToString string)) []
+        optional fieldName (Decode.list (Decode.map errorToString string)) []