Fetching payments and showing them in a table

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)))