From 3853811450d4fe801da996eb48825049c3541030 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 6 Sep 2015 16:46:59 +0200
Subject: Renaming PaymentView to LoggedInView

---
 src/client/View/LoggedIn/Table.elm | 86 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 86 insertions(+)
 create mode 100644 src/client/View/LoggedIn/Table.elm

(limited to 'src/client/View/LoggedIn/Table.elm')

diff --git a/src/client/View/LoggedIn/Table.elm b/src/client/View/LoggedIn/Table.elm
new file mode 100644
index 0000000..6342369
--- /dev/null
+++ b/src/client/View/LoggedIn/Table.elm
@@ -0,0 +1,86 @@
+module View.LoggedIn.Table
+  ( paymentsTable
+  ) where
+
+import Html exposing (..)
+import Html.Attributes exposing (..)
+import Html.Events exposing (..)
+import Dict exposing (..)
+
+import Date
+import Date exposing (Date)
+
+import String exposing (append)
+
+import Model exposing (Model)
+import Model.User exposing (getUserName)
+import Model.Payment exposing (..)
+import Model.View.LoggedInView exposing (LoggedInView)
+import Model.Translations exposing (getMessage)
+
+import ServerCommunication as SC exposing (serverCommunications)
+
+import Update exposing (..)
+import Update.LoggedIn exposing (..)
+
+import View.Icon exposing (renderIcon)
+import View.Date exposing (..)
+
+paymentsTable : Model -> LoggedInView -> Html
+paymentsTable model loggedInView =
+  div
+    [ class "table" ]
+    ( headerLine model :: paymentLines model loggedInView)
+
+headerLine : Model -> Html
+headerLine model =
+  div
+    [ class "header" ]
+    [ div [ class "cell category" ] [ renderIcon "shopping-cart" ]
+    , div [ class "cell cost" ] [ text (getMessage "MoneySymbol" model.translations) ]
+    , div [ class "cell user" ] [ renderIcon "user" ]
+    , div [ class "cell date" ] [ renderIcon "calendar" ]
+    , div [ class "cell" ] []
+    ]
+
+paymentLines : Model -> LoggedInView -> List Html
+paymentLines model loggedInView =
+  loggedInView.payments
+    |> List.sortBy (Date.toTime << .creation)
+    |> List.reverse
+    |> List.map (paymentLine model loggedInView)
+
+paymentLine : Model -> LoggedInView -> Payment -> Html
+paymentLine model loggedInView payment =
+  a
+    [ class ("row" ++ (if loggedInView.paymentEdition == Just payment.id then " edition" else ""))
+    , onClick actions.address (UpdateLoggedIn (ToggleEdit payment.id))
+    ]
+    [ div [ class "cell category" ] [ text payment.name ]
+    , div [ class "cell cost" ] [ text ((toString payment.cost) ++ " " ++ (getMessage "MoneySymbol" model.translations)) ]
+    , div
+        [ class "cell user" ]
+        [ payment.userId
+            |> getUserName loggedInView.users
+            |> Maybe.withDefault "−"
+            |> text
+        ]
+    , div
+        [ class "cell date" ]
+        [ span
+            [ class "shortDate" ]
+            [ text (renderShortDate payment.creation model.translations) ]
+        , span
+            [ class "longDate" ]
+            [ text (renderLongDate payment.creation model.translations) ]
+        ]
+    , if loggedInView.me == payment.userId
+        then
+          div
+            [ class "cell delete"
+            , onClick serverCommunications.address (SC.DeletePayment payment.id payment.userId payment.cost loggedInView.currentPage)
+            ]
+            [ renderIcon "times" ]
+        else
+          div [ class "cell" ] []
+    ]
-- 
cgit v1.2.3