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

Initial outline for managing spaces

Browse Source
This commit is contained in:
Eike Kettner
2020-07-05 00:37:27 +02:00
parent d43e17d9fb
commit 0e8c9b1819
9 changed files with 457 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
modules/webapp/src/main/elm/Page/ManageData/Data.elm
View File

@ -2,13 +2,15 @@ module Page.ManageData.Data exposing
( Model
, Msg(..)
, Tab(..)
, emptyModel
, init
)
import Comp.EquipmentManage
import Comp.OrgManage
import Comp.PersonManage
import Comp.SpaceManage
import Comp.TagManage
import Data.Flags exposing (Flags)
type alias Model =
@ -17,17 +19,21 @@ type alias Model =
, equipManageModel : Comp.EquipmentManage.Model
, orgManageModel : Comp.OrgManage.Model
, personManageModel : Comp.PersonManage.Model
, spaceManageModel : Comp.SpaceManage.Model
}
emptyModel : Model
emptyModel =
{ currentTab = Nothing
, tagManageModel = Comp.TagManage.emptyModel
, equipManageModel = Comp.EquipmentManage.emptyModel
, orgManageModel = Comp.OrgManage.emptyModel
, personManageModel = Comp.PersonManage.emptyModel
}
init : Flags -> ( Model, Cmd Msg )
init _ =
( { currentTab = Nothing
, tagManageModel = Comp.TagManage.emptyModel
, equipManageModel = Comp.EquipmentManage.emptyModel
, orgManageModel = Comp.OrgManage.emptyModel
, personManageModel = Comp.PersonManage.emptyModel
, spaceManageModel = Comp.SpaceManage.empty
}
, Cmd.none
)
type Tab
@ -35,6 +41,7 @@ type Tab
| EquipTab
| OrgTab
| PersonTab
| SpaceTab
type Msg
@ -43,3 +50,4 @@ type Msg
| EquipManageMsg Comp.EquipmentManage.Msg
| OrgManageMsg Comp.OrgManage.Msg
| PersonManageMsg Comp.PersonManage.Msg
| SpaceMsg Comp.SpaceManage.Msg