[FEAT] Connecting Phylo 1 click with Frontend

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

@@ -13,7 +13,7 @@ import Gargantext.Components.Bootstrap.Types (ComponentStatus(..))
 import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
 import Gargantext.Components.Forest.Tree.Node.Tools (formChoiceSafe, submitButton, panel)
 import Gargantext.Components.PhyloExplorer.API as Phylo
-import Gargantext.Components.PhyloExplorer.ConfigForm as PhyloForm
+import Gargantext.Components.PhyloExplorer.Config.ConfigForm as PhyloForm
 import Gargantext.Components.PhyloExplorer.ConfigFormParser as PhyloHook
 import Gargantext.Config.REST (RESTError, AffRESTError)
 import Gargantext.Routes as GR
@@ -119,12 +119,12 @@ updateGraphCpt = here.component "updateGraph" cpt where
                                  , callback: \val -> T.write_ val methodGraphNodeType1
                                  , print: show } []
 
- --}
                  , H.text "Ngrams ?"
                  , 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?"
@@ -164,7 +164,8 @@ updatePhyloCpt = here.component "updatePhylo" cpt where
       -- @NOTE #219: use a config property returned by GET phylo route
       defaultData :: Phylo.UpdateData
       defaultData = Phylo.UpdateData
-        { proximity: 0.5
+        { defaultMode: true
+        , proximity: 0.5
         , synchrony: 0.5
         , quality: 0.8
         , exportFilter: 3.0

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

@@ -116,7 +116,7 @@ settingsBox FolderPrivate =
                                 , Annuaire
                                 , NodeFrameWrite
                                 , NodeFrameCalc
-                                , NodeFrameNotebook
+                                -- , NodeFrameNotebook
                                 ]
                           ]
               }
@@ -130,7 +130,7 @@ settingsBox Team =
                                 , Annuaire
                                 , NodeFrameWrite
                                 , NodeFrameCalc
-                                , NodeFrameNotebook
+                                -- , NodeFrameNotebook
                                 , Team
                                 , FolderShared
                                 , NodeFrameVisio
@@ -166,7 +166,7 @@ settingsBox Folder =
                                 , Annuaire
                                 , NodeFrameWrite
                                 , NodeFrameCalc
-                                , NodeFrameNotebook
+                                -- , NodeFrameNotebook
                                 ]
                           , Move moveParameters
                           , Delete
@@ -188,7 +188,7 @@ settingsBox Corpus =
                                 , NodeFrameWrite
                                 , NodeFrameCalc
                                 , Phylo
-                                , NodeFrameNotebook
+                                -- , NodeFrameNotebook
                                 ]
                           , Link (linkParams Annuaire)
                           , Move moveParameters
@@ -348,7 +348,7 @@ settingsBox NodeFrameNotebook =
               , doc  : Documentation NodeFrameNotebook
               , buttons : [ Add [ NodeFrameCalc
                                 , NodeFrameWrite
-                                , NodeFrameNotebook
+                                -- , NodeFrameNotebook
                                 ]
                           , Move moveFrameParameters
                           , Delete

src/Gargantext/Components/PhyloExplorer/API.purs

@@ -39,7 +39,8 @@ get session nodeId = request >>= (_ <#> parseToPhyloSet) >>> pure
 ----------------------------------------------------------
 
 newtype UpdateData = UpdateData
-  { proximity     :: Number
+  { defaultMode   :: Boolean
+  , proximity     :: Number
   , synchrony     :: Number
   , quality       :: Number
   , timeUnit      :: TimeUnit
@@ -57,6 +58,9 @@ instance JSON.WriteForeign UpdateData where
     where
       rename
           = Record.rename
+            (Proxy :: Proxy "defaultMode")
+            (Proxy :: Proxy "_sc_defaultMode")
+        >>> Record.rename
             (Proxy :: Proxy "proximity")
             (Proxy :: Proxy "_sc_phyloProximity")
         >>> Record.rename

src/Gargantext/Components/PhyloExplorer/Config/ConfigFormContainer.purs

@@ -10,7 +10,7 @@ import Data.Maybe (Maybe(..))
 import Data.Newtype (unwrap)
 import Data.Number as Number
 import Gargantext.Components.PhyloExplorer.API (Clique(..), CliqueFilter, ReflexiveClique(..), ReflexiveTimeUnit, TimeUnitCriteria(..), UpdateData(..), extractCriteria, fromReflexiveTimeUnit, toReflexiveTimeUnit)
-import Gargantext.Components.PhyloExplorer.ConfigForm (FormData)
+import Gargantext.Components.PhyloExplorer.Config.ConfigForm (FormData)
 import Gargantext.Types (FrontendError(..))
 import Gargantext.Utils (getter)
 import Reactix as R
@@ -49,7 +49,8 @@ toFormData :: UpdateData -> Record ()
 toFormData nt =
   let r = unwrap nt
   in unsafeCoerce $
-    { proximity:
+    { defaultMode : show r.defaultMode
+    , proximity:
         show r.proximity
     , synchrony:
         show r.synchrony
@@ -85,6 +86,9 @@ toFormData nt =
 fromFormData :: Record FormData -> Either String UpdateData
 fromFormData r = do
   -- Common params
+  defaultMode <-
+    read r.defaultMode `orDie` "Invalid defaultMode"
+
   proximity <-
     Number.fromString r.proximity `orDie` "Invalid proximity"
   synchrony <-
@@ -118,7 +122,8 @@ fromFormData r = do
 
   -- Constructor
   pure $ UpdateData
-    { proximity
+    { defaultMode
+    , proximity
     , synchrony
     , quality
     , exportFilter

src/Gargantext/Prelude.purs

@@ -7,6 +7,7 @@ import Effect.Console (log)
 import Effect.Class (class MonadEffect, liftEffect)
 import Effect.Exception (catchException, throwException)
 import Effect.Unsafe (unsafePerformEffect)
+import Data.Maybe (Maybe(..))
 
 -- | JL: Astonishingly, not in the prelude
 --   AD: recent Preludes in Haskell much prefer identity
@@ -19,6 +20,12 @@ id a = a
 class Read a where
   read :: String -> Maybe a
 
+instance Read Boolean where
+  read :: String -> Maybe Boolean
+  read "true"  = Just true
+  read "false" = Just false
+  read _       = Nothing
+
 logs:: forall message effect.
        (MonadEffect effect)
        => Show message