[Graph explorer] Select nodes by clicking on the legend color

src/Gargantext/Components/GraphExplorer/Sidebar/Legend.purs

@@ -4,6 +4,7 @@ module Gargantext.Components.GraphExplorer.Sidebar.Legend
 
 import Prelude hiding (map)
 
+import Control.Applicative (map)
 import Data.Array (fromFoldable)
 import Data.Array as A
 import Data.Maybe (isJust, maybe)
@@ -63,9 +64,10 @@ legendCpt = here.component "legend" cpt where
           H.li
           { className: "graph-legend__item" }
           [
-            H.div
+            H.button
             { className: "graph-legend__code"
             , style: { backgroundColor: GET.intColor id_ }
+            , on: { click: \_ -> selectNodes id_}
             }
             []
           ,
@@ -91,6 +93,11 @@ legendCpt = here.component "legend" cpt where
             _ <- updateLegend { legend: (fromFoldable newLegendSeq), graphId, session }
             pure unit
 
+        selectNodes :: Int -> Effect Unit
+        selectNodes id = do
+          let nodes = filterByCluster id extractedNodeList
+          T.write_ (Set.fromFoldable $ map (\(GEGT.Node { id_ }) -> id_) nodes) selectedNodeIds
+
 filterByCluster :: Int -> Array GEGT.Node -> Array GEGT.Node
 filterByCluster id
   =   A.filter