From a8309988518af5bddf62d6a326d990fde4069b40 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2016 19:41:31 +0100
Subject: Set focus properties to button elements

---
 src/server/Design/SignIn.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/server/Design/SignIn.hs')

diff --git a/src/server/Design/SignIn.hs b/src/server/Design/SignIn.hs
index a90832e..a565ee4 100644
--- a/src/server/Design/SignIn.hs
+++ b/src/server/Design/SignIn.hs
@@ -8,6 +8,7 @@ import Clay
 
 import Design.Color as C
 import Design.Helper
+import Design.Constants
 
 signInDesign :: Css
 signInDesign =
@@ -17,9 +18,10 @@ signInDesign =
     button ? do
       display block
       margin (em 5) auto (em 2) auto
-      iconButton C.blue C.white (em 2.5)
+      iconButton C.blue C.white (em 2.5) focusLighten
       fontSize (em 1.5)
       position relative
+      ".waitingServer" & ("cursor" -: "not-allowed")
 
     ".error" ? do
       textAlign (alignSide sideCenter)
-- 
cgit v1.2.3