Adding login/logout functions thanks to a client session

2 files changed, 18 insertions, 2 deletions

diff --git a/src/server/Design/Color.hs b/src/server/Design/Color.hs
index bc7fca0..dada3df 100644
--- a/src/server/Design/Color.hs
+++ b/src/server/Design/Color.hs
@@ -4,3 +4,9 @@ import qualified Clay.Color as C
 
 brown :: C.Color
 brown = C.brown
+
+green :: C.Color
+green = C.green
+
+lightGrey :: C.Color
+lightGrey = C.rgb 230 230 230
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 3408b22..6460220 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -6,6 +6,7 @@ module Design.Global
 
 import Clay
 
+import Data.Monoid ((<>))
 import Data.Text.Lazy (Text)
 
 import Design.Color as C
@@ -20,10 +21,19 @@ global = do
     h1 ? do
       fontSize (px 40)
       textAlign (alignSide sideCenter)
-      margin (px 30) (px 0) (px 30) (px 0)
+      margin (px 30) (px 0) (px 40) (px 0)
       color C.brown
 
   table ? do
-    width (pct 50)
+    width (pct 100)
     textAlign (alignSide (sideCenter))
     "border-spacing" -: "10 px"
+
+    th ? do
+      color C.green
+      fontWeight bold
+      borderBottom solid (px 1) C.brown
+
+    tr <> th ? do
+      fontSize (px 18)
+      lineHeight (px 30)