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

[FACTO] Langing.

parent 84b97575
......@@ -142,7 +142,7 @@ layoutAddcorpus = simpleSpec performAction render
render :: Render State props Action
render dispatch _ state _ =
[
div [className "container"] [L.jumboTitle false]
div [className "container"] []
, div [className "container"]
[
div [className "jumbotron"]
......
......@@ -158,10 +158,10 @@ layoutDocview = simpleSpec performAction render
]
, table [ className "table"]
[thead [ className "thead-dark"]
[tr [] [ th [scope "col"] [ b' [text "Date"] ]
[tr [] [ th [scope "col"] [ b' [text ""] ]
, th [scope "col"] [ b' [text "Date"]]
, th [scope "col"] [ b' [text "Title"] ]
, th [scope "col"] [ b' [text "Source"] ]
, th [scope "col"] [ b' [text "Favorite"]]
, th [scope "col"] [ b' [text "Delete"] ]
]
]
......@@ -464,10 +464,11 @@ tdata' d = TableData
showRow :: {row :: Corpus, delete :: Boolean} -> ReactElement
showRow {row : (Corpus c), delete} =
tr []
[ td [] [text c.date]
[ td [] [div [className $ fa <> "fa-star"][]]
-- TODO show date: Year-Month-Day only
, td [] [text c.date]
, td [] [ a [ href "#/documentView/1"] [ text c.title ] ]
, td [] [text c.source]
, td [] [div [className $ fa <> "fa-star"][]]
, td [] [input [ _type "checkbox"] []]
]
where
......
This diff is collapsed.
......@@ -58,7 +58,7 @@ searchSpec = simpleSpec performAction render
where
render :: Render State props Action
render dispatch _ state _ =
[ div [className "container"] [L.jumboTitle false]
[ div [className "container"] []
, div [className "container"]
[ div [className "jumbotron" ]
[ div [className "row" ]
......
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