Commit 47e88219 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] NgramsTable timelapse

parent 8790f219
...@@ -335,7 +335,7 @@ loadedNgramsTableSpec = Thermite.simpleSpec performAction render ...@@ -335,7 +335,7 @@ loadedNgramsTableSpec = Thermite.simpleSpec performAction render
state@{ ngramsParent, ngramsChildren, ngramsLocalPatch state@{ ngramsParent, ngramsChildren, ngramsLocalPatch
, ngramsSelection, ngramsSelectAll } , ngramsSelection, ngramsSelectAll }
_reactChildren = _reactChildren =
[ autoUpdateElt { duration: 3000, effect: dispatch Synchronize } [ autoUpdateElt { duration: 5000, effect: dispatch Synchronize }
, R2.scuff $ T.table { params: params /\ setParams -- TODO-LENS , R2.scuff $ T.table { params: params /\ setParams -- TODO-LENS
, rows, container, colNames, wrapColElts, totalRecords , rows, container, colNames, wrapColElts, totalRecords
} }
...@@ -550,9 +550,10 @@ tablePatchHasNgrams ngramsTablePatch ngrams = ...@@ -550,9 +550,10 @@ tablePatchHasNgrams ngramsTablePatch ngrams =
isJust $ ngramsTablePatch.ngramsPatches ^. _PatchMap <<< at ngrams isJust $ ngramsTablePatch.ngramsPatches ^. _PatchMap <<< at ngrams
termStyle :: TermList -> Number -> DOM.Props termStyle :: TermList -> Number -> DOM.Props
termStyle GraphTerm opacity = style {color: "green", opacity} termStyle GraphTerm opacity = style { color: "green", opacity}
termStyle StopTerm opacity = style {color: "red", opacity, textDecoration: "line-through"} termStyle StopTerm opacity = style { color: "red", opacity
termStyle CandidateTerm opacity = style {color: "black", opacity} , textDecoration: "line-through"}
termStyle CandidateTerm opacity = style { color: "black", opacity}
nextTermList :: TermList -> TermList nextTermList :: TermList -> TermList
nextTermList GraphTerm = StopTerm nextTermList GraphTerm = StopTerm
......
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