Send weekly activity at start of week about previous week

1 files changed, 112 insertions, 35 deletions

diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 994a56c..cf11a5e 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -118,63 +118,63 @@ m l SignInEmailSent =
 
 m l January =
   case l of
-    English -> "January"
-    French  -> "Janvier"
+    English -> "january"
+    French  -> "janvier"
 
 m l February =
   case l of
-    English -> "February"
-    French  -> "Février"
+    English -> "february"
+    French  -> "février"
 
 m l March =
   case l of
-    English -> "March"
-    French  -> "Mars"
+    English -> "march"
+    French  -> "mars"
 
 m l April =
   case l of
-    English -> "April"
-    French  -> "Avril"
+    English -> "april"
+    French  -> "avril"
 
 m l May =
   case l of
-    English -> "May"
-    French  -> "Mai"
+    English -> "may"
+    French  -> "mai"
 
 m l June =
   case l of
-    English -> "June"
-    French  -> "Juin"
+    English -> "june"
+    French  -> "juin"
 
 m l July =
   case l of
-    English -> "July"
-    French  -> "Juillet"
+    English -> "july"
+    French  -> "juillet"
 
 m l August =
   case l of
-    English -> "August"
-    French  -> "Août"
+    English -> "august"
+    French  -> "août"
 
 m l September =
   case l of
-    English -> "September"
-    French  -> "Septembre"
+    English -> "september"
+    French  -> "septembre"
 
 m l October =
   case l of
-    English -> "October"
-    French  -> "Octobre"
+    English -> "october"
+    French  -> "octobre"
 
 m l November =
   case l of
-    English -> "November"
-    French  -> "Novembre"
+    English -> "november"
+    French  -> "novembre"
 
 m l December =
   case l of
-    English -> "December"
-    French  -> "Décembre"
+    English -> "december"
+    French  -> "décembre"
 
 m l ShortDate =
   case l of
@@ -322,11 +322,6 @@ m l PaymentCost =
     English -> "Cost"
     French  -> "Coût"
 
-m l PaymentDate =
-  case l of
-    English -> "Date"
-    French  -> "Date"
-
 m l PaymentPunctual =
   case l of
     English -> "Punctual"
@@ -371,7 +366,7 @@ m l Income =
 
 m l MonthlyNetIncomes =
   case l of
-    English -> "Monthly incomes"
+    English -> "Net monthly incomes"
     French  -> "Revenus mensuels nets"
 
 m l AddIncome =
@@ -394,11 +389,6 @@ m l IncomeNotDeleted =
     English -> "The income could not have been deleted."
     French  -> "Le revenu n'a pas pu être supprimé."
 
-m l IncomeDate =
-  case l of
-    English -> "Date"
-    French  -> "Date"
-
 m l IncomeAmount =
   case l of
     English -> "Amount"
@@ -495,6 +485,93 @@ m l Undo =
     English -> "Undo"
     French  -> "Annuler"
 
+-- Weekly report
+
+m l WeeklyReport =
+  case l of
+    English -> "Weekly report"
+    French  -> "Rapport hebdomadaire"
+
+m l PaymentCreated =
+  case l of
+    English -> "{1} payment created:"
+    French  -> "{1} paiement créé :"
+
+m l PaymentsCreated =
+  case l of
+    English -> "{1} payments created:"
+    French  -> "{1} paiements créés :"
+
+m l PaymentEdited =
+  case l of
+    English -> "{1} payment edited:"
+    French  -> "{1} paiement modifié :"
+
+m l PaymentsEdited =
+  case l of
+    English -> "{1} payments edited:"
+    French  -> "{1} paiements modifiés :"
+
+m l PaymentDeleted =
+  case l of
+    English -> "{1} payment deleted:"
+    French  -> "{1} paiement supprimé :"
+
+m l PaymentsDeleted =
+  case l of
+    English -> "{1} payments deleted:"
+    French  -> "{1} paiements supprimés :"
+
+m l IncomeCreated =
+  case l of
+    English -> "{1} income created:"
+    French  -> "{1} revenu créé :"
+
+m l IncomesCreated =
+  case l of
+    English -> "{1} incomes created:"
+    French  -> "{1} revenus créés :"
+
+m l IncomeEdited =
+  case l of
+    English -> "{1} income edited:"
+    French  -> "{1} revenu modifié :"
+
+m l IncomesEdited =
+  case l of
+    English -> "{1} incomes edited:"
+    French  -> "{1} revenus modifiés :"
+
+m l IncomeDeleted =
+  case l of
+    English -> "{1} income deleted:"
+    French  -> "{1} revenu supprimé :"
+
+m l IncomesDeleted =
+  case l of
+    English -> "{1} incomes deleted:"
+    French  -> "{1} revenus supprimés :"
+
+m l PayedFor =
+  case l of
+    English -> "{1} payed {2} for “{3}” at {4}"
+    French  -> "{1} a payé {2} concernant « {3} » le {4}"
+
+m l DidNotPayFor =
+  case l of
+    English -> "{1} didn't pay {2} for “{3}” at {4}"
+    French  -> "{1} n'a pas payé {2} concernant « {3} » le {4}"
+
+m l IsPayedFrom =
+  case l of
+    English -> "{1} is payed {2} of net monthly income from {3}"
+    French  -> "{1} est payé {2} net par mois à partir du {3}"
+
+m l IsNotPayedFrom =
+  case l of
+    English -> "{1} isn't payed {2} of net monthly income from {3}"
+    French  -> "{1} n'est pas payé {2} net par mois à partir du {3}"
+
 -- Http error
 
 m l Timeout =