Add tooltips

4 files changed, 36 insertions, 0 deletions

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
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index b60067c..2723dd5 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -81,6 +81,9 @@ data Key =
   | PaymentPunctual
   | PaymentMonthly
 
+  | Clone
+  | Edit
+  | Delete
   | ConfirmPaymentDelete
 
   -- Statistics
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 3c92601..9b018f6 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -342,6 +342,21 @@ m l ConfirmPaymentDelete =
     English -> "Are you sure to delete this payment ?"
     French  -> "Voulez-vous vraiment supprimer ce paiement ?"
 
+m l Edit =
+  case l of
+    English -> "Edit"
+    French  -> "Modifier"
+
+m l Clone =
+  case l of
+    English -> "Clone"
+    French  -> "Cloner"
+
+m l Delete =
+  case l of
+    English -> "Delete"
+    French  -> "Supprimer"
+
 -- Income
 
 m l CumulativeIncomesSince =