[refactor] refactor react component names

Use thisModule everywhere.

src/Gargantext/Components/Annotation/AnnotatedField.purs

@@ -28,6 +28,9 @@ import Gargantext.Components.Annotation.Utils ( termBootstrapClass )
 import Gargantext.Components.NgramsTable.Core (NgramsTable, NgramsTerm, findNgramTermList, highlightNgrams, normNgram)
 import Gargantext.Components.Annotation.Menu ( AnnotationMenu, annotationMenu, MenuType(..) )
 import Gargantext.Utils.Selection as Sel
+import Gargantext.Utils.Reactix as R2
+
+thisModule = "Gargantext.Components.Annotation.AnnotatedField"
 
 type Props =
   ( ngrams       :: NgramsTable
@@ -44,7 +47,7 @@ annotatedField :: Record Props -> R.Element
 annotatedField p = R.createElement annotatedFieldComponent p []
 
 annotatedFieldComponent :: R.Component Props
-annotatedFieldComponent = R.hooksComponent "AnnotatedField" cpt
+annotatedFieldComponent = R2.hooksComponent thisModule "annotatedField" cpt
   where
     cpt {ngrams,setTermList,text} _ = do
       mMenu@(_ /\ setMenu) <- R.useState $ const Nothing

src/Gargantext/Components/Annotation/Menu.purs

@@ -16,6 +16,8 @@ import Gargantext.Components.Annotation.Utils (termBootstrapClass)
 import Gargantext.Components.ContextMenu.ContextMenu as CM
 import Gargantext.Utils.Reactix as R2
 
+thisModule = "Gargantext.Components.Annotation.Menu"
+
 data MenuType = NewNgram | SetTermListItem
 
 type Props =
@@ -35,7 +37,7 @@ annotationMenu setMenu { x,y,list,menuType,setList } =
   ]
 
 annotationMenuCpt :: R.Component Props
-annotationMenuCpt = R.hooksComponent "Annotation.Menu" cpt
+annotationMenuCpt = R2.hooksComponent thisModule "annotationMenu" cpt
   where
     cpt props _ = pure $ R.fragment $ children props
     children props = A.mapMaybe (addToList props) [ MapTerm, CandidateTerm, StopTerm ]

src/Gargantext/Components/App.purs

@@ -35,6 +35,8 @@ import Gargantext.Sessions as Sessions
 import Gargantext.Types as GT
 import Gargantext.Utils.Reactix as R2
 
+thisModule = "Gargantext.Components.App"
+
 -- TODO (what does this mean?)
 -- tree changes endConfig state => trigger endConfig change in outerLayout, layoutFooter etc
 
@@ -42,7 +44,7 @@ app :: {} -> R.Element
 app props = R.createElement appCpt props []
 
 appCpt :: R.Component ()
-appCpt = R.hooksComponent "G.C.App.app" cpt where
+appCpt = R2.hooksComponent thisModule "app" cpt where
   frontends = defaultFrontends
   cpt _ _ = do
     sessions   <- useSessions
@@ -121,7 +123,7 @@ forestLayout :: Record ForestLayoutProps -> R.Element
 forestLayout props = R.createElement forestLayoutCpt props []
 
 forestLayoutCpt :: R.Component ForestLayoutProps
-forestLayoutCpt = R.hooksComponent "G.C.A.forestLayout" cpt
+forestLayoutCpt = R2.hooksComponent thisModule "forestLayout" cpt
   where
     cpt props@{ handed } _ = do
       pure $ R.fragment [ topBar { handed }, forestLayoutMain props ]
@@ -130,7 +132,7 @@ forestLayoutMain :: Record ForestLayoutProps -> R.Element
 forestLayoutMain props = R.createElement forestLayoutMainCpt props []
 
 forestLayoutMainCpt :: R.Component ForestLayoutProps
-forestLayoutMainCpt = R.hooksComponent "G.C.A.forestLayoutMain" cpt
+forestLayoutMainCpt = R2.hooksComponent thisModule "forestLayoutMain" cpt
   where
     cpt { child, frontends, handed, reload, route, sessions, showLogin } _ = do
       let ordering =
@@ -162,7 +164,7 @@ topBar :: Record TopBarProps -> R.Element
 topBar props = R.createElement topBarCpt props []
 
 topBarCpt :: R.Component TopBarProps
-topBarCpt = R.hooksComponent "G.C.A.topBar" cpt
+topBarCpt = R2.hooksComponent thisModule "topBar" cpt
   where
     cpt { handed } _ = do
       pure $ H.div { id: "dafixedtop"
@@ -204,7 +206,7 @@ handedChooser :: Record HandedChooserProps -> R.Element
 handedChooser props = R.createElement handedChooserCpt props []
 
 handedChooserCpt :: R.Component HandedChooserProps
-handedChooserCpt = R.hooksComponent "G.C.A.handedChooser" cpt
+handedChooserCpt = R2.hooksComponent thisModule "handedChooser" cpt
   where
     cpt { handed } _ = do
       pure $ H.li {} [
@@ -337,7 +339,7 @@ footer :: Record FooterProps -> R.Element
 footer props = R.createElement footerCpt props []
 
 footerCpt :: R.Component FooterProps
-footerCpt = R.hooksComponent "G.C.A.footer" cpt
+footerCpt = R2.hooksComponent thisModule "footer" cpt
   where
     cpt { session } _ = do
       pure $ H.div 

src/Gargantext/Components/AutoUpdate.purs

@@ -11,6 +11,9 @@ import Reactix as R
 import Reactix.DOM.HTML as H
 
 import Gargantext.Prelude
+import Gargantext.Utils.Reactix as R2
+
+thisModule = "Gargantext.Components.AutoUpdate"
 
 
 data Action = Update
@@ -46,7 +49,7 @@ autoUpdate :: Record PropsRow -> R.Element
 autoUpdate props = R.createElement autoUpdateCpt props []
 
 autoUpdateCpt :: R.Component PropsRow
-autoUpdateCpt = R.hooksComponent "G.C.AU.autoUpdate" cpt
+autoUpdateCpt = R2.hooksComponent thisModule "autoUpdate" cpt
   where
     cpt { duration, effect } _ = do
       intervalRef <- R.useRef Nothing

src/Gargantext/Components/CodeEditor.purs

@@ -24,6 +24,8 @@ import Gargantext.Prelude
 import Gargantext.Utils.HighlightJS as HLJS
 import Gargantext.Utils.Reactix as R2
 
+thisModule = "Gargantext.Components.CodeEditor"
+
 type Code = String
 type Html = String
 type Error = String
@@ -105,7 +107,7 @@ codeEditor p = R.createElement codeEditorCpt p []
 -- The overlay is to provide seamless syntax highlighting on top of the textarea.
 -- I took the idea from: https://github.com/satya164/react-simple-code-editor
 codeEditorCpt :: R.Component Props
-codeEditorCpt = R.hooksComponent "G.C.CE.CodeEditor" cpt
+codeEditorCpt = R2.hooksComponent thisModule "codeEditor" cpt
   where
     cpt {code, defaultCodeType, onChange} _ = do
       controls <- initControls code defaultCodeType
@@ -202,7 +204,7 @@ toolbar :: Record ToolbarProps -> R.Element
 toolbar p = R.createElement toolbarCpt p []
 
 toolbarCpt :: R.Component ToolbarProps
-toolbarCpt = R.hooksComponent "G.C.CE.toolbar" cpt
+toolbarCpt = R2.hooksComponent thisModule "toolbar" cpt
   where
     cpt props@{controls: {codeType, error, viewType}} _ = do
       pure $
@@ -231,7 +233,7 @@ errorComponent :: Record ErrorComponentProps -> R.Element
 errorComponent p = R.createElement errorComponentCpt p []
 
 errorComponentCpt :: R.Component ErrorComponentProps
-errorComponentCpt = R.hooksComponent "G.C.CE.ErrorComponent" cpt
+errorComponentCpt = R2.hooksComponent thisModule "errorComponent" cpt
   where
     cpt {error: (Nothing /\ _)} _ = pure $ H.div {} []
     cpt {error: ((Just error) /\ _)} _ = do
@@ -248,7 +250,7 @@ codeTypeSelector :: Record CodeTypeSelectorProps -> R.Element
 codeTypeSelector p = R.createElement codeTypeSelectorCpt p []
 
 codeTypeSelectorCpt :: R.Component CodeTypeSelectorProps
-codeTypeSelectorCpt = R.hooksComponent "G.C.CE.CodeTypeSelector" cpt
+codeTypeSelectorCpt = R2.hooksComponent thisModule "codeTypeSelector" cpt
   where
     cpt {codeType, onChange} _ = do
       pure $ R2.select { className: "form-control"
@@ -284,7 +286,7 @@ viewTypeSelector :: Record ViewTypeSelectorProps -> R.Element
 viewTypeSelector p = R.createElement viewTypeSelectorCpt p []
 
 viewTypeSelectorCpt :: R.Component ViewTypeSelectorProps
-viewTypeSelectorCpt = R.hooksComponent "G.C.CE.ViewTypeSelector" cpt
+viewTypeSelectorCpt = R2.hooksComponent thisModule "viewTypeSelector" cpt
   where
     cpt {state} _ =
       pure $ H.div { className: "btn-group" } [

src/Gargantext/Components/ContextMenu/ContextMenu.purs

@@ -21,13 +21,15 @@ import Reactix.DOM.HTML as HTML
 
 import Gargantext.Utils.Reactix as R2
 
+thisModule = "Gargantext.Components.ContextMenu.ContextMenu"
+
 type Props t = ( x :: Number, y :: Number, setMenu :: R2.Setter (Maybe t) )
 
 contextMenu :: forall t. Record (Props t) -> Array R.Element -> R.Element
 contextMenu = R.createElement contextMenuCpt
 
 contextMenuCpt :: forall t. R.Component (Props t)
-contextMenuCpt = R.hooksComponent "ContextMenu" cpt
+contextMenuCpt = R2.hooksComponent thisModule "contextMenu" cpt
   where
     cpt menu children = do
       host <- R2.getPortalHost
@@ -101,7 +103,7 @@ contextMenuItem :: Array R.Element -> R.Element
 contextMenuItem = R.createElement contextMenuItemCpt {}
 
 contextMenuItemCpt :: R.Component ()
-contextMenuItemCpt = R.hooksComponent "ContextMenuItem" cpt
+contextMenuItemCpt = R2.hooksComponent thisModule "contextMenuItem" cpt
   where
     cpt _props children = pure $ HTML.li { className: "context-menu-item" } children
 

src/Gargantext/Components/DocsTable.purs

@@ -39,6 +39,9 @@ import Gargantext.Routes (SessionRoute(NodeAPI))
 import Gargantext.Sessions (Session, sessionId, get, delete, put)
 import Gargantext.Types (NodeType(..), OrderBy(..), TableResult, TabType, showTabType')
 import Gargantext.Utils.CacheAPI as GUC
+import Gargantext.Utils.Reactix as R2
+
+thisModule = "Gargantext.Components.DocsTable"
 ------------------------------------------------------------------------
 
 type TotalRecords = Int
@@ -159,7 +162,7 @@ docViewLayout :: Record LayoutProps -> R.Element
 docViewLayout props = R.createElement docViewLayoutCpt props []
 
 docViewLayoutCpt :: R.Component LayoutProps
-docViewLayoutCpt = R.hooksComponent "G.C.DocsTable.docViewLayout" cpt
+docViewLayoutCpt = R2.hooksComponent thisModule "docViewLayout" cpt
   where
     cpt layout _children = do
       query <- R.useState' ""
@@ -176,7 +179,7 @@ docView :: Record Props -> R.Element
 docView props = R.createElement docViewCpt props []
 
 docViewCpt :: R.Component Props
-docViewCpt = R.hooksComponent "G.C.DocsTable.docView" cpt where
+docViewCpt = R2.hooksComponent thisModule "docView" cpt where
   cpt { query, params
       , layout: { frontends, session, nodeId, tabType, listId
                 , corpusId, totalRecords, chart, showSearch } } _ = do
@@ -213,7 +216,7 @@ docViewCpt = R.hooksComponent "G.C.DocsTable.docView" cpt where
 searchBar :: R.State Query -> R.Element
 searchBar (query /\ setQuery) = R.createElement el {} []
   where
-    el = R.hooksComponent "SearchBar" cpt
+    el = R2.hooksComponent thisModule "SearchBar" cpt
     cpt {} _children = do
       queryText <- R.useState' query
 
@@ -298,7 +301,7 @@ pageLayout :: Record PageLayoutProps -> R.Element
 pageLayout props = R.createElement pageLayoutCpt props []
 
 pageLayoutCpt :: R.Component PageLayoutProps
-pageLayoutCpt = R.hooksComponent "G.C.DocsTable.pageLayout" cpt where
+pageLayoutCpt = R2.hooksComponent thisModule "pageLayout" cpt where
   cpt props@{ corpusId, frontends, listId, nodeId, params, query, session, tabType } _ =
     useLoaderWithCacheAPI {
         cacheEndpoint: getPageHash session
@@ -334,7 +337,7 @@ page :: T.Params -> Record PageLayoutProps -> Array DocumentsView -> R.Element
 page params layout documents = R.createElement pageCpt { documents, layout, params } []
 
 pageCpt :: R.Component PageProps
-pageCpt = R.hooksComponent "G.C.DocsTable.pageCpt" cpt where
+pageCpt = R2.hooksComponent thisModule "pageCpt" cpt where
   cpt { documents, layout, params } _ = do
     paramsS <- R.useState' params
     pure $ pagePaint { documents, layout, params: paramsS }
@@ -349,7 +352,7 @@ pagePaint :: Record PagePaintProps -> R.Element
 pagePaint props = R.createElement pagePaintCpt props []
 
 pagePaintCpt :: R.Component PagePaintProps
-pagePaintCpt = R.hooksComponent "G.C.DocsTable.pagePaintCpt" cpt where
+pagePaintCpt = R2.hooksComponent thisModule "pagePaintCpt" cpt where
   cpt { layout: { corpusId, frontends, listId, nodeId, session, totalRecords }, documents, params } _ = do
     localCategories <- R.useState' (mempty :: LocalCategories)
     pure $ T.table

src/Gargantext/Components/FacetsTable.purs

@@ -17,6 +17,10 @@ import Data.Tuple (fst, snd)
 import Data.Tuple.Nested ((/\))
 import Effect (Effect)
 import Effect.Aff (Aff, launchAff_)
+import Prelude
+import Reactix as R
+import Reactix.DOM.HTML as H
+
 import Gargantext.Components.Category (Category(..), CategoryQuery(..), favCategory, decodeCategory, putCategories)
 import Gargantext.Components.Search
 import Gargantext.Components.Table as T
@@ -29,9 +33,8 @@ import Gargantext.Types (NodeType(..), OrderBy(..), NodePath(..), NodeID)
 import Gargantext.Utils (toggleSet, zeroPad)
 import Gargantext.Utils.DecodeMaybe ((.|))
 import Gargantext.Utils.Reactix as R2
-import Prelude
-import Reactix as R
-import Reactix.DOM.HTML as H
+
+thisModule = "Gargantext.Components.FacetsTable"
 ------------------------------------------------------------------------
 
 type Props =
@@ -91,7 +94,7 @@ docView :: Record Props -> R.Element
 docView props = R.createElement docViewCpt props []
 
 docViewCpt :: R.Component Props
-docViewCpt = R.hooksComponent "G.C.FacetsTable.DocView" cpt
+docViewCpt = R2.hooksComponent thisModule "docView" cpt
   where
     cpt {frontends, session, nodeId, listId, query, totalRecords, chart, container} _ = do
       deletions <- R.useState' initialDeletions
@@ -142,7 +145,7 @@ docViewGraph :: Record Props -> R.Element
 docViewGraph props = R.createElement docViewCpt props []
 
 docViewGraphCpt :: R.Component Props
-docViewGraphCpt = R.hooksComponent "FacetsDocViewGraph" cpt
+docViewGraphCpt = R2.hooksComponent thisModule "docViewGraph" cpt
   where
     cpt {frontends, session, nodeId, listId, query, totalRecords, chart, container} _ = do
       deletions <- R.useState' initialDeletions
@@ -289,7 +292,7 @@ pageLayout :: Record PageLayoutProps -> R.Element
 pageLayout props = R.createElement pageLayoutCpt props []
 
 pageLayoutCpt :: R.Component PageLayoutProps
-pageLayoutCpt = R.hooksComponent "G.C.FacetsTable.PageLayout" cpt
+pageLayoutCpt = R2.hooksComponent thisModule "pageLayout" cpt
   where
     cpt {frontends, totalRecords, deletions, container, session, path} _ = do
       useLoader (fst path) loadPage $ \documents ->
@@ -299,7 +302,7 @@ page :: Record PageProps -> R.Element
 page props = R.createElement pageCpt props []
 
 pageCpt :: R.Component PageProps
-pageCpt = R.hooksComponent "G.C.FacetsTable.Page" cpt
+pageCpt = R2.hooksComponent thisModule "page" cpt
   where
     cpt {frontends, totalRecords, container, deletions, documents, session, path: path@({nodeId, listId, query} /\ setPath)} _ = do
       pure $ T.table { rows, container, colNames, totalRecords, params, wrapColElts }

src/Gargantext/Components/Forest.purs

@@ -17,6 +17,8 @@ import Gargantext.Sessions (Session(..), Sessions, OpenNodes, unSessions)
 import Gargantext.Types (Reload, Handed(..))
 import Gargantext.Utils.Reactix as R2
 
+thisModule = "Gargantext.Components.Forest"
+
 type Props =
   ( frontends :: Frontends
   , handed    :: Handed
@@ -30,7 +32,7 @@ forest :: Record Props -> R.Element
 forest props = R.createElement forestCpt props []
 
 forestCpt :: R.Component Props
-forestCpt = R.hooksComponent "G.C.Forest.forest" cpt where
+forestCpt = R2.hooksComponent thisModule "forest" cpt where
   cpt { frontends, handed, reload: extReload, route, sessions, showLogin } _ = do
     -- NOTE: this is a hack to reload the tree view on demand
     reload     <- R.useState' (0 :: Reload)

src/Gargantext/Components/Forest/Tree.purs

@@ -33,10 +33,13 @@ import Gargantext.Ends (Frontends)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Prelude (Unit, bind, discard, map, pure, void, ($), (+), (<>), (==))
 import Gargantext.Routes (AppRoute)
+import Gargantext.Routes as GR
 import Gargantext.Sessions (OpenNodes, Session, mkNodeId, get)
 import Gargantext.Types (ID, Reload, isPublic, publicize)
 import Gargantext.Types as GT
-import Gargantext.Routes as GR
+import Gargantext.Utils.Reactix as R2
+
+thisModule = "Gargantext.Components.Forest.Tree"
 
 ------------------------------------------------------------------------
 type CommonProps =
@@ -58,7 +61,7 @@ treeView :: Record Props -> R.Element
 treeView props = R.createElement treeViewCpt props []
   where
     treeViewCpt :: R.Component Props
-    treeViewCpt = R.hooksComponent "G.C.Tree.treeView" cpt
+    treeViewCpt = R2.hooksComponent thisModule "treeView" cpt
       where
         cpt { root
             , asyncTasks
@@ -83,7 +86,7 @@ treeLoadView :: Record Props -> R.Element
 treeLoadView p = R.createElement treeLoadViewCpt p []
   where
     treeLoadViewCpt :: R.Component Props
-    treeLoadViewCpt = R.hooksComponent "TreeLoadView" cpt
+    treeLoadViewCpt = R2.hooksComponent thisModule "treeLoadView" cpt
       where
         cpt { root
             , asyncTasks
@@ -122,7 +125,7 @@ loadedTreeView :: Record TreeViewProps -> R.Element
 loadedTreeView p = R.createElement loadedTreeViewCpt p []
   where
     loadedTreeViewCpt :: R.Component TreeViewProps
-    loadedTreeViewCpt = R.hooksComponent "LoadedTreeView" cpt
+    loadedTreeViewCpt = R2.hooksComponent thisModule "loadedTreeView" cpt
       where
         cpt { asyncTasks
             , frontends
@@ -183,7 +186,7 @@ toHtml p@{ asyncTasks
          } =
   R.createElement el {} []
     where
-      el          = R.hooksComponent "NodeView" cpt
+      el          = R2.hooksComponent thisModule "nodeView" cpt
       commonProps = RecordE.pick p :: Record CommonProps
       pAction a   = performAction a (RecordE.pick p :: Record PerformActionProps)
 

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

@@ -34,6 +34,8 @@ import Gargantext.Types as GT
 import Gargantext.Utils.Popover as Popover
 import Gargantext.Utils.Reactix as R2
 
+thisModule = "Gargantext.Components.Forest.Tree.Node"
+
 
 -- Main Node
 type NodeMainSpanProps =
@@ -51,7 +53,7 @@ nodeMainSpan :: Record NodeMainSpanProps
              -> R.Element
 nodeMainSpan p@{ dispatch, folderOpen, frontends, handed, session } = R.createElement el p []
   where
-    el = R.hooksComponent "G.C.F.T.N.NodeMainSpan" cpt
+    el = R2.hooksComponent thisModule "nodeMainSpan" cpt
     cpt props@{id, mCurrentRoute, name, nodeType, tasks: { onTaskFinish, tasks }} _ = do
       -- only 1 popup at a time is allowed to be opened
       droppedFile   <- R.useState' (Nothing :: Maybe DroppedFile)
@@ -213,7 +215,7 @@ nodeActions :: Record NodeActionsProps -> R.Element
 nodeActions p = R.createElement nodeActionsCpt p []
 
 nodeActionsCpt :: R.Component NodeActionsProps
-nodeActionsCpt = R.hooksComponent "G.C.F.T.N.B.nodeActions" cpt
+nodeActionsCpt = R2.hooksComponent thisModule "nodeActions" cpt
   where
     cpt { id
         , nodeType: GT.Graph

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

@@ -18,6 +18,9 @@ import Gargantext.Routes as GR
 import Gargantext.Sessions (Session, post)
 import Gargantext.Types  as GT
 import Gargantext.Types (NodeType(..))
+import Gargantext.Utils.Reactix as R2
+
+thisModule = "Gargantext.Components.Forest.Tree.Node.Action.Add"
 
 ----------------------------------------------------------------------
 addNode :: Session -> GT.ID -> AddNodeValue -> Aff (Array GT.ID)
@@ -61,7 +64,7 @@ addNodeView :: Record CreateNodeProps
             -> R.Element
 addNodeView p@{ dispatch, nodeType, nodeTypes } = R.createElement el p []
   where
-    el = R.hooksComponent "AddNodeView" cpt
+    el = R2.hooksComponent thisModule "addNodeView" cpt
     cpt {id, name} _ = do
       nodeName@(name' /\ setNodeName) <- R.useState' "Name"
       nodeType'@(nt /\ setNodeType)   <- R.useState' $ fromMaybe Folder $ head nodeTypes

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

@@ -4,6 +4,10 @@ import Data.Maybe (Maybe(..))
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff, launchAff)
 import Effect.Uncurried (mkEffectFn1)
+import Prelude (($))
+import Reactix as R
+import Reactix.DOM.HTML as H
+
 import Gargantext.Components.Forest.Tree.Node.Action (Action)
 import Gargantext.Components.Forest.Tree.Node.Action.Contact.Types (AddContactParams(..))
 -- import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (subTreeView, SubTreeParamsIn)
@@ -13,9 +17,8 @@ import Gargantext.Sessions (Session, post)
 import Gargantext.Types (ID)
 import Gargantext.Types as GT
 import Gargantext.Utils.Reactix as R2
-import Prelude (($))
-import Reactix as R
-import Reactix.DOM.HTML as H
+
+thisModule = "Gargantext.Components.Forest.Tree.Node.Action.Contact"
 
 ------------------------------------------------------------------------
 contactReq :: Session -> ID -> AddContactParams -> Aff ID
@@ -38,7 +41,7 @@ textInputBox :: Record TextInputBoxProps -> R.Element
 textInputBox p@{ boxName, boxAction, dispatch, isOpen: (true /\ setIsOpen), params } = R.createElement el p []
   where
     {firstname, lastname} = params
-    el = R.hooksComponent (boxName <> "Box") cpt
+    el = R2.hooksComponent thisModule (boxName <> "Box") cpt
     cpt {id, params:params'} _ = do
       let {firstname, lastname} = params'
       stateFirstname <- R.useState' firstname
@@ -77,7 +80,7 @@ textInputBox p@{ boxName, boxAction, dispatch, isOpen: (true /\ setIsOpen), para
               } []
 textInputBox p@{ boxName, isOpen: (false /\ _) } = R.createElement el p []
   where
-    el = R.hooksComponent (boxName <> "Box") cpt
+    el = R2.hooksComponent thisModule (boxName <> "Box") cpt
     cpt {} _ = pure $ H.div {} []
 
 

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

-module Gargantext.Components.Forest.Tree.Node.Action.Link
-  where
+module Gargantext.Components.Forest.Tree.Node.Action.Link where
 
 import Data.Argonaut as Argonaut
 import Data.Generic.Rep (class Generic)
@@ -7,6 +6,9 @@ import Data.Generic.Rep.Show (genericShow)
 import Data.Maybe (Maybe(..))
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff)
+import Reactix as R
+import Reactix.DOM.HTML as H
+
 import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
 import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel)
 import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (subTreeView, SubTreeParamsIn)
@@ -16,8 +18,9 @@ import Gargantext.Sessions (Session, post)
 import Gargantext.Routes as GR
 import Gargantext.Types  as GT
 import Gargantext.Utils.Argonaut (genericSumDecodeJson, genericSumEncodeJson)
-import Reactix as R
-import Reactix.DOM.HTML as H
+import Gargantext.Utils.Reactix as R2
+
+thisModule = "Gargantext.Components.Forest.Tree.Node.Action.Link"
 
 
 data LinkNodeReq = LinkNodeReq { nodeType :: GT.NodeType
@@ -56,7 +59,7 @@ linkNode :: Record SubTreeParamsIn -> R.Element
 linkNode p = R.createElement linkNodeCpt p []
 
 linkNodeCpt :: R.Component SubTreeParamsIn
-linkNodeCpt = R.hooksComponent "G.C.F.T.N.A.L.linkNode" cpt
+linkNodeCpt = R2.hooksComponent thisModule "linkNode" cpt
   where
     cpt p@{dispatch, subTreeParams, id, nodeType, session, handed} _ = do
 

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

-module Gargantext.Components.Forest.Tree.Node.Action.Merge
-  where
+module Gargantext.Components.Forest.Tree.Node.Action.Merge where
 
 import Data.Maybe (Maybe(..))
+import Data.Set as Set
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff)
+import Reactix as R
+import Reactix.DOM.HTML as H
+
 import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
 import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel, checkbox, checkboxes)
 import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (subTreeView, SubTreeParamsIn)
@@ -11,9 +14,9 @@ import Gargantext.Prelude
 import Gargantext.Routes (SessionRoute(..))
 import Gargantext.Sessions (Session, put_)
 import Gargantext.Types  as GT
-import Reactix as R
-import Reactix.DOM.HTML as H
-import Data.Set as Set
+import Gargantext.Utils.Reactix as R2
+
+thisModule = "Gargantext.Components.Forest.Tree.Node.Action.Merge"
 
 mergeNodeReq :: Session -> GT.ID -> GT.ID -> Aff (Array GT.ID)
 mergeNodeReq session fromId toId =
@@ -23,7 +26,7 @@ mergeNode :: Record SubTreeParamsIn -> R.Element
 mergeNode p = R.createElement mergeNodeCpt p []
 
 mergeNodeCpt :: R.Component SubTreeParamsIn
-mergeNodeCpt = R.hooksComponent "G.C.F.T.N.A.M.mergeNode" cpt
+mergeNodeCpt = R2.hooksComponent thisModule "mergeNode" cpt
   where
     cpt p@{dispatch, subTreeParams, id, nodeType, session, handed} _ = do
       action@(valAction /\ setAction) :: R.State Action <- R.useState' (MergeNode {params:Nothing})

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

-module Gargantext.Components.Forest.Tree.Node.Action.Move
-  where
+module Gargantext.Components.Forest.Tree.Node.Action.Move where
 
 import Data.Maybe (Maybe(..))
 import Data.Tuple.Nested ((/\))
@@ -14,6 +13,9 @@ import Gargantext.Prelude
 import Gargantext.Routes (SessionRoute(..))
 import Gargantext.Sessions (Session, put_)
 import Gargantext.Types as GT
+import Gargantext.Utils.Reactix as R2
+
+thisModule = "Gargantext.Components.Forest.Tree.Node.Action.Move"
 
 moveNodeReq :: Session -> GT.ID -> GT.ID -> Aff (Array GT.ID)
 moveNodeReq session fromId toId =
@@ -23,7 +25,7 @@ moveNode :: Record SubTreeParamsIn -> R.Element
 moveNode p = R.createElement moveNodeCpt p []
 
 moveNodeCpt :: R.Component SubTreeParamsIn
-moveNodeCpt = R.hooksComponent "G.C.F.T.N.A.M.moveNode" cpt
+moveNodeCpt = R2.hooksComponent thisModule "moveNode" cpt
   where
     cpt p@{dispatch, subTreeParams, id, nodeType, session, handed} _ = do
       action@(valAction /\ setAction) :: R.State Action <- R.useState' (MoveNode {params: Nothing})

src/Gargantext/Components/Forest/Tree/Node/Action/Search/Frame.purs

@@ -20,6 +20,8 @@ import Gargantext.Components.Forest.Tree.Node.Action.Search.Types (DataField(..)
 import Gargantext.Prelude (discard, identity, pure, unit, ($), (<>), (==), class Show, show)
 import Gargantext.Utils.Reactix as R2
 
+thisModule = "Gargantext.Components.Forest.Tree.Node.Action.Search.Frame"
+
 --------------------
 
 data FrameSource = Istex | Searx
@@ -41,7 +43,7 @@ searchIframes :: Record SearchIFramesProps -> R.Element
 searchIframes props = R.createElement searchIframesCpt props []
 
 searchIframesCpt :: R.Component SearchIFramesProps
-searchIframesCpt = R.hooksComponent "G.C.F.T.N.A.S.F.searchIframes" cpt
+searchIframesCpt = R2.hooksComponent thisModule "searchIframes" cpt
   where
     cpt { iframeRef, search: search@(search' /\ _) } _ = do
       pure $ if isIsTex_Advanced search'.datafield
@@ -62,7 +64,7 @@ divIframe :: Record IFrameProps -> R.Element
 divIframe props = R.createElement divIframeCpt props []
 
 divIframeCpt :: R.Component IFrameProps
-divIframeCpt = R.hooksComponent "G.C.F.T.N.A.S.F.divIframe" cpt
+divIframeCpt = R2.hooksComponent thisModule "divIframe" cpt
   where
     cpt { frameSource, iframeRef, search: search@(search' /\ _) } _ = do
       pure $ H.div { className: "frame-search panel panel-default" }
@@ -77,7 +79,7 @@ iframeWith :: Record IFrameProps -> R.Element
 iframeWith props = R.createElement iframeWithCpt props []
 
 iframeWithCpt :: R.Component IFrameProps
-iframeWithCpt = R.hooksComponent "G.C.F.T.N.A.S.F.iframeWith" cpt
+iframeWithCpt = R2.hooksComponent thisModule "iframeWith" cpt
   where
     cpt { frameSource, iframeRef, search: (search /\ setSearch) } _ =
       pure $ H.iframe { src: src frameSource search.term

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

@@ -4,14 +4,18 @@ module Gargantext.Components.Forest.Tree.Node.Action.Search.SearchBar
 
 import Data.Tuple.Nested ((/\))
 import Effect (Effect)
+import Reactix as R
+import Reactix.DOM.HTML as H
+
 import Gargantext.Components.Forest.Tree.Node.Action.Search.SearchField (searchField)
 import Gargantext.Components.Forest.Tree.Node.Action.Search.Types -- (Database, SearchQuery(..), defaultSearchQuery, performSearch, Lang(..))
 import Gargantext.Components.Lang (Lang)
 import Gargantext.Prelude (Unit, pure, ($))
 import Gargantext.Sessions (Session)
 import Gargantext.Types as GT
-import Reactix as R
-import Reactix.DOM.HTML as H
+import Gargantext.Utils.Reactix as R2
+
+thisModule = "Gargantext.Components.Forest.Tree.Node.Action.Search.SearchBar"
 
 type Props = ( langs     :: Array Lang
              , onSearch  :: GT.AsyncTaskWithType -> Effect Unit
@@ -23,7 +27,7 @@ searchBar :: Record Props -> R.Element
 searchBar props = R.createElement searchBarCpt props []
 
 searchBarCpt :: R.Component Props
-searchBarCpt = R.hooksComponent "G.C.F.T.N.A.S.SB.searchBar" cpt
+searchBarCpt = R2.hooksComponent thisModule "searchBar" cpt
   where
     cpt {langs, onSearch, search: search@(s /\ _), session} _ = do
       --onSearchChange session s

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

-module Gargantext.Components.Forest.Tree.Node.Action.Search.SearchField
-    where
+module Gargantext.Components.Forest.Tree.Node.Action.Search.SearchField where
 
 import DOM.Simple.Console (log, log2)
 import Data.Maybe (Maybe(..), maybe, fromMaybe)
@@ -11,6 +10,9 @@ import Data.Tuple.Nested ((/\))
 import Effect (Effect)
 import Effect.Aff (launchAff_)
 import Effect.Class (liftEffect)
+import Reactix as R
+import Reactix.DOM.HTML as H
+
 import Gargantext.Components.Forest.Tree.Node.Tools (panel)
 import Gargantext.Components.Forest.Tree.Node.Action.Search.Types (DataField(..), Database(..), IMT_org(..), Org(..), SearchQuery(..), allIMTorgs, allOrgs, dataFields, defaultSearchQuery, doc, performSearch, datafield2database, Search)
 import Gargantext.Components.Lang (Lang)
@@ -19,8 +21,8 @@ import Gargantext.Sessions (Session)
 import Gargantext.Components.Forest.Tree.Node.Action.Search.Frame (searchIframes)
 import Gargantext.Types as GT
 import Gargantext.Utils.Reactix as R2
-import Reactix as R
-import Reactix.DOM.HTML as H
+
+thisModule = "Gargantext.Components.Forest.Tree.Node.Action.Search.SearchField"
 
 defaultSearch :: Search
 defaultSearch = { databases: Empty
@@ -45,9 +47,9 @@ searchField :: Record Props -> R.Element
 searchField p = R.createElement searchFieldComponent p []
 
 --searchFieldComponent :: R.Memo Props
---searchFieldComponent = R.memo (R.hooksComponent "SearchField" cpt) eqProps
+--searchFieldComponent = R.memo (R2.hooksComponent thisModule "searchField" cpt) eqProps
 searchFieldComponent :: R.Component Props
-searchFieldComponent = R.hooksComponent "G.C.F.T.N.A.S.SF.searchField" cpt
+searchFieldComponent = R2.hooksComponent thisModule "searchField" cpt
   where
     cpt props@{onSearch, search: search@(s /\ _)} _ = do
       iframeRef <- R.useRef    null
@@ -335,7 +337,7 @@ searchInput :: Record SearchInputProps -> R.Element
 searchInput p = R.createElement searchInputComponent p []
 
 searchInputComponent :: R.Component SearchInputProps
-searchInputComponent = R.hooksComponent "G.C.S.SearchInput" cpt
+searchInputComponent = R2.hooksComponent thisModule "searchInput" cpt
   where
     cpt {search: (search /\ setSearch)} _ = do
       pure $
@@ -362,7 +364,7 @@ submitButton :: Record SubmitButtonProps -> R.Element
 submitButton p = R.createElement submitButtonComponent p []
 
 submitButtonComponent :: R.Component SubmitButtonProps
-submitButtonComponent = R.hooksComponent "G.C.S.SubmitButton" cpt
+submitButtonComponent = R2.hooksComponent thisModule "submitButton" cpt
   where
     cpt {onSearch, search: (mySearch /\ _), session} _ =
       pure $

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

@@ -6,6 +6,10 @@ import Data.Generic.Rep.Show (genericShow)
 import Data.Maybe (Maybe(..))
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff)
+import Prelude (($))
+import Reactix as R
+import Reactix.DOM.HTML as H
+
 import Gargantext.Components.Forest.Tree.Node.Action (Action)
 import Gargantext.Components.Forest.Tree.Node.Action as Action
 import Gargantext.Components.Forest.Tree.Node.Tools as Tools
@@ -16,9 +20,9 @@ import Gargantext.Sessions (Session, post)
 import Gargantext.Types (ID)
 import Gargantext.Types as GT
 import Gargantext.Utils.Argonaut (genericSumDecodeJson, genericSumEncodeJson)
-import Prelude (($))
-import Reactix as R
-import Reactix.DOM.HTML as H
+import Gargantext.Utils.Reactix as R2
+
+thisModule = "Gargantext.Components.Forest.Tree.Node.Action.Share"
 
 ------------------------------------------------------------------------
 shareReq :: Session -> ID -> ShareNodeParams -> Aff ID
@@ -55,7 +59,7 @@ shareNode :: Record SubTreeParamsIn -> R.Element
 shareNode p = R.createElement shareNodeCpt p []
 
 shareNodeCpt :: R.Component SubTreeParamsIn
-shareNodeCpt = R.hooksComponent "G.C.F.T.N.A.M.shareNode" cpt
+shareNodeCpt = R2.hooksComponent thisModule "shareNode" cpt
   where
     cpt p@{dispatch, subTreeParams, id, nodeType, session, handed} _ = do
       action@(valAction /\ setAction) :: R.State Action <- R.useState' (Action.SharePublic {params: Nothing})

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

@@ -32,6 +32,8 @@ import Gargantext.Types (NodeType(..), ID)
 import Gargantext.Types         as GT
 import Gargantext.Utils.Reactix as R2
 
+thisModule = "Gargantext.Components.Forest.Tree.Node.Action.Upload"
+
 -- UploadFile Action
 
 -- | Action : Upload
@@ -71,7 +73,7 @@ uploadFileView :: Record Props -> R.Element
 uploadFileView props = R.createElement uploadFileViewCpt props []
 
 uploadFileViewCpt :: R.Component Props
-uploadFileViewCpt = R.hooksComponent "G.C.F.T.N.A.U.UploadFileView" cpt
+uploadFileViewCpt = R2.hooksComponent thisModule "uploadFileView" cpt