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

Merge remote-tracking branch...

Merge remote-tracking branch 'origin/578-node-docs-on-the-refresh-dialog-set-both-as-default-and-on-documents-page-remove-2-unused-icons' into dev
parents 669741be b5df8842
...@@ -227,16 +227,18 @@ updateTexts = R.createElement updateTextsCpt ...@@ -227,16 +227,18 @@ updateTexts = R.createElement updateTextsCpt
updateTextsCpt :: R.Component UpdateProps updateTextsCpt :: R.Component UpdateProps
updateTextsCpt = here.component "updateTexts" cpt where updateTextsCpt = here.component "updateTexts" cpt where
cpt { dispatch } _ = do cpt { dispatch } _ = do
methodTexts <- T.useBox NewNgrams -- methodTexts <- T.useBox NewNgrams
methodTexts' <- T.useLive T.unequal methodTexts -- methodTexts' <- T.useLive T.unequal methodTexts
pure $ panel [ -- H.text "Update with" pure $ panel [ -- H.text "Update with"
formChoiceSafe { items: [NewNgrams, NewTexts, Both] -- formChoiceSafe { items: [NewNgrams, NewTexts, Both]
, default: methodTexts' -- , default: methodTexts'
, callback: \val -> T.write_ val methodTexts -- , callback: \val -> T.write_ val methodTexts
, print: show } [] -- , print: show } []
] ]
(submitButton (UpdateNode $ UpdateNodeParamsTexts { methodTexts: methodTexts' }) dispatch) -- (submitButton (UpdateNode $ UpdateNodeParamsTexts { methodTexts: methodTexts' }) dispatch)
(submitButton (UpdateNode $ UpdateNodeParamsTexts { methodTexts: Both }) dispatch)
updateOther :: R2.Component UpdateProps updateOther :: R2.Component UpdateProps
updateOther = R.createElement updateOtherCpt updateOther = R.createElement updateOtherCpt
......
...@@ -126,8 +126,10 @@ loadedCpt = here.component "loaded" cpt where ...@@ -126,8 +126,10 @@ loadedCpt = here.component "loaded" cpt where
cpt p@{ path cpt p@{ path
, reload , reload
, session } _ = do , session } _ = do
pure $ H.div {} [ U.reloadButton { reload } pure $ H.div {} [
, U.chartUpdateButton { chartType: Histo, path, reload, session } -- U.reloadButton { reload }
, chart $ chartOptions p -- , U.chartUpdateButton { chartType: Histo, path, reload, session }
-- ,
chart $ chartOptions p
] ]
-- TODO: parametrize ngramsType above -- TODO: parametrize ngramsType above
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