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
render dispatch _ state _ =
[ div [className "row"]
[ div [className "col-md-3"]
[ h3 [] [text "Bisphenol A"]
[ h3 [] [text "IMT Global publications"]
]
, div [className "col-md-9"]
......@@ -41,18 +41,18 @@ corpusAnalysisSpec = simpleSpec defaultPerformAction render
[ div [className "jumbotron1", style {padding : "12px 0px 20px 12px"}]
[ div [ className "col-md-8 content"]
[ p [] [ i [className "fa fa-globe"] []
, text " IsTex, PubMed, Hal"
, text " Hal Database"
]
, 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"]
[ 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"] []
, text " Author(s): gargantua"
, text " Author(s): françois.pineau"
]
]
]
......
......@@ -105,7 +105,7 @@ docview = simpleSpec performAction render
, span [className "badge badge-default badge-pill"] [text "source"]
]
, 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"]
]
......
......@@ -110,7 +110,6 @@ newtype Hyperdata = Hyperdata
}
instance decodeHyperdata :: DecodeJson Hyperdata where
decodeJson json = do
obj <- decodeJson json
......@@ -118,7 +117,6 @@ instance decodeHyperdata :: DecodeJson Hyperdata where
source <- obj .? "source"
pure $ Hyperdata { title,source }
instance decodeResponse :: DecodeJson Response where
decodeJson json = do
obj <- decodeJson json
......
......@@ -36,7 +36,6 @@ import SearchForm as S
import Tabview as TV
import Thermite (PerformAction, Render, Spec, _render, cotransform, defaultPerformAction, defaultRender, focus, modifyState, simpleSpec, withState)
import Unsafe.Coerce (unsafeCoerce)
--import UserPage as UP
import Gargantext.Users as U
import NgramsTable as NG
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