[Graph] implemented basic node search

src/Gargantext/Components/GraphExplorer/Controls.purs

@@ -60,7 +60,6 @@ type LocalControls =
 initialLocalControls :: R.Hooks (Record LocalControls)
 initialLocalControls = do
   labelSize <- R.useState' 14.0
-  search <- R.useState' ""
 
   pure $ {
     labelSize
@@ -151,7 +150,8 @@ controlsCpt = R.hooksComponent "GraphControls" cpt
                   -- zoom: 0 -100 - calculate ratio
                 , RH.li {} [ multiSelectEnabledButton props.multiSelectEnabled ]  -- toggle multi node selection
                   -- save button
-                , RH.li {} [ nodeSearchControl { selectedNodeIds: props.selectedNodeIds } ]
+                , RH.li {} [ nodeSearchControl { graph: props.graph
+                                               , selectedNodeIds: props.selectedNodeIds } ]
                 ]
               ]
             ]

src/Gargantext/Components/GraphExplorer/Search.purs

@@ -3,49 +3,65 @@ module Gargantext.Components.GraphExplorer.Search
   , nodeSearchControl
   ) where
 
-import Global (readFloat)
 import Prelude
+import Data.Maybe (Maybe(..), fromMaybe)
+import Data.Sequence as Seq
 import Data.Set as Set
-import Data.Tuple (snd)
+import Data.String as S
 import Data.Tuple.Nested ((/\))
-import DOM.Simple.Console (log2)
 import Effect (Effect)
 import FFI.Simple ((..))
 import Reactix as R
 import Reactix.DOM.HTML as H
 
-import Gargantext.Hooks.Sigmax as Sigmax
-import Gargantext.Hooks.Sigmax.Sigma as Sigma
 import Gargantext.Hooks.Sigmax.Types as SigmaxTypes
-import Gargantext.Utils.Reactix as R2
 
 type Props = (
-    selectedNodeIds :: R.State SigmaxTypes.SelectedNodeIds
+    graph           :: SigmaxTypes.SGraph
+  , selectedNodeIds :: R.State SigmaxTypes.SelectedNodeIds
   )
 
+-- | Whether a node matches a search string
+nodeMatchesSearch :: String -> Record SigmaxTypes.Node -> Boolean
+nodeMatchesSearch s n = S.contains (S.Pattern $ normalize s) (normalize n.label)
+  where
+    normalize = S.toLower
+
+searchNodes :: String -> Seq.Seq (Record SigmaxTypes.Node) -> Seq.Seq (Record SigmaxTypes.Node)
+searchNodes s = Seq.filter (nodeMatchesSearch s)
+
 nodeSearchControl :: Record Props -> R.Element
 nodeSearchControl props = R.createElement sizeButtonCpt props []
 
 sizeButtonCpt :: R.Component Props
 sizeButtonCpt = R.hooksComponent "NodeSearchControl" cpt
   where
-    cpt {selectedNodeIds} _ = do
-      (search /\ setSearch) <- R.useState' ""
+    cpt {graph, selectedNodeIds} _ = do
+      search@(search' /\ setSearch) <- R.useState' Nothing
 
       pure $
         H.div { className: "form-group" }
           [ H.div { className: "input-group" }
             [ H.input { type: "text"
                       , className: "form-control"
-                      , defaultValue: search
-                      , on: { input: \e -> setSearch $ const $ e .. "target" .. "value" }
+                      , defaultValue: fromMaybe "" search'
+                      , on: { input: \e -> setSearch $ const $ Just $ e .. "target" .. "value" }
                       }
             , H.div { className: "btn input-group-addon"
-                    , on: { click: \_ -> log2 "[sizeButtonCpt] search" search }
+                    , on: { click: \_ -> triggerSearch graph search selectedNodeIds }
                     }
               [ H.span { className: "fa fa-search" } [] ]
             ]
           ]
 
--- TODO Wherefrom do I get graph nodes?
--- How to implement filtering here? I want to set selectedNodeIds based on graph data.
+    triggerSearch :: SigmaxTypes.SGraph
+                  -> R.State (Maybe String)
+                  -> R.State SigmaxTypes.SelectedNodeIds
+                  -> Effect Unit
+    triggerSearch graph (search /\ setSearch) (_ /\ setSelectedNodeIds) = do
+      case search of
+        Nothing -> pure unit
+        Just s  -> do
+          let nodes = SigmaxTypes.graphNodes graph
+
+          setSelectedNodeIds $ const $ Set.fromFoldable $ ((_.id) <$> searchNodes s nodes)