module View.LoggedIn.ExceedingPayer
  ( exceedingPayers
  ) where

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

import Model exposing (Model)
import Model.User exposing (getUserName)
import Model.Payers exposing (..)
import Model.View.LoggedInView exposing (LoggedInView)
import Model.Translations exposing (getMessage)

exceedingPayers : Model -> LoggedInView -> Html
exceedingPayers model loggedInView =
  div
    [ class "exceedingPayers" ]
    (List.map (exceedingPayer model loggedInView) (getOrderedExceedingPayers loggedInView.payers))

exceedingPayer : Model -> LoggedInView -> ExceedingPayer -> Html
exceedingPayer model loggedInView payer =
  div
    [ class "exceedingPayer" ]
    [ span
        [ class "userName" ]
        [ payer.userId
            |> getUserName loggedInView.users
            |> Maybe.withDefault "−"
            |> text
        ]
    , span
        [ class "amount" ]
        [ text ("+ " ++ (toString payer.amount) ++ " " ++ (getMessage "MoneySymbol" model.translations)) ]
    ]