TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-22 02:18:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Manage spaces in web-ui

Browse Source
This commit is contained in:
Eike Kettner
2020-07-09 01:12:09 +02:00
parent 752a94a9e2
commit 6c304b4e7a
6 changed files with 455 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
modules/webapp/src/main/elm/Page/ManageData/View.elm
View File

@ -5,6 +5,7 @@ import Comp.OrgManage
import Comp.PersonManage
import Comp.SpaceManage
import Comp.TagManage
import Data.Flags exposing (Flags)
import Data.Icons as Icons
import Data.UiSettings exposing (UiSettings)
import Html exposing (..)
@ -14,8 +15,8 @@ import Page.ManageData.Data exposing (..)
import Util.Html exposing (classActive)
view : UiSettings -> Model -> Html Msg
view settings model =
view : Flags -> UiSettings -> Model -> Html Msg
view flags settings model =
div [ class "managedata-page ui padded grid" ]
[ div [ class "sixteen wide mobile four wide tablet four wide computer column" ]
[ h4 [ class "ui top attached ablue-comp header" ]
@ -77,7 +78,7 @@ view settings model =
viewPerson settings model
Just SpaceTab ->
viewSpace settings model
viewSpace flags settings model
Nothing ->
[]
@ -86,8 +87,8 @@ view settings model =
]
viewSpace : UiSettings -> Model -> List (Html Msg)
viewSpace _ model =
viewSpace : Flags -> UiSettings -> Model -> List (Html Msg)
viewSpace flags _ model =
[ h2
[ class "ui header"
]
@ -98,7 +99,7 @@ viewSpace _ model =
[ text "Spaces"
]
]
, Html.map SpaceMsg (Comp.SpaceManage.view model.spaceManageModel)
, Html.map SpaceMsg (Comp.SpaceManage.view flags model.spaceManageModel)
]