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

Rename space -> folder

Browse Source
This commit is contained in:
Eike Kettner
2020-07-11 11:38:57 +02:00
parent 0365c1980a
commit 2ab0b5e222
22 changed files with 755 additions and 754 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,9 +6,9 @@ module Page.ManageData.Data exposing
)
import Comp.EquipmentManage
import Comp.FolderManage
import Comp.OrgManage
import Comp.PersonManage
import Comp.SpaceManage
import Comp.TagManage
import Data.Flags exposing (Flags)
@ -19,7 +19,7 @@ type alias Model =
, equipManageModel : Comp.EquipmentManage.Model
, orgManageModel : Comp.OrgManage.Model
, personManageModel : Comp.PersonManage.Model
, spaceManageModel : Comp.SpaceManage.Model
, folderManageModel : Comp.FolderManage.Model
}
@ -30,7 +30,7 @@ init _ =
, equipManageModel = Comp.EquipmentManage.emptyModel
, orgManageModel = Comp.OrgManage.emptyModel
, personManageModel = Comp.PersonManage.emptyModel
, spaceManageModel = Comp.SpaceManage.empty
, folderManageModel = Comp.FolderManage.empty
}
, Cmd.none
)
@ -41,7 +41,7 @@ type Tab
| EquipTab
| OrgTab
| PersonTab
| SpaceTab
| FolderTab
type Msg
@ -50,4 +50,4 @@ type Msg
| EquipManageMsg Comp.EquipmentManage.Msg
| OrgManageMsg Comp.OrgManage.Msg
| PersonManageMsg Comp.PersonManage.Msg
| SpaceMsg Comp.SpaceManage.Msg
| FolderMsg Comp.FolderManage.Msg

16
modules/webapp/src/main/elm/Page/ManageData/Update.elm
View File

@ -1,9 +1,9 @@
module Page.ManageData.Update exposing (update)
import Comp.EquipmentManage
import Comp.FolderManage
import Comp.OrgManage
import Comp.PersonManage
import Comp.SpaceManage
import Comp.TagManage
import Data.Flags exposing (Flags)
import Page.ManageData.Data exposing (..)
@ -30,12 +30,12 @@ update flags msg model =
PersonTab ->
update flags (PersonManageMsg Comp.PersonManage.LoadPersons) m
SpaceTab ->
FolderTab ->
let
( sm, sc ) =
Comp.SpaceManage.init flags
Comp.FolderManage.init flags
in
( { m | spaceManageModel = sm }, Cmd.map SpaceMsg sc )
( { m | folderManageModel = sm }, Cmd.map FolderMsg sc )
TagManageMsg m ->
let
@ -65,11 +65,11 @@ update flags msg model =
in
( { model | personManageModel = m2 }, Cmd.map PersonManageMsg c2 )
SpaceMsg lm ->
FolderMsg lm ->
let
( m2, c2 ) =
Comp.SpaceManage.update flags lm model.spaceManageModel
Comp.FolderManage.update flags lm model.folderManageModel
in
( { model | spaceManageModel = m2 }
, Cmd.map SpaceMsg c2
( { model | folderManageModel = m2 }
, Cmd.map FolderMsg c2
)

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

@ -1,9 +1,9 @@
module Page.ManageData.View exposing (view)
import Comp.EquipmentManage
import Comp.FolderManage
import Comp.OrgManage
import Comp.PersonManage
import Comp.SpaceManage
import Comp.TagManage
import Data.Flags exposing (Flags)
import Data.Icons as Icons
@ -53,11 +53,11 @@ view flags settings model =
, text "Person"
]
, div
[ classActive (model.currentTab == Just SpaceTab) "link icon item"
, onClick (SetTab SpaceTab)
[ classActive (model.currentTab == Just FolderTab) "link icon item"
, onClick (SetTab FolderTab)
]
[ Icons.spaceIcon ""
, text "Space"
[ Icons.folderIcon ""
, text "Folder"
]
]
]
@ -77,8 +77,8 @@ view flags settings model =
Just PersonTab ->
viewPerson settings model
Just SpaceTab ->
viewSpace flags settings model
Just FolderTab ->
viewFolder flags settings model
Nothing ->
[]
@ -87,19 +87,19 @@ view flags settings model =
]
viewSpace : Flags -> UiSettings -> Model -> List (Html Msg)
viewSpace flags _ model =
viewFolder : Flags -> UiSettings -> Model -> List (Html Msg)
viewFolder flags _ model =
[ h2
[ class "ui header"
]
[ Icons.spaceIcon ""
[ Icons.folderIcon ""
, div
[ class "content"
]
[ text "Spaces"
[ text "Folders"
]
]
, Html.map SpaceMsg (Comp.SpaceManage.view flags model.spaceManageModel)
, Html.map FolderMsg (Comp.FolderManage.view flags model.folderManageModel)
]