[Tree] async progress bar endpoint

src/Gargantext/Components/App.purs

@@ -44,7 +44,7 @@ appCpt = R.hooksComponent "G.C.App.app" cpt where
   cpt _ _ = do
     sessions   <- useSessions
     route      <- useHashRouter router Home
-    
+
     showLogin  <- R.useState' false
     showCorpus <- R.useState' false
     

src/Gargantext/Components/Forest/Tree.purs

@@ -56,7 +56,7 @@ loadedTreeView reload p = R.createElement el p []
   where
     el = R.hooksComponent "LoadedTreeView" cpt
     cpt {tree, mCurrentRoute, session, frontends} _ = do
-      treeState <- R.useState' {tree, asyncTasks: [AsyncTask {id: "1hello", status: "pending"}]}
+      treeState <- R.useState' {tree, asyncTasks: []}
 
       pure $ H.div {className: "tree"}
         [ toHtml reload treeState session frontends mCurrentRoute ]

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

 module Gargantext.Components.Forest.Tree.Node.Action.Upload where
 
-import Prelude (class Show, Unit, const, discard, map, pure, show, ($), (<>), bind, void)
+import Prelude (class Show, Unit, bind, const, discard, map, pure, show, void, ($))
 import Data.Maybe (Maybe(..), fromJust)
 import Data.Newtype (class Newtype)
 import Data.Tuple (Tuple(..))
@@ -12,13 +12,12 @@ import React.SyntheticEvent as E
 import Reactix as R
 import Reactix.DOM.HTML as H
 import URI.Extra.QueryPairs as QP
-import URI.Query as Q
 import Web.File.FileReader.Aff (readAsText)
 
 import Gargantext.Components.Forest.Tree.Node.Action
 import Gargantext.Routes (SessionRoute(..))
-import Gargantext.Sessions (Session, postWwwUrlencoded, postMultipartFormData)
-import Gargantext.Types (class ToQuery, toQuery, NodeType(..), AsyncTask(..))
+import Gargantext.Sessions (Session, postWwwUrlencoded)
+import Gargantext.Types (class ToQuery, AsyncTask, NodeType(..))
 import Gargantext.Utils (id)
 import Gargantext.Utils.Reactix as R2
 

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

@@ -67,7 +67,7 @@ nodeMainSpan d p folderOpen session frontends = R.createElement el p []
         , popOverIcon showBox popupOpen popupPosition
         , mNodePopupView props showBox popupOpen popupPosition
         , fileTypeView   d {id, nodeType} droppedFile isDragOver
-        , H.div {} (map (\t -> asyncProgressBar {corpusId: id, asyncTask: t}) asyncTasks)
+        , H.div {} (map (\t -> asyncProgressBar {asyncTask: t, corpusId: id, session}) asyncTasks)
         ]
           where
             SettingsBox {show: showBox} = settingsBox nodeType

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

 module Gargantext.Components.Forest.Tree.Node.ProgressBar where
 
+import Gargantext.Prelude
+
 import Data.Int (fromNumber)
-import Data.Maybe (fromJust)
+import Data.Maybe (Maybe(..), fromJust)
 import Data.Tuple.Nested ((/\))
+import Effect.Aff (Aff, launchAff_)
 import Effect.Timer (setTimeout)
-import Math (min)
+import Gargantext.Components.Forest.Tree.Node.Action (ID)
+import Gargantext.Routes (SessionRoute(..))
+import Gargantext.Sessions (Session, get)
+import Gargantext.Types (AsyncTask(..), NodeType(..))
 import Partial.Unsafe (unsafePartial)
-import Prelude ((+), ($), (<>), (<<<), pure, bind, discard, unit, show)
 import Reactix as R
 import Reactix.DOM.HTML as H
 
-import Gargantext.Components.Forest.Tree.Node.Action (ID)
-import Gargantext.Types (AsyncTask(..))
-
 
 type Props =
   (
     asyncTask :: AsyncTask
   , corpusId  :: ID
+  , session   :: Session
   )
 
 
@@ -27,11 +30,13 @@ asyncProgressBar p = R.createElement asyncProgressBarCpt p []
 asyncProgressBarCpt :: R.Component Props
 asyncProgressBarCpt = R.hooksComponent "G.C.F.T.N.asyncProgressBar" cpt
   where
-    cpt {asyncTask: (AsyncTask {id}), corpusId} _ = do
+    cpt props@{asyncTask: (AsyncTask {id}), corpusId} _ = do
       (progress /\ setProgress) <- R.useState' 0.0
 
       R.useEffect' $ do
         _ <- setTimeout 1000 $ do
+          launchAff_ $ do
+            queryProgress props
           setProgress \p -> min 100.0 (p + 10.0)
         pure unit
 
@@ -46,3 +51,8 @@ asyncProgressBarCpt = R.hooksComponent "G.C.F.T.N.asyncProgressBar" cpt
 
     toInt :: Number -> Int
     toInt n = unsafePartial $ fromJust $ fromNumber n
+
+queryProgress :: Record Props -> Aff Unit
+queryProgress {asyncTask: AsyncTask {id}, corpusId, session} = get session p
+  where
+    p = NodeAPI Corpus (Just corpusId) $ "add/form/async/" <> id <> "/poll"