Merge branch '680-dev-related-docs-children' into 'dev'

[Node terms] Show related docs for children terms as well

Closes #680

See merge request !516

src/Gargantext/Components/NgramsTable/Tree.purs

@@ -282,7 +282,7 @@ renderNgramsItemCpt = here.component "renderNgramsItem" cpt
     mCurrentNgrams' <- T.useLive T.unequal mCurrentNgrams
 
     let
-      currentRowSelected = mCurrentNgrams' == Just ngrams
+      currentRowSelected = mCurrentNgrams' == Just [ ngrams ]
       className = currentRowSelected ? "page-paint-raw page-paint-raw--selected" $ ""
 
     pure $ Tbl.makeRow' { className }
@@ -290,7 +290,7 @@ renderNgramsItemCpt = here.component "renderNgramsItem" cpt
       , ngramsContext
           { corpusId
           , mListId
-          , ngrams
+          , ngrams: ([ ngrams ] <> getNgramsChildren' ngrams)
           }
           []
       , B.wad'
@@ -464,7 +464,7 @@ nextTermList GT.CandidateTerm = GT.MapTerm
 type NgramsContextProps =
   ( corpusId :: GT.CorpusId
   , mListId :: Maybe GT.ListId
-  , ngrams :: NgramsTerm
+  , ngrams :: Array NgramsTerm
   )
 
 ngramsContext :: R2.Component NgramsContextProps

src/Gargantext/Components/Nodes/Lists.purs

@@ -181,15 +181,11 @@ sidePanelNgramsContextViewCpt = here.component "sidePanelNgramsContextView" cpt
     case mSidePanel' of
       Nothing -> pure $ H.div {} []
       Just sidePanel' -> do
-        let ngrams = maybe "" (\(NormNgramsTerm n) -> n) sidePanel'.mCurrentNgrams
+        let ngrams = maybe [ "" ] (map \(NormNgramsTerm n) -> n) sidePanel'.mCurrentNgrams
 
         pure $ H.div {}
           [ H.div { className: "list-group-item border-0" }
-              [ H.div
-                  { className: "graph-selected-nodes__badge badge badge-info" }
-                  [ H.text ngrams
-                  ]
-              ]
+              (map renderNgramsBadges ngrams)
           , ngramsDocList
               { mCorpusId: sidePanel'.mCorpusId
               , mListId: sidePanel'.mListId
@@ -198,11 +194,16 @@ sidePanelNgramsContextViewCpt = here.component "sidePanelNgramsContextView" cpt
               }
               []
           ]
+    where
+    renderNgramsBadges ngram = H.div
+      { className: "graph-selected-nodes__badge badge badge-info" }
+      [ H.text ngram
+      ]
 
 type NgramsDocListProps =
   ( mCorpusId :: Maybe GT.CorpusId
   , mListId :: Maybe GT.ListId
-  , mNgrams :: Maybe NgramsTerm
+  , mNgrams :: Maybe (Array NgramsTerm)
   , session :: Session
   )
 
@@ -242,13 +243,13 @@ ngramsDocListCpt = R2.hereComponent here "ngramsDocList" hCpt
 
 type NgramsDocLoadProps =
   ( corpusId :: GT.CorpusId
-  , ngrams :: NgramsTerm
+  , ngrams :: Array NgramsTerm
   , session :: Session
   )
 
 loaderNgramsDocList :: Record NgramsDocLoadProps -> AffRESTError (Array GQLCTX.Context)
-loaderNgramsDocList { corpusId, ngrams: NormNgramsTerm ngrams, session } =
-  getContextsForNgrams session corpusId [ ngrams ] false
+loaderNgramsDocList { corpusId, ngrams, session } =
+  getContextsForNgrams session corpusId ((\(NormNgramsTerm n) -> n) <$> ngrams) false
 
 type NgramsDocListLoadedProps =
   ( contexts :: Array GQLCTX.Context

src/Gargantext/Components/Nodes/Lists/SidePanel.purs

@@ -7,7 +7,7 @@ import Gargantext.Types (CorpusId, ListId)
 -- type SidePanel :: forall k. Row k
 type SidePanel =
   ( mCorpusId :: Maybe CorpusId
-  , mCurrentNgrams :: Maybe NgramsTerm
+  , mCurrentNgrams :: Maybe (Array NgramsTerm)
   , mListId :: Maybe ListId
   )