aboutsummaryrefslogtreecommitdiff
path: root/src/server
diff options
context:
space:
mode:
Diffstat (limited to 'src/server')
-rw-r--r--src/server/Design/Global.hs2
-rw-r--r--src/server/Design/Tooltip.hs16
-rw-r--r--src/server/Model/Message/Key.hs3
-rw-r--r--src/server/Model/Message/Translations.hs15
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 =