From 0fe906ae7453aa684e998bbcc7a78b62d84f0206 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 6 Apr 2014 22:55:16 +0200
Subject: Show resume and projects from a configuration file

---
 src/Design/Projects.hs | 51 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 src/Design/Projects.hs

(limited to 'src/Design/Projects.hs')

diff --git a/src/Design/Projects.hs b/src/Design/Projects.hs
new file mode 100644
index 0000000..311b7f8
--- /dev/null
+++ b/src/Design/Projects.hs
@@ -0,0 +1,51 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Design.Projects
+  ( projectsCss
+  ) where
+
+import           Prelude      hiding ((**))
+
+import           Data.Monoid  ((<>))
+
+import           Clay
+import qualified Clay.Flexbox as CF
+
+import qualified Design.Color as Color
+import qualified Design.Media as Media
+import qualified Design.Size  as Size
+
+projectsCss :: Css
+projectsCss =
+  ".project" ? do
+    margin (pct 0) (pct 10) (pct 0) (pct 10)
+
+    h1 ? ".separator" ? color Color.black
+
+    ".body" ? do
+      Size.indentation
+
+      ".technologies" <> ".pageLink" ? do
+        i ? marginRight (em 0.5)
+        Size.lineHeight
+        marginBottom (px 10)
+
+      ".technologies" ? do
+        Media.mobile $ fontSize (pct 90)
+        ul ? do
+          display flex
+          flexWrap CF.wrap
+          li ? do
+            backgroundColor Color.orange
+            color Color.white
+            borderRadius (px 2) (px 2) (px 2) (px 2)
+            margin (px 0) (px 10) (px 5) (px 0)
+            ":last-child:after" & marginRight (px 0)
+
+            Media.desktop $ padding (px 0) (px 10) (px 0) (px 10)
+            Media.mobileTablet $ padding (px 0) (px 5) (px 0) (px 5)
+
+      ".description" ? do
+        Size.lineHeight
+        marginTop (px 10)
+        Media.desktop $ width (pct 50)
-- 
cgit v1.2.3