From 5c110716cfda6e616a795edd12f2012b132dca9f Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 2 Apr 2017 17:51:12 +0200
Subject: Add a chart on payments by month by categories

---
 src/server/Model/Message/Key.hs          |   2 +
 src/server/Model/Message/Translations.hs | 110 +++++++++++++++++--------------
 2 files changed, 62 insertions(+), 50 deletions(-)

(limited to 'src/server/Model')

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index efe8aaa..18f16f0 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -45,6 +45,7 @@ data Key =
   | December
 
   | ShortDate
+  | ShortMonthAndYear
   | LongDate
 
   -- Search
@@ -106,6 +107,7 @@ data Key =
   | Statistics
   | ByMonthsAndMean
   | By
+  | Total
 
   -- Income
 
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 90f509a..7d26c3f 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -181,6 +181,11 @@ m l ShortDate =
     English -> "{3}-{2}-{1}"
     French  -> "{1}/{2}/{3}"
 
+m l ShortMonthAndYear =
+  case l of
+    English -> "{2}-{1}"
+    French  -> "{1}/{2}"
+
 m l LongDate =
   case l of
     English -> "{2} {1}, {3}"
@@ -295,6 +300,56 @@ m l NoPayment =
     English -> "No payment found from your search criteria."
     French  -> "Aucun paiement ne correspond à vos critères de recherches."
 
+m l PaymentName =
+  case l of
+    English -> "Name"
+    French  -> "Nom"
+
+m l PaymentCost =
+  case l of
+    English -> "Cost"
+    French  -> "Coût"
+
+m l PaymentDate =
+  case l of
+    English -> "Date"
+    French  -> "Date"
+
+m l PaymentCategory =
+  case l of
+    English -> "Category"
+    French  -> "Catégorie"
+
+m l PaymentPunctual =
+  case l of
+    English -> "Punctual"
+    French  -> "Ponctuel"
+
+m l PaymentMonthly =
+  case l of
+    English -> "Monthly"
+    French  -> "Mensuel"
+
+m l ConfirmPaymentDelete =
+  case l of
+    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"
+
 -- Categories
 
 m l Categories =
@@ -361,63 +416,18 @@ m l Statistics =
 
 m l ByMonthsAndMean =
   case l of
-    English -> "By months ({1} on average)"
-    French  -> "Par mois (en moyenne {1})"
+    English -> "Payments by category by month months ({1} on average)"
+    French  -> "Paiements par catégorie par mois (en moyenne {1})"
 
 m l By =
   case l of
     English -> "{1}: {2}"
     French  -> "{1} : {2}"
 
-m l PaymentName =
-  case l of
-    English -> "Name"
-    French  -> "Nom"
-
-m l PaymentCost =
-  case l of
-    English -> "Cost"
-    French  -> "Coût"
-
-m l PaymentDate =
-  case l of
-    English -> "Date"
-    French  -> "Date"
-
-m l PaymentCategory =
-  case l of
-    English -> "Category"
-    French  -> "Catégorie"
-
-m l PaymentPunctual =
-  case l of
-    English -> "Punctual"
-    French  -> "Ponctuel"
-
-m l PaymentMonthly =
-  case l of
-    English -> "Monthly"
-    French  -> "Mensuel"
-
-m l ConfirmPaymentDelete =
-  case l of
-    English -> "Are you sure to delete this payment ?"
-    French  -> "Voulez-vous vraiment supprimer ce paiement ?"
-
-m l Edit =
+m l Total =
   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"
+    English -> "Total"
+    French  -> "Total"
 
 -- Income
 
-- 
cgit v1.2.3