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.PaymentView exposing (PaymentView)
import Model.Translations exposing (getMessage)

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

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