[document] implement export dialog box

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

@@ -15,7 +15,7 @@ import Gargantext.Types as GT
 import Gargantext.Utils.Reactix as R2
 
 here :: R2.Here
-here = R2.here "Gargantext.Components.Forest.Tree.Node.Action.Documentation"
+here = R2.here "Gargantext.Components.Forest.Tree.Node.Action.Download"
 
 -- | Action : Download
 type ActionDownload =
@@ -30,6 +30,7 @@ actionDownloadCpt = here.component "actionDownload" cpt where
   cpt props@{ nodeType: GT.Corpus } _    = pure $ actionDownloadCorpus props []
   cpt props@{ nodeType: GT.Graph } _     = pure $ actionDownloadGraph props []
   cpt props@{ nodeType: GT.NodeList }  _ = pure $ actionDownloadNodeList props []
+  cpt props@{ nodeType: GT.NodeTexts } _ = pure $ actionDownloadNodeTexts props []
   cpt props@{ nodeType: _ } _            = pure $ actionDownloadOther props []
 
 actionDownloadCorpus :: R2.Component ActionDownload
@@ -65,6 +66,18 @@ actionDownloadNodeListCpt = here.component "actionDownloadNodeList" cpt where
       href  = url session $ Routes.NodeAPI GT.NodeList (Just id) ""
       info  = "Info about the List as JSON format"
 
+actionDownloadNodeTexts :: R2.Component ActionDownload
+actionDownloadNodeTexts = R.createElement actionDownloadNodeTextsCpt
+actionDownloadNodeTextsCpt :: R.Component ActionDownload
+actionDownloadNodeTextsCpt = here.component "actionDownloadNodeTexts" cpt where
+  cpt { id, session } _ = do
+    pure $ panel [H.div {} [H.text info]]
+      (submitButtonHref DownloadNode href)
+    where
+      href  = url session $ Routes.NodeAPI GT.NodeTexts (Just id) "export"
+      info  = "Download as JSON"
+
+
 {-
 -- TODO fix the route
 actionDownload GT.Texts id session = pure $ panel [H.div {} [H.text info]]

src/Gargantext/Components/Router.purs

@@ -475,7 +475,6 @@ login' { backend, sessions, showLogin: visible } =
 
 routeFile :: R2.Component SessionNodeProps
 routeFile = R.createElement routeFileCpt
-
 routeFileCpt :: R.Component SessionNodeProps
 routeFileCpt = here.component "routeFile" cpt where
   cpt props@{ nodeId } _ = do