Add search on payments and use inline font awesome from elm

1 files changed, 13 insertions, 14 deletions

diff --git a/src/client/elm/LoggedIn/Home/View/Table.elm b/src/client/elm/LoggedIn/Home/View/Table.elm
index 6631af7..7c8a800 100644
--- a/src/client/elm/LoggedIn/Home/View/Table.elm
+++ b/src/client/elm/LoggedIn/Home/View/Table.elm
@@ -5,6 +5,9 @@ module LoggedIn.Home.View.Table exposing
 import Dict exposing (..)
 import Date exposing (Date)
 import String exposing (append)
+import Color
+
+import FontAwesome
 
 import Html exposing (..)
 import Html.Attributes exposing (..)
@@ -24,30 +27,26 @@ import LoggedIn.View.Format as Format
 import Model.User exposing (getUserName)
 import Model.Payment as Payment exposing (..)
 
-import View.Icon exposing (renderIcon)
-
-paymentsTable : LoggedData -> HomeModel.Model -> Html Msg
-paymentsTable loggedData homeModel =
+paymentsTable : LoggedData -> HomeModel.Model -> Payments -> Html Msg
+paymentsTable loggedData homeModel punctualPayments =
   div
     [ class "table" ]
-    ( headerLine loggedData :: paymentLines loggedData homeModel)
+    ( headerLine loggedData :: paymentLines loggedData homeModel punctualPayments)
 
 headerLine : LoggedData -> Html Msg
 headerLine loggedData =
   div
     [ class "header" ]
-    [ div [ class "cell category" ] [ renderIcon "shopping-cart" ]
+    [ div [ class "cell category" ] [ FontAwesome.shopping_cart Color.white 25 ]
     , div [ class "cell cost" ] [ text loggedData.conf.currency ]
-    , div [ class "cell user" ] [ renderIcon "user" ]
-    , div [ class "cell date" ] [ renderIcon "calendar" ]
+    , div [ class "cell user" ] [ FontAwesome.user Color.white 25 ]
+    , div [ class "cell date" ] [ FontAwesome.calendar Color.white 25 ]
     , div [ class "cell" ] []
     ]
 
-paymentLines : LoggedData -> HomeModel.Model -> List (Html Msg)
-paymentLines loggedData homeModel =
-  Payment.punctual loggedData.payments
-    |> List.sortBy (Date.toTime << .creation)
-    |> List.reverse
+paymentLines : LoggedData -> HomeModel.Model -> Payments -> List (Html Msg)
+paymentLines loggedData homeModel punctualPayments =
+  punctualPayments
     |> List.drop ((homeModel.currentPage - 1) * perPage)
     |> List.take perPage
     |> List.map (paymentLine loggedData homeModel)
@@ -91,7 +90,7 @@ paymentLine loggedData homeModel payment =
             [ class "cell delete" ]
             [ button
                 [ onClick (Msg.UpdateLoggedIn <| LoggedInMsg.DeletePayment payment.id)]
-                [ renderIcon "times" ]
+                [ FontAwesome.times Color.white 20 ]
             ]
         else
           div [ class "cell" ] []