[FEAT] lens for flowcont and flowlistscores (wip)

src/Gargantext/Core/Text/List/Social/History.hs

@@ -12,10 +12,10 @@ module Gargantext.Core.Text.List.Social.History
   where
 
 import Data.Map (Map)
-import Control.Lens (view)
+import Control.Lens hiding (cons)
 import Gargantext.API.Ngrams.Types
 import Gargantext.Prelude
-import Gargantext.Core.Types (ListType(..), ListId, NodeId)
+import Gargantext.Core.Types (ListId, NodeId)
 import qualified Data.Map.Strict.Patch as PatchMap
 import qualified Data.Map.Strict as Map
 import qualified Data.List as List
@@ -26,11 +26,12 @@ userHistory :: [NgramsType]
         -> [ListId]
         -> Repo s NgramsStatePatch
         -> Map NgramsType (Map ListId [Map NgramsTerm NgramsPatch])
-userHistory t l r = clean $ history t l r
+userHistory t l = clean . (history t l)
   where
     clean = Map.map (Map.map List.init)
 
 
+
 history :: [NgramsType]
         -> [ListId]
         -> Repo s NgramsStatePatch
@@ -73,4 +74,3 @@ toMap = Map.map (Map.map unNgramsTablePatch) . (Map.map toMap') . toMap'
     unNgramsTablePatch :: NgramsTablePatch -> Map NgramsTerm NgramsPatch
     unNgramsTablePatch (NgramsTablePatch p) = toMap' p
 
-

src/Gargantext/Core/Text/List/Social/Patch.hs

+{-|
+Module      : Gargantext.Core.Text.List.Social.Patch
+Description :
+Copyright   : (c) CNRS, 2018-Present
+License     : AGPL + CECILL v3
+Maintainer  : team@gargantext.org
+Stability   : experimental
+Portability : POSIX
+-}
+
+module Gargantext.Core.Text.List.Social.Patch
+  where
+
+import Data.Text (Text)
+import Data.Map (Map)
+import Data.Monoid
+import Control.Lens hiding (cons)
+import Gargantext.API.Ngrams.Types
+import Gargantext.Prelude
+import Gargantext.Core.Types (ListType(..), ListId, NodeId)
+import Gargantext.Core.Text.List.Social
+import Gargantext.Core.Text.List.Social.Prelude
+import qualified Data.Map.Strict.Patch as PatchMap
+import qualified Data.Map.Strict as Map
+import qualified Data.List as List
+import Gargantext.Database.Schema.Ngrams (NgramsType(..))
+
+
+-- (1,Nothing) & _2 %~ (<> (Just (-1)))
+
+{-
+fromList [(NgramsTerms,fromList [(NodeId 189,
+         
+
+fromList [(NgramsTerm {unNgramsTerm = "journal"},NgramsReplace {_patch_old = Nothing, _patch_new = Just (NgramsRepoElement {_nre_size = 1, _nre_list = CandidateTerm, _nre_root = Nothing, _nre_parent = Nothing, _nre_children = MSet (fromList [])})})],f
+
+[fromList [(NgramsTerm {unNgramsTerm = "approach"},NgramsPatch {_patch_children = PatchMSet (PatchMap (fromList [(NgramsTerm {unNgramsTerm = "order"},Replace {_old = Just (), _new = Nothing})])), _patch_list = Keep})]
+,fromList [(NgramsTerm {unNgramsTerm = "approach"},NgramsPatch {_patch_children = PatchMSet (PatchMap (fromList [(NgramsTerm {unNgramsTerm = "order"},Replace {_old = Nothing, _new = Just ()})])), _patch_list = Keep})]
+
+,fromList [(NgramsTerm {unNgramsTerm = "problem"},NgramsPatch {_patch_children = PatchMSet (PatchMap (fromList [])), _patch_list = Replace {_old = MapTerm, _new = CandidateTerm}})]
+,fromList [(NgramsTerm {unNgramsTerm = "paper"},NgramsPatch {_patch_children = PatchMSet (PatchMap (fromList [])), _patch_list = Replace {_old = MapTerm, _new = StopTerm}})]])])]
+-}
+
+addScorePatch :: Text {--> NgramsPatch-} -> FlowCont Text FlowListScores
+addScorePatch t = fl & flc_scores . at t %~ score
+
+  where
+    fl      = FlowCont mempty mempty
+    score m = (Just mempty <> m)
+            & _Just
+            . fls_listType
+            . at MapTerm
+            %~ (<> Just 1)
+
+
+