[REFACT|FEAT] adding subtree to link action of corpus (WIP)

src/Gargantext/Components/Forest/Tree/Node/Box.purs

@@ -244,9 +244,8 @@ panelActionCpt = R.hooksComponent "G.C.F.T.N.B.panelAction" cpt
     cpt {action: Move {subTreeParams}, dispatch, id, nodeType, session} _ = do
       pure $ copyFromCorpusView {dispatch, id, nodeType, session, subTreeParams}
 
-    cpt {action: Link _} _ = pure $ fragmentPT $ "Soon, you will be able "
-                                 <> "to link the corpus with your Annuaire"
-                                 <> " (and reciprocally)."
+    cpt {action: Link {subTreeParams}, dispatch, id, nodeType, session} _ = do
+      pure $ copyFromCorpusView {dispatch, id, nodeType, session, subTreeParams}
 
     cpt {action : Share, dispatch, id, name } _ = do
       isOpen <- R.useState' true

src/Gargantext/Components/Forest/Tree/Node/Settings.purs

@@ -25,8 +25,8 @@ data NodeAction = Documentation NodeType
                 | Add    (Array NodeType)
                 | Merge { subTreeParams :: SubTreeParams }
                 | Move  { subTreeParams :: SubTreeParams }
+                | Link  { subTreeParams :: SubTreeParams }
                 | Clone
-                | Link NodeType
 
 ------------------------------------------------------------------------
 -- TODO move elsewhere
@@ -174,7 +174,18 @@ settingsBox Corpus =
                           , Download
                           , Move moveParameters
                             --, Clone
-                          , Link Annuaire
+                          , Link { subTreeParams : SubTreeParams 
+                                                 { showtypes: [ FolderPrivate
+                                                              , FolderShared
+                                                              , Team
+                                                              , FolderPublic
+                                                              , Folder
+                                                              , Annuaire
+                                                              ]
+                                                 , valitypes: [ Annuaire
+                                                              ]
+                                                 }
+                                 }
                           , Delete
                           ]
               }
@@ -259,7 +270,7 @@ moveParameters = { subTreeParams : SubTreeParams
                                               ]
                                  , valitypes: [ FolderPrivate
                                               , FolderShared
-                                              , Team
+                                                , Team
                                               , FolderPublic
                                               , Folder
                                               ]