[tasks] insert async task when performing documents from write nodes

src/Gargantext/Components/Forest/Tree.purs

@@ -384,9 +384,11 @@ linkNode nodeType params p@{ boxes: { errors }, session } = traverse_ f params w
     handleRESTError errors eTask $ \_task -> pure unit
     refreshTree p
 
-documentsFromWriteNodes params p@{ boxes: { errors }, session } = do
+documentsFromWriteNodes params p@{ boxes: { errors, tasks }, session, tree: NTree (LNode { id }) _ } = do
   eTask <- documentsFromWriteNodesReq session params
-  handleRESTError errors eTask $ \_task -> pure unit
+  handleRESTError errors eTask $ \task -> liftEffect $ do
+    GAT.insert id task tasks
+    pure unit
   refreshTree p
 
 -- | This thing is basically a hangover from when garg was a thermite

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

@@ -45,7 +45,7 @@ actionWriteNodesDocumentsCpt = here.component "actionWriteNodesDocuments" cpt wh
         <- R2.useBox' ListSelection.MyListsFirst
     paragraphs' /\ paragraphBox
         <- R2.useBox' "7"
-    
+
     let bodies = [
       H.div
       { className: "col-12 flex-space-around" }
@@ -90,7 +90,7 @@ actionWriteNodesDocumentsCpt = here.component "actionWriteNodesDocuments" cpt wh
         H.div
         { className: "form-group__field" }
         [
-          B.formInput 
+          B.formInput
           { callback: flip T.write_ paragraphBox
           , value: paragraphs'
           }