From 78048fcbc81521d145b79b4b47761a8b698d7ff7 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 19 Apr 2015 12:14:50 +0200
Subject: Adding a design to the HTML mail + Adding waitInMinutes in the
 configuration

---
 src/View/Html/Design.hs | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 src/View/Html/Design.hs

(limited to 'src/View/Html/Design.hs')

diff --git a/src/View/Html/Design.hs b/src/View/Html/Design.hs
new file mode 100644
index 0000000..c33d991
--- /dev/null
+++ b/src/View/Html/Design.hs
@@ -0,0 +1,35 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module View.Html.Design
+  ( dlDesign
+  , ddDesign
+  , priceDesign
+  ) where
+
+import Data.Text.Lazy (Text)
+import qualified Data.Text.Lazy as T
+import Data.Monoid ((<>))
+
+import Clay
+
+dlDesign :: Text
+dlDesign = inlineRender $ do
+  fontWeight bold
+  fontSize (px 16)
+
+ddDesign :: Text
+ddDesign = inlineRender $ do
+  marginLeft (px 0)
+  marginBottom (px 10)
+  color orangered
+
+priceDesign :: Text
+priceDesign = inlineRender $ do
+  marginLeft (px 10)
+  color orangered
+
+inlineRender :: Css -> Text
+inlineRender =
+  T.dropEnd 1
+  . T.drop 1
+  . renderWith compact []
-- 
cgit v1.2.3