Delete income

2 files changed, 49 insertions, 11 deletions

diff --git a/server/src/Design/View/ConfirmDialog.hs b/server/src/Design/View/ConfirmDialog.hs
new file mode 100644
index 0000000..410d4d8
--- /dev/null
+++ b/server/src/Design/View/ConfirmDialog.hs
@@ -0,0 +1,36 @@
+module Design.View.ConfirmDialog
+  ( design
+  ) where
+
+import           Clay
+
+import qualified Design.Color     as Color
+import qualified Design.Constants as Constants
+import qualified Design.Helper    as Helper
+
+design :: Css
+design = do
+  ".confirm" ? do
+    ".confirmHeader" ? do
+      backgroundColor Color.chestnutRose
+      fontSize (px 18)
+      color Color.white
+      sym padding (px 20)
+      textAlign (alignSide sideCenter)
+      borderRadius (px 5) (px 5) (px 0) (px 0)
+
+    ".confirmContent" ? do
+      sym padding (px 20)
+
+      ".buttons" ? do
+        display flex
+        justifyContent spaceAround
+        marginTop (em 1.5)
+
+        ".confirm" ?
+          Helper.button Color.chestnutRose Color.white (px Constants.inputHeight) Constants.focusLighten
+        ".undo" ?
+          Helper.button Color.silver Color.white (px Constants.inputHeight) Constants.focusLighten
+
+        (".confirm" <> ".undo") ?
+          width (px 90)
diff --git a/server/src/Design/Views.hs b/server/src/Design/Views.hs
index 73b7240..5c9e307 100644
--- a/server/src/Design/Views.hs
+++ b/server/src/Design/Views.hs
@@ -4,17 +4,18 @@ module Design.Views
 
 import           Clay
 
-import qualified Design.Color         as Color
-import qualified Design.Constants     as Constants
-import qualified Design.Helper        as Helper
-import qualified Design.Media         as Media
-import qualified Design.View.Header   as Header
-import qualified Design.View.NotFound as NotFound
-import qualified Design.View.Pages    as Pages
-import qualified Design.View.Payment  as Payment
-import qualified Design.View.SignIn   as SignIn
-import qualified Design.View.Stat     as Stat
-import qualified Design.View.Table    as Table
+import qualified Design.Color              as Color
+import qualified Design.Constants          as Constants
+import qualified Design.Helper             as Helper
+import qualified Design.Media              as Media
+import qualified Design.View.ConfirmDialog as ConfirmDialog
+import qualified Design.View.Header        as Header
+import qualified Design.View.NotFound      as NotFound
+import qualified Design.View.Pages         as Pages
+import qualified Design.View.Payment       as Payment
+import qualified Design.View.SignIn        as SignIn
+import qualified Design.View.Stat          as Stat
+import qualified Design.View.Table         as Table
 
 design :: Css
 design = do
@@ -25,6 +26,7 @@ design = do
   ".notfound" ? NotFound.design
   Table.design
   Pages.design
+  ConfirmDialog.design
 
   ".withMargin" ? do
     "margin" -: "0 2vw"