From 36a90770ebeb9bd99e136bfe035fdda5dfabc304 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 19 Jun 2016 21:18:56 +0200
Subject: Add a dialog to confirm income deletion

---
 src/server/Design/Global.hs | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

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

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 68cff68..7d4a1bb 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -8,14 +8,16 @@ import Clay
 
 import Data.Text.Lazy (Text)
 
-import qualified Design.Header as HeaderDesign
-import qualified Design.SignIn as SignInDesign
-import qualified Design.LoggedIn as LoggedInDesign
+import qualified Design.Header as Header
+import qualified Design.SignIn as SignIn
+import qualified Design.LoggedIn as LoggedIn
 import qualified Design.Form as Form
 
 import Design.Animation.Keyframes
 
 import Design.Color as Color
+import Design.Helper as Helper
+import Design.Constants as Constants
 
 globalDesign :: Text
 globalDesign = renderWith compact [] global
@@ -23,9 +25,9 @@ globalDesign = renderWith compact [] global
 global :: Css
 global = do
 
-  header ? HeaderDesign.design
-  ".signIn" ? SignInDesign.design
-  ".loggedIn" ? LoggedInDesign.design
+  header ? Header.design
+  ".signIn" ? SignIn.design
+  ".loggedIn" ? LoggedIn.design
   Form.design
 
   allKeyframes
@@ -54,4 +56,8 @@ global = do
         "margin-left" -: "3vh"
         "margin-top" -: "2vh"
 
+  ".dialog" ? ".content" ? button ? do
+    ".confirm" & Helper.defaultButton Color.chestnutRose Color.white (px Constants.inputHeight) Constants.focusLighten
+    ".undo" & Helper.defaultButton Color.silver Color.white (px Constants.inputHeight) Constants.focusLighten
+
   svg ? height (pct 100)
-- 
cgit v1.2.3