[list selection] some initial work (doesn't compile)

src/Gargantext/API/Node/Corpus/New.hs

@@ -45,6 +45,7 @@ import Gargantext.API.Node.Corpus.Searx
 import Gargantext.API.Node.Corpus.Types
 import Gargantext.API.Node.Types
 import Gargantext.Core (Lang(..){-, allLangs-})
+import Gargantext.Core.Text.List.Social (FlowSocialListWith(..))
 import qualified Gargantext.Core.Text.Corpus.API as API
 import qualified Gargantext.Core.Text.Corpus.Parsers as Parser (FileFormat(..), parseFormat)
 import Gargantext.Core.Types.Individu (User(..))
@@ -132,12 +133,12 @@ info _u = pure $ ApiInfo API.externalAPIs
 ------------------------------------------------------------------------
 ------------------------------------------------------------------------
 data WithQuery = WithQuery
-  { _wq_query     :: !Text
-  , _wq_databases :: !Database
-  , _wq_datafield :: !Datafield
-  , _wq_lang      :: !Lang
-  , _wq_node_id   :: !Int
-  -- , _wq_flowListWith :: !FlowSocialListWith
+  { _wq_query        :: !Text
+  , _wq_databases    :: !Database
+  , _wq_datafield    :: !(Maybe Datafield)
+  , _wq_lang         :: !Lang
+  , _wq_node_id      :: !Int
+  , _wq_flowListWith :: !FlowSocialListWith
   }
   deriving Generic
 
@@ -190,7 +191,7 @@ addToCorpusWithQuery user cid (WithQuery q dbs datafield l _nid) maybeLimit logS
   printDebug "[addToCorpusWithQuery] datafield" datafield
 
   case datafield of
-    Web -> do
+    Just Web -> do
       printDebug "[addToCorpusWithQuery] processing web request" datafield
 
       _ <- triggerSearxSearch cid q l

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

@@ -11,6 +11,8 @@ Portability : POSIX
 module Gargantext.Core.Text.List.Social
   where
 
+import Control.Monad (mzero)
+import Data.Aeson
 import Data.HashMap.Strict (HashMap)
 import Data.Map (Map)
 import Data.Monoid (mconcat)
@@ -39,7 +41,16 @@ import Gargantext.Prelude
 
 data FlowSocialListWith = FlowSocialListWithPriority { fslw_priority :: FlowSocialListPriority }
                         | FlowSocialListWithLists    { fslw_lists :: [ListId] }
-
+instance FromJSON FlowSocialListWith where
+  parseJSON (Object v) = do
+    typ <- v .: "type"
+    value <- v .:? "value" .!= []
+    case typ of
+      "MyListsFirst" -> pure $ FlowSocialListWithPriority { fslw_priority = MySelfFirst }
+      "OtherListsFirst" -> pure $ FlowSocialListWithPriority { fslw_priority = OthersFirst }
+      "SelectedLists" -> pure $ FlowSocialListWithLists { fslw_lists = v }
+      _ -> pure $ FlowSocialListWithPriority { fslw_priority = MySelfFirst }
+  parseJSON _ = mzero
 
 data FlowSocialListPriority = MySelfFirst | OthersFirst
 flowSocialListPriority :: FlowSocialListPriority -> [NodeMode]