[REFACT|Tree] Search is enabled in the Tree only (because of session).

src/Gargantext/Components/Forest/Tree.purs

@@ -198,7 +198,6 @@ performAction { reload: (_ /\ setReload)
   liftEffect $ onTaskAdd task
   liftEffect $ log2 "[performAction] UpdateNode task:" task
 
-
 performAction p@{ reload: (_ /\ setReload)
                 , session
                 , tree: (NTree (LNode {id}) _) } (RenameNode name)  = do

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

@@ -10,7 +10,6 @@ import Gargantext.Types as GT
 import Gargantext.Types (ID)
 import Gargantext.Routes as GR
 import Gargantext.Sessions (Session, put)
-import Gargantext.Components.Forest.Tree.Node.Tools as Tools
 
 ------------------------------------------------------------------------
 rename :: Session -> ID -> RenameValue -> Aff (Array ID)
@@ -30,6 +29,3 @@ instance encodeJsonRenameValue :: EncodeJson RenameValue where
     ~> jsonEmptyObject
 
 ------------------------------------------------------------------------
-textInputBox :: Record Tools.TextInputBoxProps -> R.Element
-textInputBox  = Tools.textInputBox
-

src/Gargantext/Components/Search/SearchBar.purs → src/Gargantext/Components/Forest/Tree/Node/Action/Search/SearchBar.purs

-module Gargantext.Components.Search.SearchBar
+module Gargantext.Components.Forest.Tree.Node.Action.Search.SearchBar
   ( Props, searchBar, searchBarCpt
   ) where
 
@@ -7,11 +7,10 @@ import Data.Nullable (Nullable)
 import Reactix as R
 import Reactix.DOM.HTML as H
 
-import Gargantext.Components.Search.Types -- (Database, SearchQuery(..), defaultSearchQuery, performSearch, Lang(..))
+import Gargantext.Components.Forest.Tree.Node.Action.Search.Types -- (Database, SearchQuery(..), defaultSearchQuery, performSearch, Lang(..))
 import Effect (Effect)
 import Gargantext.Components.Lang (Lang)
-import Gargantext.Components.Search.SearchField (Search, searchField)
-import Gargantext.Components.Search.Types (allDatabases) -- (Database, SearchQuery(..), defaultSearchQuery, performSearch, Lang(..))
+import Gargantext.Components.Forest.Tree.Node.Action.Search.SearchField (Search, searchField)
 import Gargantext.Prelude (Unit, pure, ($))
 import Gargantext.Sessions (Session)
 import Gargantext.Types as GT

src/Gargantext/Components/Search/SearchField.purs → src/Gargantext/Components/Forest/Tree/Node/Action/Search/SearchField.purs

-module Gargantext.Components.Search.SearchField
+module Gargantext.Components.Forest.Tree.Node.Action.Search.SearchField
   ( Search, Props, defaultSearch, searchField, searchFieldComponent, isIsTex, isIsTex_Advanced) where
 
 import Data.Maybe (Maybe(..), maybe, fromMaybe, isJust)
@@ -20,7 +20,7 @@ import Gargantext.Prelude (Unit, bind, const, discard, map, pure, show, ($), (&&
 
 import Gargantext.Data.Array (catMaybes)
 import Gargantext.Components.Lang (Lang)
-import Gargantext.Components.Search.Types (DataOriginApi(..), DataField(..), Database(..), IMT_org(..), Org(..), SearchQuery(..), allIMTorgs, allOrgs, dataFields, defaultSearchQuery, doc, performSearch, readDatabase, readOrg, datafield2database)
+import Gargantext.Components.Forest.Tree.Node.Action.Search.Types (DataOriginApi(..), DataField(..), Database(..), IMT_org(..), Org(..), SearchQuery(..), allIMTorgs, allOrgs, dataFields, defaultSearchQuery, doc, performSearch, readDatabase, readOrg, datafield2database)
 import Gargantext.Sessions (Session)
 import Gargantext.Types as GT
 import Gargantext.Utils.Reactix as R2

src/Gargantext/Components/Search/Types.purs → src/Gargantext/Components/Forest/Tree/Node/Action/Search/Types.purs

-module Gargantext.Components.Search.Types where
+module Gargantext.Components.Forest.Tree.Node.Action.Search.Types where
 
 import Data.Array (concat)
 import Data.Argonaut (class EncodeJson, encodeJson, jsonEmptyObject, (:=), (~>))

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

@@ -24,10 +24,10 @@ import Web.File.FileReader.Aff (readAsText)
 
 import Gargantext.AsyncTasks as GAT
 import Gargantext.Components.Forest.Tree.Node (NodeAction(..), SettingsBox(..), glyphiconNodeAction, settingsBox)
-import Gargantext.Components.Forest.Tree.Node.Action (Action(..), FileType(..), UploadFileContents(..), icon, text)
+import Gargantext.Components.Forest.Tree.Node.Action (Action(..), FileType(..), UploadFileContents(..))
 import Gargantext.Components.Forest.Tree.Node.Action.Add (NodePopup(..), addNodeView)
 import Gargantext.Components.Forest.Tree.Node.Action.CopyFrom (copyFromCorpusView)
-import Gargantext.Components.Forest.Tree.Node.Action.Rename (textInputBox, renameAction)
+import Gargantext.Components.Forest.Tree.Node.Action.Rename (renameAction)
 import Gargantext.Components.Forest.Tree.Node.Action.Share as Share
 import Gargantext.Components.Forest.Tree.Node.Action.Upload (DroppedFile(..), uploadFileView, fileTypeView, uploadTermListView)
 import Gargantext.Components.Forest.Tree.Node.ProgressBar (asyncProgressBar, BarType(..))
@@ -36,9 +36,9 @@ import Gargantext.Components.GraphExplorer.API as GraphAPI
 import Gargantext.Components.Lang (allLangs, Lang(EN))
 import Gargantext.Components.NgramsTable.API as NTAPI
 import Gargantext.Components.Nodes.Corpus (loadCorpusWithChild)
-import Gargantext.Components.Search.SearchBar (searchBar)
-import Gargantext.Components.Search.SearchField (Search, defaultSearch, isIsTex_Advanced)
-import Gargantext.Components.Search.Types (DataField(..))
+import Gargantext.Components.Forest.Tree.Node.Action.Search.SearchBar (searchBar)
+import Gargantext.Components.Forest.Tree.Node.Action.Search.SearchField (Search, defaultSearch, isIsTex_Advanced)
+import Gargantext.Components.Forest.Tree.Node.Action.Search.Types (DataField(..))
 import Gargantext.Ends (Frontends, url)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Prelude (Unit, bind, const, discard, identity, map, pure, show, unit, void, ($), (+), (<>), (==))

src/Gargantext/Types.purs

@@ -440,7 +440,10 @@ instance showTabType :: Show TabType where
 type TableResult a = {count :: Int, docs :: Array a}
 type AffTableResult a = Aff (TableResult a)
 
-data Mode = Authors | Sources | Institutes | Terms
+data Mode = Authors
+          | Sources
+          | Institutes
+          | Terms
 
 derive instance genericMode :: Generic Mode _
 instance showMode :: Show Mode where
@@ -471,6 +474,7 @@ data AsyncTaskType = Form
                    | GraphT
                    | Query
                    | AddNode
+
 derive instance genericAsyncTaskType :: Generic AsyncTaskType _
 instance eqAsyncTaskType :: Eq AsyncTaskType where
   eq = genericEq
@@ -496,7 +500,13 @@ asyncTaskTypePath AddNode = "async/nobody/"
 
 type AsyncTaskID = String
 
-data AsyncTaskStatus = Running | Pending | Received | Started | Failed | Finished | Killed
+data AsyncTaskStatus = Running
+                     | Pending
+                     | Received
+                     | Started
+                     | Failed
+                     | Finished
+                     | Killed
 derive instance genericAsyncTaskStatus :: Generic AsyncTaskStatus _
 instance showAsyncTaskStatus :: Show AsyncTaskStatus where
   show = genericShow
@@ -518,10 +528,11 @@ readAsyncTaskStatus "IsRunning"  = Running
 readAsyncTaskStatus "IsStarted"  = Started
 readAsyncTaskStatus _ = Running
 
-newtype AsyncTask = AsyncTask {
-    id     :: AsyncTaskID
-  , status :: AsyncTaskStatus
-  }
+newtype AsyncTask =
+  AsyncTask { id     :: AsyncTaskID
+            , status :: AsyncTaskStatus
+            }
+
 derive instance genericAsyncTask :: Generic AsyncTask _
 instance eqAsyncTask :: Eq AsyncTask where
   eq = genericEq
@@ -532,8 +543,8 @@ instance encodeJsonAsyncTask :: EncodeJson AsyncTask where
      ~> jsonEmptyObject
 instance decodeJsonAsyncTask :: DecodeJson AsyncTask where
   decodeJson json = do
-    obj <- decodeJson json
-    id <- obj .: "id"
+    obj    <- decodeJson json
+    id     <- obj .: "id"
     status <- obj .: "status"
     pure $ AsyncTask { id, status }
 
@@ -551,9 +562,9 @@ instance encodeJsonAsyncTaskWithType :: EncodeJson AsyncTaskWithType where
      ~> jsonEmptyObject
 instance decodeJsonAsyncTaskWithType :: DecodeJson AsyncTaskWithType where
   decodeJson json = do
-    obj <- decodeJson json
+    obj  <- decodeJson json
     task <- obj .: "task"
-    typ <- obj .: "typ"
+    typ  <- obj .: "typ"
     pure $ AsyncTaskWithType { task, typ }
 
 newtype AsyncProgress = AsyncProgress {
@@ -564,9 +575,9 @@ newtype AsyncProgress = AsyncProgress {
 derive instance genericAsyncProgress :: Generic AsyncProgress _
 instance decodeJsonAsyncProgress :: DecodeJson AsyncProgress where
   decodeJson json = do
-    obj <- decodeJson json
-    id <- obj .: "id"
-    log <- obj .: "log"
+    obj    <- decodeJson json
+    id     <- obj .: "id"
+    log    <- obj .: "log"
     status <- obj .: "status"
     pure $ AsyncProgress {id, log, status}
 
@@ -579,9 +590,9 @@ newtype AsyncTaskLog = AsyncTaskLog {
 derive instance genericAsyncTaskLog :: Generic AsyncTaskLog _
 instance decodeJsonAsyncTaskLog :: DecodeJson AsyncTaskLog where
   decodeJson json = do
-    obj <- decodeJson json
-    events <- obj .: "events"
-    failed <- obj .: "failed"
+    obj       <- decodeJson json
+    events    <- obj .: "events"
+    failed    <- obj .: "failed"
     remaining <- obj .: "remaining"
     succeeded <- obj .: "succeeded"
     pure $ AsyncTaskLog {events, failed, remaining, succeeded}