Commit c45116fb authored by Alexandre Delanoë's avatar Alexandre Delanoë

[Node] adding team.

parent dd3c2649
......@@ -99,10 +99,21 @@ settingsBox FolderPrivate = SettingsBox { show: true
, Delete]
}
settingsBox Team = SettingsBox { show: true
, edit : false
, buttons : [Documentation Team
, SearchBox
, Add [ Corpus
, Folder
, Annuaire
]
, Delete]
}
settingsBox FolderShared = SettingsBox { show: true
, edit : false
, edit : true
, buttons : [Documentation FolderShared
-- , Add [Folder, Team]
, Add [Team, FolderShared]
, Delete
]
}
......
......@@ -162,7 +162,7 @@ instance showNodeType :: Show NodeType where
show Node = "Node"
show Nodes = "Nodes"
show Tree = "NodeTree"
show Team = "Team"
show Team = "NodeTeam"
show NodeList = "NodeList"
show Texts = "NodeTexts"
......@@ -185,7 +185,7 @@ readNodeType "Nodes" = Nodes
readNodeType "NodeCorpus" = Corpus
readNodeType "NodeContact" = NodeContact
readNodeType "Tree" = Tree
readNodeType "Team" = Team
readNodeType "NodeTeam" = Team
readNodeType "NodeList" = NodeList
readNodeType "NodeTexts" = Texts
readNodeType _ = Error
......@@ -198,8 +198,10 @@ fldr NodeUser true = "fa fa-user-circle-o"
fldr FolderPrivate true = "fa fa-lock"
fldr FolderPrivate false = "fa fa-expeditedssl"
fldr FolderShared true = "fa fa-users" -- "fa fa-share-alt"
fldr FolderShared true = "fa fa-share-alt"
fldr FolderShared false = "fa fa-share-alt-square"
fldr Team true = "fa fa-users"
fldr Team false = "fa fa-users"
fldr FolderPublic _ = "fa fa-globe"
......
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