Add a chart on payments by month by categories

1 files changed, 34 insertions, 0 deletions

diff --git a/src/client/LoggedIn/Stat/Model.elm b/src/client/LoggedIn/Stat/Model.elm
new file mode 100644
index 0000000..bfc66f2
--- /dev/null
+++ b/src/client/LoggedIn/Stat/Model.elm
@@ -0,0 +1,34 @@
+module LoggedIn.Stat.Model exposing
+  ( Model
+  , init
+  , getPaymentsByMonthByCategory
+  )
+
+import Date exposing (Month)
+import List.Extra as List
+import Time exposing (Time)
+
+import Model.Category exposing (CategoryId)
+import Model.Conf exposing (Conf)
+import Model.Payment as Payment exposing (Payments)
+import Model.PaymentCategory as PaymentCategory exposing (PaymentCategories)
+
+type alias Model =
+  { paymentsByMonthByCategory : List ((Month, Int), List (CategoryId, Int))
+  }
+
+init : Time -> PaymentCategories -> Payments -> Model
+init currentTime paymentCategories payments =
+  { paymentsByMonthByCategory = getPaymentsByMonthByCategory currentTime paymentCategories payments
+  }
+
+getPaymentsByMonthByCategory : Time -> PaymentCategories -> Payments -> List ((Month, Int), List (CategoryId, Int))
+getPaymentsByMonthByCategory currentTime paymentCategories payments =
+  Payment.punctual payments
+    |> Payment.groupAndSortByMonth
+    |> List.map (\(m, payments) ->
+         ( m
+         , PaymentCategory.groupPaymentsByCategory paymentCategories payments
+             |> List.map (Tuple.mapSecond (List.sum << List.map .cost))
+         )
+       )