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