Ameliore design in income page and stat page

1 files changed, 24 insertions, 10 deletions

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index c41d06f..90dd842 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -8,17 +8,26 @@ import Clay
 
 import Data.Text.Lazy (Text)
 
-import Design.Header
-import Design.SignIn
-import Design.LoggedIn
+import qualified Design.Header as HeaderDesign
+import qualified Design.SignIn as SignInDesign
+import qualified Design.LoggedIn as LoggedInDesign
+
 import Design.Animation.Keyframes
 
+import Design.Color as Color
+
 globalDesign :: Text
 globalDesign = renderWith compact [] global
 
 global :: Css
 global = do
 
+  header ? HeaderDesign.design
+  ".signIn" ? SignInDesign.design
+  ".loggedIn" ? LoggedInDesign.design
+
+  allKeyframes
+
   body ? do
     position relative
     minWidth (px 550)
@@ -26,10 +35,15 @@ global = do
 
   a ? cursor pointer
 
-  allKeyframes
-
-  signInDesign
-
-  headerDesign
-
-  loggedInDesign
+  h1 ? do
+    fontSize (px 20)
+    color Color.red
+    marginBottom (em 1)
+
+  ul ? do
+    marginBottom (em 1)
+    li ? do
+      marginBottom (em 0.5)
+      before & do
+        content (stringContent "• ")
+        color Color.red