Add total payment partition

1 files changed, 25 insertions, 12 deletions

diff --git a/src/client/elm/LoggedIn/Stat/View.elm b/src/client/elm/LoggedIn/Stat/View.elm
index 6661a75..573d5bc 100644
--- a/src/client/elm/LoggedIn/Stat/View.elm
+++ b/src/client/elm/LoggedIn/Stat/View.elm
@@ -3,6 +3,8 @@ module LoggedIn.Stat.View
   ) where
 
 import Date exposing (Month)
+import Dict
+import String
 
 import Html exposing (..)
 import Html.Attributes exposing (..)
@@ -17,6 +19,9 @@ import LoggedIn.View.Format as Format
 import LoggedIn.View.Date as Date
 
 import View.Plural exposing (plural)
+import LoggedIn.View.Format as Format
+
+import Utils.Tuple as Tuple
 
 view : LoggedData -> Html
 view loggedData =
@@ -40,22 +45,30 @@ paymentsDetail loggedData payments =
         ]
     , li
         []
-        [ text (paymentsSum loggedData.conf payments) ]
-    , li
-        []
-        [ text "Par utilisateur:"
-        , totalPayments loggedData
+        [ text (paymentsSum loggedData.conf payments)
+        , text " − "
+        , text <| totalPayments loggedData
         ]
     ]
 
-totalPayments : LoggedData -> Html
+totalPayments : LoggedData -> String
 totalPayments loggedData =
-  ul
-    []
-    [ li [] [ text "Jacques: 1 300€" ]
-    , li [] [ text "Anne: 2 500 €" ]
-    ]
-
+  String.join
+    ", "
+    ( loggedData.users
+        |> Dict.toList
+        |> List.map (Tuple.mapFst (\userId -> Payment.totalPayments (always True) userId loggedData.payments))
+        |> List.sortBy fst
+        |> List.map (\(sum, user) ->
+             String.concat
+               [ Format.price loggedData.conf sum
+               , " "
+               , getMessage "By" loggedData.translations
+               , " "
+               , user.name
+               ]
+           )
+    )
 
 monthsDetail : LoggedData -> Html
 monthsDetail loggedData =