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

[FIX/ERGO] Tables Doc and Ngrams.

parent 9c11378e
...@@ -279,11 +279,11 @@ renderPage loaderDispatch { totalRecords, dispatch, listId, corpusId ...@@ -279,11 +279,11 @@ renderPage loaderDispatch { totalRecords, dispatch, listId, corpusId
, container: T.defaultContainer { title: "Documents" } , container: T.defaultContainer { title: "Documents" }
, colNames: , colNames:
T.ColumnName <$> T.ColumnName <$>
[ "" [ "Map"
, "Stop"
, "Date" , "Date"
, "Title" , "Title"
, "Source" , "Source"
, "Delete"
] ]
, totalRecords , totalRecords
} }
...@@ -304,7 +304,12 @@ renderPage loaderDispatch { totalRecords, dispatch, listId, corpusId ...@@ -304,7 +304,12 @@ renderPage loaderDispatch { totalRecords, dispatch, listId, corpusId
[ a [ className $ gi isFav [ a [ className $ gi isFav
, if toDel then style {textDecoration : "line-through"} , if toDel then style {textDecoration : "line-through"}
else style {textDecoration : "none"} else style {textDecoration : "none"}
, onClick $ (\_-> dispatch $ MarkFavorites r._id (not isFav))] [] , onClick $ (\_-> dispatch $ MarkFavorites r._id (not isFav))
] []
]
, input [ _type "checkbox"
, checked toDel
, onClick $ (\_ -> dispatch $ ToggleDocumentToDelete r._id)
] ]
-- TODO show date: Year-Month-Day only -- TODO show date: Year-Month-Day only
, if toDel then , if toDel then
...@@ -323,9 +328,7 @@ renderPage loaderDispatch { totalRecords, dispatch, listId, corpusId ...@@ -323,9 +328,7 @@ renderPage loaderDispatch { totalRecords, dispatch, listId, corpusId
div [style {textDecoration : "line-through"}] [ text r.source] div [style {textDecoration : "line-through"}] [ text r.source]
else else
div [] [ text r.source] div [] [ text r.source]
, input [ _type "checkbox"
, checked toDel
, onClick $ (\_ -> dispatch $ ToggleDocumentToDelete r._id)]
] ]
, delete: true , delete: true
}) <$> filter (not <<< isDeleted) res }) <$> filter (not <<< isDeleted) res
......
...@@ -249,7 +249,7 @@ ngramsTableSpec ntype = simpleSpec performAction render ...@@ -249,7 +249,7 @@ ngramsTableSpec ntype = simpleSpec performAction render
, container: tableContainer {pageParams, loaderDispatch, dispatch, ngramsParent, ngramsChildren, ngramsTable} , container: tableContainer {pageParams, loaderDispatch, dispatch, ngramsParent, ngramsChildren, ngramsTable}
, colNames: , colNames:
T.ColumnName <$> T.ColumnName <$>
[ "Graph" [ "Map"
, "Stop" , "Stop"
, "Terms" , "Terms"
, "Score (Occurrences)" -- see convOrderBy , "Score (Occurrences)" -- see convOrderBy
......
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