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

[FACTO] Langing.

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