[upload] file upload implemented now, works with correct API endpoint

src/Gargantext/Components/App.purs

@@ -4,10 +4,11 @@ import Data.Array (fromFoldable)
 import Data.Foldable (intercalate)
 import Data.Maybe (Maybe(..), maybe')
 import Data.Tuple (fst, snd)
-import Prelude
 import Reactix as R
 import Reactix.DOM.HTML as H
 
+import Gargantext.Prelude
+
 import Gargantext.Components.Forest (forest)
 import Gargantext.Components.GraphExplorer (explorerLayout)
 import Gargantext.Components.Lang (LandingLang(..))

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

@@ -120,8 +120,9 @@ nodeMainSpan p@{ dispatch, folderOpen, frontends, session, handed} = R.createEle
     folderIcon nodeType folderOpen'@(open /\ _) =
       H.a { className: "folder-icon"
           , onClick: R2.effToggler folderOpen'
-          }
-          [ H.i {className: GT.fldr nodeType open} [] ]
+          } [
+        H.i {className: GT.fldr nodeType open} []
+        ]
 
     popOverIcon = H.a { className: "settings fa fa-cog" } []
 

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

@@ -4,6 +4,7 @@ import Data.Maybe (Maybe(..), fromJust, fromMaybe)
 import Data.Newtype (class Newtype)
 import Data.Tuple (Tuple(..))
 import Data.Tuple.Nested ((/\))
+import DOM.Simple.Console (log2)
 import Effect (Effect)
 import Effect.Aff (Aff, launchAff, throwError)
 import Effect.Class (liftEffect)
@@ -120,17 +121,6 @@ uploadFileViewCpt = R.hooksComponent "G.C.F.T.N.A.U.UploadFileView" cpt
           liftEffect $ do
             setMFile $ const $ Just $ {contents: UploadFileContents contents, name}
 
-    onChangeFileType :: forall e
-                     .  R.State FileType
-                     -> e
-                     -> Effect Unit
-    onChangeFileType (fileType /\ setFileType) e = do
-      setFileType $ const
-                  $ unsafePartial
-                  $ fromJust
-                  $ read
-                  $ R2.unsafeEventValue e
-
 
 type UploadButtonProps =
   ( dispatch :: Action -> Aff Unit
@@ -167,6 +157,7 @@ uploadButtonCpt = R.hooksComponent "G.C.F.T.N.A.U.uploadButton" cpt
 
         onClick e = do
           let { contents, name } = unsafePartial $ fromJust mFile
+          log2 "[uploadButton] fileType" fileType
           void $ launchAff do
             case fileType of
               Arbitrary ->

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

@@ -303,6 +303,14 @@ settingsBox NodeFrameCalc =
               }
 
 
+settingsBox NodeFile =
+  SettingsBox { show: true
+              , edit: true
+              , doc: Documentation NodeFile
+              , buttons: [ Delete ]
+              }
+
+
 settingsBox _ =
   SettingsBox { show : false
               , edit : false

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

@@ -164,7 +164,7 @@ formChoice :: forall a b c d
 formChoice nodeTypes defaultNodeType setNodeType = 
   H.div { className: "form-group"}
         [ R2.select { className: "form-control"
-                    , on: { change: \_ -> setNodeType
+                    , on: { change: setNodeType
                                       <<< const
                                       <<< fromMaybe defaultNodeType
                                       <<< read

src/Gargantext/Types.purs

@@ -166,6 +166,7 @@ data NodeType = NodeUser
               | NodeFrameWrite
               | NodeFrameCalc
               | NodePublic NodeType
+              | NodeFile
 
 
 derive instance eqNodeType :: Eq NodeType
@@ -196,6 +197,7 @@ instance showNodeType :: Show NodeType where
   show NodeFrameWrite  = "NodeFrameWrite"
   show NodeFrameCalc   = "NodeFrameCalc"
   show (NodePublic nt) = "NodePublic" <> show nt
+  show NodeFile        = "NodeFile"
 
 
 instance readNodeType :: Read NodeType where
@@ -221,6 +223,7 @@ instance readNodeType :: Read NodeType where
   read "Annuaire"          = Just Annuaire
   read "NodeFrameWrite"    = Just NodeFrameWrite
   read "NodeFrameCalc"     = Just NodeFrameCalc
+  read "NodeFile"          = Just NodeFile
   -- TODO NodePublic read ?
   read _                   = Nothing
 
@@ -253,6 +256,7 @@ fldr Graph _ = "fa fa-hubzilla"
 fldr Texts _ = "fa fa-newspaper-o"
 fldr Dashboard _ = "fa fa-signal"
 fldr NodeList _ = "fa fa-list"
+fldr NodeFile _ = "fa fa-file"  -- TODO depending on mime type we can use fa-file-image etc
 
 fldr Annuaire true  = "fa fa-address-card-o"
 fldr Annuaire false = "fa fa-address-card"
@@ -322,6 +326,7 @@ nodeTypePath Team      = "team"
 nodeTypePath NodeFrameWrite  = "write"
 nodeTypePath NodeFrameCalc   = "calc"
 nodeTypePath (NodePublic nt) = nodeTypePath nt
+nodeTypePath NodeFile        = "file"
 
 ------------------------------------------------------------