[nodeStory] draft implementation of NodeStoryEnv
[gargantext.git] / src / Gargantext / Core / Viz / Graph / API.hs
index ec3b6a945ff2b88dfecac122303e9e4f59e7c087..891fd382e866ef7050228a1726acd818737012d5 100644 (file)
@@ -94,9 +94,9 @@ getGraph _uId nId = do
   mcId <- getClosestParentIdByType nId NodeCorpus
   let cId = maybe (panic "[G.V.G.API] Node has no parent") identity mcId
 
-  printDebug "[getGraph] getting list for cId" cId
+  -- printDebug "[getGraph] getting list for cId" cId
   listId <- defaultList cId
-  repo <- getRepo' [listId]
+  repo <- getRepo [listId]
 
   -- TODO Distance in Graph params
   case graph of
@@ -142,7 +142,7 @@ recomputeGraph _uId nId method maybeDistance force = do
   let cId = maybe (panic "[G.V.G.API] Node has no parent") identity mcId
 
   listId  <- defaultList cId
-  repo <- getRepo' [listId]
+  repo <- getRepo [listId]
   let v   = repo ^. unNodeStory . at listId . _Just . a_version
 
   let computeG mt = do
@@ -178,23 +178,17 @@ computeGraph cId method d nt repo = do
           $ mapTermListRoot [lId] nt repo
 
   myCooc <- HashMap.filter (>1) -- Removing the hapax (ngrams with 1 cooc)
-         -- <$> HashMap.filterWithKey (\(x,y) _ -> x /= y)
-         -- <$> getCoocByNgrams (if d == Conditional then Diagonal True else Diagonal False)
          <$> getCoocByNgrams (Diagonal True)
          <$> groupNodesByNgrams ngs
          <$> getContextsByNgramsOnlyUser cId (lIds <> [lId]) nt (HashMap.keys ngs)
 
-  -- printDebug "myCooc" myCooc
-  -- saveAsFileDebug "debug/my-cooc" myCooc
-
-  listNgrams <- getListNgrams [lId] nt
-
-  -- graph <- liftBase $ cooc2graphWith Confluence d 0 myCooc
-  -- graph <- liftBase $ cooc2graphWith Spinglass d 0 myCooc
   graph <- liftBase $ cooc2graphWith method d 0 myCooc
-  -- saveAsFileDebug "debug/graph" graph
 
-  pure $ mergeGraphNgrams graph (Just listNgrams)
+  -- listNgrams <- getListNgrams [lId] nt
+  --let graph' = mergeGraphNgrams graph (Just listNgrams)
+  -- saveAsFileDebug "/tmp/graphWithNodes" graph'
+
+  pure graph
 
 
 defaultGraphMetadata :: HasNodeError err
@@ -291,9 +285,9 @@ graphVersions n nId = do
                       else panic "[G.V.G.API] list not found after iterations"
 
     Just listId -> do
-      repo <- getRepo' [listId]
+      repo <- getRepo [listId]
       let v = repo ^. unNodeStory . at listId . _Just . a_version
-      printDebug "graphVersions" v
+      -- printDebug "graphVersions" v
 
       pure $ GraphVersions { gv_graph = listVersion
                            , gv_repo = v }