Skip to content

P
purescript-gargantext
Commit bff425e2 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[Link] Link Annuaire -> Corpus. OK

parent 47c8f500
Hide whitespace changes
Inline Side-by-side
Showing with 8 additions and 6 deletions
src/Gargantext/Components/Forest/Tree/Node/Settings.purs
View file @ bff425e2
...@@ -176,7 +176,7 @@ settingsBox Corpus = ...@@ -176,7 +176,7 @@ settingsBox Corpus =
, Download , Download
, Move moveParameters , Move moveParameters
--, Clone --, Clone
, Link linkParams , Link (linkParams Annuaire)
, Delete , Delete
] ]
} }
...@@ -271,6 +271,7 @@ settingsBox Annuaire = ...@@ -271,6 +271,7 @@ settingsBox Annuaire =
, buttons : [ Upload , buttons : [ Upload
, AddingContact , AddingContact
, Move moveParameters , Move moveParameters
, Link (linkParams Corpus)
, Delete , Delete
] ]
} }
...@@ -349,19 +350,20 @@ moveFrameParameters = { subTreeParams : SubTreeParams ...@@ -349,19 +350,20 @@ moveFrameParameters = { subTreeParams : SubTreeParams
} }
linkParams :: NodeType -> {subTreeParams :: SubTreeParams}
linkParams = { subTreeParams : SubTreeParams linkParams nodeType = { subTreeParams : SubTreeParams
{ showtypes: [ FolderPrivate { showtypes: [ FolderPrivate
, FolderShared , FolderShared
, Team , Team
, FolderPublic , FolderPublic
, Folder , Folder
, Annuaire , nodeType
] ]
, valitypes: [ Annuaire , valitypes: [ nodeType
] ]
} }
} }
publishParams = { subTreeParams : SubTreeParams publishParams = { subTreeParams : SubTreeParams
......
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