Adding a design to the HTML mail + Adding waitInMinutes in the

configuration

1 files changed, 35 insertions, 0 deletions

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 []