[Node frame analysis] upload functions

src/Gargantext/Components/Forest/Tree.purs

@@ -384,8 +384,8 @@ linkNode nodeType params p@{ boxes: { errors }, session } = traverse_ f params w
     handleRESTError errors eTask $ \_task -> pure unit
     refreshTree p
 
-documentsFromWriteNodes id p@{ boxes: { errors }, session } = do
-  eTask <- documentsFromWriteNodesReq session id
+documentsFromWriteNodes params p@{ boxes: { errors }, session } = do
+  eTask <- documentsFromWriteNodesReq session params
   handleRESTError errors eTask $ \_task -> pure unit
   refreshTree p
 
@@ -411,5 +411,5 @@ performAction (MergeNode {params}) p                          = mergeNode params
 performAction (LinkNode { nodeType, params }) p               = linkNode nodeType params p
 performAction RefreshTree p                                   = refreshTree p
 performAction CloseBox p                                      = closeBox p
-performAction (DocumentsFromWriteNodes { id }) p              = documentsFromWriteNodes id p
+performAction (DocumentsFromWriteNodes params) p              = documentsFromWriteNodes params p
 performAction NoAction _                                      = liftEffect $ here.log "[performAction] NoAction"

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

@@ -30,7 +30,7 @@ data Action = AddNode     String GT.NodeType
             | MergeNode   {params :: Maybe SubTreeOut}
             | LinkNode    {nodeType :: Maybe GT.NodeType, params :: Maybe SubTreeOut}
 
-            | DocumentsFromWriteNodes { id :: GT.ID }
+            | DocumentsFromWriteNodes { id :: GT.ID, lang :: Lang, selection :: Selection, paragraphs :: String }
 
             | NoAction
 

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

@@ -119,11 +119,18 @@ actionWriteNodesDocumentsCpt = here.component "actionWriteNodesDocuments" cpt wh
       ]
     ]
 
-    pure $ panel bodies (submitButton (DocumentsFromWriteNodes { id }) dispatch)
+    pure $ panel bodies (submitButton (DocumentsFromWriteNodes { id, lang: lang', selection: selection', paragraphs: paragraphs' }) dispatch)
 
 
-documentsFromWriteNodesReq :: Session -> GT.ID -> AffRESTError GT.AsyncTaskWithType
-documentsFromWriteNodesReq session id = do
+type Params =
+  ( id         :: GT.ID
+  , selection  :: ListSelection.Selection
+  , lang       :: Lang
+  , paragraphs :: String
+  )
+
+documentsFromWriteNodesReq :: Session -> Record Params -> AffRESTError GT.AsyncTaskWithType
+documentsFromWriteNodesReq session params@{ id } = do
   eTask :: Either RESTError GT.AsyncTask <-
-    post session (NodeAPI GT.Node (Just id) "documents-from-write-nodes") { id }
+    post session (NodeAPI GT.Node (Just id) "documents-from-write-nodes") params
   pure $ (\task -> GT.AsyncTaskWithType { task, typ: GT.UpdateNode }) <$> eTask

src/Gargantext/Components/Lang.purs

@@ -4,10 +4,14 @@ import Gargantext.Prelude
 
 import Data.Argonaut (class EncodeJson, encodeJson)
 import Data.Array as A
+import Data.Generic.Rep (class Generic)
+import Data.Lens.Lens.Product (_1)
 import Data.Maybe (Maybe(..))
+import Data.Newtype (class Newtype)
 import Gargantext.Utils.Reactix as R2
 import Reactix as R
 import Reactix.DOM.HTML as H
+import Simple.JSON as JSON
 import Toestand as T
 
 here :: R2.Here
@@ -42,6 +46,9 @@ instance Read Lang where
 instance EncodeJson Lang where
   encodeJson a = encodeJson (show a)
 
+instance JSON.WriteForeign Lang where
+  writeImpl l = JSON.writeImpl $ show l
+
 -- Language used for the landing page
 data LandingLang = LL_EN | LL_FR