[FEAT] Graph MultiPartite connected

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

@@ -81,6 +81,12 @@ updateGraphCpt = here.component "updateGraph" cpt where
     methodGraphEdgesStrength  <- T.useBox Strong
     methodGraphEdgesStrength' <- T.useLive T.unequal methodGraphEdgesStrength
 
+    methodGraphNodeType1  <- T.useBox GT.CTabTerms
+    methodGraphNodeType1' <- T.useLive T.unequal methodGraphNodeType1
+
+    methodGraphNodeType2  <- T.useBox GT.CTabTerms
+    methodGraphNodeType2' <- T.useLive T.unequal methodGraphNodeType2
+
     methodGraphClustering <- T.useBox Spinglass
     methodGraphClustering' <- T.useLive T.unequal methodGraphClustering
 
@@ -94,6 +100,18 @@ updateGraphCpt = here.component "updateGraph" cpt where
                                  , callback: \val -> T.write_ val methodGraphMetric
                                  , print: show } []
 
+                 , H.text "NodeType 1 ?"
+                 , formChoiceSafe { items: [GT.CTabTerms, GT.CTabSources, GT.CTabAuthors, GT.CTabInstitutes]
+                                 , default: methodGraphNodeType1'
+                                 , callback: \val -> T.write_ val methodGraphNodeType1
+                                 , print: show } []
+
+                 , H.text "NodeType 2 ?"
+                 , formChoiceSafe { items: [GT.CTabTerms, GT.CTabSources, GT.CTabAuthors, GT.CTabInstitutes]
+                                 , default: methodGraphNodeType2'
+                                 , callback: \val -> T.write_ val methodGraphNodeType2
+                                 , print: show } []
+
                  , H.text "Show Strong (expected) links or weak (maybe unexpected) links?"
                  , formChoiceSafe { items: [Strong, Weak]
                                  , default: methodGraphEdgesStrength'
@@ -110,6 +128,8 @@ updateGraphCpt = here.component "updateGraph" cpt where
                  (submitButton (UpdateNode $ UpdateNodeParamsGraph { methodGraphMetric: methodGraphMetric'
                                                                    , methodGraphClustering: methodGraphClustering'
                                                                    , methodGraphEdgesStrength : methodGraphEdgesStrength'
+                                                                   , methodGraphNodeType1 : methodGraphNodeType1'
+                                                                   , methodGraphNodeType2 : methodGraphNodeType2'
                                                                    }
                                ) callback
                   )

src/Gargantext/Components/Forest/Tree/Node/Action/Update/Types.purs

@@ -16,6 +16,8 @@ data UpdateNodeParams
   | UpdateNodeParamsGraph { methodGraphMetric :: GraphMetric
                           , methodGraphEdgesStrength :: Strength
                           , methodGraphClustering :: PartitionMethod
+                          , methodGraphNodeType1  :: GT.CTabNgramType
+                          , methodGraphNodeType2  :: GT.CTabNgramType
                           }
   | UpdateNodeParamsTexts { methodTexts :: Granularity }
   | UpdateNodeParamsBoard { methodBoard :: Charts      }
@@ -29,9 +31,9 @@ instance JSON.WriteForeign UpdateNodeParams where
   writeImpl (UpdateNodeParamsList { methodList }) =
     JSON.writeImpl { type: "UpdateNodeParamsList"
                    , methodList }
-  writeImpl (UpdateNodeParamsGraph { methodGraphMetric, methodGraphClustering, methodGraphEdgesStrength}) =
+  writeImpl (UpdateNodeParamsGraph { methodGraphMetric, methodGraphClustering, methodGraphEdgesStrength, methodGraphNodeType1, methodGraphNodeType2}) =
     JSON.writeImpl { type: "UpdateNodeParamsGraph"
-                   , methodGraphMetric, methodGraphClustering, methodGraphEdgesStrength}
+                   , methodGraphMetric, methodGraphClustering, methodGraphEdgesStrength, methodGraphNodeType1, methodGraphNodeType2}
   writeImpl (UpdateNodeParamsTexts { methodTexts }) =
     JSON.writeImpl { type: "UpdateNodeParamsTexts"
                    , methodTexts }

src/Gargantext/Types.purs

@@ -544,6 +544,13 @@ instance Show CTabNgramType where
   show CTabSources    = "Sources"
   show CTabAuthors    = "Authors"
   show CTabInstitutes = "Institutes"
+instance Read CTabNgramType where
+  read "Terms"     = Just CTabTerms
+  read "Sources"   = Just CTabSources
+  read "Authors"   = Just CTabAuthors
+  read "Institutes" = Just CTabInstitutes
+  read _            = Nothing
+instance JSON.ReadForeign  CTabNgramType where readImpl = JSONG.enumSumRep
 instance JSON.WriteForeign CTabNgramType where writeImpl = JSON.writeImpl <<< show
 
 data PTabNgramType = PTabPatents | PTabBooks | PTabCommunication