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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
module LoggedIn.Monthly.View
( view
) where
import String
import Signal exposing (Address)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import LoggedIn.Action as LoggedInAction
import LoggedIn.Model as LoggedInModel
import LoggedIn.Monthly.Action as MonthlyAction
import LoggedIn.Monthly.Model as MonthlyModel
import Model exposing (Model)
import Model.Payment as Payment exposing (Payments, Payment)
import Model.Translations exposing (getMessage, getParamMessage)
import Action exposing (..)
import View.Icon exposing (renderIcon)
import View.Expand exposing (..)
import View.Price exposing (price)
view : Address Action -> Model -> LoggedInModel.Model -> Html
view address model loggedInModel =
let monthly = loggedInModel.monthly
in if List.length monthly.payments == 0
then
text ""
else
div
[ classList
[ ("monthlyPayments", True)
, ("detail", monthly.visibleDetail)
]
]
[ monthlyCount address model monthly
, if monthly.visibleDetail then paymentsTable address model loggedInModel monthly else text ""
]
monthlyCount : Address Action -> Model -> MonthlyModel.Model -> Html
monthlyCount address model monthly =
let count = List.length monthly.payments
total = List.sum << List.map .cost <| monthly.payments
key = if count > 1 then "PluralMonthlyCount" else "SingularMonthlyCount"
in button
[ class "header"
, onClick address (UpdateLoggedIn << LoggedInAction.UpdateMonthly <| MonthlyAction.ToggleDetail)
]
[ text (getParamMessage [toString count, price model total] key model.translations)
, expand ExpandDown monthly.visibleDetail
]
paymentsTable : Address Action -> Model -> LoggedInModel.Model -> MonthlyModel.Model -> Html
paymentsTable address model loggedInModel monthly =
div
[ class "table" ]
( monthly.payments
|> List.sortBy (String.toLower << .name)
|> List.map (paymentLine address model loggedInModel)
)
paymentLine : Address Action -> Model -> LoggedInModel.Model -> Payment -> Html
paymentLine address model loggedInModel payment =
a
[ classList
[ ("row", True)
, ("edition", loggedInModel.paymentEdition == Just payment.id)
]
, onClick address (UpdateLoggedIn (LoggedInAction.ToggleEdit payment.id))
]
[ div [ class "cell category" ] [ text (payment.name) ]
, div
[ classList
[ ("cell cost", True)
, ("refund", payment.cost < 0)
]
]
[ text (price model payment.cost) ]
, div
[ class "cell delete"
, onClick address (UpdateLoggedIn <| LoggedInAction.DeletePayment payment Payment.Monthly)
]
[ button [] [ renderIcon "times" ]
]
]
|
