[Tree] UI for pinning

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

@@ -304,7 +304,7 @@ nodeSpanCpt = here.component "nodeSpan" cpt
             } []
           ,
             R2.when (showBox) $
-
+              R.fragment [
                 B.iconButton
                 { name: "flower-7"
                 , className: "mainleaf__settings-icon"
@@ -315,6 +315,16 @@ nodeSpanCpt = here.component "nodeSpan" cpt
                 , variant: Secondary
                 , elevation: Level1
                 }
+              ,
+                B.iconButton
+                { name: "anchor"
+                , className: "mainleaf__settings-icon"
+                , callback: \_ -> pure unit
+                , title: "Pin the tree to this node"
+                , variant: Secondary
+                , elevation: Level1
+                }
+              ]
           ,
             R.fragment $ flip map currentTasks' \task ->