[DOC] Tooltip, icon added

src/Gargantext/Components/Forest.purs

@@ -2,7 +2,6 @@ module Gargantext.Components.Forest where
 
 import Gargantext.Prelude
 
-import Data.Array as A
 import Data.Maybe (Maybe(..))
 import Data.Set as Set
 import Data.Tuple (fst)

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

@@ -9,7 +9,6 @@ import Effect.Class (liftEffect)
 import React.SyntheticEvent as E
 import Reactix as R
 import Reactix.DOM.HTML as H
-import Web.File.FileReader.Aff (readAsText)
 
 import Gargantext.Components.Forest.Tree.Node.Settings (SettingsBox(..), settingsBox)
 import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
@@ -24,7 +23,7 @@ import Gargantext.Components.Forest.Tree.Node.Tools (nodeLink)
 import Gargantext.Components.GraphExplorer.API as GraphAPI
 import Gargantext.Components.Lang (Lang(EN))
 import Gargantext.Components.Nodes.Corpus (loadCorpusWithChild)
-import Gargantext.Ends (Frontends, url)
+import Gargantext.Ends (Frontends)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Prelude (Unit, bind, const, discard, map, pure, show, unit, void, ($), (<>), (==), identity)
 import Gargantext.Routes as Routes
@@ -69,7 +68,7 @@ nodeMainSpan p@{ dispatch, folderOpen, frontends, handed, session } = R.createEl
       pure $ H.span (dropProps droppedFile isDragOver)
            $ ordering
              [ chevronIcon nodeType folderOpen
-             , folderIcon nodeType folderOpen
+             , folderIcon  nodeType folderOpen
              , if showBox then
                  Popover.popover { arrow: false
                                  , open: false

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

@@ -17,7 +17,7 @@ import React.SyntheticEvent     as E
 import Reactix                  as R
 import Reactix.DOM.HTML         as H
 import URI.Extra.QueryPairs     as QP
-import Web.File.Blob (Blob)
+-- import Web.File.Blob (Blob)
 import Web.File.FileReader.Aff (readAsDataURL, readAsText)
 
 import Gargantext.Prelude
@@ -31,7 +31,6 @@ import Gargantext.Sessions (Session, postWwwUrlencoded)
 import Gargantext.Types (NodeType(..), ID)
 import Gargantext.Types         as GT
 import Gargantext.Utils.Reactix as R2
-import Gargantext.Utils.String as GUS
 
 -- UploadFile Action
 

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

@@ -2,7 +2,6 @@ module Gargantext.Components.Forest.Tree.Node.Box where
 
 import Data.Array as A
 import Data.Maybe (Maybe(..))
-import Data.String as S
 import Data.Tuple (fst)
 import Data.Tuple.Nested ((/\))
 import DOM.Simple.Console (log2)

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

@@ -285,21 +285,19 @@ nodeLinkCpt = R.hooksComponent "G.C.F.T.N.T.nodeLink" cpt
       popoverRef <- R.useRef null
 
       pure $
-        H.div {} [
-          H.a { data: { for: tooltipId, tip: true }
-              , href: url frontends $ GT.NodePath (sessionId session) nodeType (Just id) }
-            [ nodeText { isSelected
-                       , name
-                       } ]
-        , ReactTooltip.reactTooltip { id: tooltipId } [
-            R2.row [
-               H.h4 {} [ H.text $ prettyNodeType nodeType ]
-            ]
-          , R2.row [
-              H.span {} [ H.text $ name ]
-            ]
-          ]
-        ]
+        H.div {} [ H.a { data: { for: tooltipId, tip: true }
+                 , href: url frontends $ GT.NodePath (sessionId session) nodeType (Just id) }
+                                       [ nodeText { isSelected
+                                                  , name
+                                                  }
+                                       ]
+                 , ReactTooltip.reactTooltip { id: tooltipId }
+                                             [ R2.row [ H.h4 {className: GT.fldr nodeType true}
+                                                             [ H.text $ prettyNodeType nodeType ]
+                                                      ]
+                                             , R2.row [ H.span {} [ H.text $ name ]]
+                                             ]
+                 ]
 
       where
         tooltipId = "node-link-" <> show id