[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,36 +166,38 @@ data NodeType = NodeUser
               | NodeFrameWrite
               | NodeFrameCalc
               | NodePublic NodeType
+              | NodeFile
 
 
 derive instance eqNodeType :: Eq NodeType
 
 instance showNodeType :: Show NodeType where
-  show NodeUser      = "NodeUser"
-
-  show Folder        = "NodeFolder"
-  show FolderPrivate = "NodeFolderPrivate"  -- Node Private Worktop
-  show FolderShared  = "NodeFolderShared"   -- Node Share Worktop
-  show FolderPublic  = "NodeFolderPublic"   -- Node Public Worktop
-
-  show Annuaire      = "NodeAnnuaire"
-  show NodeContact   = "NodeContact"
-  show Corpus        = "NodeCorpus"
-  show Dashboard     = "NodeDashboard"
-  show Url_Document  = "NodeDocument"
-  show Error         = "NodeError"
-  show Graph         = "NodeGraph"
-  show Phylo         = "NodePhylo"
-  show Individu      = "NodeIndividu"
-  show Node          = "Node"
-  show Nodes         = "Nodes"
-  show Tree          = "NodeTree"
-  show Team          = "NodeTeam"
-  show NodeList      = "NodeList"
-  show Texts         = "NodeTexts"
-  show NodeFrameWrite = "NodeFrameWrite"
-  show NodeFrameCalc  = "NodeFrameCalc"
+  show NodeUser        = "NodeUser"
+
+  show Folder          = "NodeFolder"
+  show FolderPrivate   = "NodeFolderPrivate"  -- Node Private Worktop
+  show FolderShared    = "NodeFolderShared"   -- Node Share Worktop
+  show FolderPublic    = "NodeFolderPublic"   -- Node Public Worktop
+
+  show Annuaire        = "NodeAnnuaire"
+  show NodeContact     = "NodeContact"
+  show Corpus          = "NodeCorpus"
+  show Dashboard       = "NodeDashboard"
+  show Url_Document    = "NodeDocument"
+  show Error           = "NodeError"
+  show Graph           = "NodeGraph"
+  show Phylo           = "NodePhylo"
+  show Individu        = "NodeIndividu"
+  show Node            = "Node"
+  show Nodes           = "Nodes"
+  show Tree            = "NodeTree"
+  show Team            = "NodeTeam"
+  show NodeList        = "NodeList"
+  show Texts           = "NodeTexts"
+  show NodeFrameWrite  = "NodeFrameWrite"
+  show NodeFrameCalc   = "NodeFrameCalc"
   show (NodePublic nt) = "NodePublic" <> show nt
+  show NodeFile        = "NodeFile"
 
 
 instance readNodeType :: Read NodeType where
@@ -204,25 +206,26 @@ instance readNodeType :: Read NodeType where
   read "NodeFolderPrivate" = Just FolderPrivate
   read "NodeFolderShared"  = Just FolderShared
   read "NodeFolderPublic"  = Just FolderPublic
-  read "NodeAnnuaire"  = Just Annuaire
-  read "NodeDashboard" = Just Dashboard
-  read "Document"      = Just Url_Document
-  read "NodeGraph"     = Just Graph
-  read "NodePhylo"     = Just Phylo
-  read "Individu"      = Just Individu
-  read "Node"          = Just Node
-  read "Nodes"         = Just Nodes
-  read "NodeCorpus"    = Just Corpus
-  read "NodeContact"   = Just NodeContact
-  read "Tree"          = Just Tree
-  read "NodeTeam"      = Just Team
-  read "NodeList"      = Just NodeList
-  read "NodeTexts"     = Just Texts
-  read "Annuaire"      = Just Annuaire
-  read "NodeFrameWrite" = Just NodeFrameWrite
-  read "NodeFrameCalc"  = Just NodeFrameCalc
+  read "NodeAnnuaire"      = Just Annuaire
+  read "NodeDashboard"     = Just Dashboard
+  read "Document"          = Just Url_Document
+  read "NodeGraph"         = Just Graph
+  read "NodePhylo"         = Just Phylo
+  read "Individu"          = Just Individu
+  read "Node"              = Just Node
+  read "Nodes"             = Just Nodes
+  read "NodeCorpus"        = Just Corpus
+  read "NodeContact"       = Just NodeContact
+  read "Tree"              = Just Tree
+  read "NodeTeam"          = Just Team
+  read "NodeList"          = Just NodeList
+  read "NodeTexts"         = Just Texts
+  read "Annuaire"          = Just Annuaire
+  read "NodeFrameWrite"    = Just NodeFrameWrite
+  read "NodeFrameCalc"     = Just NodeFrameCalc
+  read "NodeFile"          = Just NodeFile
   -- TODO NodePublic read ?
-  read _               = Nothing
+  read _                   = Nothing
 
 
 fldr :: NodeType -> Boolean -> String
@@ -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"
@@ -299,29 +303,30 @@ instance encodeJsonNodeType :: EncodeJson NodeType where
   encodeJson nodeType = encodeJson $ show nodeType
 
 nodeTypePath :: NodeType -> String
-nodeTypePath Folder    = "folder"
-nodeTypePath FolderPrivate = "folderPrivate"
-nodeTypePath FolderShared  = "folderShared"
-nodeTypePath FolderPublic  = "folderPublic"
-nodeTypePath Annuaire  = "annuaire"
-nodeTypePath Corpus    = "corpus"
-nodeTypePath Dashboard = "dashboard"
-nodeTypePath Url_Document  = "document"
-nodeTypePath Error     = "ErrorNodeType"
-nodeTypePath Graph     = "graph"
-nodeTypePath Phylo     = "phylo"
-nodeTypePath Individu  = "individu"
-nodeTypePath Node      = "node"
-nodeTypePath Nodes     = "nodes"
-nodeTypePath NodeUser  = "user"
-nodeTypePath NodeContact = "contact"
-nodeTypePath Tree      = "tree"
-nodeTypePath NodeList  = "lists"
-nodeTypePath Texts     = "texts"
-nodeTypePath Team      = "team"
-nodeTypePath NodeFrameWrite = "write"
-nodeTypePath NodeFrameCalc  = "calc"
+nodeTypePath Folder          = "folder"
+nodeTypePath FolderPrivate   = "folderPrivate"
+nodeTypePath FolderShared    = "folderShared"
+nodeTypePath FolderPublic    = "folderPublic"
+nodeTypePath Annuaire        = "annuaire"
+nodeTypePath Corpus          = "corpus"
+nodeTypePath Dashboard       = "dashboard"
+nodeTypePath Url_Document    = "document"
+nodeTypePath Error           = "ErrorNodeType"
+nodeTypePath Graph           = "graph"
+nodeTypePath Phylo           = "phylo"
+nodeTypePath Individu        = "individu"
+nodeTypePath Node            = "node"
+nodeTypePath Nodes           = "nodes"
+nodeTypePath NodeUser        = "user"
+nodeTypePath NodeContact     = "contact"
+nodeTypePath Tree            = "tree"
+nodeTypePath NodeList        = "lists"
+nodeTypePath Texts           = "texts"
+nodeTypePath Team            = "team"
+nodeTypePath NodeFrameWrite  = "write"
+nodeTypePath NodeFrameCalc   = "calc"
 nodeTypePath (NodePublic nt) = nodeTypePath nt
+nodeTypePath NodeFile        = "file"
 
 ------------------------------------------------------------