src/client/elm/LoggedIn/Stat/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

module LoggedIn.Stat.Account.View exposing
  ( view
  )

import Html exposing (..)
import Html.Attributes exposing (..)

import Msg exposing (Msg)

import LoggedData exposing (LoggedData)

import LoggedIn.View.Format as Format

import Model exposing (Model)
import Model.User exposing (getUserName)
import Model.Payer exposing (..)

view : LoggedData -> Html Msg
view loggedData =
  ul
    [ class "exceedingPayers" ]
    (List.map (exceedingPayer loggedData) (getOrderedExceedingPayers loggedData.currentTime loggedData.users loggedData.incomes loggedData.payments))

exceedingPayer : LoggedData -> ExceedingPayer -> Html Msg
exceedingPayer loggedData payer =
  li
    []
    [ span
        [ class "userName" ]
        [ payer.userId
            |> getUserName loggedData.users
            |> Maybe.withDefault "−"
            |> text
        ]
    , span
        [ class "amount" ]
        [ text ("+ " ++ (Format.price loggedData.conf payer.amount)) ]
    ]