Add search on payments and use inline font awesome from elm

1 files changed, 15 insertions, 10 deletions

diff --git a/src/client/elm/LoggedIn/Home/View.elm b/src/client/elm/LoggedIn/Home/View.elm
index 097e730..213e4ab 100644
--- a/src/client/elm/LoggedIn/Home/View.elm
+++ b/src/client/elm/LoggedIn/Home/View.elm
@@ -4,29 +4,34 @@ module LoggedIn.Home.View exposing
 
 import Html exposing (..)
 import Html.Attributes exposing (..)
+import Date
 
 import Msg exposing (Msg)
 
 import LoggedData exposing (LoggedData)
+import Model.Payment as Payment
 
 import LoggedIn.Home.Model as LoggedInModel
 import LoggedIn.Home.Account.View as AccountView
 import LoggedIn.Home.AddPayment.View as AddPaymentView
 import LoggedIn.Home.View.Monthly as MonthlyView
 
+import LoggedIn.Home.View.Search exposing (paymentsSearch)
 import LoggedIn.Home.View.Table exposing (paymentsTable)
 import LoggedIn.Home.View.Paging exposing (paymentsPaging)
 
 view : LoggedData -> LoggedInModel.Model -> Html Msg
 view loggedData loggedIn =
-  div
-    [ class "home" ]
-    [ AddPaymentView.view loggedData loggedIn
-    , div
-        [ class "expandables" ]
-        [ AccountView.view loggedData loggedIn
-        , MonthlyView.view loggedData loggedIn
+  let punctualPayments = Payment.sortedFiltredPunctual loggedIn.search loggedData.payments
+  in  div
+        [ class "home" ]
+        [ AddPaymentView.view loggedData loggedIn
+        , div
+            [ class "expandables" ]
+            [ AccountView.view loggedData loggedIn
+            , MonthlyView.view loggedData loggedIn
+            ]
+        , paymentsSearch loggedData loggedIn
+        , paymentsTable loggedData loggedIn punctualPayments
+        , paymentsPaging punctualPayments loggedIn
         ]
-    , paymentsTable loggedData loggedIn
-    , paymentsPaging loggedData.payments loggedIn
-    ]