[doc table] mark category as checked when document is previewed

src/Gargantext/Components/Category/Types.purs

@@ -115,3 +115,7 @@ star2catSimple Star_1 = Checked
 star2catSimple Star_2 = Topic
 star2catSimple Star_3 = Favorite
 star2catSimple Star_4 = ToCite
+
+markCategoryChecked :: Category -> Category
+markCategoryChecked UnRead = Checked
+markCategoryChecked s = s

src/Gargantext/Components/DocsTable.purs

@@ -27,9 +27,10 @@ import Gargantext.Components.App.Store (Boxes)
 import Gargantext.Components.Bootstrap as B
 import Gargantext.Components.Bootstrap.Types (ComponentStatus(..), ModalSizing(..), Variant(..))
 import Gargantext.Components.Category (rating, ratingSimple)
-import Gargantext.Components.Category.Types (Category(..), Star(..))
+import Gargantext.Components.Category.Types (Category(..), Star(..), cat2score, markCategoryChecked)
 import Gargantext.Components.DocsTable.DocumentFormCreation as DFC
 import Gargantext.Components.DocsTable.Types (DocumentsView(..), Hyperdata(..), LocalCategories, Query, Response(..), Year, sampleData, showSource)
+import Gargantext.Components.GraphQL.Endpoints (updateNodeContextCategory)
 import Gargantext.Components.Nodes.Lists.Types as NT
 import Gargantext.Components.Nodes.Texts.Types as TextsT
 import Gargantext.Components.Reload (textsReloadContext)
@@ -636,7 +637,6 @@ tableRowCpt = here.component "tableRow" cpt where
 
     let cat :: Category
         cat         = fromMaybe category (localCategories ^. at _id)
-        -- checked    = Star_1 == cat
         selected   = mCurrentDocId' == Just r._id
         sid = sessionId session
         corpusDocument
@@ -657,9 +657,12 @@ tableRowCpt = here.component "tableRow" cpt where
       [ -- H.div {} [ H.a { className, style, on: {click: click Favorite} } [] ]
         H.div { className: "" }
         [ docChooser { boxes
+                     , category: categoryS
+                     , docId: r._id
                      , listId
                      , mCorpusId
                      , nodeId: r._id
+                     , session
                      , sidePanel } []
         ]
         --, H.div { className: "column-tag flex" } [ caroussel { category: cat, nodeId, row: dv, session, setLocalCategories } [] ]
@@ -695,9 +698,12 @@ tableRowCpt = here.component "tableRow" cpt where
 
 type DocChooser = (
     boxes     :: Boxes
+  , category  :: T.Box Category
+  , docId     :: Int
   , listId    :: ListId
   , mCorpusId :: Maybe NodeID
   , nodeId    :: NodeID
+  , session   :: Session
   , sidePanel :: T.Box (Maybe (Record TextsT.SidePanel))
   )
 
@@ -710,31 +716,23 @@ docChooserCpt = here.component "docChooser" cpt
       pure $ H.div {} []
 
     cpt { boxes: { sidePanelState }
+        , category
+        , docId
         , listId
         , mCorpusId: Just corpusId
         , nodeId
+        , session
         , sidePanel } _ = do
       mCurrentDocId <- T.useFocused
             (maybe Nothing _.mCurrentDocId)
             (\val -> maybe Nothing (\sp -> Just $ sp { mCurrentDocId = val })) sidePanel
       mCurrentDocId' <- T.useLive T.unequal mCurrentDocId
+      category' <- T.useLive T.unequal category
 
       let selected = mCurrentDocId' == Just nodeId
           eyeClass = selected ? "eye" $ "eye-slash"
           variant = selected ? Info $ Dark
 
-      pure $
-        H.div
-        { className: "doc-chooser" }
-        [
-          B.iconButton
-          { name: eyeClass
-          , overlay: false
-          , variant
-          , callback: onClick selected
-          }
-      ]
-      where
           onClick selected _ = do
             -- here.log2 "[docChooser] onClick, listId" listId
             -- here.log2 "[docChooser] onClick, corpusId" corpusId
@@ -750,7 +748,24 @@ docChooserCpt = here.component "docChooser" cpt
                              , mCurrentDocId: Just nodeId
                              , nodeId: nodeId }) sidePanel
               T.write_ Opened sidePanelState
-          here.log2 "[docChooser] sidePanel opened" sidePanelState
+              let categoryMarked = markCategoryChecked category'
+              launchAff_ $ do
+                _ <- updateNodeContextCategory session docId corpusId $ cat2score categoryMarked
+                pure unit
+              T.write_ categoryMarked category
+              -- here.log2 "[docChooser] sidePanel opened" sidePanelState
+
+      pure $
+        H.div
+        { className: "doc-chooser" }
+        [
+          B.iconButton
+          { name: eyeClass
+          , overlay: false
+          , variant
+          , callback: onClick selected
+          }
+      ]
 
 
 newtype SearchQuery = SearchQuery {