tree: create new corpus button

- some Tree.purs code cleanup (imports)
- file upload via drop onto tree node

.psc-package/local/.set/packages.json

@@ -570,6 +570,16 @@
     "repo": "https://github.com/purescript/purescript-distributive.git",
     "version": "v4.0.0"
   },
+  "dom-filereader": {
+    "dependencies": [
+      "aff",
+      "arraybuffer-types",
+      "web-file",
+      "web-html"
+    ],
+    "repo": "https://github.com/nwolverson/purescript-dom-filereader",
+    "version": "v5.0.0"
+  },
   "dom-indexed": {
     "dependencies": [
       "media-types",

package.json

@@ -26,12 +26,12 @@
         "@babel/preset-react": "^7.0.0",
         "@babel/preset-stage-2": "^7.0.0",
         "babel-core": "^7.0.0-bridge",
-        "react-testing-library": "^6.1.2",
         "envify": "^4.1.0",
         "http-server": "^0.11.1",
         "psc-package": "^3.0.1",
         "pulp": "^12.4.0",
         "purescript": "^0.12.4",
+        "react-testing-library": "^6.1.2",
         "spago": "^0.7.5"
     },
     "version": "0.0.0"

packages.dhall

@@ -173,6 +173,15 @@ let additions =
           ]
           "https://github.com/irresponsible/purescript-dom-simple"
           "v0.2.4"
+      , dom-filereader =
+	      mkPackage
+		  [ "aff"
+		  , "arraybuffer-types"
+		  , "web-file"
+		  , "web-html"
+		  ]
+		  "https://github.com/nwolverson/purescript-dom-filereader"
+		  "v5.0.0"
       , reactix =
           mkPackage
           [ "console"

psc-package.json

@@ -3,30 +3,31 @@
   "set": "local",
   "source": ".psc-package",
   "depends": [
-    "numbers",
-    "spec-quickcheck",
-    "spec-discovery",
-    "uint",
-    "js-timers",
-    "psci-support",
-    "css",
-    "generics-rep",
-    "maybe",
-    "routing",
-    "foreign-object",
+    "affjax",
     "argonaut",
+    "console",
+    "css",
+    "dom-filereader",
+    "dom-simple",
     "effect",
-    "web-html",
-    "thermite",
+    "foreign-object",
+    "generics-rep",
     "integers",
-    "random",
-    "affjax",
-    "console",
-    "strings",
-    "string-parsers",
+    "js-timers",
+    "maybe",
+    "numbers",
     "prelude",
-    "dom-simple",
+    "psci-support",
+    "random",
     "reactix",
-    "uri"
+    "routing",
+    "spec-discovery",
+    "spec-quickcheck",
+    "string-parsers",
+    "strings",
+    "thermite",
+    "uint",
+    "uri",
+    "web-html"
   ]
 }

src/Gargantext/Config/REST.purs

 module Gargantext.Config.REST where
 
+import Gargantext.Prelude
+
 import Affjax (defaultRequest, printResponseFormatError, request)
-import Affjax.RequestBody (RequestBody(..))
+import Affjax.RequestBody (RequestBody(..), string)
 import Affjax.RequestHeader (RequestHeader(..))
 import Affjax.ResponseFormat as ResponseFormat
 import Data.Argonaut (class DecodeJson, decodeJson, class EncodeJson, encodeJson)
 import Data.Either (Either(..))
 import Data.HTTP.Method (Method(..))
 import Data.Maybe (Maybe(..))
-import Data.MediaType.Common (applicationJSON)
+import Data.MediaType.Common (applicationFormURLEncoded, applicationJSON)
 import Effect.Aff (Aff, throwError)
 import Effect.Exception (error)
 
-import Gargantext.Prelude
-
 send :: forall a b. EncodeJson a => DecodeJson b =>
         Method -> String -> Maybe a -> Aff b
 send m url reqbody = do
@@ -58,3 +58,26 @@ deleteWithBody url = send DELETE url <<< Just
 
 post :: forall a b. EncodeJson a => DecodeJson b => String -> a -> Aff b
 post url = send POST url <<< Just
+
+postWwwUrlencoded :: forall b. DecodeJson b => String -> String -> Aff b
+postWwwUrlencoded url body = do
+  affResp <- request $ defaultRequest
+             { url = url
+             , responseFormat = ResponseFormat.json
+             , method = Left POST
+             , headers =  [ ContentType applicationFormURLEncoded
+                          , Accept applicationJSON
+                          ]
+             , content  = Just $ string body
+             }
+  case affResp.body of
+    Left err -> do
+      _ <-  logs $ printResponseFormatError err
+      throwError $ error $ printResponseFormatError err
+    Right json -> do
+      --_ <-  logs $ show json.status
+      --_ <-  logs $ show json.headers
+      --_ <-  logs $ show json.body
+      case decodeJson json of
+        Left err -> throwError $ error $ "decodeJson affResp.body: " <> err
+        Right b -> pure b