From 4ce9751c9e645916fdde71874c2cdadd252f32a0 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 6 Jul 2015 00:16:45 +0200
Subject: Setting up Scotty, Persistent, Clay, Blaze, Esqueleto, Elm

---
 src/server/Design/Color.hs  |  6 ++++++
 src/server/Design/Global.hs | 21 +++++++++++++++++++++
 2 files changed, 27 insertions(+)
 create mode 100644 src/server/Design/Color.hs
 create mode 100644 src/server/Design/Global.hs

(limited to 'src/server/Design')

diff --git a/src/server/Design/Color.hs b/src/server/Design/Color.hs
new file mode 100644
index 0000000..bc7fca0
--- /dev/null
+++ b/src/server/Design/Color.hs
@@ -0,0 +1,6 @@
+module Design.Color where
+
+import qualified Clay.Color as C
+
+brown :: C.Color
+brown = C.brown
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
new file mode 100644
index 0000000..cc16e2e
--- /dev/null
+++ b/src/server/Design/Global.hs
@@ -0,0 +1,21 @@
+module Design.Global
+  ( globalDesign
+  ) where
+
+import Clay
+
+import Data.Text.Lazy (Text)
+
+import Design.Color as C
+
+globalDesign :: Text
+globalDesign = renderWith compact [] global
+
+global :: Css
+global =
+  header ?
+    h1 ? do
+      fontSize (px 40)
+      textAlign (alignSide sideCenter)
+      margin (px 30) (px 0) (px 30) (px 0)
+      color C.brown
-- 
cgit v1.2.3