From 2a53fe50c62d4b7aec0f422998c743f68aa523c1 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Tue, 21 Jul 2015 23:25:58 +0200
Subject: Adding the payment without reloading the page

---
 src/client/View/SignIn.elm | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

(limited to 'src/client/View/SignIn.elm')

diff --git a/src/client/View/SignIn.elm b/src/client/View/SignIn.elm
index 02ee1bd..a45adc7 100644
--- a/src/client/View/SignIn.elm
+++ b/src/client/View/SignIn.elm
@@ -2,7 +2,7 @@ module View.SignIn
   ( renderSignIn
   ) where
 
-import Html exposing (..)
+import Html as H exposing (..)
 import Html.Attributes exposing (..)
 import Html.Events exposing (..)
 
@@ -16,20 +16,21 @@ import ServerCommunication exposing (serverCommunications)
 
 import Model.View.SignInView exposing (..)
 
+import View.Events exposing (onSubmitPrevDefault)
+
 renderSignIn : SignInView -> Html
 renderSignIn signInView =
   div
     [ class "signIn" ]
-    [ div
-        [ class "form" ]
+    [ H.form
+        [ onSubmitPrevDefault serverCommunications.address (SC.SignIn signInView.login) ]
         [ input
             [ value signInView.login
             , on "input" targetValue (Signal.message actions.address << UpdateSignIn << UpdateLogin)
-            , onEnter serverCommunications.address (SC.SignIn signInView.login)
             ]
             []
         , button
-            [ onClick serverCommunications.address (SC.SignIn signInView.login) ]
+            []
             [ text "Sign in" ]
         ]
     , div
@@ -37,12 +38,6 @@ renderSignIn signInView =
         [ signInResult signInView ]
     ]
 
-onEnter : Signal.Address a -> a -> Attribute
-onEnter address value =
-  on "keydown"
-    (Json.customDecoder keyCode (\code -> if code == 13 then Ok () else Err ""))
-    (\_ -> Signal.message address value)
-
 signInResult : SignInView -> Html
 signInResult signInView =
   case signInView.result of
-- 
cgit v1.2.3