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/LoggedIn/Expandables.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'src/server/Design/LoggedIn/Expandables.hs')

diff --git a/src/server/Design/LoggedIn/Expandables.hs b/src/server/Design/LoggedIn/Expandables.hs
index 66a9b06..8ef42cd 100644
--- a/src/server/Design/LoggedIn/Expandables.hs
+++ b/src/server/Design/LoggedIn/Expandables.hs
@@ -22,7 +22,8 @@ expandablesDesign =
       right blockPadding
       bottom (px 2)
 
-    ".monthlyPayments" ? expandBlock C.blue C.white (px inputHeight)
+    ".monthlyPayments" ? do
+      expandBlock C.blue C.white (px inputHeight)
 
     ".account" ? do
       expandBlock C.green C.white (px inputHeight)
@@ -35,7 +36,7 @@ expandablesDesign =
         backgroundColor C.lightGrey
         padding (px 0) (px 20) (px 0) (px 20)
         position relative
-        lineHeight rowHeight
+        lineHeight (px rowHeightPx)
 
         input ? do
           defaultInput inputHeight
@@ -50,10 +51,10 @@ expandablesDesign =
           marginTop (px (-5))
 
         ".validateIncomeEdition" <> ".editIncomeEdition" ?
-          defaultButton C.red C.white (px inputHeight)
+          defaultButton C.red C.white (px inputHeight) focusLighten
 
         ".undoIncomeEdition" ?
-          defaultButton C.blue C.white (px inputHeight)
+          defaultButton C.blue C.white (px inputHeight) focusLighten
 
         ".error" ? do
           color C.redError
-- 
cgit v1.2.3