src/client/elm/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
35

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.Model as Category
import LoggedIn.Category.Table.View as Table

import Model.Translations exposing (getMessage, getParamMessage)

view : LoggedData -> Category.Model -> Html Msg
view loggedData categoryModel =
  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 categoryModel
    ]