src/client/elm/LoggedIn/Home/Account/View.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

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)) ]
    ]