Commit 99444f93 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[CODE DESIGN] settings declaration for node in Tree

parent 9b7d6db6
......@@ -206,8 +206,7 @@ performAction (UpdateNode task) { reload: (_ /\ setReload)
performAction (RenameNode name) p@{ reload: (_ /\ setReload)
, session
, tree: (NTree (LNode {id}) _)
}
=
} =
do
void $ rename session id $ RenameValue {text:name}
performAction RefreshTree p
......
......@@ -81,15 +81,15 @@ data SettingsBox =
------------------------------------------------------------------------
settingsBox :: NodeType -> SettingsBox
settingsBox NodeUser = SettingsBox {
show : true
settingsBox NodeUser =
SettingsBox { show : true
, edit : false
, doc : Documentation NodeUser
, buttons : [ Delete ]
}
settingsBox FolderPrivate = SettingsBox {
show : true
settingsBox FolderPrivate =
SettingsBox { show : true
, edit : false
, doc : Documentation FolderPrivate
, buttons : [ Add [ Corpus
......@@ -99,8 +99,8 @@ settingsBox FolderPrivate = SettingsBox {
]
}
settingsBox Team = SettingsBox {
show : true
settingsBox Team =
SettingsBox { show : true
, edit : true
, doc : Documentation Team
, buttons : [ Add [ Corpus
......@@ -111,8 +111,8 @@ settingsBox Team = SettingsBox {
, Delete]
}
settingsBox FolderShared = SettingsBox {
show : true
settingsBox FolderShared =
SettingsBox { show : true
, edit : true
, doc : Documentation FolderShared
, buttons : [ Add [Team, FolderShared]
......@@ -120,8 +120,8 @@ settingsBox FolderShared = SettingsBox {
]
}
settingsBox FolderPublic = SettingsBox {
show : true
settingsBox FolderPublic =
SettingsBox { show : true
, edit : false
, doc : Documentation FolderPublic
, buttons : [ Add [ Corpus
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment