From eb319516fd922ab89b7120a885d1e801fa3f45aa Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 7 Feb 2022 16:12:05 +0100 Subject: Enjoy the Application pattern --- editor/actions.ml | 22 +++++++--------------- 1 file changed, 7 insertions(+), 15 deletions(-) (limited to 'editor/actions.ml') diff --git a/editor/actions.ml b/editor/actions.ml index c02584f..3b17dae 100755 --- a/editor/actions.ml +++ b/editor/actions.ml @@ -3,7 +3,7 @@ open Brr open Brr_note type button_actions = - { edit : El.t * (unit Note.event) + { delete : El.t * (unit Note.event) } let populate_menu () = @@ -13,21 +13,21 @@ let populate_menu () = let () = Blog.Sidebar.clean element in let uri = Brr.Window.location Brr.G.window in - let edit_button = El.button + let delete_button = El.button ~at:At.[ class' (Jstr.v "action-button") ] [ El.i [] ~at:At.[ class' (Jstr.v "fa") ; class' (Jstr.v "fa-2x") - ; class' (Jstr.v "fa-pen") + ; class' (Jstr.v "fa-trash") ] ] in - let edit_event = + let delete_event = Evr.on_el Ev.click Evr.unit - edit_button in + delete_button in let pages = @@ -52,7 +52,6 @@ let populate_menu () = ; class' (Jstr.v "fa-2x") ; class' (Jstr.v "fa-home") ] ] - ; edit_button ; El.button ~at:At.[class' (Jstr.v "action-button")] [ El.i @@ -69,14 +68,7 @@ let populate_menu () = ; class' (Jstr.v "fa-2x") ; class' (Jstr.v "fa-download") ] ] - ; El.button - ~at:At.[class' (Jstr.v "action-button")] - [ El.i - [] - ~at:At.[ class' (Jstr.v "fa") - ; class' (Jstr.v "fa-2x") - ; class' (Jstr.v "fa-trash") ] - ] + ; delete_button ; El.button ~at:At.[class' (Jstr.v "action-button")] [ El.i @@ -92,5 +84,5 @@ let populate_menu () = let () = El.append_children element childs in Some - { edit = (edit_button, edit_event) + { delete = (delete_button, delete_event) } -- cgit v1.2.3