From 1e47a7754ca38bd1a6c74765d8378caf68ce4619 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 26 Mar 2017 21:10:42 +0200
Subject: Separate client and server watch

---
 src/client/elm/LoggedIn/Stat/View.elm | 62 -----------------------------------
 1 file changed, 62 deletions(-)
 delete mode 100644 src/client/elm/LoggedIn/Stat/View.elm

(limited to 'src/client/elm/LoggedIn/Stat/View.elm')

diff --git a/src/client/elm/LoggedIn/Stat/View.elm b/src/client/elm/LoggedIn/Stat/View.elm
deleted file mode 100644
index f57316a..0000000
--- a/src/client/elm/LoggedIn/Stat/View.elm
+++ /dev/null
@@ -1,62 +0,0 @@
-module LoggedIn.Stat.View exposing
-  ( view
-  )
-
-import Date exposing (Month)
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-
-import LoggedData exposing (LoggedData)
-
-import Msg exposing (Msg)
-
-import Model.Payment as Payment exposing (Payments)
-import Model.Conf exposing (Conf)
-import Model.Translations exposing (getMessage, getParamMessage)
-
-import LoggedIn.View.Format as Format
-import View.Date as Date
-import View.Plural exposing (plural)
-
-import Utils.List as List
-
-view : LoggedData -> Html Msg
-view loggedData =
-  let paymentsByMonth = Payment.groupAndSortByMonth (Payment.punctual loggedData.payments)
-      monthPaymentMean = getMonthPaymentMean loggedData paymentsByMonth
-  in  div
-        [ class "stat withMargin" ]
-        [ h1 [] [ text (getParamMessage [ Format.price loggedData.conf monthPaymentMean ] loggedData.translations "ByMonthsAndMean") ]
-        , ul
-            []
-            ( List.map (monthDetail loggedData) paymentsByMonth)
-        ]
-
-getMonthPaymentMean : LoggedData -> List ((Month, Int), Payments) -> Int
-getMonthPaymentMean loggedData paymentsByMonth =
-  paymentsByMonth
-    |> List.filter (\((month, year), _) ->
-         let currentDate = Date.fromTime loggedData.currentTime
-         in  not (Date.month currentDate == month && Date.year currentDate == year)
-       )
-    |> List.map (List.sum << List.map .cost << Tuple.second)
-    |> List.mean
-
-monthDetail : LoggedData -> ((Month, Int), Payments) -> Html Msg
-monthDetail loggedData ((month, year), payments) =
-  li
-    []
-    [ text (Date.monthView loggedData.translations month)
-    , text " "
-    , text (toString year)
-    , text " − "
-    , text (paymentsSum loggedData.conf payments)
-    ]
-
-paymentsSum : Conf -> Payments -> String
-paymentsSum conf payments =
-  payments
-    |> List.map .cost
-    |> List.sum
-    |> Format.price conf
-- 
cgit v1.2.3