From 071b07463ab3f6894928b13553e98cd47c9ccb18 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 28 Jun 2016 00:32:37 +0200
Subject: Add tooltips

---
 src/server/Design/Global.hs  |  2 ++
 src/server/Design/Tooltip.hs | 16 ++++++++++++++++
 2 files changed, 18 insertions(+)
 create mode 100644 src/server/Design/Tooltip.hs

(limited to 'src/server/Design')

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 68d0196..dfe19b0 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -13,6 +13,7 @@ import qualified Design.SignIn as SignIn
 import qualified Design.LoggedIn as LoggedIn
 import qualified Design.Form as Form
 import qualified Design.Dialog as Dialog
+import qualified Design.Tooltip as Tooltip
 
 import Design.Color as Color
 import Design.Helper as Helper
@@ -28,6 +29,7 @@ global = do
   ".signIn" ? SignIn.design
   ".loggedIn" ? LoggedIn.design
   ".dialog" ? Dialog.design
+  ".tooltip" ? Tooltip.design
   Form.design
 
   body ? do
diff --git a/src/server/Design/Tooltip.hs b/src/server/Design/Tooltip.hs
new file mode 100644
index 0000000..1da8764
--- /dev/null
+++ b/src/server/Design/Tooltip.hs
@@ -0,0 +1,16 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Design.Tooltip
+  ( design
+  ) where
+
+import Clay
+
+import Design.Color as Color
+
+design :: Css
+design = do
+  backgroundColor Color.mossGreen
+  borderRadius (px 5) (px 5) (px 5) (px 5)
+  padding (px 5) (px 5) (px 5) (px 5)
+  color Color.white
-- 
cgit v1.2.3