src/client/elm/LoggedIn/Home/View.elm


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

module LoggedIn.Home.View
  ( view
  ) where

import Html exposing (..)
import Html.Attributes exposing (..)

import LoggedData exposing (LoggedData)

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.Table exposing (paymentsTable)
import LoggedIn.Home.View.Paging exposing (paymentsPaging)

import Mailbox

view : LoggedData -> LoggedInModel.Model -> Html
view loggedData loggedIn =
  div
    [ class "loggedIn" ]
    [ AddPaymentView.view loggedData loggedIn
    , div
        [ class "expandables" ]
        [ AccountView.view loggedData loggedIn
        , MonthlyView.view loggedData loggedIn
        ]
    , paymentsTable loggedData loggedIn
    , paymentsPaging Mailbox.address loggedData.payments loggedIn
    ]