[Graph][FacetsTable] add authors to table & fix other table columns

src/Gargantext/Components/FacetsTable.purs

@@ -83,6 +83,7 @@ newtype DocumentsView =
   , date     :: String
   , title    :: String
   , source   :: String
+  , authors  :: String
   , score    :: Int
   , pairs    :: Array Pair
   , delete   :: Boolean
@@ -106,7 +107,8 @@ newtype Response = Response
   }
 
 newtype Hyperdata = Hyperdata
-  { title  :: String
+  { authors :: String
+  , title   :: String
   , source  :: String
   }
 
@@ -127,9 +129,10 @@ instance decodePair :: DecodeJson Pair where
 instance decodeHyperdata :: DecodeJson Hyperdata where
   decodeJson json = do
     obj    <- decodeJson json
+    authors <- obj .| "authors"
     title  <- obj .| "title"
     source <- obj .| "source"
-    pure $ Hyperdata { title,source }
+    pure $ Hyperdata { authors, title,source }
 
 {-
 instance decodeResponse :: DecodeJson Response where
@@ -239,8 +242,8 @@ loadPage {session, nodeId, listId, query, params: {limit, offset, orderBy}} = do
   where
     res2corpus :: Response -> DocumentsView
     res2corpus (Response { id, created: date, ngramCount: score, category
-                         , hyperdata: Hyperdata {title, source} }) =
-      DocumentsView { id, date, title, source, score, category, pairs: [], delete: false }
+                         , hyperdata: Hyperdata {authors, title, source} }) =
+      DocumentsView { id, date, title, source, score, authors, category, pairs: [], delete: false }
     convOrderBy (T.ASC  (T.ColumnName "Date")) = DateAsc
     convOrderBy (T.DESC (T.ColumnName "Date")) = DateDesc
     convOrderBy (T.ASC  (T.ColumnName "Title")) = TitleAsc
@@ -293,13 +296,14 @@ pageCpt = R.staticComponent "G.C.FacetsTable.Page" cpt
           | otherwise = H.text label
         comma = H.span {} [ H.text ", " ]
         rows = row <$> filter (not <<< isDeleted) documents
-          where
-            row (DocumentsView {id,score,title,source,date,pairs,delete,category}) =
+        row dv@(DocumentsView {id,score,title,source,date, authors,pairs,delete,category}) =
           { row:
-                [ H.a { className, on: {click: markClick} } []
+            [ H.a { className: gi category, on: {click: markClick} } []
               -- TODO show date: Year-Month-Day only
-                , maybeStricken [ H.text date ]
-                , maybeStricken [ H.text source ]
+            , maybeStricken delete [ H.text date ]
+            , maybeStricken delete [ H.text title ]
+            , maybeStricken delete [ H.text source ]
+            , maybeStricken delete [ H.text authors ]
               -- , maybeStricken $ intercalate [comma] (pairUrl <$> pairs)
             , H.input { type: "checkbox", checked: isChecked id, on: { click: toggleClick } }
             ]
@@ -307,8 +311,7 @@ pageCpt = R.staticComponent "G.C.FacetsTable.Page" cpt
           where
             markClick _ = markCategory session nodeId category [id]
             toggleClick _ = togglePendingDeletion deletions id
-                className = gi category
-                maybeStricken
+        maybeStricken delete
           | delete = H.div { style: { textDecoration: "line-through" } }
           | otherwise = H.div {}