fetch without button

src/Gargantext/Users/Specs/Renders.purs

@@ -7,19 +7,18 @@ import Data.Maybe (Maybe(..))
 import Data.Tuple (Tuple(..))
 import Prelude (($), (<<<))
 import React (ReactElement)
-import React.DOM (button, div, h4, h3, li, span, text, ul, img)
+import React.DOM (div, h3, h1, li, span, text, ul, img)
 import React.DOM.Props (_id, className, src)
-import React.DOM.Props as RP
 import Thermite (Render)
 
 
 render :: forall props. Render State props Action
 render dispatch _ state _ =
-  [ button [RP.onClick \_ -> dispatch $ FetchUser 473593] [ text "Fetch User"],
+  [
           div [className "col-md-12"]
           $ case state.user of
             (Just (User user)) -> display user.name [userInfos user.hyperdata]
-            Nothing -> display "No user" []
+            Nothing -> display "User not found" [h1 [] [text "¯\\_(ツ)_/¯"]]
   ]
 
 display :: forall props. String -> Array ReactElement -> Array ReactElement
@@ -67,4 +66,3 @@ userInfos (HyperData user) =
       [ span [] [text title]
       , span [className "badge badge-default badge-pill"] [text content]
       ]
- 

src/Navigation.purs

@@ -323,7 +323,7 @@ pagesComponent s =
     selectSpec Home        = layout0 $ focus _landingState   _landingAction   (L.layoutLanding EN)
     selectSpec AddCorpus  = layout0 $ focus _addCorpusState _addCorpusAction AC.layoutAddcorpus
     selectSpec DocView    = layout0 $ focus _docViewState   _docViewAction   DV.layoutDocview
-    selectSpec UserPage   = layout0 $ focus _userPageState  _userPageAction  U.layoutUser
+    selectSpec (UserPage i) = layout0 $ focus _userPageState  _userPageAction  U.layoutUser
     selectSpec (DocAnnotation i)   = layout0 $ focus _docAnnotationViewState  _docAnnotationViewAction  D.docview
     selectSpec Tabview   = layout0 $ focus _tabviewState  _tabviewAction  TV.tab1
     -- To be removed
@@ -637,9 +637,10 @@ dispatchAction dispatcher _ SearchView = do
   _ <- dispatcher $ SearchA  $ S.NoOp
   pure unit
 
-dispatchAction dispatcher _ UserPage = do
-  _ <- dispatcher $ SetRoute  $ UserPage
+dispatchAction dispatcher _ (UserPage id) = do
+  _ <- dispatcher $ SetRoute  $ UserPage id
   _ <- dispatcher $ UserPageA $ U.NoOp
+  _ <- dispatcher $ UserPageA $ U.FetchUser id
   pure unit
 
 dispatchAction dispatcher _ (DocAnnotation i) = do

src/PageRouter.purs

@@ -21,7 +21,7 @@ data Routes
   | AddCorpus
   | DocView
   | SearchView
-  | UserPage
+  | UserPage Int
   | DocAnnotation Int
   | Tabview
   | CorpusAnalysis
@@ -35,7 +35,7 @@ instance showRoutes :: Show Routes where
   show AddCorpus = "AddCorpus"
   show DocView = "DocView"
   show SearchView = "SearchView"
-  show UserPage   = "UserPage"
+  show (UserPage i) = "UserPage"
   show (DocAnnotation i)= "DocumentView"
   show Tabview = "Tabview"
   show CorpusAnalysis = "corpus"
@@ -52,7 +52,7 @@ routing =
       Login          <$  route "login"
   <|> Tabview        <$  route "tabview"
   <|> DocAnnotation  <$> (route "documentView" *> int)
-  <|> UserPage       <$   route "userPage"
+  <|> UserPage       <$> (route "user" *> int)
   <|> SearchView     <$ route "search"
   <|> DocView        <$ route "docView"
   <|> AddCorpus      <$ route "addCorpus"