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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
module View.Page
( renderPage
) where
import Html exposing (..)
import Html as H
import Html.Attributes exposing (..)
import Html.Attributes as A
import Html.Events exposing (..)
import Date
import Date exposing (Date)
import String exposing (append)
import Model exposing (Model)
import Model.Payment exposing (Payments, Payment)
import Model.View exposing (..)
import Update exposing (..)
import ServerCommunication as SC
import ServerCommunication exposing (serverCommunications)
import View.Icon exposing (renderIcon)
renderPage : Model -> Html
renderPage model =
div
[]
[ renderHeader model
, renderMain model
]
renderHeader : Model -> Html
renderHeader model =
header
[]
[ h1
[]
[ text "Payments" ]
, case model.view of
LoadingView ->
text ""
SignInView _ ->
text ""
PaymentView _ ->
button
[ class "signOut"
, onClick serverCommunications.address SC.SignOut
]
[ renderIcon "power-off" ]
]
renderMain : Model -> Html
renderMain model =
case model.view of
LoadingView ->
loadingView
SignInView login ->
signInView login
PaymentView payments ->
paymentsView payments
loadingView : Html
loadingView = text ""
signInView : String -> Html
signInView login =
H.form
[ class "signIn" ]
[ input
[ value login
, on "input" targetValue (Signal.message actions.address << UpdateLogin)
]
[]
, button
[ onClick serverCommunications.address (SC.SignIn login) ]
[ renderIcon "sign-in" ]
]
paymentsView : Payments -> Html
paymentsView payments =
table
[]
([ tr
[]
[ th [] [ renderIcon "user" ]
, th [] [ renderIcon "shopping-cart" ]
, th [] [ renderIcon "euro" ]
, th [] [ renderIcon "calendar" ]
]
] ++ (paymentLines payments))
paymentLines : Payments -> List Html
paymentLines payments =
payments
|> List.sortBy (Date.toTime << .creation)
|> List.reverse
|> List.map paymentLine
paymentLine : Payment -> Html
paymentLine payment =
tr
[]
[ td [] [ text payment.userName ]
, td [] [ text payment.name ]
, td [] [ text ((toString payment.cost) ++ " €") ]
, td [] [ text (renderDate payment.creation) ]
]
renderDate : Date -> String
renderDate date =
toString (Date.day date)
|> flip append (" " ++ (toString (Date.month date)))
|> flip append (" " ++ (toString (Date.year date)))
|
