[FEAT] Node Document view.

src/Gargantext/Components/Node.purs

+module Gargantext.Components.Node 
+  where
+
+import Gargantext.Prelude
+import Data.Argonaut (class DecodeJson, decodeJson, (.?))
+
+newtype NodePoly a =
+  NodePoly { id :: Int
+           , typename :: Int
+           , userId   :: Int
+           , parentId  :: Int
+           , name      :: String
+           , date      :: String
+           , hyperdata :: a
+           }
+
+
+instance decodeNodePoly :: (DecodeJson a)
+  => DecodeJson (NodePoly a) where
+  decodeJson json = do
+    obj <- decodeJson json
+    id        <- obj .? "id"
+    typename  <- obj .? "typename"
+    userId    <- obj .? "userId"
+    parentId  <- obj .? "parentId"
+    name      <- obj .? "name"
+    date      <- obj .? "date"
+    
+    hyperdata  <- obj .? "hyperdata"
+    hyperdata' <- decodeJson hyperdata
+    
+    pure $ NodePoly  { id : id
+                 , typename : typename
+                 , userId   : userId
+                 , parentId : parentId
+                 , name     : name
+                 , date     : date
+                 , hyperdata: hyperdata'
+                 }
+
+

src/Gargantext/Config.purs

@@ -114,7 +114,7 @@ data NodeType = NodeUser
               | Corpus
               | CorpusV3
               | Dashboard
-              | Document
+              | Url_Document
               | Error
               | Folder
               | Graph
@@ -136,7 +136,7 @@ urlConfig Children  = show Children
 urlConfig Corpus    = show Corpus
 urlConfig CorpusV3  = show CorpusV3
 urlConfig Dashboard = show Dashboard
-urlConfig Document  = show Document
+urlConfig Url_Document  = show Url_Document
 urlConfig Error     = show Error
 urlConfig Folder    = show Folder
 urlConfig Graph     = show Graph
@@ -151,7 +151,7 @@ instance showNodeType :: Show NodeType where
   show Corpus    = "corpus"
   show CorpusV3  = "corpus"
   show Dashboard = "dashboard"
-  show Document  = "document"
+  show Url_Document  = "document"
   show Error     = "ErrorNodeType"
   show Folder    = "folder"
   show Graph     = "graph"
@@ -166,7 +166,7 @@ readNodeType :: String -> NodeType
 readNodeType "Annuaire"   = Annuaire
 readNodeType "Children"   = Children
 readNodeType "Dashboard"  = Dashboard
-readNodeType "Document"   = Document
+readNodeType "Document"   = Url_Document
 readNodeType "Folder"     = Folder
 readNodeType "Graph"      = Graph
 readNodeType "Individu"   = Individu

src/Gargantext/Pages/Corpus.purs

@@ -215,4 +215,3 @@ sourcePageSpec = focus _sourcelens _sourceAction S.sourcespec'
 termsPageSpec :: Spec State {} Action
 termsPageSpec = focus _termslens _termsAction T.termSpec'
 
-

src/Gargantext/Pages/Corpus/Tabs/Documents.purs

@@ -266,7 +266,7 @@ showRow {row : (DocumentsView c), delete} =
   [ td [] [div [className $ fa <> "fa-star"][]]
   -- TODO show date: Year-Month-Day only
   , td [] [text c.date]
-  , td [] [ a [ href (toUrl Front Document c._id) ] [ text c.title ] ]
+  , td [] [ a [ href (toUrl Front Url_Document c._id) ] [ text c.title ] ]
   , td [] [text c.source]
   , td [] [input [ _type "checkbox"]]
   ]

src/Gargantext/Pages/Layout.purs

@@ -5,11 +5,11 @@ import Prelude hiding (div)
 import Gargantext.Pages.Layout.Actions (Action(..))
 import Gargantext.Pages.Layout.Specs.AddCorpus as AC
 -- import Gargantext.Pages.Corpus.Tabs as TV
--- import Gargantext.Pages.Corpus.Document as D
 
-import Gargantext.Pages.Corpus as Corpus
-import Gargantext.Pages.Corpus.Tabs.Documents         as D
-import Gargantext.Pages.Corpus.Graph             as GE
+import Gargantext.Pages.Corpus                as Corpus
+import Gargantext.Pages.Corpus.Document       as Document
+import Gargantext.Pages.Corpus.Tabs.Documents as D
+import Gargantext.Pages.Corpus.Graph          as GE
 -- import Gargantext.Pages.Corpus.Tabs.Terms.NgramsTable as NG
 
 import Gargantext.Pages.Annuaire.User.Users as U
@@ -57,9 +57,9 @@ dispatchAction dispatcher _ (Annuaire id) = do
 dispatchAction dispatcher _ (Folder id) = do
   dispatcher $ SetRoute $ Folder id
 
-dispatchAction dispatcher _ (Document i) = do
-  dispatcher $ SetRoute $ Document i
-  -- dispatcher $ DocumentViewA TODO
+dispatchAction dispatcher _ (Document n) = do
+  dispatcher $ SetRoute $ Document n
+  dispatcher $ DocumentViewA $ Document.Load n
 
 dispatchAction dispatcher _ PGraphExplorer = do
   dispatcher $ SetRoute PGraphExplorer