src/client/LoggedIn/Category/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
33
34

module LoggedIn.Category.View exposing
  ( view
  )

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

import LoggedData exposing (LoggedData)

import Msg exposing (Msg)

import Dialog.AddCategory.Model as AddCategory
import Dialog.AddCategory.View as AddCategory

import LoggedIn.Category.Table as Table

import Model.Translations exposing (getMessage, getParamMessage)

view : LoggedData -> Html Msg
view loggedData =
  div
    [ class "categories" ]
    [ div
        [ class "titleButton withMargin" ]
        [ h1 [] [ text <| getMessage loggedData.translations "Categories" ]
        , AddCategory.button
            loggedData
            (AddCategory.initialAdd loggedData.translations)
            "AddCategory"
            (text (getMessage loggedData.translations "AddCategory"))
            Nothing
        ]
    , Table.view loggedData
    ]