2 files changed, 70 insertions, 51 deletions

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index c87a2c1..8b957f1 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -47,15 +47,19 @@ data Key =
   | ShortDate
   | LongDate
 
-  -- Validation
+  -- Search
 
-  | CategoryRequired
-  | CostRequired
+  | SearchName
+  | SearchPunctual
+  | SearchMonthly
 
   -- Payments
 
+  | PaymentsAreBalanced
   | Name
   | Cost
+  | Payer
+  | Date
   | Frequency
   | InvalidFrequency
   | AddPayment
@@ -63,22 +67,22 @@ data Key =
   | Punctual
   | Monthly
 
-  | SingularMonthlyCount
-  | PluralMonthlyCount
   | PaymentsTitle
   | Payment
   | Payments
-  | SearchText
   | Worth
+  | NoPayment
+
+  | PaymentName
+  | PaymentCost
+  | PaymentPunctual
+  | PaymentMonthly
 
   -- Statistics
 
   | Statistics
-  | Balance
-  | Overall
-  | ByMonths
+  | ByMonthsAndMean
   | By
-  | Mean
 
   -- Income
 
@@ -86,8 +90,8 @@ data Key =
   | Income
   | MonthlyNetIncomes
   | IncomeNotDeleted
-  | Creation
-  | Amount
+  | IncomeCreation
+  | IncomeAmount
   | ConfirmDelete
 
   -- Form
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index f4087a4..df3f402 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -186,20 +186,30 @@ m l LongDate =
     English -> "{2} {1}, {3}"
     French  -> "{1} {2} {3}"
 
--- Validation
+-- Search
 
-m l CategoryRequired =
+m l SearchName =
   case l of
-    English -> "Type a category."
-    French  -> "Entre une catégorie."
+    English -> "Search"
+    French  -> "Recherche"
+
+m l SearchPunctual =
+  case l of
+    English -> "Punctual"
+    French  -> "Ponctuel"
 
-m l CostRequired =
+m l SearchMonthly =
   case l of
-    English -> "Type a positive cost."
-    French  -> "Entre un coût positif."
+    English -> "Monthly"
+    French  -> "Mensuel"
 
 -- Payments
 
+m l PaymentsAreBalanced =
+  case l of
+    English -> "Payments are balanced."
+    French  -> "Les paiements sont équilibrés."
+
 m l Name =
   case l of
     English -> "Name"
@@ -210,6 +220,16 @@ m l Cost =
     English -> "Cost"
     French  -> "Coût"
 
+m l Payer =
+  case l of
+    English -> "Payer"
+    French  -> "Payeur"
+
+m l Date =
+  case l of
+    English -> "Date"
+    French  -> "Date"
+
 m l Frequency =
   case l of
     English -> "Frequency"
@@ -240,16 +260,6 @@ m l Monthly =
     English -> "Monthly"
     French  -> "Mensuelle"
 
-m l SingularMonthlyCount =
-  case l of
-    English -> "{1} monthly payment of {2}"
-    French  -> "{1} paiement mensuel de {2}"
-
-m l PluralMonthlyCount =
-  case l of
-    English -> "{1} monthly payments worth {2}"
-    French  -> "{1} paiements mensuels comptabilisant {2}"
-
 m l PaymentsTitle =
   case l of
     English -> "Payments"
@@ -265,16 +275,16 @@ m l Payments =
     English -> "payments"
     French  -> "paiements"
 
-m l SearchText =
-  case l of
-    English -> "Search"
-    French  -> "Recherche"
-
 m l Worth =
   case l of
     English -> "{1} worth {2}"
     French  -> "{1} comptabilisant {2}"
 
+m l NoPayment =
+  case l of
+    English -> "No payment found from your search criteria."
+    French  -> "Aucun paiement ne correspond à vos critères de recherches."
+
 -- Statistics
 
 m l Statistics =
@@ -282,30 +292,35 @@ m l Statistics =
     English -> "Statistics"
     French  -> "Statistiques"
 
-m l Balance =
+m l ByMonthsAndMean =
+  case l of
+    English -> "By months ({1} on average)"
+    French  -> "Par mois (en moyenne {1})"
+
+m l By =
   case l of
-    English -> "Balance"
-    French  -> "Équilibre"
+    English -> "{1}: {2}"
+    French  -> "{1} : {2}"
 
-m l Overall =
+m l PaymentName =
   case l of
-    English -> "Overall"
-    French  -> "Global"
+    English -> "Name"
+    French  -> "Nom"
 
-m l ByMonths =
+m l PaymentCost =
   case l of
-    English -> "By months"
-    French  -> "Par mois"
+    English -> "Cost"
+    French  -> "Coût"
 
-m l By =
+m l PaymentPunctual =
   case l of
-    English -> "by"
-    French  -> "par"
+    English -> "Punctual"
+    French  -> "Ponctuel"
 
-m l Mean =
+m l PaymentMonthly =
   case l of
-    English -> "Mean: {1}"
-    French  -> "En moyenne : {1}"
+    English -> "Monthly"
+    French  -> "Mensuel"
 
 -- Income
 
@@ -329,12 +344,12 @@ m l IncomeNotDeleted =
     English -> "The income could not have been deleted."
     French  -> "Le revenu n'a pas pu être supprimé."
 
-m l Creation =
+m l IncomeCreation =
   case l of
     English -> "Creation"
     French  -> "Création"
 
-m l Amount =
+m l IncomeAmount =
   case l of
     English -> "Amount"
     French  -> "Montant"