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

[Corpus View] cosmetics/design.

parent dade1369
...@@ -37,27 +37,23 @@ corpusAnalysisSpec = simpleSpec defaultPerformAction render ...@@ -37,27 +37,23 @@ corpusAnalysisSpec = simpleSpec defaultPerformAction render
] ]
] ]
, div [className "row"] , div [className "row"]
[ div [className "col-md-5"]
[ div [className "jumbotron1", style {padding : "12px 0px 20px 12px"}] [ div [className "jumbotron1", style {padding : "12px 0px 20px 12px"}]
[ p [] [ div [ className "col-md-8 content"]
[ i [className "fa fa-globe"] [] [ p [] [ i [className "fa fa-globe"] []
, text "IS Tex" , text " IsTex, PubMed, Hal"
] ]
, p [] , p [] [ i [className "fab fa-searchengin"] []
[ i [className "fa fa-file-archive-o"] [] , text " Query: bisphenol + A OR bpa"
, text "bisphenol + A OR bpa" ]
] ]
, p [] , div [ className "col-md-4 content"]
[ i [className "fa fa-calendar"] [] [ p [] [ i [className "fa fa-calendar"] []
, text "Sept. 11 2017, 10:59 am," , text " Sept. 11 2017, 10:59 am"
] ]
, p [] , p [] [ i [className "fa fa-user"] []
[ i [className "fa fa-user"] [] , text " Author(s): gargantua"
, text "Authors (S): gargantext," ]
] ]
] ]
]
, div [className "col-md-6"]
[]
] ]
] ]
...@@ -40,8 +40,8 @@ toggleNode sid a = a ...@@ -40,8 +40,8 @@ toggleNode sid a = a
myCorpus :: Int -> String -> NTree (Tuple String String) myCorpus :: Int -> String -> NTree (Tuple String String)
myCorpus n name = NNode n false name myCorpus n name = NNode n false name
[ NLeaf (Tuple "Facets" "#/docView") [ NLeaf (Tuple "Facets" "#/corpus")
, NLeaf (Tuple "Graph" "#/docView") , NLeaf (Tuple "Graph" "#/corpus")
, NLeaf (Tuple "Dashboard" "#/userPage") , NLeaf (Tuple "Dashboard" "#/userPage")
] ]
......
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