aboutsummaryrefslogtreecommitdiff
path: root/src/client/View
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/View')
-rw-r--r--src/client/View/Page.elm44
1 files changed, 42 insertions, 2 deletions
diff --git a/src/client/View/Page.elm b/src/client/View/Page.elm
index 47e0c1c..ca8efc9 100644
--- a/src/client/View/Page.elm
+++ b/src/client/View/Page.elm
@@ -8,11 +8,51 @@ import Html.Attributes exposing (..)
import Html.Attributes as A
import Html.Events exposing (..)
-renderPage : Html
-renderPage =
+import Date
+import Date exposing (Date)
+
+import String exposing (append)
+
+import Model exposing (Model)
+import Model.Payment exposing (Payments, Payment)
+
+renderPage : Model -> Html
+renderPage model =
header
[]
[ h1
[]
[ text "Payments" ]
+ , table
+ []
+ ([ tr
+ []
+ [ td [] [ text "Utilisateur" ]
+ , td [] [ text "Nom" ]
+ , td [] [ text "Prix" ]
+ , td [] [ text "Date" ]
+ ]
+ ] ++ (List.map renderPayment model.payments))
]
+
+renderPayments : Payments -> List Html
+renderPayments =
+ List.map renderPayment
+ << List.reverse
+ << List.sortBy (Date.toTime << .creation)
+
+renderPayment : Payment -> Html
+renderPayment payment =
+ tr
+ []
+ [ td [] [ text payment.name ]
+ , td [] [ text payment.userName ]
+ , 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)))