From c6265278f05aa4d3af60e420f2d4d13e4bce8ad7 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Fri, 3 Dec 2021 04:19:53 +0100 Subject: Removed the application mecanism from the state module --- editor/actions/editor_actions.ml | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'editor/actions/editor_actions.ml') diff --git a/editor/actions/editor_actions.ml b/editor/actions/editor_actions.ml index 518e0c7..48974c0 100755 --- a/editor/actions/editor_actions.ml +++ b/editor/actions/editor_actions.ml @@ -1,6 +1,7 @@ open StdLabels open Brr open Brr_note +module App = Editor_app module Js = Js_of_ocaml.Js @@ -9,7 +10,7 @@ module Js = Js_of_ocaml.Js let note_id_attribute = Jstr.v "data-note-id" type t = - { ev : State.event Note.event + { ev : App.event Note.event ; childs : El.t list ; ul : El.t ; mutable completed : bool @@ -108,7 +109,7 @@ let build let redirect_handler = - (module Load_page.M : State.Event with type t = Load_page.M.t ) in + (module Load_page.M : App.Event with type t = Load_page.M.t ) in let ul = El.ul [] in @@ -127,14 +128,14 @@ let build Note.E.select [ Evr.on_el Ev.click - (fun _ -> State.E (None, redirect_handler)) + (fun _ -> App.E (None, redirect_handler)) 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 - State.E (name, redirect_handler)) + App.E (name, redirect_handler)) ul ] in let childs = @@ -163,7 +164,7 @@ let build ; completed = false } let get_event - : t -> State.event Note.event + : t -> App.event Note.event = fun {ev; _} -> ev (** Collect all the notes in the cache and return them into links. *) -- cgit v1.2.3