Commit ed23e69d authored by Alexandre Delanoë's avatar Alexandre Delanoë

[DEMO] fixing details for the demo (link to UserPage from Author of publication)

parent 285cfdb3
...@@ -30,7 +30,7 @@ corpusAnalysisSpec = simpleSpec defaultPerformAction render ...@@ -30,7 +30,7 @@ corpusAnalysisSpec = simpleSpec defaultPerformAction render
render dispatch _ state _ = render dispatch _ state _ =
[ div [className "row"] [ div [className "row"]
[ div [className "col-md-3"] [ div [className "col-md-3"]
[ h3 [] [text "Bisphenol A"] [ h3 [] [text "IMT Global publications"]
] ]
, div [className "col-md-9"] , div [className "col-md-9"]
...@@ -41,18 +41,18 @@ corpusAnalysisSpec = simpleSpec defaultPerformAction render ...@@ -41,18 +41,18 @@ corpusAnalysisSpec = simpleSpec defaultPerformAction render
[ div [className "jumbotron1", style {padding : "12px 0px 20px 12px"}] [ div [className "jumbotron1", style {padding : "12px 0px 20px 12px"}]
[ div [ className "col-md-8 content"] [ div [ className "col-md-8 content"]
[ p [] [ i [className "fa fa-globe"] [] [ p [] [ i [className "fa fa-globe"] []
, text " IsTex, PubMed, Hal" , text " Hal Database"
] ]
, p [] [ i [className "fab fa-searchengin"] [] , p [] [ i [className "fab fa-searchengin"] []
, text " Query: bisphenol + A OR bpa" , text " Query: all publications with all schools ids"
] ]
] ]
, div [ className "col-md-4 content"] , div [ className "col-md-4 content"]
[ p [] [ i [className "fa fa-calendar"] [] [ p [] [ i [className "fa fa-calendar"] []
, text " Sept. 11 2017, 10:59 am" , text " June. 26 2018, 10:59 am"
] ]
, p [] [ i [className "fa fa-user"] [] , p [] [ i [className "fa fa-user"] []
, text " Author(s): gargantua" , text " Author(s): françois.pineau"
] ]
] ]
] ]
......
...@@ -105,7 +105,7 @@ docview = simpleSpec performAction render ...@@ -105,7 +105,7 @@ docview = simpleSpec performAction render
, span [className "badge badge-default badge-pill"] [text "source"] , span [className "badge badge-default badge-pill"] [text "source"]
] ]
, li [className "list-group-item justify-content-between"] , li [className "list-group-item justify-content-between"]
[ span [] [text "Luciano Alonso, Vicente Milanes, Carlos Torre-Ferarro, Jorge Godoy, Juan P oria, Teresa de pedro"] [ a [href "http://localhost:2015/#/userPage"] [text "Luciano Alonso, Vicente Milanes, Carlos Torre-Ferarro, Jorge Godoy, Juan P oria, Teresa de pedro"]
, span [className "badge badge-default badge-pill"] [text "authors"] , span [className "badge badge-default badge-pill"] [text "authors"]
] ]
......
...@@ -110,7 +110,6 @@ newtype Hyperdata = Hyperdata ...@@ -110,7 +110,6 @@ newtype Hyperdata = Hyperdata
} }
instance decodeHyperdata :: DecodeJson Hyperdata where instance decodeHyperdata :: DecodeJson Hyperdata where
decodeJson json = do decodeJson json = do
obj <- decodeJson json obj <- decodeJson json
...@@ -118,7 +117,6 @@ instance decodeHyperdata :: DecodeJson Hyperdata where ...@@ -118,7 +117,6 @@ instance decodeHyperdata :: DecodeJson Hyperdata where
source <- obj .? "source" source <- obj .? "source"
pure $ Hyperdata { title,source } pure $ Hyperdata { title,source }
instance decodeResponse :: DecodeJson Response where instance decodeResponse :: DecodeJson Response where
decodeJson json = do decodeJson json = do
obj <- decodeJson json obj <- decodeJson json
......
...@@ -36,7 +36,6 @@ import SearchForm as S ...@@ -36,7 +36,6 @@ import SearchForm as S
import Tabview as TV import Tabview as TV
import Thermite (PerformAction, Render, Spec, _render, cotransform, defaultPerformAction, defaultRender, focus, modifyState, simpleSpec, withState) import Thermite (PerformAction, Render, Spec, _render, cotransform, defaultPerformAction, defaultRender, focus, modifyState, simpleSpec, withState)
import Unsafe.Coerce (unsafeCoerce) import Unsafe.Coerce (unsafeCoerce)
--import UserPage as UP
import Gargantext.Users as U import Gargantext.Users as U
import NgramsTable as NG import NgramsTable as NG
import Gargantext.Dashboard as Dsh import Gargantext.Dashboard as Dsh
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment