[ngrams] recompute button in tree view

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

@@ -26,6 +26,8 @@ import Gargantext.Components.Forest.Tree.Node.Action.Rename (renameBox)
 import Gargantext.Components.Forest.Tree.Node.Action.Upload (uploadFileView, fileTypeView, uploadTermListView, copyFromCorpusView)
 import Gargantext.Components.Forest.Tree.Node.ProgressBar (asyncProgressBar, BarType(..))
 import Gargantext.Components.GraphExplorer.API as GEAPI
+import Gargantext.Components.NgramsTable.API as NTAPI
+import Gargantext.Components.Nodes.Corpus (loadCorpusWithChild)
 import Gargantext.Components.Search.SearchBar (searchBar)
 import Gargantext.Components.Search.SearchField (Search, defaultSearch, isIsTex)
 import Gargantext.Ends (Frontends, url)
@@ -209,6 +211,14 @@ nodeActionsCpt = R.hooksComponent "G.C.F.T.N.B.nodeActions" cpt
     cpt { id, nodeType: GT.Graph, refreshTree, session } _ = do
       useLoader id (graphVersions session) $ \gv ->
         nodeActionsGraph { id, graphVersions: gv, session, triggerRefresh: triggerRefresh refreshTree }
+    cpt { id, nodeType: GT.NodeList, refreshTree, session } _ = do
+      useLoader { nodeId: id, session } loadCorpusWithChild $
+        \{ corpusId } ->
+          nodeActionsNodeList { listId: id
+                              , nodeId: corpusId
+                              , nodeType: GT.TabNgramType GT.CTabTerms
+                              , session
+                              , triggerRefresh: triggerRefresh refreshTree }
     cpt _ _ = do
       pure $ H.div {} []
 
@@ -267,6 +277,58 @@ graphUpdateButtonCpt = R.hooksComponent "G.C.F.T.N.B.graphUpdateButton" cpt
             triggerRefresh unit
           pure unit
 
+type NodeActionsNodeListProps =
+  (
+    listId :: GT.ListId
+  , nodeId :: ID
+  , nodeType :: GT.TabSubType GT.CTabNgramType
+  , session :: Session
+  , triggerRefresh :: Unit -> Aff Unit
+  )
+
+nodeActionsNodeList :: Record NodeActionsNodeListProps -> R.Element
+nodeActionsNodeList p = R.createElement nodeActionsNodeListCpt p []
+
+nodeActionsNodeListCpt :: R.Component NodeActionsNodeListProps
+nodeActionsNodeListCpt = R.hooksComponent "G.C.F.T.N.B.nodeActionsNodeList" cpt
+  where
+    cpt props _ = do
+      pure $ H.div { className: "node-actions" } [
+        nodeListUpdateButton props
+      ]
+
+type NodeListUpdateButtonProps =
+  (
+    listId :: GT.ListId
+  , nodeId :: ID
+  , nodeType :: GT.TabSubType GT.CTabNgramType
+  , session :: Session
+  , triggerRefresh :: Unit -> Aff Unit
+  )
+
+nodeListUpdateButton :: Record NodeListUpdateButtonProps -> R.Element
+nodeListUpdateButton p = R.createElement nodeListUpdateButtonCpt p []
+
+nodeListUpdateButtonCpt :: R.Component NodeListUpdateButtonProps
+nodeListUpdateButtonCpt = R.hooksComponent "G.C.F.T.N.B.nodeListUpdateButton" cpt
+  where
+    cpt { listId, nodeId, nodeType, session, triggerRefresh } _ = do
+      enabled <- R.useState' true
+
+      pure $ H.div { className: "update-button " <> if (fst enabled) then "enabled" else "disabled text-muted" } [
+        H.span { className: "fa fa-refresh"
+               , on: { click: onClick enabled } } []
+      ]
+      where
+        onClick (false /\ _) _ = pure unit
+        onClick (true /\ setEnabled) _ = do
+          launchAff_ $ do
+            liftEffect $ setEnabled $ const false
+            _ <- NTAPI.updateNodeList { listId, nodeId, nodeType, session }
+            liftEffect $ setEnabled $ const true
+            triggerRefresh unit
+          pure unit
+
 -- END nodeActions
 
 mCorpusId :: Maybe AppRoute -> Maybe Int

src/Gargantext/Components/NgramsTable/API.purs

+module Gargantext.Components.NgramsTable.API where
+
+import Gargantext.Prelude
+
+import Data.Maybe (Maybe)
+import Effect (Effect)
+import Effect.Aff (Aff, launchAff_)
+
+import Gargantext.Components.NgramsTable.Core as NTC
+import Gargantext.Routes as GR
+import Gargantext.Sessions (Session, get, post)
+import Gargantext.Types as GT
+
+type UpdateNodeListParams =
+  (
+    listId :: Int
+  , nodeId :: Int
+  , nodeType :: GT.TabSubType GT.CTabNgramType
+  , session :: Session
+  )
+
+updateNodeList :: Record UpdateNodeListParams -> Aff Int
+updateNodeList { listId, nodeId, nodeType, session } = post session (GR.RecomputeNgrams nodeType nodeId listId) {}

src/Gargantext/Ends.purs

@@ -117,6 +117,7 @@ sessionPath :: R.SessionRoute -> String
 sessionPath (R.Tab t i)             = sessionPath (R.NodeAPI Node i (showTabType' t))
 sessionPath (R.Children n o l s i)  = sessionPath (R.NodeAPI Node i ("children?type=" <> show n <> offsetUrl o <> limitUrl l <> orderUrl s))
 sessionPath (R.NodeAPI Phylo pId p) = "phyloscape?nodeId=" <> (show $ maybe 0 identity pId) <> p
+sessionPath (R.RecomputeNgrams nt nId lId)      = "node/" <> (show nId) <> "/ngrams/recompute?list=" <> (show lId) <> "&ngramsType=" <> (show nt)
 sessionPath (R.GraphAPI gId p)      = "graph/" <> (show gId) <> "/" <> p
 sessionPath (R.GetNgrams opts i)    =
   base opts.tabType

src/Gargantext/Routes.purs

@@ -3,7 +3,7 @@ module Gargantext.Routes where
 import Prelude
 
 import Data.Maybe (Maybe)
-import Gargantext.Types (ChartOpts, CorpusMetricOpts, Id, Limit, ListId, NgramsGetOpts, NodeType, Offset, OrderBy, SearchOpts, SessionId, TabType, TermList, NgramsGetTableAllOpts)
+import Gargantext.Types (ChartOpts, CorpusMetricOpts, CTabNgramType, Id, Limit, ListId, NgramsGetOpts, NodeType, Offset, OrderBy, SearchOpts, SessionId, TabSubType, TabType, TermList, NgramsGetTableAllOpts)
 
 data AppRoute
   = Home
@@ -36,6 +36,7 @@ data SessionRoute
   | GetNgramsTableAll NgramsGetTableAllOpts (Maybe Id)
   | PutNgrams TabType (Maybe ListId) (Maybe TermList) (Maybe Id)
   -- ^ This name is not good. In particular this URL is used both in PUT and POST.
+  | RecomputeNgrams (TabSubType CTabNgramType) Id ListId
   | NodeAPI NodeType (Maybe Id) String
   | GraphAPI Id String
   | ListsRoute ListId

src/Gargantext/Types.purs

@@ -385,6 +385,8 @@ instance decodeJsonApiVersion :: DecodeJson ApiVersion where
          _      -> pure V0
 ------------------------------------------------------------
 
+-- Types of ngrams. Used to display user-selectable tabs and is sent via API,
+-- wrapped in `TabNgramType a :: TabSubType`
 data CTabNgramType = CTabTerms | CTabSources | CTabAuthors | CTabInstitutes
 
 derive instance eqCTabNgramType :: Eq CTabNgramType