Merge remote-tracking branch 'origin/648-dev-graphql-breadcrumbs' into dev

src/Gargantext/Components/Forest/Breadcrumb.purs

@@ -5,16 +5,18 @@ module Gargantext.Components.Forest.Breadcrumb
   where
 
 import Data.Array as A
+import Data.Either (Either(..), either)
 import Data.Int (fromString)
-import Data.Maybe (Maybe(..), fromMaybe)
+import Data.Maybe (Maybe(..), fromMaybe, maybe)
 import Data.String (Pattern(..), split)
 import Gargantext.Components.App.Store as Store
 import Gargantext.Components.Bootstrap as B
-import Gargantext.Components.GraphQL.Endpoints (getBreadcrumb)
+import Gargantext.Components.GraphQL.Endpoints (getBreadcrumb, getNodeChildren, getNodeParent)
 import Gargantext.Components.GraphQL.Tree (BreadcrumbInfo, TreeNode)
 import Gargantext.Config.REST (AffRESTError)
+import Gargantext.Ends (Backend(..))
 import Gargantext.Hooks.Loader (useLoader)
-import Gargantext.Routes (AppRoute(Home), appPath, nodeTypeAppRoute)
+import Gargantext.Routes (AppRoute(..), appPath, nodeTypeAppRoute)
 import Gargantext.Sessions.Types
 import Gargantext.Types (NodeType, SessionId)
 import Gargantext.Types as GT
@@ -30,25 +32,17 @@ import Toestand as T
 here :: R2.Here
 here = R2.here "Gargantext.Components.Forest.Breadcrumb"
 
-type PropsBoxes = ( boxes :: Store.Boxes )
 
-type Props =
-  ( nodeId     :: Int
-  , session    :: Maybe Session
-  , format     :: String
-  )
-
--- maybeToSession :: Maybe Session -> Session
--- maybeToSession s = fromMaybe Nothing s
-
-
-component :: R2.Leaf PropsBoxes
+component :: R2.Leaf ()
 component = R2.leaf componentCpt
-componentCpt :: R.Component PropsBoxes
+componentCpt :: R.Component ()
 componentCpt = here.component "breadcrumb" cpt where
-  cpt { boxes: { session } } _ = do
+  cpt { } _ = do
+    { route, session } <- Store.use
+
     -- | States
     -- |
+    route' <- T.useLive T.unequal route
     session' <- T.useLive T.unequal session
     -- R.provideContext SessionContext.context session'
 
@@ -67,10 +61,10 @@ componentCpt = here.component "breadcrumb" cpt where
     
     case session' of 
       Nothing -> pure $ H.div {} []
-      Just _session'' -> do
+      Just session'' -> do
         
-        url <- R.unsafeHooksEffect GU.href
-        let nodeId = fromMaybe 0 $ fromString $ getLastUrlElement url
+        -- url <- R.unsafeHooksEffect GU.href
+        -- let nodeId = fromMaybe 0 $ fromString $ getLastUrlElement url
         -- breadcrumbData <- R2.useLayoutEffect1' $ getBreadcrumb session' currentNodeId
 
         pure $
@@ -91,10 +85,10 @@ componentCpt = here.component "breadcrumb" cpt where
                 ]
               ]
             ,
-              breadcrumbView { nodeId: nodeId
-                              , session: session'
-                              , format: "default"
-                              }
+              breadcrumbView { format: "default"
+                             , route: route'
+                             , session: session''
+                             }
             ]
           -- ,
           --   H.nav 
@@ -146,40 +140,42 @@ componentCpt = here.component "breadcrumb" cpt where
           --   ]
           ]
 
+type BreadcrumbViewProps =
+  ( format  :: String
+  , route   :: AppRoute
+  , session :: Session
+  )
+
 
-breadcrumbView :: R2.Leaf Props
+breadcrumbView :: R2.Leaf BreadcrumbViewProps
 breadcrumbView = R2.leaf breadcrumbViewCpt
-breadcrumbViewCpt :: R.Component Props
+breadcrumbViewCpt :: R.Component BreadcrumbViewProps
 breadcrumbViewCpt = R2.hereComponent here "breadcrumbViewCpt" hCpt where
-  hCpt hp { nodeId, session, format } _ = do
-
-    case session of 
-      Nothing -> pure $ H.div {} []
-      Just session' -> do
-        useLoader { errorHandler: Nothing
-                  , herePrefix: hp
-                  , loader: loadBreadcrumbData
-                  , path: { nodeId: nodeId
-                          , session: session'
-                          -- , reload: reload'
-                          }
-                  , render: \items -> breadcrumbViewMain { items: items
-                                                         , session: session'
-                                                        --  , reload: reload
-                                                         , format: format
-                                                         } [] 
-                  }
-
-type BreadcrumbViewProps =
-  ( items         :: BreadcrumbInfo
+  hCpt hp { format, route, session } _ = do
+
+    useLoader { errorHandler: Nothing
+              , herePrefix: hp
+              , loader: loadBreadcrumbData
+              , path: { route
+                      , session
+                      }
+              , render: \items -> breadcrumbViewMain { format: format
+                                                     , items
+                                                     , session
+                                                       --  , reload: reload
+                                                     } [] 
+              }
+
+type BreadcrumbViewMainProps =
+  ( format        :: String
+  , items         :: BreadcrumbInfo
   , session       :: Session
   -- , reload        :: T.Box T2.Reload
-  , format        :: String
   )
 
-breadcrumbViewMain :: R2.Component BreadcrumbViewProps
+breadcrumbViewMain :: R2.Component BreadcrumbViewMainProps
 breadcrumbViewMain = R.createElement breadcrumbViewMainCpt
-breadcrumbViewMainCpt :: R.Component BreadcrumbViewProps
+breadcrumbViewMainCpt :: R.Component BreadcrumbViewMainProps
 breadcrumbViewMainCpt = here.component "breadcrumbViewMainCpt" cpt where
   cpt { items: { parents }, session, format } _ = do
     
@@ -234,8 +230,6 @@ breadcrumbItemCpt = here.component "breadcrumbItemCpt" cpt where
 
     boxes@{ forestOpen } <- Store.use
 
-    url <- R.unsafeHooksEffect GU.href
-
     let sid = sessionId session
     let rootId = treeId session
     
@@ -249,7 +243,7 @@ breadcrumbItemCpt = here.component "breadcrumbItemCpt" cpt where
                 
         H.span { className: "node-path-item" }
         [
-          if show nodeType == "NodeUser" 
+          if nodeType == GT.NodeUser
           then
             H.text ""
           else
@@ -260,10 +254,7 @@ breadcrumbItemCpt = here.component "breadcrumbItemCpt" cpt where
       
         H.li { className: "breadcrumb-item" }
         [
-          if show nodeType == "NodeFolderPrivate" 
-          || show nodeType == "NodeFolderPublic" 
-          || show nodeType == "NodeFolderShared" 
-          || show nodeType == "NodeUser" 
+          if nodeType `A.elem` [ GT.FolderPrivate, GT.FolderPublic, GT.FolderShared, GT.NodeUser ]
           then
             H.span { className: "" }
             [
@@ -275,17 +266,17 @@ breadcrumbItemCpt = here.component "breadcrumbItemCpt" cpt where
                 }
               ]
             , 
-              if show nodeType == "NodeUser"
+              if nodeType == GT.NodeUser
               then
-                H.text $ getUserText url 
+                H.text $ getUserText session
               else
                 H.text text
             
             , H.span { className: "text-small" }
               [ 
-              if show nodeType == "NodeUser"
+              if nodeType == GT.NodeUser
               then
-                H.text $ " (" <> getInstanceText url <> ")"
+                H.text $ " (" <> getInstanceText session <> ")"
               else
                 H.text ""
               ]
@@ -322,25 +313,84 @@ breadcrumbItemCpt = here.component "breadcrumbItemCpt" cpt where
 treeId :: Session -> Int
 treeId (Session {treeId: tId}) = tId
 
-getLastUrlElement :: String -> String
-getLastUrlElement str = fromMaybe "" $ A.last $ split (Pattern "/") str
-
-getFirstUrlElement :: String -> String
-getFirstUrlElement str = fromMaybe "" $ A.head $ split (Pattern "/") str
+getInstanceText :: Session -> String
+getInstanceText (Session { backend }) = cleanBackendUrl backend
 
-getInstanceText :: String -> String
-getInstanceText str = getFirstUrlElement $ fromMaybe "" $ A.last $ split (Pattern "@") str
+getUserText :: Session -> String
+getUserText (Session { username }) = username
+  -- getLastUrlElement $ fromMaybe "" $ A.head $ split (Pattern "@") str
 
-getUserText :: String -> String
-getUserText str = getLastUrlElement $ fromMaybe "" $ A.head $ split (Pattern "@") str
 
 
-type LoadProps =
+type LoadRawProps =
   (
-    session :: Session
-  , nodeId :: Int
+    nodeId  :: Int
+  , session :: Session
   -- , reload :: T.Box T2.Reload
   )
 
+loadBreadcrumbDataRaw :: Record LoadRawProps -> AffRESTError BreadcrumbInfo
+loadBreadcrumbDataRaw { nodeId, session } = getBreadcrumb session nodeId
+
+
+type LoadProps =
+  ( route   :: AppRoute
+  , session :: Session )
+
 loadBreadcrumbData :: Record LoadProps -> AffRESTError BreadcrumbInfo
-loadBreadcrumbData {nodeId, session} = getBreadcrumb session nodeId
+loadBreadcrumbData { route: Annuaire _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: ContactPage _s nodeId annuaireId, session } = do
+  loadBreadcrumbDataRaw { nodeId: annuaireId, session }
+loadBreadcrumbData { route: Corpus _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: CorpusCode _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: CorpusDocument _s corpusId listId documentId, session } = do
+  texts <- getNodeChildren session corpusId GT.NodeTexts
+  let docId = maybe corpusId _.id $ either (const Nothing) A.head texts
+  loadBreadcrumbDataRaw { nodeId: docId, session }
+loadBreadcrumbData { route: Dashboard _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: Document _s listId documentId, session } = do
+  corpora <- getNodeParent session listId GT.Corpus
+  let nodeId = maybe listId _.id $ either (const Nothing) A.head corpora
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: Folder _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: FolderPrivate _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: FolderPublic _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: FolderShared _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: Lists _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: NodeTexts _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: PGraphExplorer _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: PhyloExplorer _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: RouteFile _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: RouteFrameCalc _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: RouteFrameCode _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: RouteFrameVisio _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: RouteFrameWrite _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: Team _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: TreeFlat _s nodeId _q, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: UserPage _s nodeId, session } = do
+  loadBreadcrumbDataRaw { nodeId, session }
+loadBreadcrumbData { route: ForgotPassword _s } = do
+  pure $ Right { parents: [] }
+loadBreadcrumbData { route: Home } = do
+  pure $ Right { parents: [] }
+loadBreadcrumbData { route: Login } = do
+  pure $ Right { parents: [] }

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

@@ -17,9 +17,11 @@ instance JSON.ReadForeign AddContactParams where readImpl = GUSJ.taggedSumRep
 instance JSON.WriteForeign AddContactParams where
   writeImpl (AddContactParams { firstname, lastname }) =
     JSON.writeImpl { type: "AddContactParams"
-                   , values: { firstname, lastname } }
+                   , firstname
+                   , lastname  }
   writeImpl (AddContactParamsAdvanced { firstname, lastname }) =
     JSON.writeImpl { type: "AddContactParamsAdvanced"
-                   , values: { firstname, lastname } }
+                   , firstname
+                   , lastname }
 
 

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

@@ -44,8 +44,9 @@ getCompletionsReq { session }  =
 
 
 ------------------------------------------------------------------------
-data ShareNodeParams = ShareTeamParams   { username :: String }
-               | SharePublicParams { node_id  :: Int    }
+data ShareNodeParams =
+    ShareTeamParams   { username :: String }
+  | SharePublicParams { node_id  :: Int    }
 derive instance Eq ShareNodeParams
 derive instance Generic ShareNodeParams _
 instance JSON.ReadForeign ShareNodeParams where readImpl = GUSJ.taggedSumRep

src/Gargantext/Components/GraphQL.purs

@@ -21,7 +21,9 @@ import Gargantext.Components.GraphQL.User (User, UserInfo, UserInfoM, UserPubmed
 import Gargantext.Config.REST as REST
 import Gargantext.Ends (Backend(..))
 import Gargantext.Prelude
+import Gargantext.Routes (AppRoute)
 import Gargantext.Sessions (Session(..))
+import Gargantext.Types (NodeType)
 import Gargantext.Utils.Reactix as R2
 import GraphQL.Client.Args (type (==>))
 import GraphQL.Client.BaseClients.Urql (UrqlClient, createClient)
@@ -150,7 +152,8 @@ type Schema
     , contexts_for_ngrams :: { corpus_id :: Int, ngrams_terms :: Array String } ==> Array GQLCTX.Context
     , imt_schools :: {} ==> Array GQLIMT.School
     , languages :: {} ==> Array GQLNLP.Language
-    , node_parent :: { node_id :: Int, parent_type :: String } ==> Array GQLNode.Node  -- TODO: parent_type :: NodeType
+    , node_children :: { node_id :: Int, child_type :: NodeType } ==> Array GQLNode.Node
+    , node_parent :: { node_id :: Int, parent_type :: NodeType } ==> Array GQLNode.Node
     , nodes :: { node_id :: Int } ==> Array GQLNode.Node
     , nodes_corpus :: { corpus_id :: Int } ==> Array GQLNode.Corpus
     , user_infos :: { user_id :: Int } ==> Array UserInfo

src/Gargantext/Components/GraphQL/Endpoints.purs

@@ -12,7 +12,7 @@ import Gargantext.Components.GraphQL.Contact (AnnuaireContact, annuaireContactQu
 import Gargantext.Components.GraphQL.Context as GQLCTX
 import Gargantext.Components.GraphQL.IMT as GQLIMT
 import Gargantext.Components.GraphQL.NLP as GQLNLP
-import Gargantext.Components.GraphQL.Node (Corpus, Node, nodeParentQuery, nodesQuery, nodesCorpusQuery)
+import Gargantext.Components.GraphQL.Node (Corpus, Node, nodeChildrenQuery, nodeParentQuery, nodesQuery, nodesCorpusQuery)
 import Gargantext.Components.GraphQL.Team (Team, teamQuery)
 import Gargantext.Components.GraphQL.Tree (TreeFirstLevel, treeFirstLevelQuery, BreadcrumbInfo, breadcrumbQuery)
 import Gargantext.Components.GraphQL.User (UserInfo, userInfoQuery, User, userQuery)
@@ -20,6 +20,7 @@ import Gargantext.Components.Lang (Lang)
 import Gargantext.Config.REST (RESTError(..), AffRESTError)
 import Gargantext.Core.NgramsTable.Types (NgramsTerm(..))
 import Gargantext.Prelude
+import Gargantext.Routes (AppRoute(..))
 import Gargantext.Sessions (Session(..))
 import Gargantext.Types (CorpusId, NodeType)
 import Gargantext.Utils.Reactix as R2
@@ -64,11 +65,20 @@ getNodeParent :: Session -> Int -> NodeType -> AffRESTError (Array Node)
 getNodeParent session nodeId parentType = do
   eRes <- queryGql session "get node parent" $
                      nodeParentQuery `withVars` { id: nodeId
-                                                , parent_type: show parentType }  -- TODO: remove "show"
+                                                , parent_type: parentType }
   -- liftEffect $ here.log2 "[getNodeParent] node_parent" node_parent
   --pure node_parent
   pure $ rmap _.node_parent eRes
 
+getNodeChildren :: Session -> Int -> NodeType -> AffRESTError (Array Node)
+getNodeChildren session nodeId childType = do
+  eRes <- queryGql session "get node child" $
+                     nodeChildrenQuery `withVars` { id: nodeId
+                                                  , child_type: childType }
+  -- liftEffect $ here.log2 "[getNodeParent] node_parent" node_parent
+  --pure node_parent
+  pure $ rmap _.node_children eRes
+
 getUser :: Session -> Int -> AffRESTError User
 getUser session id = do
   eRes <- queryGql session "get user" $ userQuery `withVars` { id }
@@ -218,7 +228,7 @@ getContextNgrams session context_id list_id = do
   pure $ rmap (\{ context_ngrams } -> NormNgramsTerm <$> context_ngrams) eRes
 
 getBreadcrumb :: Session -> Int -> AffRESTError BreadcrumbInfo
-getBreadcrumb session id = do
-  eRes <- queryGql session "get breadcrumb branch" $ breadcrumbQuery `withVars` { id }
+getBreadcrumb session node_id = do
+  eRes <- queryGql session "get breadcrumb branch" $ breadcrumbQuery `withVars` { node_id }
   -- liftEffect $ here.log2 "[getBreadcrumb] breadcrumb" tree_branch
   pure $ rmap _.tree_branch eRes

src/Gargantext/Components/GraphQL/Node.purs

@@ -2,6 +2,7 @@ module Gargantext.Components.GraphQL.Node where
 
 import Gargantext.Prelude
 import Gargantext.Utils.GraphQL as GGQL
+import Gargantext.Types (NodeType)
 import GraphQL.Client.Args (Args, (=>>))
 import GraphQL.Client.Variable (Var(..))
 import Type.Proxy (Proxy(..))
@@ -46,6 +47,11 @@ nodesCorpusQuery = { nodes_corpus: { corpus_id: Var :: _ "id" Int } =>>
              }
 
 nodeParentQuery = { node_parent: { node_id: Var :: _ "id" Int
-                                 , parent_type: Var :: _ "parent_type" String } =>>  -- TODO parent_type :: NodeType
+                                 , parent_type: Var :: _ "parent_type" NodeType } =>>
                     GGQL.getFieldsStandard (Proxy :: _ Node)
                   }
+
+nodeChildrenQuery = { node_children: { node_id: Var :: _ "id" Int
+                                     , child_type: Var :: _ "child_type" NodeType } =>>
+                      GGQL.getFieldsStandard (Proxy :: _ Node)
+                    }

src/Gargantext/Components/GraphQL/Tree.purs

@@ -3,6 +3,7 @@ module Gargantext.Components.GraphQL.Tree where
 import Gargantext.Prelude
 
 import Data.Maybe (Maybe)
+import Gargantext.Routes (AppRoute)
 import Gargantext.Types (NodeType)
 import GraphQL.Client.Args ((=>>))
 import GraphQL.Client.Variable (Var(..))
@@ -42,7 +43,7 @@ treeFirstLevelQuery = { tree: { root_id: Var :: _ "id" Int} =>>
   }
  }
 
-breadcrumbQuery = { tree_branch: { node_id: Var :: _ "id" Int} =>>
+breadcrumbQuery = { tree_branch: { node_id: Var :: _ "node_id" Int } =>>
   { parents: 
     { name: unit
     , node_type: unit
@@ -50,4 +51,4 @@ breadcrumbQuery = { tree_branch: { node_id: Var :: _ "id" Int} =>>
     , parent_id: unit
     }
   }
-}
+}
\ No newline at end of file

src/Gargantext/Components/Router.purs

@@ -177,8 +177,7 @@ mainPageCpt = here.component "mainPage" cpt where
 
       H.div { className: "router__body main-page" }
       [
-        Breadcrumb.component
-        { boxes }
+        Breadcrumb.component { }
       ,
         H.div
         { className: intercalate " "
@@ -481,7 +480,6 @@ type CorpusDocumentProps =
 
 corpusDocument :: R2.Component CorpusDocumentProps
 corpusDocument = R.createElement corpusDocumentCpt
-
 corpusDocumentCpt :: R.Component CorpusDocumentProps
 corpusDocumentCpt = here.component "corpusDocument" cpt where
   cpt props@{ corpusId, listId, nodeId } _ = do
@@ -490,16 +488,16 @@ corpusDocumentCpt = here.component "corpusDocument" cpt where
 
       authedProps =
         Record.merge
-        { content:
-            \session ->
-              Document.node
-              { mCorpusId: Just corpusId
-              , listId
-              , nodeId
-              , key: show (sessionId session) <> "-" <> show nodeId
-              }
-        }
-        sessionProps
+          { content:
+              \session ->
+                Document.node
+                { mCorpusId: Just corpusId
+                , listId
+                , nodeId
+                , key: show (sessionId session) <> "-" <> show nodeId
+                }
+          }
+          sessionProps
 
     pure $ authed authedProps []
 
@@ -524,7 +522,6 @@ type DocumentProps =
 
 document :: R2.Component DocumentProps
 document = R.createElement documentCpt
-
 documentCpt :: R.Component DocumentProps
 documentCpt = here.component "document" cpt where
   cpt props@{ listId, nodeId } _ = do

src/Gargantext/Components/TreeSearch.purs

@@ -169,14 +169,15 @@ treeSearchRenderContainerCpt = here.component "treeSearchRenderContainer" cpt wh
 
 treeSearchRender :: R2.Leaf RenderProps
 treeSearchRender = R2.leaf treeSearchRenderCpt
-
 treeSearchRenderCpt :: R.Component RenderProps
 treeSearchRenderCpt = here.component "treeSearchRenderCpt" cpt where
   cpt { visible, session, searchData, goToRoute } _ = do
+    { route } <- AppStore.use
+    route' <- T.useLive T.unequal route
 
-    pure $ H.div {className: "search-modal__results"} (results searchData)
+    pure $ H.div {className: "search-modal__results"} (results route' searchData)
       where
-        results s = map searchResult s
+        results route' s = map searchResult s
           where
             searchResult sd = H.div 
                               { className: "result py-1"} 
@@ -195,9 +196,9 @@ treeSearchRenderCpt = here.component "treeSearchRenderCpt" cpt where
                                                , H.div {}
                                                  [
                                                    H.text " Path: "
-                                                 , breadcrumbView { nodeId: sd.id
-                                                                  , session: Just session
-                                                                  , format: "text"
+                                                 , breadcrumbView { format: "text"
+                                                                  , route: route'
+                                                                  , session
                                                                   }
                                                  ]
                                                ]
@@ -218,10 +219,10 @@ treeSearchRenderCpt = here.component "treeSearchRenderCpt" cpt where
                                 H.span { className: "node-path small" }
                                 [
                                   H.text " — "
-                                , breadcrumbView { nodeId: sd.id
-                                                  , session: Just session
-                                                  , format: "text"
-                                                  }
+                                , breadcrumbView { format: "text"
+                                                 , route: route'
+                                                 , session: session
+                                                 }
                                 ]
                               ]
 

src/Gargantext/Routes.purs

@@ -2,11 +2,16 @@ module Gargantext.Routes where
 
 import Prelude
 
+import Data.Argonaut as Argonaut
 import Data.Maybe (Maybe(..))
 import Data.UUID (UUID)
 import Data.Map as M
 import Gargantext.Types (ChartOpts, ChartType, CorpusMetricOpts, CTabNgramType, Id, Limit, ListId, DocId, NgramsGetOpts, NgramsGetTableAllOpts, NodeType, Offset, OrderBy, SearchOpts, SessionId, TabSubType, TabType, TermList)
 import Gargantext.Types as GT
+import Gargantext.Utils.SimpleJSON (encodeJsonArgonaut)
+import GraphQL.Client.Args (class ArgGql)
+import GraphQL.Client.Variables.TypeName (class VarTypeName)
+import Simple.JSON as JSON
 
 data AppRoute
   = Annuaire       SessionId Int
@@ -25,7 +30,6 @@ data AppRoute
   | Lists          SessionId Int
   | Login
   | NodeTexts       SessionId Int
-  | TreeFlat        SessionId Int String
   | PGraphExplorer  SessionId Int
   | PhyloExplorer   SessionId Int
   | RouteFile       SessionId Int
@@ -34,6 +38,7 @@ data AppRoute
   | RouteFrameVisio SessionId Int
   | RouteFrameWrite SessionId Int
   | Team            SessionId Int
+  | TreeFlat        SessionId Int String
   | UserPage        SessionId Int
 
 derive instance Eq AppRoute
@@ -117,6 +122,7 @@ nodeTypeAppRoute GT.NodeFrameVisio s i = Just $ RouteFrameVisio s i
 nodeTypeAppRoute _ _ _                 = Nothing
 
 
+
 data SessionRoute
   = Tab TabType (Maybe Id)
   | Children NodeType Offset Limit (Maybe OrderBy) (Maybe Id)

src/Gargantext/Sessions/Types.purs

@@ -62,9 +62,7 @@ instance JSON.WriteForeign Session where
       JSON.writeImpl { backend, caches: caches', token, treeId, username, userId }
     where
       caches' = JSON.writeImpl $ Object.fromFoldable (GUT.first show <$> Map.toUnfoldable caches :: Array (Tuple String NT.CacheState))
-
 instance Eq Session where eq = genericEq
-
 instance Show Session where
   show (Session {backend, username}) = username <> "@" <> (cleanBackendUrl backend)
 
@@ -74,7 +72,6 @@ cleanBackendUrl (Backend {baseUrl}) =
    $ DST.replace (DST.Pattern "https://") (DST.Replacement "") baseUrl
 
 instance ToUrl Session SessionRoute where toUrl (Session {backend}) r = backendUrl backend (sessionPath r)
-
 instance ToUrl Session NodePath where toUrl (Session {backend}) np = backendUrl backend (nodePath np)
 instance ToUrl Session String where toUrl = sessionUrl
 

src/Gargantext/Types.purs

@@ -2,6 +2,7 @@ module Gargantext.Types where
 
 import Gargantext.Prelude
 
+import Data.Argonaut as Argonaut
 import Data.Array as A
 import Data.Eq.Generic (genericEq)
 import Data.Generic.Rep (class Generic)
@@ -16,6 +17,7 @@ import Foreign as F
 import Gargantext.Components.Lang (class Translate, Lang(..))
 import Gargantext.Config.REST (RESTError, AffRESTError)
 import Gargantext.Utils.Glyphicon (classNamePrefix, glyphiconToCharCode)
+import Gargantext.Utils.SimpleJSON (encodeJsonArgonaut)
 import GraphQL.Client.Args (class ArgGql)
 import GraphQL.Client.Variables.TypeName (class VarTypeName)
 import Prim.Row (class Union)
@@ -169,6 +171,8 @@ instance JSON.ReadForeign NodeType where
       Nothing -> F.fail $ F.ErrorAtProperty s $ F.ForeignError "unknown property"
       Just nt -> pure nt
 instance JSON.WriteForeign NodeType where writeImpl = JSON.writeImpl <<< show
+instance Argonaut.EncodeJson NodeType where encodeJson = encodeJsonArgonaut
+instance ArgGql String NodeType
 instance ArgGql NodeType NodeType
 instance VarTypeName NodeType where
   varTypeName _ = "NodeType!"
@@ -237,32 +241,31 @@ prettyNodeType Url_Document      = "Document"
 
 
 instance Read NodeType where
-  read "NodeUser"          = Just NodeUser
+  read "Calc"              = Just Calc
+  read "Context"           = Just Context
+  read "Document"          = Just Url_Document
+  read "Individu"          = Just Individu
+  read "Node"              = Just Node
+  read "NodeAnnuaire"      = Just Annuaire
+  read "NodeContact"       = Just NodeContact
+  read "NodeCorpus"        = Just Corpus
+  read "NodeDashboard"     = Just Dashboard
+  read "NodeFile"          = Just NodeFile
   read "NodeFolder"        = Just Folder
   read "NodeFolderPrivate" = Just FolderPrivate
-  read "NodeFolderShared"  = Just FolderShared
   read "NodeFolderPublic"  = Just FolderPublic
-  read "NodeAnnuaire"      = Just Annuaire
-  read "NodeDashboard"     = Just Dashboard
-  read "Document"          = Just Url_Document
+  read "NodeFolderShared"  = Just FolderShared
+  read "NodeFrameNotebook" = Just NodeFrameNotebook
+  read "NodeFrameVisio"    = Just NodeFrameVisio
   read "NodeGraph"         = Just Graph
+  read "NodeList"          = Just NodeList
   read "NodePhylo"         = Just Phylo
-  read "Individu"          = Just Individu
-  read "Node"              = Just Node
-  read "Nodes"             = Just Nodes
-  read "Context"           = Just Context
-  read "NodeCorpus"        = Just Corpus
-  read "NodeContact"       = Just NodeContact
-  read "Tree"              = Just Tree
   read "NodeTeam"          = Just Team
-  read "NodeList"          = Just NodeList
   read "NodeTexts"         = Just NodeTexts
-  read "Annuaire"          = Just Annuaire
-  read "Notes"    = Just Notes
-  read "Calc"     = Just Calc
-  read "NodeFrameNotebook" = Just NodeFrameNotebook
-  read "NodeFrameVisio"    = Just NodeFrameVisio
-  read "NodeFile"          = Just NodeFile
+  read "NodeUser"          = Just NodeUser
+  read "Nodes"             = Just Nodes
+  read "Notes"             = Just Notes
+  read "Tree"              = Just Tree
   -- TODO NodePublic read ?
   read _                   = Nothing
 

src/Gargantext/Utils/SimpleJSON.purs

@@ -4,6 +4,8 @@ import Prelude
 
 import Control.Alt ((<|>))
 import Control.Monad.Except (throwError, withExcept)
+import Data.Argonaut as Argonaut
+import Data.Either (fromRight)
 import Data.Generic.Rep as GR
 import Data.List as L
 import Data.List.Types (NonEmptyList(..))
@@ -96,3 +98,8 @@ instance untaggedSumRepArgument ::
 throwJSONError :: forall a. Foreign.ForeignError -> Foreign.F a
 throwJSONError err =
   throwError $ NonEmptyList $ NonEmpty err L.Nil
+
+
+-- A SimpleJSON.ReadForeign instance should is also compatible with argonaut
+encodeJsonArgonaut :: forall a. JSON.WriteForeign a => a -> Argonaut.Json
+encodeJsonArgonaut x = fromRight Argonaut.jsonEmptyObject $ Argonaut.jsonParser $ JSON.writeJSON x