Folder View: add back button to most nodes

src/Gargantext/Components/FolderView.purs

@@ -102,5 +102,14 @@ folderCpt = here.component "folderCpt" cpt where
   getFolderPath :: NodeType -> SessionId -> Int -> String
   getFolderPath nodeType sid nodeId = appPath $ fromMaybe Home $ nodeTypeAppRoute nodeType sid nodeId
 
+backButton :: R.Element
+backButton = 
+  H.button {
+    className: "btn btn-primary"
+  , on: {click: back}
+  } [
+    H.i { className: "fa fa-arrow-left"} []
+  ]
+
 loadFolders :: Record Props -> Aff FTree
 loadFolders {nodeId, session} = get session $ TreeFirstLevel (Just nodeId) ""

src/Gargantext/Components/Nodes/Frame.purs

@@ -13,6 +13,7 @@ import Reactix.DOM.HTML as H
 import Toestand as T
 
 import Gargantext.Components.Node (NodePoly(..))
+import Gargantext.Components.FolderView as FV
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Prelude
 import Gargantext.Routes (SessionRoute(NodeAPI))
@@ -104,13 +105,16 @@ frameLayoutViewCpt = here.component "frameLayoutView" cpt
         , nodeType
         , reload
         , session } _ =
-      pure $ H.div { className : "frame"
-                   , rows: "100%,*" }
-        [ H.iframe { src: hframeUrl nodeType base frame_id
-                  , width: "100%"
-                  , height: "100%"
-                  } []
-        ]
+      pure $ H.div{} [
+        FV.backButton
+      , H.div { className : "frame"
+              , rows: "100%,*" }
+          [ H.iframe { src: hframeUrl nodeType base frame_id
+                     , width: "100%"
+                     , height: "100%"
+                     } []
+          ]
+      ]
 
 type LoadProps   = ( nodeId  :: Int
                    , session :: Session )

src/Gargantext/Components/Table.purs

@@ -10,6 +10,7 @@ import Toestand as T
 
 import Gargantext.Prelude
 
+import Gargantext.Components.FolderView as FV
 import Gargantext.Components.Table.Types (ColumnName, OrderBy, OrderByDirection(..), Params, Props, TableContainerProps, columnName)
 import Gargantext.Components.Nodes.Lists.Types as NT
 import Gargantext.Components.Search (SearchType(..))
@@ -63,7 +64,9 @@ tableHeaderLayoutCpt = here.component "tableHeaderLayout" cpt
       cacheState' <- T.useLive T.unequal cacheState
 
       pure $ R.fragment
-        [ R2.row
+        [ R2.row [FV.backButton]
+        ,
+          R2.row
           [ H.div {className: "col-md-3"} [ H.h3 {} [H.text title] ]
           , H.div {className: "col-md-9"}
             [ H.hr {style: {height: "2px", backgroundColor: "black"}} ]