blob: 82ec8a30ac5ddb2438894c199cf3ee3c8bf911aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
module LoggedIn.Home.View exposing
( view
)
import Html exposing (..)
import Html.Attributes exposing (..)
import Date
import Form
import Utils.Form as Form
import Msg exposing (Msg)
import LoggedData exposing (LoggedData)
import Model.Payment as Payment
import LoggedIn.Home.Model as LoggedInModel
import LoggedIn.Home.Search.View as SearchView
import LoggedIn.Home.AddPayment.View as AddPaymentView
import LoggedIn.Home.View.Monthly as MonthlyView
import LoggedIn.Home.View.Table exposing (paymentsTable)
import LoggedIn.Home.View.Paging exposing (paymentsPaging)
view : LoggedData -> LoggedInModel.Model -> Html Msg
view loggedData loggedIn =
let punctualPayments = Payment.sortedFiltredPunctual (Form.fieldAsText loggedIn.search "searchText") loggedData.payments
in div
[ class "home" ]
[ AddPaymentView.view loggedData loggedIn
, MonthlyView.view loggedData loggedIn
, SearchView.view loggedData loggedIn punctualPayments
, paymentsTable loggedData loggedIn punctualPayments
, paymentsPaging loggedIn punctualPayments
]
|