diff options
author | Sébastien Dailly <sebastien@dailly.me> | 2021-12-03 04:37:14 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
commit | 47e4ab0cf1b7d364439a1a47df53f2d58a216239 (patch) | |
tree | d2dd3e37d0168d114198777c78b5278a9d77c254 /editor/actions/editor_actions.ml | |
parent | c6265278f05aa4d3af60e420f2d4d13e4bce8ad7 (diff) |
Helper to build application events
Diffstat (limited to 'editor/actions/editor_actions.ml')
-rwxr-xr-x | editor/actions/editor_actions.ml | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/editor/actions/editor_actions.ml b/editor/actions/editor_actions.ml index 48974c0..8ff2cab 100755 --- a/editor/actions/editor_actions.ml +++ b/editor/actions/editor_actions.ml @@ -108,9 +108,6 @@ let build in - let redirect_handler = - (module Load_page.M : App.Event with type t = Load_page.M.t ) in - let ul = El.ul [] in (* Wait for a click on an existing page in order to sent the associated @@ -128,14 +125,14 @@ let build Note.E.select [ Evr.on_el Ev.click - (fun _ -> App.E (None, redirect_handler)) + (fun _ -> App.ev (module Load_page.M) None) home_button ; Evr.on_el Ev.click (fun ev -> let el = Jv.Id.of_jv @@ Jv.Id.to_jv @@ Ev.target ev in let name = El.at note_id_attribute el in - App.E (name, redirect_handler)) + App.ev (module Load_page.M) name) ul ] in let childs = |