aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/LoggedIn/Home/Account/View.elm
diff options
context:
space:
mode:
authorJoris2016-06-19 01:00:53 +0200
committerJoris2016-06-19 01:00:53 +0200
commitfb5629d7f705b7e80dcf1852da58d2864c2b0d25 (patch)
treee9e0d0db119b6f7c2b240226f03ff2d6218070ed /src/client/elm/LoggedIn/Home/Account/View.elm
parent9716f77d14ef43f96a1534d97bb9d336df1882be (diff)
downloadbudget-fb5629d7f705b7e80dcf1852da58d2864c2b0d25.tar.gz
budget-fb5629d7f705b7e80dcf1852da58d2864c2b0d25.tar.bz2
budget-fb5629d7f705b7e80dcf1852da58d2864c2b0d25.zip
Show payment count and sum right after search
Diffstat (limited to 'src/client/elm/LoggedIn/Home/Account/View.elm')
-rw-r--r--src/client/elm/LoggedIn/Home/Account/View.elm42
1 files changed, 0 insertions, 42 deletions
diff --git a/src/client/elm/LoggedIn/Home/Account/View.elm b/src/client/elm/LoggedIn/Home/Account/View.elm
deleted file mode 100644
index fdc1941..0000000
--- a/src/client/elm/LoggedIn/Home/Account/View.elm
+++ /dev/null
@@ -1,42 +0,0 @@
-module LoggedIn.Home.Account.View exposing
- ( view
- )
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-
-import Msg exposing (Msg)
-
-import LoggedData exposing (LoggedData)
-
-import LoggedIn.Home.Model as HomeModel
-import LoggedIn.View.Format as Format
-
-import Model exposing (Model)
-import Model.User exposing (getUserName)
-import Model.Payer exposing (..)
-
-view : LoggedData -> HomeModel.Model -> Html Msg
-view loggedData homeModel =
- div
- [ class "account" ]
- [ div
- [ class "header" ]
- (List.map (exceedingPayer loggedData homeModel) (getOrderedExceedingPayers loggedData.currentTime loggedData.users loggedData.incomes loggedData.payments))
- ]
-
-exceedingPayer : LoggedData -> HomeModel.Model -> ExceedingPayer -> Html Msg
-exceedingPayer loggedData homeModel payer =
- div
- [ class "exceedingPayer" ]
- [ span
- [ class "userName" ]
- [ payer.userId
- |> getUserName loggedData.users
- |> Maybe.withDefault "−"
- |> text
- ]
- , span
- [ class "amount" ]
- [ text ("+ " ++ (Format.price loggedData.conf payer.amount)) ]
- ]