From a267f0bb4566389342c3244d3c082dc2453f4615 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Nov 2019 09:22:12 +0100
Subject: Show users in income table

---
 server/server.cabal            |  1 +
 server/src/Design/Appearing.hs | 25 +++++++++++++++++++++++++
 server/src/Design/Global.hs    |  2 ++
 3 files changed, 28 insertions(+)
 create mode 100644 server/src/Design/Appearing.hs

(limited to 'server')

diff --git a/server/server.cabal b/server/server.cabal
index c7b4f2b..b170a18 100644
--- a/server/server.cabal
+++ b/server/server.cabal
@@ -65,6 +65,7 @@ Executable server
     Controller.Payment
     Controller.User
     Cookie
+    Design.Appearing
     Design.Color
     Design.Constants
     Design.Errors
diff --git a/server/src/Design/Appearing.hs b/server/src/Design/Appearing.hs
new file mode 100644
index 0000000..79b94b3
--- /dev/null
+++ b/server/src/Design/Appearing.hs
@@ -0,0 +1,25 @@
+module Design.Appearing
+  ( design
+  ) where
+
+import           Clay
+
+design :: Css
+design = do
+
+  appearKeyframe
+
+  ".g-Appearing" ? do
+    appearAnimation
+
+appearAnimation :: Css
+appearAnimation = do
+  animationName "appear"
+  animationDuration (sec 0.2)
+  animationTimingFunction easeIn
+
+appearKeyframe :: Css
+appearKeyframe = keyframes
+  "appear"
+  [ (0, "opacity" -: "0")
+  ]
diff --git a/server/src/Design/Global.hs b/server/src/Design/Global.hs
index f9884bd..df41cfd 100644
--- a/server/src/Design/Global.hs
+++ b/server/src/Design/Global.hs
@@ -6,6 +6,7 @@ import           Clay
 import           Clay.Color       as C
 import           Data.Text.Lazy   (Text)
 
+import qualified Design.Appearing as Appearing
 import qualified Design.Color     as Color
 import qualified Design.Constants as Constants
 import qualified Design.Errors    as Errors
@@ -22,6 +23,7 @@ globalDesign = renderWith compact [] global
 global :: Css
 global = do
   ".errors" ? Errors.design
+  Appearing.design
   Modal.design
   ".tooltip" ? Tooltip.design
   Views.design
-- 
cgit v1.2.3