From 5bfd349bedb9c395cbeb38bb888e379ba36d5d35 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 30 Dec 2015 17:01:56 +0100
Subject: Minor design modifications

---
 src/server/Design/Helper.hs | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

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

diff --git a/src/server/Design/Helper.hs b/src/server/Design/Helper.hs
index 6e2fde3..bd11766 100644
--- a/src/server/Design/Helper.hs
+++ b/src/server/Design/Helper.hs
@@ -3,14 +3,19 @@
 module Design.Helper
   ( clearFix
   , defaultButton
+  , iconButton
   , defaultInput
   , centeredWithMargin
   , expandBlock
   , verticalCentering
   ) where
 
+import Prelude hiding (span)
+
 import Clay
 
+import Data.Monoid ((<>))
+
 import Design.Constants
 import Design.Color as C
 import qualified Clay.Display as D
@@ -23,15 +28,29 @@ clearFix =
     clear both
 
 defaultButton :: Color -> Color -> Size Abs -> Css
-defaultButton backgroundCol textCol height = do
+defaultButton backgroundCol textCol h = do
   backgroundColor backgroundCol
   color textCol
   borderRadius radius radius radius radius
   verticalAlign middle
   cursor pointer
-  lineHeight height
+  lineHeight h
   textAlign (alignSide sideCenter)
 
+iconButton :: Color -> Color -> Size Abs -> Css
+iconButton backgroundCol textCol h = do
+  defaultButton backgroundCol textCol h
+  i <> span ? do
+    height h
+    lineHeight h
+  span ? do
+    display inlineBlock
+    marginLeft (px 20)
+  i ? do
+    marginLeft (px 20)
+    marginRight (px 20)
+  hover & i ? transform (scale 1.2 1.2)
+
 defaultInput :: Integer -> Css
 defaultInput inputHeight = do
   height (px inputHeight)
-- 
cgit v1.2.3