[corpus] add download option, in JSON and SQLite

Related to haskell-gargantext#362

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

@@ -39,6 +39,24 @@ actionDownloadCpt = here.component "actionDownload" cpt
   cpt props@{ nodeType: GT.Phylo } _ = pure $ actionDownloadPhylo props []
   cpt props@{ nodeType: _ } _ = pure $ actionDownloadOther props []
 
+data CorpusDownloadFormat = CD_SQLITE | CD_JSON
+
+derive instance Eq CorpusDownloadFormat
+derive instance Generic CorpusDownloadFormat _
+instance Show CorpusDownloadFormat
+  where
+  show CD_JSON = "JSON"
+  show CD_SQLITE = "SQLite"
+
+urlCorpusDownloadFormat :: CorpusDownloadFormat -> String
+urlCorpusDownloadFormat CD_JSON = "export"
+urlCorpusDownloadFormat CD_SQLITE = "sqlite"
+
+readCorpusDownloadFormat :: String -> CorpusDownloadFormat
+readCorpusDownloadFormat "JSON" = CD_JSON
+readCorpusDownloadFormat "SQLite" = CD_SQLITE
+readCorpusDownloadFormat _ = CD_SQLITE
+
 actionDownloadCorpus :: R2.Component ActionDownload
 actionDownloadCorpus = R.createElement actionDownloadCorpusCpt
 
@@ -46,17 +64,35 @@ actionDownloadCorpusCpt :: R.Component ActionDownload
 actionDownloadCorpusCpt = here.component "actionDownloadCorpus" cpt
   where
   cpt { id, session } _ = do
+    downloadFormat <- T.useBox CD_SQLITE
+    downloadFormat' <- T.useLive T.unequal downloadFormat
+
     pure $
       Tools.panelWithSubmitButtonHref
         { action: DownloadNode
-        , href
+        , href: href downloadFormat'
         , mError: Nothing
         , iconName: "download"
         , textTitle: "Download the corpus"
         }
-        [ H.div {} [ H.text "Download as JSON" ] ]
+        [ R2.select
+            { className: "form-control"
+            , defaultValue: show downloadFormat'
+            , on: { change: onChange downloadFormat }
+            }
+            [ opt CD_SQLITE
+            , opt CD_JSON
+            ]
+        , H.div {} [ H.text $ info downloadFormat' ]
+        ]
     where
-    href = url session $ Routes.NodeAPI GT.Corpus (Just id) "export"
+    opt t = H.option { value: show t } [ H.text $ show t ]
+    onChange downloadFormat e = T.write_ (readCorpusDownloadFormat $ R.unsafeEventValue e) downloadFormat
+
+    href t = url session $ Routes.NodeAPI GT.Corpus (Just id) (urlCorpusDownloadFormat t)
+
+    info :: CorpusDownloadFormat -> String
+    info t = "Download corpus in " <> show t <> " format"
 
 actionDownloadGraph :: R2.Component ActionDownload
 actionDownloadGraph = R.createElement actionDownloadGraphCpt

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

@@ -175,11 +175,11 @@ settingsBoxLens Corpus =
         , Calc
         ]
     , Upload
+    , Download
     , SearchBox
     , WriteNodesDocuments
     -- , ReloadWithSettings -- TODO
     , Move moveParameters
-    -- , Download
     -- , Link (linkParams Annuaire)
     , ShareURL
     , Delete