summaryrefslogtreecommitdiff
path: root/editor/actions
diff options
context:
space:
mode:
authorSébastien Dailly <sebastien@dailly.me>2021-12-03 04:37:14 +0100
committerSébastien Dailly <sebastien@dailly.me>2022-02-07 16:43:33 +0100
commit47e4ab0cf1b7d364439a1a47df53f2d58a216239 (patch)
treed2dd3e37d0168d114198777c78b5278a9d77c254 /editor/actions
parentc6265278f05aa4d3af60e420f2d4d13e4bce8ad7 (diff)
Helper to build application events
Diffstat (limited to 'editor/actions')
-rwxr-xr-xeditor/actions/add_page.ml4
-rwxr-xr-xeditor/actions/delete_page.ml4
-rwxr-xr-xeditor/actions/editor_actions.ml7
-rwxr-xr-xeditor/actions/export.ml5
-rwxr-xr-xeditor/actions/import.ml4
-rwxr-xr-xeditor/actions/to_markdown.ml4
6 files changed, 7 insertions, 21 deletions
diff --git a/editor/actions/add_page.ml b/editor/actions/add_page.ml
index 5e52d43..1da8e3f 100755
--- a/editor/actions/add_page.ml
+++ b/editor/actions/add_page.ml
@@ -36,9 +36,7 @@ let create
()
in
Note.E.map
- (fun v -> App.E
- (v
- , (module M : App.Event with type t = M.t )))
+ (fun v -> App.ev (module M) v)
(* Option.on_some trigger the event only when the pop up is validated.
Closing the popup doesn't do anything.
*)
diff --git a/editor/actions/delete_page.ml b/editor/actions/delete_page.ml
index 7fa609b..858f6b9 100755
--- a/editor/actions/delete_page.ml
+++ b/editor/actions/delete_page.ml
@@ -27,7 +27,5 @@ let create
()
in
Note.E.map
- (fun v -> App.E
- ( v
- , (module M : App.Event with type t = M.t )))
+ (fun v -> App.ev (module M) v)
(Note.E.Option.on_some ev)
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 =
diff --git a/editor/actions/export.ml b/editor/actions/export.ml
index 657e0da..ea4f8ce 100755
--- a/editor/actions/export.ml
+++ b/editor/actions/export.ml
@@ -33,7 +33,4 @@ end
(** Create a new element *)
let create
: unit -> App.event
- = fun () ->
- App.E
- ( ()
- , (module M : App.Event with type t = M.t ))
+ = fun () -> App.ev (module M) ()
diff --git a/editor/actions/import.ml b/editor/actions/import.ml
index c847ed3..da74b50 100755
--- a/editor/actions/import.ml
+++ b/editor/actions/import.ml
@@ -54,7 +54,5 @@ let create () =
in
Note.E.map
- (fun v -> App.E
- ( v
- , (module M : App.Event with type t = M.t )))
+ (fun v -> App.ev (module M) v)
(Note.E.Option.on_some ev)
diff --git a/editor/actions/to_markdown.ml b/editor/actions/to_markdown.ml
index 80191f9..f3c6517 100755
--- a/editor/actions/to_markdown.ml
+++ b/editor/actions/to_markdown.ml
@@ -291,6 +291,4 @@ end
let create
: PM.t -> App.event
= fun pm ->
- App.E
- ( pm
- , (module ToMarkdown : App.Event with type t = ToMarkdown.t ))
+ App.ev (module ToMarkdown) pm