Home: show folder view when logged in

src/Gargantext/Components/Nodes/Home.purs

 module Gargantext.Components.Nodes.Home where
 
+import Gargantext.Prelude
+
 import Data.Array as Array
+import Data.Maybe (fromJust)
 import Data.Newtype (class Newtype)
 import Effect (Effect)
-import Reactix as R
-import Reactix.DOM.HTML as H
-import Routing.Hash (setHash)
-import Toestand as T
-
 import Gargantext.Components.Data.Landing (BlockText(..), BlockTexts(..), Button(..), LandingData(..))
+import Gargantext.Components.FolderView as FV
 import Gargantext.Components.Lang (LandingLang(..))
 import Gargantext.Components.Lang.Landing.EnUS as En
 import Gargantext.Components.Lang.Landing.FrFR as Fr
 import Gargantext.Components.Nodes.Home.Public (renderPublic)
 import Gargantext.License (license)
-import Gargantext.Prelude -- (Unit, map, pure, unit, void, ($), (<>), (*>))
 import Gargantext.Sessions (Sessions)
 import Gargantext.Sessions as Sessions
+import Gargantext.Sessions.Types (Session(..))
 import Gargantext.Utils.Reactix as R2
+import Partial.Unsafe (unsafePartial)
+import Reactix as R
+import Reactix.DOM.HTML as H
+import Routing.Hash (setHash)
+import Toestand as T
 
 here :: R2.Here
 here = R2.here "Gargantext.Components.Nodes.Home"
@@ -87,7 +91,8 @@ joinButtonOrTutorial :: forall e. Sessions -> (e -> Effect Unit) -> R.Element
 joinButtonOrTutorial sessions click =
   if Sessions.null sessions
   then joinButton click
-  else tutorial
+  -- sessions is not empty
+  else tutorial {session: unsafePartial $ fromJust $ Array.head $ Sessions.unSessions sessions}
      
 joinButton :: forall e. (e -> Effect Unit) -> R.Element
 joinButton click =
@@ -131,10 +136,17 @@ summary =
         , H.ol {} (map toSummary tutos) ] ]          
     toSummary (Tuto x) = H.li {} [ H.a {href: "#" <> x.id} [ H.text x.title ]]
 
-tutorial :: R.Element
-tutorial =
-  H.div { className: "mx-auto container" }
-  [ H.h1 {} [H.text "Welcome!"]
+tutorial :: R2.Leaf (session :: Session)
+tutorial props = R.createElement tutorialCpt props []
+
+tutorialCpt :: R.Component (session :: Session)
+tutorialCpt = here.component "tutorial" cpt where
+  cpt {session: session@(Session {treeId})} _ = do
+    let nodeId = treeId
+
+    pure $ H.div { className: "mx-auto container" }
+      [ FV.folderViewLoad {session, nodeId}
+      , H.h1 {} [H.text "Welcome!"]
       , H.h2 {} [H.text "For easy start, just watch the tutorials"]
       , summary
       , H.h3 {} [H.text "Tutorial resources"]