module View.Payments.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.LoggedView exposing (LoggedView)
import Model.Translations exposing (getMessage)

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

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