[FOREST][WIP] folder memory to be open or closed

src/Gargantext/Components/Forest/Tree.purs

 module Gargantext.Components.Forest.Tree where
 
+import Prelude ((||))
 import DOM.Simple.Console (log2)
-import Data.Maybe (Maybe)
+import Data.Maybe (Maybe(..))
 -- import Data.Newtype (class Newtype)
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff)
@@ -66,19 +67,19 @@ toHtml :: R.State Reload
        -> Frontends
        -> Maybe AppRoute
        -> R.Element
-toHtml reload treeState@({tree: (NTree (LNode {id, name, nodeType}) ary)} /\ _) session frontends mCurrentRoute = R.createElement el {} []
+toHtml reload treeState@({tree: (NTree (LNode {id, name, nodeType, open}) ary)} /\ _) session frontends mCurrentRoute = R.createElement el {} []
   where
     el = R.hooksComponent "NodeView" cpt
     pAction = performAction session reload treeState
 
     cpt props _ = do
-      folderOpen <- R.useState' true
-
-      let withId (NTree (LNode {id: id'}) _) = id'
+      folderOpen@(o /\ _) <- R.useState' false
+      let open' = o || open
+      let withId (NTree (LNode {id: id', open:open'}) _) = id'
 
       pure $ H.ul {}
         [ H.li {}
-          ( [ nodeMainSpan pAction {id, name, nodeType, mCurrentRoute} folderOpen session frontends ]
+          ( [ nodeMainSpan pAction {id, name, nodeType, mCurrentRoute, open:open'} folderOpen session frontends ]
             <> childNodes session frontends reload folderOpen mCurrentRoute ary
           )
         ]

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

@@ -11,6 +11,7 @@ import Gargantext.Routes (SessionRoute(..))
 import Gargantext.Sessions (Session, get, put, post, delete)
 import Gargantext.Types (NodeType(..))
 import Prelude hiding (div)
+import Reactix as R
 
 data Action = Submit       String
             | DeleteNode
@@ -91,9 +92,10 @@ instance ntreeFunctor :: Functor NTree where
   map f (NTree x ary) = NTree (f x) (map (map f) ary)
 
 
-newtype LNode = LNode { id :: ID
-                      , name :: Name
+newtype LNode = LNode { id       :: ID
+                      , name     :: Name
                       , nodeType :: NodeType
+                      , open     :: Maybe (R.State Boolean)
                       }
 
 derive instance newtypeLNode :: Newtype LNode _
@@ -106,7 +108,9 @@ instance decodeJsonLNode :: DecodeJson LNode where
     nodeType <- obj .: "type"
     pure $ LNode { id : id_
                  , name
-                 , nodeType}
+                 , nodeType
+                 , open: Nothing
+                 }
 
 instance decodeJsonFTree :: DecodeJson (NTree LNode) where
   decodeJson json = do

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

@@ -42,6 +42,7 @@ type NodeMainSpanProps =
   , name          :: Name
   , nodeType      :: NodeType
   , mCurrentRoute :: Maybe AppRoute
+  , open          :: R.State Boolean
   )
 
 nodeMainSpan :: (Action -> Aff Unit)
@@ -53,7 +54,7 @@ nodeMainSpan :: (Action -> Aff Unit)
 nodeMainSpan d p folderOpen session frontends = R.createElement el p []
   where
     el = R.hooksComponent "NodeMainSpan" cpt
-    cpt {id, name, nodeType, mCurrentRoute} _ = do
+    cpt {id, name, nodeType, mCurrentRoute, open} _ = do
       -- only 1 popup at a time is allowed to be opened
       popupOpen   <- R.useState' (Nothing :: Maybe NodePopup)
       droppedFile <- R.useState' (Nothing :: Maybe DroppedFile)